-
Notifications
You must be signed in to change notification settings - Fork 96
/
nwuid.prg
49 lines (36 loc) · 1.27 KB
/
nwuid.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
/* This is an original work by Glenn Scott and is placed in the public domain.
Rev 1.4 15 Aug 1991 23:04:10 GLENN
Forest Belt proofread/edited/cleaned up doc
Rev 1.3 14 Jun 1991 19:52:34 GLENN
Minor edit to file header
Rev 1.2 14 Jun 1991 04:31:30 GLENN
Return value still needs to have nulls (hb_BChar(0)) removed. Put that back
in.
Rev 1.1 12 Jun 1991 02:25:22 GLENN
Documentation correction and revision of ft_int86() call to account
for Ted's new string passing conventions.
Rev 1.0 01 Apr 1991 01:01:56 GLENN
Nanforum Toolkit
*/
FUNCTION ft_NWUID( nConn ) // TODO: rewrite in C
#if 0
LOCAL aRegs[ INT86_MAX_REGS ]
LOCAL cReqPkt
IF nConn == NIL
nConn := ft_NWLStat()
ENDIF
// Set up request packet
cReqPkt := hb_BChar( 22 ) + hb_BChar( nConn ) // Get Connection Information
cReqPkt := I2Bin( hb_BLen( cReqPkt ) ) + cReqPkt
// Assign registers
aRegs[ AX ] := MAKEHI( 0xE3 ) // NW_LOG
aRegs[ DS ] := cReqPkt
aRegs[ SI ] := REG_DS
aRegs[ ES ] := Space( 63 ) // Set up reply packet
aRegs[ DI ] := REG_ES
ft_int86( 33, aRegs )
RETURN AllTrim( StrTran( hb_BSubStr( aRegs[ ES ], 9, 48 ), hb_BChar( 0 ) ) )
#else
HB_SYMBOL_UNUSED( nConn )
RETURN ""
#endif