home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1997-10-10 | 16.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'HELP('
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 48 45 4c 50 28 00 00 00 | fa 00 00 00 ff ff ff ff |HELP(...|........|
|00000010| 2c 00 00 00 00 fd ff ff | 00 00 00 00 80 00 00 00 |,.......|........|
|00000020| 00 01 00 00 00 00 00 00 | 24 00 00 00 44 49 52 24 |........|$...DIR$|
|00000030| 88 00 00 00 88 00 00 00 | b4 00 00 00 47 fd ff ff |........|....G...|
|00000040| 6e f9 03 d7 ff 04 00 00 | 13 00 00 00 00 00 00 00 |n.......|........|
|00000050| 21 52 6f 6f 74 00 00 00 | b4 05 00 00 47 fd ff ff |!Root...|....G...|
|00000060| ef d4 d8 6b 76 03 00 00 | 13 00 00 00 00 00 00 00 |...kv...|........|
|00000070| 69 6e 66 6f 00 00 00 00 | 2c 09 00 00 47 fd ff ff |info....|,...G...|
|00000080| de 5f 06 d7 d8 00 00 00 | 13 01 00 00 00 00 00 00 |._......|........|
|00000090| 50 52 4f 43 00 00 00 00 | c4 1a 00 00 47 fd ff ff |PROC....|....G...|
|000000a0| e7 62 06 d7 8c 00 00 00 | 13 01 00 00 00 00 00 00 |.b......|........|
|000000b0| 46 4e 00 00 44 41 54 41 | ff 04 00 00 53 6f 63 6b |FN..DATA|....Sock|
|000000c0| 65 74 4c 69 62 20 72 6f | 75 74 69 6e 65 73 0a 23 |etLib ro|utines.#|
|000000d0| 50 61 72 65 6e 74 20 53 | 74 72 6f 6e 67 48 65 6c |Parent S|trongHel|
|000000e0| 70 3a 21 4d 65 6e 75 0a | 53 6f 63 6b 65 74 20 73 |p:!Menu.|Socket s|
|000000f0| 70 65 63 69 66 69 63 20 | 3a 0a 23 49 6e 64 65 6e |pecific |:.#Inden|
|00000100| 74 20 32 0a 23 54 61 62 | 6c 65 20 43 6f 6c 75 6d |t 2.#Tab|le Colum|
|00000110| 6e 73 20 33 0a 3c 50 52 | 4f 43 69 6e 69 74 73 6f |ns 3.<PR|OCinitso|
|00000120| 63 6b 65 74 73 3e 0a 3c | 50 52 4f 43 63 6c 6f 73 |ckets>.<|PROCclos|
|00000130| 65 73 6f 63 6b 65 74 73 | 3e 0a 3c 46 4e 73 6f 63 |esockets|>.<FNsoc|
|00000140| 6b 65 74 5f 63 72 65 61 | 74 65 69 6e 65 74 3e 0a |ket_crea|teinet>.|
|00000150| 3c 50 52 4f 43 73 6f 63 | 6b 65 74 5f 63 6c 6f 73 |<PROCsoc|ket_clos|
|00000160| 65 3e 0a 3c 50 52 4f 43 | 73 6f 63 6b 65 74 5f 6c |e>.<PROC|socket_l|
|00000170| 69 73 74 65 6e 3e 0a 3c | 46 4e 73 6f 63 6b 65 74 |isten>.<|FNsocket|
|00000180| 5f 66 69 6e 64 6c 69 73 | 74 65 6e 3e 0a 3c 46 4e |_findlis|ten>.<FN|
|00000190| 73 6f 63 6b 65 74 5f 61 | 63 63 65 70 74 3e 0a 3c |socket_a|ccept>.<|
|000001a0| 46 4e 73 6f 63 6b 65 74 | 5f 63 6f 6e 6e 65 63 74 |FNsocket|_connect|
|000001b0| 3e 0a 3c 46 4e 73 6f 63 | 6b 65 74 5f 6e 6f 62 6c |>.<FNsoc|ket_nobl|
|000001c0| 6f 63 6b 63 6f 6e 6e 65 | 63 74 3e 0a 3c 46 4e 73 |ockconne|ct>.<FNs|
|000001d0| 6f 63 6b 65 74 5f 72 65 | 61 64 79 3e 0a 3c 46 4e |ocket_re|ady>.<FN|
|000001e0| 73 6f 63 6b 65 74 5f 63 | 6f 6e 6e 65 63 74 65 64 |socket_c|onnected|
|000001f0| 3e 0a 3c 50 52 4f 43 73 | 6f 63 6b 65 74 5f 6d 61 |>.<PROCs|ocket_ma|
|00000200| 6b 65 62 75 66 66 65 72 | 65 64 3e 0a 3c 50 52 4f |kebuffer|ed>.<PRO|
|00000210| 43 73 6f 63 6b 65 74 5f | 6d 61 6b 65 6c 69 6e 67 |Csocket_|makeling|
|00000220| 65 72 3e 0a 3c 50 52 4f | 43 73 6f 63 6b 65 74 5f |er>.<PRO|Csocket_|
|00000230| 6d 61 6b 65 72 65 75 73 | 61 62 6c 65 3e 0a 3c 46 |makereus|able>.<F|
|00000240| 4e 73 6f 63 6b 65 74 5f | 69 6e 62 75 66 66 65 72 |Nsocket_|inbuffer|
|00000250| 3e 0a 3c 46 4e 73 6f 63 | 6b 65 74 5f 65 6f 66 3e |>.<FNsoc|ket_eof>|
|00000260| 0a 3c 46 4e 73 6f 63 6b | 65 74 5f 72 65 61 64 64 |.<FNsock|et_readd|
|00000270| 61 74 61 3e 0a 3c 46 4e | 73 6f 63 6b 65 74 5f 72 |ata>.<FN|socket_r|
|00000280| 65 61 64 6c 69 6e 65 3e | 0a 3c 50 52 4f 43 73 6f |eadline>|.<PROCso|
|00000290| 63 6b 65 74 5f 73 65 6e | 64 64 61 74 61 3e 0a 3c |cket_sen|ddata>.<|
|000002a0| 50 52 4f 43 73 6f 63 6b | 65 74 5f 73 65 6e 64 6c |PROCsock|et_sendl|
|000002b0| 69 6e 65 3e 0a 3c 46 4e | 73 6f 63 6b 65 74 5f 67 |ine>.<FN|socket_g|
|000002c0| 65 74 70 65 65 72 6e 61 | 6d 65 3e 0a 23 45 6e 64 |etpeerna|me>.#End|
|000002d0| 54 61 62 6c 65 0a 23 49 | 6e 64 65 6e 74 0a 0a 4e |Table.#I|ndent..N|
|000002e0| 6f 6e 2d 73 6f 63 6b 65 | 74 20 73 70 65 63 69 66 |on-socke|t specif|
|000002f0| 69 63 20 3a 0a 23 49 6e | 64 65 6e 74 20 32 0a 23 |ic :.#In|dent 2.#|
|00000300| 54 61 62 6c 65 20 43 6f | 6c 75 6d 6e 73 20 32 0a |Table Co|lumns 2.|
|00000310| 3c 46 4e 69 6e 65 74 5f | 67 65 74 68 6f 73 74 62 |<FNinet_|gethostb|
|00000320| 79 6e 61 6d 65 3e 0a 3c | 46 4e 69 6e 65 74 5f 67 |yname>.<|FNinet_g|
|00000330| 65 74 68 6f 73 74 62 79 | 61 64 64 72 3e 0a 3c 46 |ethostby|addr>.<F|
|00000340| 4e 69 6e 65 74 5f 67 65 | 74 73 65 72 76 62 79 6e |Ninet_ge|tservbyn|
|00000350| 61 6d 65 3e 0a 3c 46 4e | 69 6e 65 74 5f 67 65 74 |ame>.<FN|inet_get|
|00000360| 73 65 72 76 62 79 70 6f | 72 74 3e 0a 3c 46 4e 69 |servbypo|rt>.<FNi|
|00000370| 6e 65 74 5f 64 65 63 6f | 64 65 65 72 72 6f 72 3e |net_deco|deerror>|
|00000380| 0a 3c 46 4e 69 6e 65 74 | 5f 63 72 65 61 74 65 73 |.<FNinet|_creates|
|00000390| 65 72 76 6d 65 6e 75 3e | 0a 3c 46 4e 69 6e 65 74 |ervmenu>|.<FNinet|
|000003a0| 5f 6d 74 72 65 73 6f 6c | 76 65 72 3e 0a 3c 46 4e |_mtresol|ver>.<FN|
|000003b0| 69 6e 65 74 5f 73 74 61 | 72 74 6d 74 67 65 74 68 |inet_sta|rtmtgeth|
|000003c0| 6f 73 74 62 79 6e 61 6d | 65 3e 0a 3c 46 4e 69 6e |ostbynam|e>.<FNin|
|000003d0| 65 74 5f 73 74 61 72 74 | 6d 74 67 65 74 68 6f 73 |et_start|mtgethos|
|000003e0| 74 62 79 61 64 64 72 3e | 0a 3c 46 4e 69 6e 65 74 |tbyaddr>|.<FNinet|
|000003f0| 5f 63 68 65 63 6b 6d 74 | 71 75 65 72 79 3e 0a 3c |_checkmt|query>.<|
|00000400| 46 4e 69 6e 65 74 5f 6d | 74 67 65 74 68 6f 73 74 |FNinet_m|tgethost|
|00000410| 62 79 6e 61 6d 65 3e 0a | 3c 46 4e 69 6e 65 74 5f |byname>.|<FNinet_|
|00000420| 6d 74 67 65 74 68 6f 73 | 74 62 79 61 64 64 72 3e |mtgethos|tbyaddr>|
|00000430| 0a 3c 50 52 4f 43 69 6e | 65 74 5f 6b 69 6c 6c 6d |.<PROCin|et_killm|
|00000440| 74 71 75 65 72 79 3e 0a | 23 45 6e 64 54 61 62 6c |tquery>.|#EndTabl|
|00000450| 65 0a 23 49 6e 64 65 6e | 74 0a 0a 42 75 66 66 65 |e.#Inden|t..Buffe|
|00000460| 72 20 68 61 6e 64 6c 69 | 6e 67 20 3a 0a 23 49 6e |r handli|ng :.#In|
|00000470| 64 65 6e 74 20 32 0a 23 | 54 61 62 6c 65 20 43 6f |dent 2.#|Table Co|
|00000480| 6c 75 6d 6e 73 20 32 0a | 3c 46 4e 62 75 66 66 65 |lumns 2.|<FNbuffe|
|00000490| 72 5f 67 65 74 77 6f 72 | 64 3e 0a 3c 46 4e 62 75 |r_getwor|d>.<FNbu|
|000004a0| 66 66 65 72 5f 67 65 74 | 72 65 73 74 3e 0a 23 45 |ffer_get|rest>.#E|
|000004b0| 6e 64 54 61 62 6c 65 0a | 23 49 6e 64 65 6e 74 0a |ndTable.|#Indent.|
|000004c0| 0a 4c 6f 67 67 69 6e 67 | 20 28 3c 53 79 73 4c 6f |.Logging| (<SysLo|
|000004d0| 67 3d 3e 49 6e 65 74 53 | 57 49 73 3a 53 79 73 4c |g=>InetS|WIs:SysL|
|000004e0| 6f 67 5f 3e 29 20 3a 0a | 23 49 6e 64 65 6e 74 20 |og_>) :.|#Indent |
|000004f0| 32 0a 23 54 61 62 6c 65 | 20 43 6f 6c 75 6d 6e 73 |2.#Table| Columns|
|00000500| 20 33 0a 3c 50 52 4f 43 | 73 79 73 6c 6f 67 3e 0a | 3.<PROC|syslog>.|
|00000510| 3c 46 4e 6c 6f 67 5f 6f | 70 65 6e 73 65 73 73 69 |<FNlog_o|pensessi|
|00000520| 6f 6e 3e 0a 3c 50 52 4f | 43 6c 6f 67 5f 63 6c 6f |on>.<PRO|Clog_clo|
|00000530| 73 65 73 65 73 73 69 6f | 6e 3e 0a 3c 50 52 4f 43 |sesessio|n>.<PROC|
|00000540| 6c 6f 67 5f 73 65 73 73 | 69 6f 6e 3e 0a 3c 50 52 |log_sess|ion>.<PR|
|00000550| 4f 43 6c 6f 67 5f 69 6e | 64 65 6e 74 3e 0a 3c 50 |OClog_in|dent>.<P|
|00000560| 52 4f 43 6c 6f 67 5f 6f | 75 74 64 65 6e 74 3e 0a |ROClog_o|utdent>.|
|00000570| 3c 50 52 4f 43 6c 6f 67 | 5f 64 61 74 61 3e 0a 23 |<PROClog|_data>.#|
|00000580| 45 6e 64 54 61 62 6c 65 | 0a 23 49 6e 64 65 6e 74 |EndTable|.#Indent|
|00000590| 0a 0a 3c 49 6e 66 6f 72 | 6d 61 74 69 6f 6e 3d 3e |..<Infor|mation=>|
|000005a0| 69 6e 66 6f 3e 20 6f 6e | 20 53 6f 63 6b 65 74 4c |info> on| SocketL|
|000005b0| 69 62 0a 00 44 41 54 41 | 76 03 00 00 53 6f 63 6b |ib..DATA|v...Sock|
|000005c0| 65 74 4c 69 62 20 68 65 | 6c 70 0a 23 41 6c 69 67 |etLib he|lp.#Alig|
|000005d0| 6e 20 43 65 6e 74 72 65 | 0a 7b 66 68 33 7d 4a 46 |n Centre|.{fh3}JF|
|000005e0| 53 68 61 72 65 64 20 53 | 6f 63 6b 65 74 4c 69 62 |Shared S|ocketLib|
|000005f0| 20 76 31 2e 30 39 7b 66 | 7d 0a 23 41 6c 69 67 6e | v1.09{f|}.#Align|
|00000600| 20 4c 65 66 74 0a 0a 54 | 68 65 20 53 6f 63 6b 65 | Left..T|he Socke|
|00000610| 74 20 4c 69 62 72 61 72 | 79 20 69 73 20 61 20 42 |t Librar|y is a B|
|00000620| 61 73 69 63 20 4c 69 62 | 72 61 72 79 20 66 69 6c |asic Lib|rary fil|
|00000630| 65 20 77 68 69 63 68 20 | 70 72 6f 76 69 64 65 73 |e which |provides|
|00000640| 20 61 6e 20 69 6e 74 65 | 72 66 61 63 65 20 74 6f | an inte|rface to|
|00000650| 20 74 68 65 20 3c 49 6e | 74 65 72 6e 65 74 3d 3e | the <In|ternet=>|
|00000660| 49 6e 74 65 72 6e 65 74 | 3a 21 52 6f 6f 74 3e 20 |Internet|:!Root> |
|00000670| 53 6f 63 6b 65 74 73 20 | 53 57 49 20 63 61 6c 6c |Sockets |SWI call|
|00000680| 73 2e 20 49 6e 20 63 6f | 6e 6a 75 6e 63 74 69 6f |s. In co|njunctio|
|00000690| 6e 20 77 69 74 68 20 74 | 68 65 20 3c 57 69 6d 70 |n with t|he <Wimp|
|000006a0| 4c 69 62 3d 3e 57 69 6d | 70 4c 69 62 3a 21 52 6f |Lib=>Wim|pLib:!Ro|
|000006b0| 6f 74 3e 20 61 6e 64 20 | 4a 46 53 68 61 72 65 64 |ot> and |JFShared|
|000006c0| 20 73 6b 65 6c 65 74 6f | 6e 20 61 70 70 6c 69 63 | skeleto|n applic|
|000006d0| 61 74 69 6f 6e 20 74 68 | 69 73 20 70 72 6f 76 69 |ation th|is provi|
|000006e0| 64 65 73 20 61 20 76 65 | 72 79 20 73 69 6d 70 6c |des a ve|ry simpl|
|000006f0| 65 20 77 61 79 20 6f 66 | 20 63 72 65 61 74 69 6e |e way of| creatin|
|00000700| 67 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 20 77 |g applic|ations w|
|00000710| 68 69 63 68 20 63 61 6e | 20 74 61 6c 6b 20 74 6f |hich can| talk to|
|00000720| 20 70 6f 72 74 73 20 61 | 63 72 6f 73 73 20 74 68 | ports a|cross th|
|00000730| 65 20 69 6e 74 65 72 6e | 65 74 2c 20 6f 72 20 61 |e intern|et, or a|
|00000740| 6e 20 69 6e 74 72 61 6e | 65 74 2e 20 54 68 69 73 |n intran|et. This|
|00000750| 20 68 65 6c 70 20 66 69 | 6c 65 20 64 65 74 61 69 | help fi|le detai|
|00000760| 6c 73 20 74 68 65 20 72 | 6f 75 74 69 6e 65 73 20 |ls the r|outines |
|00000770| 70 72 6f 76 69 64 65 64 | 20 69 6e 20 53 6f 63 6b |provided| in Sock|
|00000780| 65 74 4c 69 62 2e 0a 0a | 54 68 65 20 53 6f 63 6b |etLib...|The Sock|
|00000790| 65 74 20 4c 69 62 72 61 | 72 79 20 69 73 20 72 65 |et Libra|ry is re|
|000007a0| 66 65 72 65 6e 63 65 64 | 20 62 79 20 5c 3c 53 6f |ferenced| by \<So|
|000007b0| 63 6b 65 74 4c 69 62 72 | 61 72 79 24 46 69 6c 65 |cketLibr|ary$File|
|000007c0| 3e 20 61 6e 64 20 73 68 | 6f 75 6c 64 20 62 65 20 |> and sh|ould be |
|000007d0| 6c 6f 61 64 65 64 20 77 | 69 74 68 20 3a 0a 7b 66 |loaded w|ith :.{f|
|000007e0| 43 6f 64 65 7d 4c 49 42 | 52 41 52 59 20 22 5c 3c |Code}LIB|RARY "\<|
|000007f0| 53 6f 63 6b 65 74 4c 69 | 62 72 61 72 79 24 46 69 |SocketLi|brary$Fi|
|00000800| 6c 65 3e 22 3a 50 52 4f | 43 69 6e 69 74 73 6f 63 |le>":PRO|Cinitsoc|
|00000810| 6b 65 74 73 7b 66 7d 0a | 0a 54 68 65 20 4a 46 53 |kets{f}.|.The JFS|
|00000820| 68 61 72 65 64 20 61 70 | 70 6c 69 63 61 74 69 6f |hared ap|plicatio|
|00000830| 6e 20 69 73 20 a9 20 3c | 4a 75 73 74 69 6e 20 46 |n is . <|Justin F|
|00000840| 6c 65 74 63 68 65 72 3d | 3e 46 69 6c 65 74 79 70 |letcher=|>Filetyp|
|00000850| 65 73 3a 41 75 74 68 6f | 72 73 5f 4a 75 73 74 69 |es:Autho|rs_Justi|
|00000860| 6e 46 6c 65 74 63 68 65 | 72 3e 2c 20 31 39 39 37 |nFletche|r>, 1997|
|00000870| 20 61 6e 64 20 69 73 20 | 72 65 6c 65 61 73 65 64 | and is |released|
|00000880| 20 69 6e 74 6f 20 74 68 | 65 20 50 75 62 6c 69 63 | into th|e Public|
|00000890| 20 44 6f 6d 61 69 6e 20 | 77 69 74 68 20 74 68 65 | Domain |with the|
|000008a0| 20 73 61 6d 65 20 72 65 | 73 74 72 69 63 74 69 6f | same re|strictio|
|000008b0| 6e 73 20 61 73 20 73 75 | 62 73 69 73 74 20 69 6e |ns as su|bsist in|
|000008c0| 20 6d 6f 73 74 20 50 44 | 20 73 6f 66 74 77 61 72 | most PD| softwar|
|000008d0| 65 2e 20 54 68 69 73 20 | 69 6e 63 6c 75 64 65 73 |e. This |includes|
|000008e0| 20 74 68 65 20 66 61 63 | 74 20 74 68 61 74 20 77 | the fac|t that w|
|000008f0| 68 65 6e 20 64 69 73 74 | 72 69 62 75 74 65 64 20 |hen dist|ributed |
|00000900| 74 68 65 20 65 6e 74 69 | 72 65 20 61 70 70 6c 69 |the enti|re appli|
|00000910| 63 61 74 69 6f 6e 20 6d | 75 73 74 20 72 65 6d 61 |cation m|ust rema|
|00000920| 69 6e 20 69 6e 74 61 63 | 74 2e 00 00 44 49 52 24 |in intac|t...DIR$|
|00000930| d8 00 00 00 d8 00 00 00 | 04 0a 00 00 46 ff ff ff |........|....F...|
|00000940| ab ee 01 fb 9d 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00000950| 69 6e 69 74 73 6f 63 6b | 65 74 73 00 a4 0a 00 00 |initsock|ets.....|
|00000960| 47 ff ff ff 55 87 4b 54 | 0f 01 00 00 13 00 00 00 |G...U.KT|........|
|00000970| 00 00 00 00 63 6c 6f 73 | 65 73 6f 63 6b 65 74 73 |....clos|esockets|
|00000980| 00 00 00 00 b4 0b 00 00 | 47 fd ff ff 5a 60 06 d7 |........|G...Z`..|
|00000990| 08 01 00 00 13 01 00 00 | 00 00 00 00 73 6f 63 6b |........|....sock|
|000009a0| 65 74 5f 00 f8 13 00 00 | 47 fd ff ff fb 60 06 d7 |et_.....|G....`..|
|000009b0| 30 00 00 00 13 01 00 00 | 00 00 00 00 69 6e 65 74 |0.......|....inet|
|000009c0| 5f 00 00 00 4c 15 00 00 | 47 ff ff ff 3b f4 03 d7 |_...L...|G...;...|
|000009d0| af 00 00 00 13 00 00 00 | 00 00 00 00 73 79 73 6c |........|....sysl|
|000009e0| 6f 67 00 00 fc 15 00 00 | 47 fd ff ff 29 61 06 d7 |og......|G...)a..|
|000009f0| b4 00 00 00 13 01 00 00 | 00 00 00 00 6c 6f 67 5f |........|....log_|
|00000a00| 00 00 00 00 44 41 54 41 | 9d 00 00 00 50 52 4f 43 |....DATA|....PROC|
|00000a10| 69 6e 69 74 73 6f 63 6b | 65 74 73 0a 23 50 61 72 |initsock|ets.#Par|
|00000a20| 65 6e 74 20 21 52 6f 6f | 74 0a 49 6e 69 74 69 61 |ent !Roo|t.Initia|
|00000a30| 6c 69 73 65 20 74 68 65 | 20 73 6f 63 6b 65 74 73 |lise the| sockets|
|00000a40| 20 6c 69 62 72 61 72 79 | 20 76 61 72 69 61 62 6c | library| variabl|
|00000a50| 65 73 0a 0a 43 61 6c 6c | 20 74 68 69 73 20 72 6f |es..Call| this ro|
|00000a60| 75 74 69 6e 65 20 61 74 | 20 74 68 65 20 73 74 61 |utine at| the sta|
|00000a70| 72 74 20 6f 66 20 61 6e | 79 20 70 72 6f 67 72 61 |rt of an|y progra|
|00000a80| 6d 20 74 68 61 74 20 75 | 73 65 73 20 74 68 65 20 |m that u|ses the |
|00000a90| 53 6f 63 6b 65 74 73 4c | 69 62 20 66 69 6c 65 2e |SocketsL|ib file.|
|00000aa0| 0a 00 00 00 44 41 54 41 | 0f 01 00 00 50 52 4f 43 |....DATA|....PROC|
|00000ab0| 63 6c 6f 73 65 73 6f 63 | 6b 65 74 73 0a 23 50 61 |closesoc|kets.#Pa|
|00000ac0| 72 65 6e 74 20 21 52 6f | 6f 74 0a 53 68 75 74 73 |rent !Ro|ot.Shuts|
|00000ad0| 64 6f 77 6e 20 74 68 65 | 20 53 6f 63 6b 65 74 73 |down the| Sockets|
|00000ae0| 20 6c 69 62 72 61 72 79 | 2e 0a 0a 59 6f 75 20 6d | library|...You m|
|00000af0| 75 73 74 20 63 61 6c 6c | 20 74 68 69 73 20 72 6f |ust call| this ro|
|00000b00| 75 74 69 6e 65 20 61 74 | 20 74 68 65 20 65 6e 64 |utine at| the end|
|00000b10| 20 6f 66 20 61 6e 79 20 | 70 72 6f 67 72 61 6d 20 | of any |program |
|00000b20| 77 68 69 63 68 20 75 73 | 65 73 20 74 68 65 20 6c |which us|es the l|
|00000b30| 69 62 72 61 72 79 2e 20 | 49 74 20 77 69 6c 6c 20 |ibrary. |It will |
|00000b40| 63 6c 6f 73 65 20 61 6c | 6c 20 74 68 65 20 73 6f |close al|l the so|
|00000b50| 63 6b 65 74 73 20 63 75 | 72 72 65 6e 74 6c 79 20 |ckets cu|rrently |
|00000b60| 6f 70 65 6e 20 61 6e 64 | 20 72 65 6c 65 61 73 65 |open and| release|
|00000b70| 20 61 6e 79 20 6d 65 6d | 6f 72 79 20 63 6c 61 69 | any mem|ory clai|
|00000b80| 6d 65 64 2c 20 61 73 20 | 77 65 6c 6c 20 61 73 20 |med, as |well as |
|00000b90| 72 65 6d 6f 76 69 6e 67 | 20 61 6c 6c 20 6d 75 6c |removing| all mul|
|00000ba0| 74 69 74 61 73 6b 69 6e | 67 20 6c 6f 6f 6b 75 70 |titaskin|g lookup|
|00000bb0| 73 2e 0a 00 44 49 52 24 | 08 01 00 00 08 01 00 00 |s...DIR$|........|
|00000bc0| bc 0c 00 00 46 ff ff ff | 88 45 02 fb 6d 00 00 00 |....F...|.E..m...|
|00000bd0| 13 00 00 00 00 00 00 00 | 63 6c 6f 73 65 00 00 00 |........|close...|
|00000be0| 2c 0d 00 00 46 ff ff ff | a6 e2 02 fb 9e 01 00 00 |,...F...|........|
|00000bf0| 13 00 00 00 00 00 00 00 | 6c 69 73 74 65 6e 00 00 |........|listen..|
|00000c00| cc 0e 00 00 46 ff ff ff | 6d cb 03 fb 21 01 00 00 |....F...|m...!...|
|00000c10| 13 00 00 00 00 00 00 00 | 6d 61 6b 65 62 75 66 66 |........|makebuff|
|00000c20| 65 72 65 64 00 00 00 00 | f0 0f 00 00 46 ff ff ff |ered....|....F...|
|00000c30| 4e 0c 0a fb fe 00 00 00 | 13 00 00 00 00 00 00 00 |N.......|........|
|00000c40| 6d 61 6b 65 6c 69 6e 67 | 65 72 00 00 f0 10 00 00 |makeling|er......|
|00000c50| 46 ff ff ff f7 42 0a fb | 51 01 00 00 13 00 00 00 |F....B..|Q.......|
|00000c60| 00 00 00 00 6d 61 6b 65 | 72 65 75 73 61 62 6c 65 |....make|reusable|
|00000c70| 00 00 00 00 44 12 00 00 | 46 ff ff ff 44 4c 0b fb |....D...|F...DL..|
|00000c80| eb 00 00 00 13 00 00 00 | 00 00 00 00 73 65 6e 64 |........|....send|
|00000c90| 64 61 74 61 00 00 00 00 | 30 13 00 00 46 ff ff ff |data....|0...F...|
|00000ca0| b5 13 0b fd c6 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00000cb0| 73 65 6e 64 6c 69 6e 65 | 00 00 00 00 44 41 54 41 |sendline|....DATA|
|00000cc0| 6d 00 00 00 50 52 4f 43 | 73 6f 63 6b 65 74 5f 63 |m...PROC|socket_c|
|00000cd0| 6c 6f 73 65 28 73 6f 63 | 6b 65 74 29 0a 23 50 61 |lose(soc|ket).#Pa|
|00000ce0| 72 65 6e 74 20 21 52 6f | 6f 74 0a 3d 3e 09 7b 2f |rent !Ro|ot.=>.{/|
|00000cf0| 7d 73 6f 63 6b 65 74 7b | 2f 7d 09 68 61 6e 64 6c |}socket{|/}.handl|
|00000d00| 65 20 6f 66 20 73 6f 63 | 6b 65 74 0a 0a 43 6c 6f |e of soc|ket..Clo|
|00000d10| 73 65 73 20 61 20 73 6f | 63 6b 65 74 73 20 63 6f |ses a so|ckets co|
|00000d20| 6e 6e 65 63 74 69 6f 6e | 2e 00 00 00 44 41 54 41 |nnection|....DATA|
|00000d30| 9e 01 00 00 50 52 4f 43 | 73 6f 63 6b 65 74 5f 6c |....PROC|socket_l|
|00000d40| 69 73 74 65 6e 28 73 6f | 63 6b 65 74 2c 69 70 2c |isten(so|cket,ip,|
|00000d50| 70 6f 72 74 29 0a 23 50 | 61 72 65 6e 74 20 21 52 |port).#P|arent !R|
|00000d60| 6f 6f 74 0a 3d 3e 09 2f | 73 6f 63 6b 65 74 2f 09 |oot.=>./|socket/.|
|00000d70| 68 61 6e 64 6c 65 20 6f | 66 20 73 6f 63 6b 65 74 |handle o|f socket|
|00000d80| 20 61 73 20 67 69 76 65 | 6e 20 62 79 20 3c 46 4e | as give|n by <FN|
|00000d90| 73 6f 63 6b 65 74 5f 63 | 72 65 61 74 65 69 6e 65 |socket_c|reateine|
|00000da0| 74 3e 0a 09 2f 69 70 2f | 09 09 61 64 64 72 65 73 |t>../ip/|..addres|
|00000db0| 73 20 6f 66 20 68 6f 73 | 74 20 74 6f 20 61 63 63 |s of hos|t to acc|
|00000dc0| 65 70 74 20 63 6f 6e 6e | 65 63 74 69 6f 6e 73 20 |ept conn|ections |
|00000dd0| 66 72 6f 6d 20 28 75 73 | 75 61 6c 6c 79 20 30 29 |from (us|ually 0)|
|00000de0| 0a 09 2f 70 6f 72 74 2f | 09 09 70 6f 72 74 20 6e |../port/|..port n|
|00000df0| 75 6d 62 65 72 20 74 6f | 20 6c 69 73 74 65 6e 20 |umber to| listen |
|00000e00| 6f 6e 0a 0a 4c 69 73 74 | 65 6e 73 20 66 6f 72 20 |on..List|ens for |
|00000e10| 63 6f 6e 6e 65 63 74 69 | 6f 6e 73 20 6f 6e 20 61 |connecti|ons on a|
|00000e20| 20 73 70 65 63 69 66 69 | 63 20 73 6f 63 6b 65 74 | specifi|c socket|
|00000e30| 2e 20 41 6e 20 65 72 72 | 6f 72 20 77 69 6c 6c 20 |. An err|or will |
|00000e40| 6f 63 63 75 72 20 69 66 | 20 74 68 65 20 73 70 65 |occur if| the spe|
|00000e50| 63 69 66 69 65 64 20 70 | 6f 72 74 20 69 73 20 61 |cified p|ort is a|
|00000e60| 6c 72 65 61 64 79 20 62 | 6f 75 6e 64 20 74 6f 20 |lready b|ound to |
|00000e70| 61 6e 6f 74 68 65 72 20 | 73 6f 63 6b 65 74 2e 20 |another |socket. |
|00000e80| 55 73 65 20 3c 46 4e 73 | 6f 63 6b 65 74 5f 66 69 |Use <FNs|ocket_fi|
|00000e90| 6e 64 6c 69 73 74 65 6e | 3e 20 69 66 20 79 6f 75 |ndlisten|> if you|
|00000ea0| 20 77 69 73 68 20 74 6f | 20 62 65 20 61 6c 6c 6f | wish to| be allo|
|00000eb0| 63 61 74 65 64 20 61 20 | 73 6f 63 6b 65 74 20 69 |cated a |socket i|
|00000ec0| 6e 20 61 20 72 61 6e 67 | 65 2e 00 00 44 41 54 41 |n a rang|e...DATA|
|00000ed0| 21 01 00 00 50 52 4f 43 | 73 6f 63 6b 65 74 5f 6d |!...PROC|socket_m|
|00000ee0| 61 6b 65 62 75 66 66 65 | 72 65 64 28 73 6f 63 6b |akebuffe|red(sock|
|00000ef0| 65 74 29 0a 23 50 61 72 | 65 6e 74 20 21 52 6f 6f |et).#Par|ent !Roo|
|00000f00| 74 0a 3d 3e 09 2f 73 6f | 63 6b 65 74 2f 09 68 61 |t.=>./so|cket/.ha|
|00000f10| 6e 64 6c 65 20 6f 66 20 | 73 6f 63 6b 65 74 20 61 |ndle of |socket a|
|00000f20| 73 20 67 69 76 65 6e 20 | 62 79 20 3c 46 4e 73 6f |s given |by <FNso|
|00000f30| 63 6b 65 74 5f 63 72 65 | 61 74 65 69 6e 65 74 3e |cket_cre|ateinet>|
|00000f40| 0a 0a 41 6c 6c 6f 63 61 | 74 65 73 20 61 20 62 75 |..Alloca|tes a bu|
|00000f50| 66 66 65 72 20 66 6f 72 | 20 74 68 65 20 73 6f 63 |ffer for| the soc|
|00000f60| 6b 65 74 20 73 6f 20 74 | 68 61 74 20 63 61 6c 6c |ket so t|hat call|
|00000f70| 73 20 74 6f 20 3c 46 4e | 73 6f 63 6b 65 74 5f 72 |s to <FN|socket_r|
|00000f80| 65 61 64 6c 69 6e 65 3e | 20 63 61 6e 20 62 65 20 |eadline>| can be |
|00000f90| 75 73 65 64 2e 20 4f 74 | 68 65 72 77 69 73 65 20 |used. Ot|herwise |
|00000fa0| 79 6f 75 27 6c 6c 20 68 | 61 76 65 20 74 6f 20 6a |you'll h|ave to j|
|00000fb0| 75 73 74 20 75 73 65 20 | 3c 46 4e 73 6f 63 6b 65 |ust use |<FNsocke|
|00000fc0| 74 5f 72 65 61 64 64 61 | 74 61 3e 20 70 61 73 73 |t_readda|ta> pass|
|00000fd0| 69 6e 67 20 79 6f 75 72 | 20 6f 77 6e 20 6d 65 6d |ing your| own mem|
|00000fe0| 6f 72 79 20 70 6f 69 6e | 74 65 72 2e 0a 00 00 00 |ory poin|ter.....|
|00000ff0| 44 41 54 41 fe 00 00 00 | 50 52 4f 43 73 6f 63 6b |DATA....|PROCsock|
|00001000| 65 74 5f 6d 61 6b 65 6c | 69 6e 67 65 72 28 73 6f |et_makel|inger(so|
|00001010| 63 6b 65 74 2c 74 69 6d | 65 29 0a 23 50 61 72 65 |cket,tim|e).#Pare|
|00001020| 6e 74 20 21 52 6f 6f 74 | 0a 3d 3e 09 2f 73 6f 63 |nt !Root|.=>./soc|
|00001030| 6b 65 74 2f 09 68 61 6e | 64 6c 65 20 6f 66 20 73 |ket/.han|dle of s|
|00001040| 6f 63 6b 65 74 20 61 73 | 20 67 69 76 65 6e 20 62 |ocket as| given b|
|00001050| 79 20 3c 46 4e 73 6f 63 | 6b 65 74 5f 63 72 65 61 |y <FNsoc|ket_crea|
|00001060| 74 65 69 6e 65 74 3e 0a | 09 2f 74 69 6d 65 2f 09 |teinet>.|./time/.|
|00001070| 09 74 69 6d 65 20 74 6f | 20 6c 69 6e 67 65 72 20 |.time to| linger |
|00001080| 66 6f 72 20 69 6e 20 73 | 65 63 6f 6e 64 73 2c 20 |for in s|econds, |
|00001090| 6f 72 20 30 20 74 6f 20 | 64 69 73 61 62 6c 65 0a |or 0 to |disable.|
|000010a0| 0a 45 6e 73 75 72 65 73 | 20 74 68 61 74 20 74 68 |.Ensures| that th|
|000010b0| 65 20 73 6f 63 6b 65 74 | 20 77 69 6c 6c 20 72 65 |e socket| will re|
|000010c0| 6d 61 69 6e 20 76 61 6c | 69 64 20 73 6f 20 74 68 |main val|id so th|
|000010d0| 61 74 20 64 61 74 61 20 | 63 61 6e 20 62 65 20 72 |at data |can be r|
|000010e0| 65 61 64 20 6f 6e 20 63 | 6c 6f 73 65 2e 0a 00 00 |ead on c|lose....|
|000010f0| 44 41 54 41 51 01 00 00 | 50 52 4f 43 73 6f 63 6b |DATAQ...|PROCsock|
|00001100| 65 74 5f 6d 61 6b 65 72 | 65 75 73 61 62 6c 65 28 |et_maker|eusable(|
|00001110| 73 6f 63 6b 65 74 2c 66 | 6c 61 67 29 0a 23 50 61 |socket,f|lag).#Pa|
|00001120| 72 65 6e 74 20 21 52 6f | 6f 74 0a 3d 3e 09 2f 73 |rent !Ro|ot.=>./s|
|00001130| 6f 63 6b 65 74 2f 09 68 | 61 6e 64 6c 65 20 6f 66 |ocket/.h|andle of|
|00001140| 20 73 6f 63 6b 65 74 20 | 61 73 20 67 69 76 65 6e | socket |as given|
|00001150| 20 62 79 20 3c 46 4e 73 | 6f 63 6b 65 74 5f 63 72 | by <FNs|ocket_cr|
|00001160| 65 61 74 65 69 6e 65 74 | 3e 0a 09 2f 66 6c 61 67 |eateinet|>../flag|
|00001170| 2f 09 09 54 52 55 45 20 | 74 6f 20 61 6c 6c 6f 77 |/..TRUE |to allow|
|00001180| 20 74 68 65 20 61 64 64 | 72 65 73 73 20 74 6f 20 | the add|ress to |
|00001190| 62 65 20 72 65 2d 75 73 | 65 64 0a 0a 57 68 65 6e |be re-us|ed..When|
|000011a0| 20 79 6f 75 20 63 6c 6f | 73 65 20 61 20 73 6f 63 | you clo|se a soc|
|000011b0| 6b 65 74 20 69 74 20 75 | 73 75 61 6c 6c 79 20 77 |ket it u|sually w|
|000011c0| 61 69 74 73 20 66 6f 72 | 20 61 20 74 69 6d 65 20 |aits for| a time |
|000011d0| 62 65 66 6f 72 65 20 61 | 6c 6c 6f 77 69 6e 67 20 |before a|llowing |
|000011e0| 61 6e 6f 74 68 65 72 20 | 73 6f 63 6b 65 74 20 74 |another |socket t|
|000011f0| 6f 20 62 65 20 63 72 65 | 61 74 65 64 20 6f 6e 20 |o be cre|ated on |
|00001200| 74 68 65 20 73 61 6d 65 | 20 70 6f 72 74 2e 20 42 |the same| port. B|
|00001210| 79 20 6d 61 6b 69 6e 67 | 20 74 68 65 20 73 6f 63 |y making| the soc|
|00001220| 6b 65 74 20 72 65 75 73 | 61 62 6c 65 20 74 68 69 |ket reus|able thi|
|00001230| 73 20 77 69 6c 6c 20 6e | 6f 74 20 6f 63 63 75 72 |s will n|ot occur|
|00001240| 2e 00 00 00 44 41 54 41 | eb 00 00 00 50 52 4f 43 |....DATA|....PROC|
|00001250| 73 6f 63 6b 65 74 5f 73 | 65 6e 64 64 61 74 61 28 |socket_s|enddata(|
|00001260| 73 6f 63 6b 65 74 2c 62 | 6c 6f 63 6b 2c 6c 65 6e |socket,b|lock,len|
|00001270| 67 74 68 29 0a 23 50 61 | 72 65 6e 74 20 21 52 6f |gth).#Pa|rent !Ro|
|00001280| 6f 74 0a 3d 3e 09 2f 73 | 6f 63 6b 65 74 2f 09 68 |ot.=>./s|ocket/.h|
|00001290| 61 6e 64 6c 65 20 6f 66 | 20 73 6f 63 6b 65 74 20 |andle of| socket |
|000012a0| 61 73 20 67 69 76 65 6e | 20 62 79 20 3c 46 4e 73 |as given| by <FNs|
|000012b0| 6f 63 6b 65 74 5f 63 72 | 65 61 74 65 69 6e 65 74 |ocket_cr|eateinet|
|000012c0| 3e 0a 09 2f 62 6c 6f 63 | 6b 2f 09 09 70 6f 69 6e |>../bloc|k/..poin|
|000012d0| 74 65 72 20 74 6f 20 74 | 68 65 20 64 61 74 61 20 |ter to t|he data |
|000012e0| 74 6f 20 73 65 6e 64 0a | 09 2f 6c 65 6e 67 74 68 |to send.|./length|
|000012f0| 2f 09 6c 65 6e 67 74 68 | 20 6f 66 20 64 61 74 61 |/.length| of data|
|00001300| 20 74 6f 20 73 65 6e 64 | 0a 0a 53 65 6e 64 73 20 | to send|..Sends |
|00001310| 61 20 62 6c 6f 63 6b 20 | 6f 66 20 6d 65 6d 6f 72 |a block |of memor|
|00001320| 79 20 74 6f 20 61 20 73 | 6f 63 6b 65 74 2e 0a 00 |y to a s|ocket...|
|00001330| 44 41 54 41 c6 00 00 00 | 50 52 4f 43 73 6f 63 6b |DATA....|PROCsock|
|00001340| 65 74 5f 73 65 6e 64 6c | 69 6e 65 28 73 6f 63 6b |et_sendl|ine(sock|
|00001350| 65 74 2c 6c 69 6e 65 24 | 29 0a 23 50 61 72 65 6e |et,line$|).#Paren|
|00001360| 74 20 21 52 6f 6f 74 0a | 3d 3e 09 7b 2f 7d 73 6f |t !Root.|=>.{/}so|
|00001370| 63 6b 65 74 7b 2f 7d 09 | 68 61 6e 64 6c 65 20 6f |cket{/}.|handle o|
|00001380| 66 20 73 6f 63 6b 65 74 | 20 61 73 20 67 69 76 65 |f socket| as give|
|00001390| 6e 20 62 79 20 3c 46 4e | 73 6f 63 6b 65 74 5f 63 |n by <FN|socket_c|
|000013a0| 72 65 61 74 65 69 6e 65 | 74 3e 0a 09 7b 2f 7d 6c |reateine|t>..{/}l|
|000013b0| 69 6e 65 24 7b 2f 7d 09 | 09 6c 69 6e 65 20 74 6f |ine${/}.|.line to|
|000013c0| 20 73 65 6e 64 0a 0a 53 | 65 6e 64 73 20 61 20 6c | send..S|ends a l|
|000013d0| 69 6e 65 20 74 6f 20 61 | 20 73 6f 63 6b 65 74 2c |ine to a| socket,|
|000013e0| 20 4c 46 20 28 26 31 30 | 29 20 74 65 72 6d 69 6e | LF (&10|) termin|
|000013f0| 61 74 65 64 2e 0a 00 00 | 44 49 52 24 30 00 00 00 |ated....|DIR$0...|
|00001400| 30 00 00 00 28 14 00 00 | 47 ff ff ff a8 ec 4a 54 |0...(...|G.....JT|
|00001410| 24 01 00 00 13 00 00 00 | 00 00 00 00 6b 69 6c 6c |$.......|....kill|
|00001420| 6d 74 71 75 65 72 79 00 | 44 41 54 41 24 01 00 00 |mtquery.|DATA$...|
|00001430| 50 52 4f 43 69 6e 65 74 | 5f 6b 69 6c 6c 6d 74 71 |PROCinet|_killmtq|
|00001440| 75 65 72 79 28 68 61 6e | 64 6c 65 29 0a 23 50 61 |uery(han|dle).#Pa|
|00001450| 72 65 6e 74 20 21 52 6f | 6f 74 0a 3d 3e 09 7b 2f |rent !Ro|ot.=>.{/|
|00001460| 7d 68 61 6e 64 6c 65 7b | 2f 7d 09 68 61 6e 64 6c |}handle{|/}.handl|
|00001470| 65 20 72 65 74 75 72 6e | 65 64 20 62 79 20 6f 6e |e return|ed by on|
|00001480| 65 20 6f 66 20 74 68 65 | 20 46 4e 69 6e 65 74 5f |e of the| FNinet_|
|00001490| 73 74 61 72 74 2e 2e 2e | 20 63 61 6c 6c 73 0a 0a |start...| calls..|
|000014a0| 44 65 73 74 72 6f 79 73 | 20 61 20 6d 75 6c 74 69 |Destroys| a multi|
|000014b0| 2d 74 61 73 6b 69 6e 67 | 20 6c 6f 6f 6b 75 70 2e |-tasking| lookup.|
|000014c0| 20 55 73 65 20 74 68 69 | 73 20 69 66 20 79 6f 75 | Use thi|s if you|
|000014d0| 20 64 6f 6e 27 74 20 63 | 61 72 65 20 61 6e 79 6d | don't c|are anym|
|000014e0| 6f 72 65 20 77 68 61 74 | 20 74 68 65 20 61 64 64 |ore what| the add|
|000014f0| 72 65 73 73 20 69 73 2e | 20 54 68 69 73 20 69 73 |ress is.| This is|
|00001500| 20 70 65 72 66 6f 72 6d | 65 64 20 61 75 74 6f 6d | perform|ed autom|
|00001510| 61 74 69 63 61 6c 6c 79 | 20 61 66 74 65 72 20 72 |atically| after r|
|00001520| 65 61 64 69 6e 67 20 74 | 68 65 20 61 6e 73 77 65 |eading t|he answe|
|00001530| 72 20 77 69 74 68 20 46 | 4e 69 6e 65 74 5f 6d 74 |r with F|Ninet_mt|
|00001540| 67 65 74 68 6f 73 74 62 | 79 2e 2e 2e 44 41 54 41 |gethostb|y...DATA|
|00001550| af 00 00 00 50 52 4f 43 | 73 79 73 6c 6f 67 28 6c |....PROC|syslog(l|
|00001560| 65 76 65 6c 2c 74 65 78 | 74 24 29 0a 23 50 61 72 |evel,tex|t$).#Par|
|00001570| 65 6e 74 20 21 52 6f 6f | 74 0a 3d 3e 09 7b 2f 7d |ent !Roo|t.=>.{/}|
|00001580| 6c 65 76 65 6c 7b 2f 7d | 09 3c 70 72 69 6f 72 69 |level{/}|.<priori|
|00001590| 74 79 3d 3e 49 6e 65 74 | 53 57 49 73 3a 53 79 73 |ty=>Inet|SWIs:Sys|
|000015a0| 4c 6f 67 5f 70 72 69 6f | 72 69 74 69 65 73 3e 0a |Log_prio|rities>.|
|000015b0| 09 7b 2f 7d 74 65 78 74 | 24 7b 2f 7d 09 74 65 78 |.{/}text|${/}.tex|
|000015c0| 74 20 74 6f 20 6c 6f 67 | 0a 0a 4c 6f 67 20 61 20 |t to log|..Log a |
|000015d0| 6c 69 6e 65 20 74 6f 20 | 74 68 65 20 6d 61 69 6e |line to |the main|
|000015e0| 20 6c 6f 67 20 66 6f 72 | 20 74 68 69 73 20 61 70 | log for| this ap|
|000015f0| 70 6c 69 63 61 74 69 6f | 6e 2e 0a 00 44 49 52 24 |plicatio|n...DIR$|
|00001600| b4 00 00 00 b4 00 00 00 | b0 16 00 00 47 ff ff ff |........|....G...|
|00001610| 51 67 07 61 8d 00 00 00 | 13 00 00 00 00 00 00 00 |Qg.a....|........|
|00001620| 63 6c 6f 73 65 73 65 73 | 73 69 6f 6e 00 00 00 00 |closeses|sion....|
|00001630| 40 17 00 00 47 ff ff ff | 65 f2 03 d7 e7 00 00 00 |@...G...|e.......|
|00001640| 13 00 00 00 00 00 00 00 | 73 65 73 73 69 6f 6e 00 |........|session.|
|00001650| 28 18 00 00 47 ff ff ff | c1 eb 07 61 a7 00 00 00 |(...G...|...a....|
|00001660| 13 00 00 00 00 00 00 00 | 69 6e 64 65 6e 74 00 00 |........|indent..|
|00001670| d0 18 00 00 47 ff ff ff | 3a f9 07 61 a3 00 00 00 |....G...|:..a....|
|00001680| 13 00 00 00 00 00 00 00 | 6f 75 74 64 65 6e 74 00 |........|outdent.|
|00001690| 74 19 00 00 47 ff ff ff | 5d e9 03 d7 50 01 00 00 |t...G...|]...P...|
|000016a0| 13 00 00 00 00 00 00 00 | 64 61 74 61 00 00 00 00 |........|data....|
|000016b0| 44 41 54 41 8d 00 00 00 | 50 52 4f 43 6c 6f 67 5f |DATA....|PROClog_|
|000016c0| 63 6c 6f 73 65 73 65 73 | 73 69 6f 6e 28 73 65 73 |closeses|sion(ses|
|000016d0| 73 69 6f 6e 29 0a 23 50 | 61 72 65 6e 74 20 21 52 |sion).#P|arent !R|
|000016e0| 6f 6f 74 0a 3d 3e 09 7b | 2f 7d 73 65 73 73 69 6f |oot.=>.{|/}sessio|
|000016f0| 6e 7b 2f 7d 09 73 65 73 | 73 69 6f 6e 20 68 61 6e |n{/}.ses|sion han|
|00001700| 64 6c 65 20 72 65 74 75 | 72 6e 65 64 20 66 72 6f |dle retu|rned fro|
|00001710| 6d 20 3c 46 4e 6c 6f 67 | 5f 6f 70 65 6e 73 65 73 |m <FNlog|_openses|
|00001720| 73 69 6f 6e 3e 0a 0a 43 | 6c 6f 73 65 73 20 61 20 |sion>..C|loses a |
|00001730| 73 65 73 73 69 6f 6e 20 | 6c 6f 67 2e 0a 00 00 00 |session |log.....|
|00001740| 44 41 54 41 e7 00 00 00 | 50 52 4f 43 6c 6f 67 5f |DATA....|PROClog_|
|00001750| 73 65 73 73 69 6f 6e 28 | 73 65 73 73 69 6f 6e 2c |session(|session,|
|00001760| 6c 65 76 65 6c 2c 74 65 | 78 74 29 0a 23 50 61 72 |level,te|xt).#Par|
|00001770| 65 6e 74 20 21 52 6f 6f | 74 0a 3d 3e 09 7b 2f 7d |ent !Roo|t.=>.{/}|
|00001780| 73 65 73 73 69 6f 6e 7b | 2f 7d 09 73 65 73 73 69 |session{|/}.sessi|
|00001790| 6f 6e 20 68 61 6e 64 6c | 65 20 72 65 74 75 72 6e |on handl|e return|
|000017a0| 65 64 20 66 72 6f 6d 20 | 3c 46 4e 6c 6f 67 5f 6f |ed from |<FNlog_o|
|000017b0| 70 65 6e 73 65 73 73 69 | 6f 6e 3e 0a 09 7b 2f 7d |pensessi|on>..{/}|
|000017c0| 6c 65 76 65 6c 7b 2f 7d | 09 3c 70 72 69 6f 72 69 |level{/}|.<priori|
|000017d0| 74 79 3d 3e 49 6e 65 74 | 53 57 49 73 3a 53 79 73 |ty=>Inet|SWIs:Sys|
|000017e0| 4c 6f 67 5f 70 72 69 6f | 72 69 74 69 65 73 3e 0a |Log_prio|rities>.|
|000017f0| 09 7b 2f 7d 74 65 78 74 | 24 7b 2f 7d 09 74 65 78 |.{/}text|${/}.tex|
|00001800| 74 20 74 6f 20 6c 6f 67 | 0a 0a 4c 6f 67 20 61 20 |t to log|..Log a |
|00001810| 6c 69 6e 65 20 74 6f 20 | 61 20 73 65 73 73 69 6f |line to |a sessio|
|00001820| 6e 20 6c 6f 67 2e 0a 00 | 44 41 54 41 a7 00 00 00 |n log...|DATA....|
|00001830| 50 52 4f 43 6c 6f 67 5f | 69 6e 64 65 6e 74 28 6c |PROClog_|indent(l|
|00001840| 6f 67 29 0a 23 50 61 72 | 65 6e 74 20 21 52 6f 6f |og).#Par|ent !Roo|
|00001850| 74 0a 3d 3e 09 7b 2f 7d | 6c 6f 67 7b 2f 7d 09 73 |t.=>.{/}|log{/}.s|
|00001860| 65 73 73 69 6f 6e 20 68 | 61 6e 64 6c 65 20 72 65 |ession h|andle re|
|00001870| 74 75 72 6e 65 64 20 66 | 72 6f 6d 20 3c 46 4e 6c |turned f|rom <FNl|
|00001880| 6f 67 5f 6f 70 65 6e 73 | 65 73 73 69 6f 6e 3e 2c |og_opens|ession>,|
|00001890| 20 6f 72 20 2d 31 20 66 | 6f 72 20 64 65 66 61 75 | or -1 f|or defau|
|000018a0| 6c 74 0a 0a 49 6e 64 65 | 6e 74 73 20 73 75 62 73 |lt..Inde|nts subs|
|000018b0| 65 71 75 65 6e 74 20 6f | 75 74 70 75 74 20 74 6f |equent o|utput to|
|000018c0| 20 74 68 65 20 6c 6f 67 | 20 66 69 6c 65 2e 0a 00 | the log| file...|
|000018d0| 44 41 54 41 a3 00 00 00 | 50 52 4f 43 6c 6f 67 5f |DATA....|PROClog_|
|000018e0| 6f 75 74 64 65 6e 74 28 | 6c 6f 67 29 0a 23 50 61 |outdent(|log).#Pa|
|000018f0| 72 65 6e 74 20 21 52 6f | 6f 74 0a 3d 3e 09 7b 2f |rent !Ro|ot.=>.{/|
|00001900| 7d 6c 6f 67 7b 2f 7d 09 | 73 65 73 73 69 6f 6e 20 |}log{/}.|session |
|00001910| 68 61 6e 64 6c 65 20 72 | 65 74 75 72 6e 65 64 20 |handle r|eturned |
|00001920| 66 72 6f 6d 20 3c 46 4e | 6c 6f 67 5f 6f 70 65 6e |from <FN|log_open|
|00001930| 73 65 73 73 69 6f 6e 3e | 2c 20 6f 72 20 2d 31 20 |session>|, or -1 |
|00001940| 66 6f 72 20 64 65 66 61 | 75 6c 74 0a 0a 52 65 6d |for defa|ult..Rem|
|00001950| 6f 76 65 73 20 6f 6e 65 | 20 69 6e 64 65 6e 74 20 |oves one| indent |
|00001960| 66 72 6f 6d 20 74 68 65 | 20 6c 6f 67 20 66 69 6c |from the| log fil|
|00001970| 65 2e 0a 00 44 41 54 41 | 50 01 00 00 50 52 4f 43 |e...DATA|P...PROC|
|00001980| 6c 6f 67 5f 64 61 74 61 | 28 6c 6f 67 2c 6c 65 76 |log_data|(log,lev|
|00001990| 65 6c 2c 64 61 74 61 2c | 6c 65 6e 67 74 68 2c 73 |el,data,|length,s|
|000019a0| 74 61 72 74 29 0a 23 50 | 61 72 65 6e 74 20 21 52 |tart).#P|arent !R|
|000019b0| 6f 6f 74 0a 3d 3e 09 7b | 2f 7d 6c 6f 67 7b 2f 7d |oot.=>.{|/}log{/}|
|000019c0| 09 73 65 73 73 69 6f 6e | 20 68 61 6e 64 6c 65 20 |.session| handle |
|000019d0| 72 65 74 75 72 6e 65 64 | 20 66 72 6f 6d 20 3c 46 |returned| from <F|
|000019e0| 4e 6c 6f 67 5f 6f 70 65 | 6e 73 65 73 73 69 6f 6e |Nlog_ope|nsession|
|000019f0| 3e 2c 20 6f 72 20 2d 31 | 20 66 6f 72 20 64 65 66 |>, or -1| for def|
|00001a00| 61 75 6c 74 0a 09 7b 2f | 7d 6c 65 76 65 6c 7b 2f |ault..{/|}level{/|
|00001a10| 7d 09 3c 70 72 69 6f 72 | 69 74 79 3d 3e 49 6e 65 |}.<prior|ity=>Ine|
|00001a20| 74 53 57 49 73 3a 53 79 | 73 4c 6f 67 5f 70 72 69 |tSWIs:Sy|sLog_pri|
|00001a30| 6f 72 69 74 69 65 73 3e | 0a 09 7b 2f 7d 64 61 74 |orities>|..{/}dat|
|00001a40| 61 7b 2f 7d 09 70 6f 69 | 6e 74 65 72 20 74 6f 20 |a{/}.poi|nter to |
|00001a50| 74 68 65 20 64 61 74 61 | 0a 09 7b 2f 7d 6c 65 6e |the data|..{/}len|
|00001a60| 67 74 68 7b 2f 7d 09 6c | 65 6e 67 74 68 20 6f 66 |gth{/}.l|ength of|
|00001a70| 20 64 61 74 61 0a 09 7b | 2f 7d 73 74 61 72 74 7b | data..{|/}start{|
|00001a80| 2f 7d 09 6f 66 66 73 65 | 74 20 6f 66 20 74 68 65 |/}.offse|t of the|
|00001a90| 20 73 74 61 72 74 20 6f | 66 20 74 68 65 20 64 61 | start o|f the da|
|00001aa0| 74 61 20 77 68 65 6e 20 | 6f 75 74 70 75 74 0a 0a |ta when |output..|
|00001ab0| 44 75 6d 70 73 20 61 20 | 64 61 74 61 20 62 6c 6f |Dumps a |data blo|
|00001ac0| 63 6b 2e 0a 44 49 52 24 | 8c 00 00 00 8c 00 00 00 |ck..DIR$|........|
|00001ad0| 50 1b 00 00 47 fd ff ff | 0f 63 06 d7 ac 01 00 00 |P...G...|.c......|
|00001ae0| 13 01 00 00 00 00 00 00 | 73 6f 63 6b 65 74 5f 00 |........|socket_.|
|00001af0| 94 2d 00 00 47 fd ff ff | 15 65 06 d7 4c 00 00 00 |.-..G...|.e..L...|
|00001b00| 13 01 00 00 00 00 00 00 | 62 75 66 66 65 72 5f 00 |........|buffer_.|
|00001b10| 50 34 00 00 47 fd ff ff | 73 66 06 d7 f4 01 00 00 |P4..G...|sf......|
|00001b20| 13 01 00 00 00 00 00 00 | 69 6e 65 74 5f 00 00 00 |........|inet_...|
|00001b30| 28 42 00 00 47 fd ff ff | e7 68 06 d7 30 00 00 00 |(B..G...|.h..0...|
|00001b40| 13 01 00 00 00 00 00 00 | 6c 6f 67 5f 00 00 00 00 |........|log_....|
|00001b50| 44 49 52 24 ac 01 00 00 | ac 01 00 00 fc 1c 00 00 |DIR$....|........|
|00001b60| 46 ff ff ff ba 94 02 fb | 13 01 00 00 13 00 00 00 |F.......|........|
|00001b70| 00 00 00 00 63 6f 6e 6e | 65 63 74 00 10 1e 00 00 |....conn|ect.....|
|00001b80| 46 ff ff ff 1c 0f 03 fb | a8 01 00 00 13 00 00 00 |F.......|........|
|00001b90| 00 00 00 00 66 69 6e 64 | 6c 69 73 74 65 6e 00 00 |....find|listen..|
|00001ba0| b8 1f 00 00 46 ff ff ff | 0e 5c 03 fb 29 01 00 00 |....F...|.\..)...|
|00001bb0| 13 00 00 00 00 00 00 00 | 61 63 63 65 70 74 00 00 |........|accept..|
|00001bc0| e4 20 00 00 46 ff ff ff | 47 62 0a fb 05 01 00 00 |. ..F...|Gb......|
|00001bd0| 13 00 00 00 00 00 00 00 | 69 6e 62 75 66 66 65 72 |........|inbuffer|
|00001be0| 00 00 00 00 ec 21 00 00 | 47 ff ff ff a0 be c0 31 |.....!..|G......1|
|00001bf0| 0a 01 00 00 13 00 00 00 | 00 00 00 00 65 6f 66 00 |........|....eof.|
|00001c00| f8 22 00 00 46 ff ff ff | 3b c1 0a fb cf 01 00 00 |."..F...|;.......|
|00001c10| 13 00 00 00 00 00 00 00 | 72 65 61 64 64 61 74 61 |........|readdata|
|00001c20| 00 00 00 00 c8 24 00 00 | 46 ff ff ff 0b 2c 0d fb |.....$..|F....,..|
|00001c30| 69 02 00 00 13 00 00 00 | 00 00 00 00 72 65 61 64 |i.......|....read|
|00001c40| 6c 69 6e 65 00 00 00 00 | 34 27 00 00 46 ff ff ff |line....|4'..F...|
|00001c50| 61 8c 0b fb dc 00 00 00 | 13 00 00 00 00 00 00 00 |a.......|........|
|00001c60| 67 65 74 70 65 65 72 6e | 61 6d 65 00 10 28 00 00 |getpeern|ame..(..|
|00001c70| 47 ff ff ff ca 22 d1 6b | 0c 01 00 00 13 00 00 00 |G....".k|........|
|00001c80| 00 00 00 00 63 72 65 61 | 74 65 69 6e 65 74 00 00 |....crea|teinet..|
|00001c90| 1c 29 00 00 47 ff ff ff | 3a 87 48 54 02 02 00 00 |.)..G...|:.HT....|
|00001ca0| 13 00 00 00 00 00 00 00 | 6e 6f 62 6c 6f 63 6b 63 |........|noblockc|
|00001cb0| 6f 6e 6e 65 63 74 00 00 | 20 2b 00 00 47 ff ff ff |onnect..| +..G...|
|00001cc0| 90 95 48 54 65 01 00 00 | 13 00 00 00 00 00 00 00 |..HTe...|........|
|00001cd0| 72 65 61 64 79 00 00 00 | 88 2c 00 00 47 ff ff ff |ready...|.,..G...|
|00001ce0| ec b6 d8 6b 0a 01 00 00 | 13 00 00 00 00 00 00 00 |...k....|........|
|00001cf0| 63 6f 6e 6e 65 63 74 65 | 64 00 00 00 44 41 54 41 |connecte|d...DATA|
|00001d00| 13 01 00 00 46 4e 73 6f | 63 6b 65 74 5f 63 6f 6e |....FNso|cket_con|
|00001d10| 6e 65 63 74 28 73 6f 63 | 6b 65 74 2c 69 70 2c 70 |nect(soc|ket,ip,p|
|00001d20| 6f 72 74 29 0a 23 50 61 | 72 65 6e 74 20 21 52 6f |ort).#Pa|rent !Ro|
|00001d30| 6f 74 0a 3d 3e 09 7b 2f | 7d 73 6f 63 6b 65 74 7b |ot.=>.{/|}socket{|
|00001d40| 2f 7d 09 68 61 6e 64 6c | 65 20 6f 66 20 73 6f 63 |/}.handl|e of soc|
|00001d50| 6b 65 74 20 61 73 20 67 | 69 76 65 6e 20 62 79 20 |ket as g|iven by |
|00001d60| 3c 46 4e 73 6f 63 6b 65 | 74 5f 63 72 65 61 74 65 |<FNsocke|t_create|
|00001d70| 69 6e 65 74 3e 0a 09 2f | 69 70 2f 09 09 61 64 64 |inet>../|ip/..add|
|00001d80| 72 65 73 73 20 6f 66 20 | 68 6f 73 74 20 74 6f 20 |ress of |host to |
|00001d90| 63 6f 6e 6e 65 63 74 20 | 74 6f 0a 09 2f 70 6f 72 |connect |to../por|
|00001da0| 74 2f 09 09 70 6f 72 74 | 20 6e 75 6d 62 65 72 20 |t/..port| number |
|00001db0| 74 6f 20 63 6f 6e 6e 65 | 63 74 20 74 6f 0a 3c 3d |to conne|ct to.<=|
|00001dc0| 09 54 52 55 45 20 69 66 | 20 63 6f 6e 6e 65 63 74 |.TRUE if| connect|
|00001dd0| 69 6f 6e 20 77 61 73 20 | 6d 61 64 65 20 73 75 63 |ion was |made suc|
|00001de0| 63 65 73 73 66 75 6c 6c | 79 0a 0a 49 6e 69 74 69 |cessfull|y..Initi|
|00001df0| 61 74 65 73 20 61 20 63 | 6f 6e 6e 65 63 74 69 6f |ates a c|onnectio|
|00001e00| 6e 20 74 6f 20 61 20 73 | 6f 63 6b 65 74 2e 0a 00 |n to a s|ocket...|
|00001e10| 44 41 54 41 a8 01 00 00 | 46 4e 73 6f 63 6b 65 74 |DATA....|FNsocket|
|00001e20| 5f 66 69 6e 64 6c 69 73 | 74 65 6e 28 73 6f 63 6b |_findlis|ten(sock|
|00001e30| 65 74 2c 69 70 2c 70 6f | 72 74 29 0a 23 50 61 72 |et,ip,po|rt).#Par|
|00001e40| 65 6e 74 20 21 52 6f 6f | 74 0a 3d 3e 09 2f 73 6f |ent !Roo|t.=>./so|
|00001e50| 63 6b 65 74 2f 09 68 61 | 6e 64 6c 65 20 6f 66 20 |cket/.ha|ndle of |
|00001e60| 73 6f 63 6b 65 74 20 61 | 73 20 67 69 76 65 6e 20 |socket a|s given |
|00001e70| 62 79 20 3c 46 4e 73 6f | 63 6b 65 74 5f 63 72 65 |by <FNso|cket_cre|
|00001e80| 61 74 65 69 6e 65 74 3e | 0a 09 2f 69 70 2f 09 09 |ateinet>|../ip/..|
|00001e90| 61 64 64 72 65 73 73 20 | 6f 66 20 68 6f 73 74 20 |address |of host |
|00001ea0| 74 6f 20 61 63 63 65 70 | 74 20 63 6f 6e 6e 65 63 |to accep|t connec|
|00001eb0| 74 69 6f 6e 73 20 66 72 | 6f 6d 20 28 75 73 75 61 |tions fr|om (usua|
|00001ec0| 6c 6c 79 20 30 29 0a 09 | 2f 70 6f 72 74 2f 09 09 |lly 0)..|/port/..|
|00001ed0| 70 6f 72 74 20 6e 75 6d | 62 65 72 20 74 6f 20 6c |port num|ber to l|
|00001ee0| 69 73 74 65 6e 20 6f 6e | 0a 09 2f 6c 69 6d 69 74 |isten on|../limit|
|00001ef0| 2f 09 09 6c 69 6d 69 74 | 20 66 6f 72 20 73 65 61 |/..limit| for sea|
|00001f00| 72 63 68 20 28 69 65 20 | 31 20 66 6f 72 20 70 6f |rch (ie |1 for po|
|00001f10| 72 74 20 3d 3e 20 28 70 | 6f 72 74 20 2b 31 29 29 |rt => (p|ort +1))|
|00001f20| 0a 3c 3d 09 6e 75 6d 62 | 65 72 20 6f 66 20 70 6f |.<=.numb|er of po|
|00001f30| 72 74 20 6c 69 73 74 65 | 6e 69 6e 67 20 6f 6e 2c |rt liste|ning on,|
|00001f40| 20 6f 72 20 2d 31 20 69 | 66 20 6e 6f 74 20 70 6f | or -1 i|f not po|
|00001f50| 73 73 69 62 6c 65 0a 0a | 4c 69 73 74 65 6e 73 20 |ssible..|Listens |
|00001f60| 66 6f 72 20 63 6f 6e 6e | 65 63 74 69 6f 6e 73 20 |for conn|ections |
|00001f70| 6f 6e 20 61 20 73 6f 63 | 6b 65 74 2c 20 6d 6f 76 |on a soc|ket, mov|
|00001f80| 69 6e 67 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 |ing to t|he next |
|00001f90| 69 66 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |if the s|pecified|
|00001fa0| 20 70 6f 72 74 20 69 73 | 20 61 6c 72 65 61 64 79 | port is| already|
|00001fb0| 20 74 61 6b 65 6e 2e 0a | 44 41 54 41 29 01 00 00 | taken..|DATA)...|
|00001fc0| 46 4e 73 6f 63 6b 65 74 | 5f 61 63 63 65 70 74 28 |FNsocket|_accept(|
|00001fd0| 73 6f 63 6b 65 74 29 0a | 23 50 61 72 65 6e 74 20 |socket).|#Parent |
|00001fe0| 21 52 6f 6f 74 0a 3d 3e | 09 2f 73 6f 63 6b 65 74 |!Root.=>|./socket|
|00001ff0| 2f 09 68 61 6e 64 6c 65 | 20 6f 66 20 73 6f 63 6b |/.handle| of sock|
|00002000| 65 74 20 61 73 20 67 69 | 76 65 6e 20 62 79 20 3c |et as gi|ven by <|
|00002010| 46 4e 73 6f 63 6b 65 74 | 5f 63 72 65 61 74 65 69 |FNsocket|_createi|
|00002020| 6e 65 74 3e 0a 3c 3d 09 | 6e 65 77 20 2f 73 6f 63 |net>.<=.|new /soc|
|00002030| 6b 65 74 2f 20 68 61 6e | 64 6c 65 2c 20 6f 72 20 |ket/ han|dle, or |
|00002040| 2d 31 20 69 66 20 6e 6f | 20 63 6f 6e 6e 65 63 74 |-1 if no| connect|
|00002050| 69 6f 6e 20 77 61 69 74 | 69 6e 67 2e 0a 0a 41 63 |ion wait|ing...Ac|
|00002060| 63 65 70 74 73 20 61 20 | 63 6f 6e 6e 65 63 74 69 |cepts a |connecti|
|00002070| 6f 6e 20 63 75 72 72 65 | 6e 74 6c 79 20 77 61 69 |on curre|ntly wai|
|00002080| 74 69 6e 67 2e 20 54 68 | 65 20 72 65 74 75 72 6e |ting. Th|e return|
|00002090| 65 64 20 73 6f 63 6b 65 | 74 20 69 73 20 74 68 65 |ed socke|t is the|
|000020a0| 20 6e 65 77 20 63 6f 6e | 6e 65 63 74 69 6f 6e 2c | new con|nection,|
|000020b0| 20 77 68 69 6c 73 74 20 | 74 68 65 20 6f 72 69 67 | whilst |the orig|
|000020c0| 69 6e 61 6c 20 73 6f 63 | 6b 65 74 20 63 6f 6e 74 |inal soc|ket cont|
|000020d0| 69 6e 75 65 73 20 6c 69 | 73 74 65 6e 69 6e 67 2e |inues li|stening.|
|000020e0| 0a 00 00 00 44 41 54 41 | 05 01 00 00 46 4e 73 6f |....DATA|....FNso|
|000020f0| 63 6b 65 74 5f 69 6e 62 | 75 66 66 65 72 28 73 6f |cket_inb|uffer(so|
|00002100| 63 6b 65 74 29 0a 23 50 | 61 72 65 6e 74 20 21 52 |cket).#P|arent !R|
|00002110| 6f 6f 74 0a 3d 3e 09 2f | 73 6f 63 6b 65 74 2f 09 |oot.=>./|socket/.|
|00002120| 68 61 6e 64 6c 65 20 6f | 66 20 73 6f 63 6b 65 74 |handle o|f socket|
|00002130| 20 61 73 20 67 69 76 65 | 6e 20 62 79 20 3c 46 4e | as give|n by <FN|
|00002140| 73 6f 63 6b 65 74 5f 63 | 72 65 61 74 65 69 6e 65 |socket_c|reateine|
|00002150| 74 3e 0a 3c 3d 09 61 6d | 6f 75 6e 74 20 6f 66 20 |t>.<=.am|ount of |
|00002160| 64 61 74 61 20 77 61 69 | 74 69 6e 67 0a 0a 52 65 |data wai|ting..Re|
|00002170| 61 64 73 20 74 68 65 20 | 61 6d 6f 75 6e 74 20 6f |ads the |amount o|
|00002180| 66 20 64 61 74 61 20 77 | 61 69 74 69 6e 67 20 74 |f data w|aiting t|
|00002190| 6f 20 62 65 20 72 65 61 | 64 20 6f 6e 20 74 68 65 |o be rea|d on the|
|000021a0| 20 73 6f 63 6b 65 74 2e | 20 55 73 65 20 3c 46 4e | socket.| Use <FN|
|000021b0| 73 6f 63 6b 65 74 5f 72 | 65 61 64 64 61 74 61 3e |socket_r|eaddata>|
|000021c0| 20 6f 72 20 3c 46 4e 73 | 6f 63 6b 65 74 5f 72 65 | or <FNs|ocket_re|
|000021d0| 61 64 6c 69 6e 65 3e 20 | 74 6f 20 72 65 61 64 20 |adline> |to read |
|000021e0| 74 68 65 20 64 61 74 61 | 2e 00 00 00 44 41 54 41 |the data|....DATA|
|000021f0| 0a 01 00 00 46 4e 73 6f | 63 6b 65 74 5f 65 6f 66 |....FNso|cket_eof|
|00002200| 28 73 6f 63 6b 65 74 29 | 0a 23 50 61 72 65 6e 74 |(socket)|.#Parent|
|00002210| 20 21 52 6f 6f 74 0a 3d | 3e 09 2f 73 6f 63 6b 65 | !Root.=|>./socke|
|00002220| 74 2f 09 68 61 6e 64 6c | 65 20 6f 66 20 73 6f 63 |t/.handl|e of soc|
|00002230| 6b 65 74 20 61 73 20 67 | 69 76 65 6e 20 62 79 20 |ket as g|iven by |
|00002240| 3c 46 4e 73 6f 63 6b 65 | 74 5f 63 72 65 61 74 65 |<FNsocke|t_create|
|00002250| 69 6e 65 74 3e 0a 3c 3d | 09 54 52 55 45 20 69 66 |inet>.<=|.TRUE if|
|00002260| 20 74 68 65 20 6f 74 68 | 65 72 20 65 6e 64 20 68 | the oth|er end h|
|00002270| 61 73 20 63 6c 6f 73 65 | 64 20 74 68 65 20 73 6f |as close|d the so|
|00002280| 63 6b 65 74 0a 0a 52 65 | 61 64 73 20 74 68 65 20 |cket..Re|ads the |
|00002290| 45 4f 46 20 63 6f 6e 64 | 69 74 69 6f 6e 20 6f 6e |EOF cond|ition on|
|000022a0| 20 61 20 73 6f 63 6b 65 | 74 2e 0a 0a 4e 6f 74 65 | a socke|t...Note|
|000022b0| 3a 20 59 6f 75 20 61 72 | 65 20 73 74 69 6c 6c 20 |: You ar|e still |
|000022c0| 72 65 71 75 69 72 65 64 | 20 74 6f 20 63 6c 6f 73 |required| to clos|
|000022d0| 65 20 74 68 65 20 73 6f | 63 6b 65 74 20 77 69 74 |e the so|cket wit|
|000022e0| 68 20 3c 50 52 4f 43 73 | 6f 63 6b 65 74 5f 63 6c |h <PROCs|ocket_cl|
|000022f0| 6f 73 65 3e 2e 0a 00 00 | 44 41 54 41 cf 01 00 00 |ose>....|DATA....|
|00002300| 46 4e 73 6f 63 6b 65 74 | 5f 72 65 61 64 64 61 74 |FNsocket|_readdat|
|00002310| 61 28 73 6f 63 6b 65 74 | 2c 73 74 61 72 74 29 0a |a(socket|,start).|
|00002320| 23 50 61 72 65 6e 74 20 | 21 52 6f 6f 74 0a 3d 3e |#Parent |!Root.=>|
|00002330| 09 2f 73 6f 63 6b 65 74 | 2f 09 68 61 6e 64 6c 65 |./socket|/.handle|
|00002340| 20 6f 66 20 73 6f 63 6b | 65 74 20 61 73 20 67 69 | of sock|et as gi|
|00002350| 76 65 6e 20 62 79 20 3c | 46 4e 73 6f 63 6b 65 74 |ven by <|FNsocket|
|00002360| 5f 63 72 65 61 74 65 69 | 6e 65 74 3e 0a 09 2f 73 |_createi|net>../s|
|00002370| 74 61 72 74 2f 09 09 69 | 66 20 75 6e 62 75 66 66 |tart/..i|f unbuff|
|00002380| 65 72 65 64 2c 20 74 68 | 69 73 20 73 68 6f 75 6c |ered, th|is shoul|
|00002390| 64 20 62 65 20 61 20 70 | 6f 69 6e 74 65 72 20 74 |d be a p|ointer t|
|000023a0| 6f 20 61 20 62 6c 6f 63 | 6b 20 6f 66 20 6d 65 6d |o a bloc|k of mem|
|000023b0| 6f 72 79 20 74 6f 20 72 | 65 61 64 20 74 68 65 20 |ory to r|ead the |
|000023c0| 64 61 74 61 20 69 6e 74 | 6f 0a 3c 3d 09 6c 65 6e |data int|o.<=.len|
|000023d0| 67 74 68 20 6f 66 20 64 | 61 74 61 20 72 65 61 64 |gth of d|ata read|
|000023e0| 0a 09 2f 73 74 61 72 74 | 2f 09 09 69 66 20 62 75 |../start|/..if bu|
|000023f0| 66 66 65 72 65 64 2c 20 | 74 68 69 73 20 77 69 6c |ffered, |this wil|
|00002400| 6c 20 63 6f 6e 74 61 69 | 6e 20 74 68 65 20 70 6f |l contai|n the po|
|00002410| 69 6e 74 65 72 20 74 6f | 20 74 68 65 20 73 74 61 |inter to| the sta|
|00002420| 72 74 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |rt of th|e buffer|
|00002430| 0a 0a 52 65 61 64 73 20 | 74 68 65 20 64 61 74 61 |..Reads |the data|
|00002440| 20 63 75 72 72 65 6e 74 | 6c 79 20 77 61 69 74 69 | current|ly waiti|
|00002450| 6e 67 20 69 6e 74 6f 20 | 74 68 65 20 62 75 66 66 |ng into |the buff|
|00002460| 65 72 20 73 70 65 63 69 | 66 69 65 64 2e 20 49 66 |er speci|fied. If|
|00002470| 20 79 6f 75 20 61 72 65 | 20 75 73 69 6e 67 20 75 | you are| using u|
|00002480| 6e 62 75 66 66 65 72 65 | 64 20 73 6f 63 6b 65 74 |nbuffere|d socket|
|00002490| 73 20 74 68 65 6e 20 79 | 6f 75 20 77 69 6c 6c 20 |s then y|ou will |
|000024a0| 6e 65 65 64 20 32 6b 20 | 74 6f 20 62 65 20 61 6c |need 2k |to be al|
|000024b0| 6c 6f 63 61 74 65 64 20 | 74 6f 20 74 68 65 20 62 |located |to the b|
|000024c0| 75 66 66 65 72 2e 0a 00 | 44 41 54 41 69 02 00 00 |uffer...|DATAi...|
|000024d0| 46 4e 73 6f 63 6b 65 74 | 5f 72 65 61 64 6c 69 6e |FNsocket|_readlin|
|000024e0| 65 28 73 6f 63 6b 65 74 | 2c 73 74 61 72 74 29 0a |e(socket|,start).|
|000024f0| 23 50 61 72 65 6e 74 20 | 21 52 6f 6f 74 0a 3d 3e |#Parent |!Root.=>|
|00002500| 09 2f 73 6f 63 6b 65 74 | 2f 09 68 61 6e 64 6c 65 |./socket|/.handle|
|00002510| 20 6f 66 20 73 6f 63 6b | 65 74 20 61 73 20 67 69 | of sock|et as gi|
|00002520| 76 65 6e 20 62 79 20 3c | 46 4e 73 6f 63 6b 65 74 |ven by <|FNsocket|
|00002530| 5f 63 72 65 61 74 65 69 | 6e 65 74 3e 0a 3c 3d 09 |_createi|net>.<=.|
|00002540| 6c 65 6e 67 74 68 20 6f | 66 20 6c 69 6e 65 20 72 |length o|f line r|
|00002550| 65 61 64 0a 09 2f 73 74 | 61 72 74 2f 09 09 74 68 |ead../st|art/..th|
|00002560| 69 73 20 77 69 6c 6c 20 | 63 6f 6e 74 61 69 6e 20 |is will |contain |
|00002570| 74 68 65 20 70 6f 69 6e | 74 65 72 20 74 6f 20 74 |the poin|ter to t|
|00002580| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|00002590| 62 75 66 66 65 72 2c 20 | 6f 72 20 2d 31 20 69 66 |buffer, |or -1 if|
|000025a0| 20 6e 6f 20 6c 69 6e 65 | 20 63 6f 6d 70 6c 65 74 | no line| complet|
|000025b0| 65 20 68 61 73 20 62 65 | 65 6e 20 72 65 63 65 69 |e has be|en recei|
|000025c0| 76 65 64 0a 0a 52 65 61 | 64 73 20 74 68 65 20 64 |ved..Rea|ds the d|
|000025d0| 61 74 61 20 66 72 6f 6d | 20 74 68 65 20 73 6f 63 |ata from| the soc|
|000025e0| 6b 65 74 20 69 6e 74 6f | 20 74 68 65 20 62 75 66 |ket into| the buf|
|000025f0| 66 65 72 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |fer and |returns |
|00002600| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 61 20 27 |a pointe|r to a '|
|00002610| 6c 69 6e 65 27 20 6f 66 | 20 74 65 78 74 2c 20 72 |line' of| text, r|
|00002620| 65 74 75 72 6e 69 6e 67 | 20 74 68 65 20 6c 65 6e |eturning| the len|
|00002630| 67 74 68 2e 20 54 68 65 | 20 6c 69 6e 65 20 77 69 |gth. The| line wi|
|00002640| 6c 6c 20 62 65 20 69 6e | 20 61 20 74 65 6d 70 6f |ll be in| a tempo|
|00002650| 72 61 72 79 20 62 75 66 | 66 65 72 20 77 68 69 63 |rary buf|fer whic|
|00002660| 68 20 69 73 20 76 61 6c | 69 64 20 75 6e 74 69 6c |h is val|id until|
|00002670| 20 74 68 65 20 6e 65 78 | 74 20 63 61 6c 6c 20 74 | the nex|t call t|
|00002680| 6f 20 46 4e 73 6f 63 6b | 65 74 5f 72 65 61 64 6c |o FNsock|et_readl|
|00002690| 69 6e 65 2e 20 54 68 69 | 73 20 63 61 6c 6c 20 69 |ine. Thi|s call i|
|000026a0| 73 20 75 73 75 61 6c 6c | 79 20 75 73 65 64 20 69 |s usuall|y used i|
|000026b0| 6e 20 63 6f 6e 6a 75 6e | 63 74 69 6f 6e 20 77 69 |n conjun|ction wi|
|000026c0| 74 68 20 74 68 65 20 3c | 46 4e 62 75 66 66 65 72 |th the <|FNbuffer|
|000026d0| 5f 67 65 74 77 6f 72 64 | 3e 20 61 6e 64 20 3c 46 |_getword|> and <F|
|000026e0| 4e 62 75 66 66 65 72 5f | 67 65 74 72 65 73 74 3e |Nbuffer_|getrest>|
|000026f0| 20 63 61 6c 6c 73 2e 0a | 0a 4e 6f 74 65 3a 20 59 | calls..|.Note: Y|
|00002700| 6f 75 20 63 61 6e 6e 6f | 74 20 75 73 65 20 74 68 |ou canno|t use th|
|00002710| 69 73 20 63 61 6c 6c 20 | 77 69 74 68 20 75 6e 62 |is call |with unb|
|00002720| 75 66 66 65 72 65 64 20 | 73 6f 63 6b 65 74 73 2e |uffered |sockets.|
|00002730| 0a 00 00 00 44 41 54 41 | dc 00 00 00 46 4e 73 6f |....DATA|....FNso|
|00002740| 63 6b 65 74 5f 67 65 74 | 70 65 65 72 6e 61 6d 65 |cket_get|peername|
|00002750| 28 73 6f 63 6b 65 74 29 | 0a 23 50 61 72 65 6e 74 |(socket)|.#Parent|
|00002760| 20 21 52 6f 6f 74 0a 3d | 3e 09 2f 73 6f 63 6b 65 | !Root.=|>./socke|
|00002770| 74 2f 09 68 61 6e 64 6c | 65 20 6f 66 20 73 6f 63 |t/.handl|e of soc|
|00002780| 6b 65 74 20 61 73 20 67 | 69 76 65 6e 20 62 79 20 |ket as g|iven by |
|00002790| 3c 46 4e 73 6f 63 6b 65 | 74 5f 63 72 65 61 74 65 |<FNsocke|t_create|
|000027a0| 69 6e 65 74 3e 0a 3c 3d | 09 6e 61 6d 65 20 6f 66 |inet>.<=|.name of|
|000027b0| 20 68 6f 73 74 20 74 6f | 20 77 68 69 63 68 20 73 | host to| which s|
|000027c0| 6f 63 6b 65 74 20 69 73 | 20 63 6f 6e 6e 65 63 74 |ocket is| connect|
|000027d0| 65 64 0a 0a 52 65 74 75 | 72 6e 73 20 74 68 65 20 |ed..Retu|rns the |
|000027e0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 68 6f 73 74 |name of |the host|
|000027f0| 20 61 74 20 74 68 65 20 | 6f 74 68 65 72 20 65 6e | at the |other en|
|00002800| 64 20 6f 66 20 74 68 65 | 20 73 6f 63 6b 65 74 2e |d of the| socket.|
|00002810| 44 41 54 41 0c 01 00 00 | 46 4e 73 6f 63 6b 65 74 |DATA....|FNsocket|
|00002820| 5f 63 72 65 61 74 65 69 | 6e 65 74 0a 23 50 61 72 |_createi|net.#Par|
|00002830| 65 6e 74 20 21 52 6f 6f | 74 0a 3c 3d 09 2f 73 6f |ent !Roo|t.<=./so|
|00002840| 63 6b 65 74 2f 09 68 61 | 6e 64 6c 65 20 6f 66 20 |cket/.ha|ndle of |
|00002850| 6e 65 77 20 73 6f 63 6b | 65 74 2c 20 6f 72 20 2d |new sock|et, or -|
|00002860| 31 20 69 66 20 63 6f 75 | 6c 64 6e 27 74 20 63 72 |1 if cou|ldn't cr|
|00002870| 65 61 74 65 20 69 74 0a | 0a 43 72 65 61 74 65 73 |eate it.|.Creates|
|00002880| 20 61 20 73 6f 63 6b 65 | 74 20 66 6f 72 20 69 6e | a socke|t for in|
|00002890| 74 65 72 6e 65 74 20 75 | 73 65 2e 0a 0a 4e 6f 74 |ternet u|se...Not|
|000028a0| 65 3a 20 54 68 65 20 68 | 61 6e 64 6c 65 20 6f 66 |e: The h|andle of|
|000028b0| 20 74 68 65 20 73 6f 63 | 6b 65 74 20 69 73 20 4e | the soc|ket is N|
|000028c0| 4f 54 20 74 68 61 74 20 | 75 73 65 64 20 64 69 72 |OT that |used dir|
|000028d0| 65 63 74 6c 79 20 62 79 | 20 74 68 65 20 53 6f 63 |ectly by| the Soc|
|000028e0| 6b 65 74 20 53 57 49 73 | 2e 20 54 6f 20 72 65 61 |ket SWIs|. To rea|
|000028f0| 64 20 74 68 61 74 20 79 | 6f 75 20 73 68 6f 75 6c |d that y|ou shoul|
|00002900| 64 20 75 73 65 20 7b 2f | 7d 73 6f 63 6b 25 28 73 |d use {/|}sock%(s|
|00002910| 6f 63 6b 65 74 29 21 30 | 7b 2f 7d 2e 44 41 54 41 |ocket)!0|{/}.DATA|
|00002920| 02 02 00 00 46 4e 73 6f | 63 6b 65 74 5f 6e 6f 62 |....FNso|cket_nob|
|00002930| 6c 6f 63 6b 63 6f 6e 6e | 65 63 74 28 73 6f 63 6b |lockconn|ect(sock|
|00002940| 65 74 2c 69 70 2c 70 6f | 72 74 29 0a 23 50 61 72 |et,ip,po|rt).#Par|
|00002950| 65 6e 74 20 21 52 6f 6f | 74 0a 3d 3e 09 7b 2f 7d |ent !Roo|t.=>.{/}|
|00002960| 73 6f 63 6b 65 74 7b 2f | 7d 09 68 61 6e 64 6c 65 |socket{/|}.handle|
|00002970| 20 6f 66 20 73 6f 63 6b | 65 74 20 61 73 20 67 69 | of sock|et as gi|
|00002980| 76 65 6e 20 62 79 20 3c | 46 4e 73 6f 63 6b 65 74 |ven by <|FNsocket|
|00002990| 5f 63 72 65 61 74 65 69 | 6e 65 74 3e 0a 09 2f 69 |_createi|net>../i|
|000029a0| 70 2f 09 09 61 64 64 72 | 65 73 73 20 6f 66 20 68 |p/..addr|ess of h|
|000029b0| 6f 73 74 20 74 6f 20 63 | 6f 6e 6e 65 63 74 20 74 |ost to c|onnect t|
|000029c0| 6f 0a 09 2f 70 6f 72 74 | 2f 09 09 70 6f 72 74 20 |o../port|/..port |
|000029d0| 6e 75 6d 62 65 72 20 74 | 6f 20 63 6f 6e 6e 65 63 |number t|o connec|
|000029e0| 74 20 74 6f 0a 3c 3d 09 | 54 52 55 45 20 69 66 20 |t to.<=.|TRUE if |
|000029f0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 77 61 73 20 6d |connecti|on was m|
|00002a00| 61 64 65 20 73 75 63 63 | 65 73 73 66 75 6c 6c 79 |ade succ|essfully|
|00002a10| 2c 0a 09 46 41 4c 53 45 | 20 69 66 20 63 6f 6e 6e |,..FALSE| if conn|
|00002a20| 65 63 74 69 6f 6e 20 77 | 61 73 20 75 6e 73 75 63 |ection w|as unsuc|
|00002a30| 63 65 73 73 66 75 6c 2c | 0a 09 31 20 69 66 20 63 |cessful,|..1 if c|
|00002a40| 6f 6e 6e 65 63 74 69 6f | 6e 20 69 73 20 73 74 69 |onnectio|n is sti|
|00002a50| 6c 6c 20 62 65 69 6e 67 | 20 6d 61 64 65 0a 0a 49 |ll being| made..I|
|00002a60| 6e 69 74 69 61 74 65 73 | 20 61 20 63 6f 6e 6e 65 |nitiates| a conne|
|00002a70| 63 74 69 6f 6e 20 74 6f | 20 61 20 73 6f 63 6b 65 |ction to| a socke|
|00002a80| 74 2e 20 49 66 20 31 20 | 69 73 20 72 65 74 75 72 |t. If 1 |is retur|
|00002a90| 6e 65 64 2c 20 79 6f 75 | 20 73 68 6f 75 6c 64 20 |ned, you| should |
|00002aa0| 63 61 6c 6c 20 3c 46 4e | 73 6f 63 6b 65 74 5f 72 |call <FN|socket_r|
|00002ab0| 65 61 64 79 3e 28 7b 2f | 7d 73 6f 63 6b 65 74 7b |eady>({/|}socket{|
|00002ac0| 2f 7d 2c 46 41 4c 53 45 | 29 20 72 65 70 65 61 74 |/},FALSE|) repeat|
|00002ad0| 65 64 6c 79 20 75 6e 74 | 69 6c 20 74 68 65 20 63 |edly unt|il the c|
|00002ae0| 6f 6e 6e 65 63 74 69 6f | 6e 20 69 73 20 6d 61 64 |onnectio|n is mad|
|00002af0| 65 20 6f 72 20 66 61 69 | 6c 73 20 28 6f 72 20 75 |e or fai|ls (or u|
|00002b00| 6e 74 69 6c 20 79 6f 75 | 20 64 65 63 69 64 65 20 |ntil you| decide |
|00002b10| 74 6f 20 74 69 6d 65 20 | 6f 75 74 29 2e 0a 00 00 |to time |out)....|
|00002b20| 44 41 54 41 65 01 00 00 | 46 4e 73 6f 63 6b 65 74 |DATAe...|FNsocket|
|00002b30| 5f 72 65 61 64 79 28 73 | 6f 63 6b 65 74 2c 72 65 |_ready(s|ocket,re|
|00002b40| 61 64 29 0a 23 50 61 72 | 65 6e 74 20 21 52 6f 6f |ad).#Par|ent !Roo|
|00002b50| 74 0a 3d 3e 09 7b 2f 7d | 73 6f 63 6b 65 74 7b 2f |t.=>.{/}|socket{/|
|00002b60| 7d 09 68 61 6e 64 6c 65 | 20 6f 66 20 73 6f 63 6b |}.handle| of sock|
|00002b70| 65 74 20 61 73 20 67 69 | 76 65 6e 20 62 79 20 3c |et as gi|ven by <|
|00002b80| 46 4e 73 6f 63 6b 65 74 | 5f 63 72 65 61 74 65 69 |FNsocket|_createi|
|00002b90| 6e 65 74 3e 0a 09 7b 2f | 7d 72 65 61 64 7b 2f 7d |net>..{/|}read{/}|
|00002ba0| 09 54 52 55 45 20 6d 65 | 61 6e 73 20 74 65 73 74 |.TRUE me|ans test|
|00002bb0| 20 69 66 20 73 6f 63 6b | 65 74 20 69 73 20 72 65 | if sock|et is re|
|00002bc0| 61 64 79 20 74 6f 20 62 | 65 20 72 65 61 64 2c 0a |ady to b|e read,.|
|00002bd0| 09 20 09 09 46 41 4c 53 | 45 20 6d 65 61 6e 73 20 |. ..FALS|E means |
|00002be0| 74 65 73 74 20 69 66 20 | 72 65 61 64 79 20 74 6f |test if |ready to|
|00002bf0| 20 77 72 69 74 65 0a 3c | 3d 09 31 20 69 66 20 74 | write.<|=.1 if t|
|00002c00| 68 65 20 73 6f 63 6b 65 | 74 20 69 73 20 72 65 61 |he socke|t is rea|
|00002c10| 64 79 20 66 6f 72 20 75 | 73 65 2c 20 30 20 69 66 |dy for u|se, 0 if|
|00002c20| 20 6e 6f 74 3b 20 2d 31 | 20 6f 6e 20 65 72 72 6f | not; -1| on erro|
|00002c30| 72 0a 0a 44 69 73 63 6f | 76 65 72 73 20 77 68 65 |r..Disco|vers whe|
|00002c40| 74 68 65 72 20 61 20 73 | 6f 63 6b 65 74 20 69 73 |ther a s|ocket is|
|00002c50| 20 72 65 61 64 79 20 74 | 6f 20 75 73 65 2e 20 55 | ready t|o use. U|
|00002c60| 73 65 64 20 61 66 74 65 | 72 20 3c 46 4e 73 6f 63 |sed afte|r <FNsoc|
|00002c70| 6b 65 74 5f 6e 6f 62 6c | 6f 63 6b 63 6f 6e 6e 65 |ket_nobl|ockconne|
|00002c80| 63 74 3e 2e 0a 00 00 00 | 44 41 54 41 0a 01 00 00 |ct>.....|DATA....|
|00002c90| 46 4e 73 6f 63 6b 65 74 | 5f 63 6f 6e 6e 65 63 74 |FNsocket|_connect|
|00002ca0| 65 64 28 73 6f 63 6b 65 | 74 29 0a 23 50 61 72 65 |ed(socke|t).#Pare|
|00002cb0| 6e 74 20 21 52 6f 6f 74 | 0a 3d 3e 09 7b 2f 7d 73 |nt !Root|.=>.{/}s|
|00002cc0| 6f 63 6b 65 74 7b 2f 7d | 09 68 61 6e 64 6c 65 20 |ocket{/}|.handle |
|00002cd0| 6f 66 20 73 6f 63 6b 65 | 74 20 61 73 20 67 69 76 |of socke|t as giv|
|00002ce0| 65 6e 20 62 79 20 3c 46 | 4e 73 6f 63 6b 65 74 5f |en by <F|Nsocket_|
|00002cf0| 63 72 65 61 74 65 69 6e | 65 74 3e 0a 3c 3d 09 54 |createin|et>.<=.T|
|00002d00| 52 55 45 20 69 66 20 63 | 6f 6e 6e 65 63 74 65 64 |RUE if c|onnected|
|00002d10| 2c 20 46 41 4c 53 45 20 | 69 66 20 6e 6f 74 20 79 |, FALSE |if not y|
|00002d20| 65 74 2c 20 65 72 72 6f | 72 20 6e 75 6d 62 65 72 |et, erro|r number|
|00002d30| 20 69 66 20 66 61 69 6c | 65 64 0a 0a 44 69 73 63 | if fail|ed..Disc|
|00002d40| 6f 76 65 72 73 20 77 68 | 65 74 68 65 72 20 61 20 |overs wh|ether a |
|00002d50| 73 6f 63 6b 65 74 20 69 | 73 20 63 6f 6e 6e 65 63 |socket i|s connec|
|00002d60| 74 65 64 20 6f 72 20 6e | 6f 74 2e 20 55 73 65 64 |ted or n|ot. Used|
|00002d70| 20 61 66 74 65 72 20 3c | 46 4e 73 6f 63 6b 65 74 | after <|FNsocket|
|00002d80| 5f 6e 6f 62 6c 6f 63 6b | 63 6f 6e 6e 65 63 74 3e |_noblock|connect>|
|00002d90| 2e 0a 00 00 44 49 52 24 | 4c 00 00 00 4c 00 00 00 |....DIR$|L...L...|
|00002da0| e0 2d 00 00 46 ff ff ff | e7 fc 0d fb c8 03 00 00 |.-..F...|........|
|00002db0| 13 00 00 00 00 00 00 00 | 67 65 74 77 6f 72 64 00 |........|getword.|
|00002dc0| a8 31 00 00 46 ff ff ff | 94 ec 0d fb a5 02 00 00 |.1..F...|........|
|00002dd0| 13 00 00 00 00 00 00 00 | 67 65 74 72 65 73 74 00 |........|getrest.|
|00002de0| 44 41 54 41 c8 03 00 00 | 46 4e 62 75 66 66 65 72 |DATA....|FNbuffer|
|00002df0| 5f 67 65 74 77 6f 72 64 | 28 73 74 61 72 74 2c 6c |_getword|(start,l|
|00002e00| 65 6e 2c 70 74 72 29 0a | 23 50 61 72 65 6e 74 20 |en,ptr).|#Parent |
|00002e10| 21 52 6f 6f 74 0a 3d 3e | 09 2f 73 74 61 72 74 2f |!Root.=>|./start/|
|00002e20| 09 73 74 61 72 74 20 6f | 66 20 64 61 74 61 0a 09 |.start o|f data..|
|00002e30| 2f 6c 65 6e 2f 09 6c 65 | 6e 67 74 68 20 6f 66 20 |/len/.le|ngth of |
|00002e40| 64 61 74 61 20 69 6e 20 | 62 6c 6f 63 6b 0a 09 2f |data in |block../|
|00002e50| 70 74 72 2f 09 6f 66 66 | 73 65 74 20 74 6f 20 66 |ptr/.off|set to f|
|00002e60| 69 72 73 74 20 62 79 74 | 65 20 74 6f 20 72 65 61 |irst byt|e to rea|
|00002e70| 64 0a 3c 3d 09 77 6f 72 | 64 20 72 65 61 64 2c 20 |d.<=.wor|d read, |
|00002e80| 6f 72 20 4e 55 4c 4c 20 | 69 66 20 6e 6f 6e 65 2e |or NULL |if none.|
|00002e90| 0a 09 2f 70 74 72 2f 09 | 75 70 64 61 74 65 64 0a |../ptr/.|updated.|
|00002ea0| 0a 52 65 61 64 73 20 61 | 20 74 65 78 74 75 61 6c |.Reads a| textual|
|00002eb0| 20 77 6f 72 64 20 66 72 | 6f 6d 20 74 68 65 20 62 | word fr|om the b|
|00002ec0| 6c 6f 63 6b 20 73 70 65 | 63 69 66 69 65 64 2c 20 |lock spe|cified, |
|00002ed0| 73 6b 69 70 70 69 6e 67 | 20 6c 65 61 64 69 6e 67 |skipping| leading|
|00002ee0| 20 73 70 61 63 65 73 2e | 0a 0a 43 6c 69 63 6b 20 | spaces.|..Click |
|00002ef0| 3c 68 65 72 65 3d 3e 2e | 65 78 61 6d 70 6c 65 3e |<here=>.|example>|
|00002f00| 20 66 6f 72 20 61 6e 20 | 65 78 61 6d 70 6c 65 2e | for an |example.|
|00002f10| 0a 23 53 75 62 70 61 67 | 65 20 65 78 61 6d 70 6c |.#Subpag|e exampl|
|00002f20| 65 0a 46 4e 62 75 66 66 | 65 72 5f 67 65 74 77 6f |e.FNbuff|er_getwo|
|00002f30| 72 64 20 65 78 61 6d 70 | 6c 65 73 0a 54 68 69 73 |rd examp|les.This|
|00002f40| 20 69 73 20 6a 75 73 74 | 20 61 20 73 69 6d 70 6c | is just| a simpl|
|00002f50| 65 20 65 78 61 6d 70 6c | 65 20 74 6f 20 77 61 69 |e exampl|e to wai|
|00002f60| 74 20 66 6f 72 20 48 45 | 4c 4f 20 5c 3c 68 6f 73 |t for HE|LO \<hos|
|00002f70| 74 6e 61 6d 65 3e 20 61 | 73 20 6d 69 67 68 74 20 |tname> a|s might |
|00002f80| 62 65 20 64 6f 6e 65 20 | 62 79 20 61 6e 20 53 4d |be done |by an SM|
|00002f90| 54 50 20 73 65 72 76 65 | 72 2e 0a 23 66 43 6f 64 |TP serve|r..#fCod|
|00002fa0| 65 0a 52 45 50 45 41 54 | 0a 20 6c 65 6e 3d 46 4e |e.REPEAT|. len=FN|
|00002fb0| 73 6f 63 6b 65 74 5f 72 | 65 61 64 6c 69 6e 65 28 |socket_r|eadline(|
|00002fc0| 6d 61 69 6e 73 6f 63 6b | 65 74 25 2c 73 74 61 72 |mainsock|et%,star|
|00002fd0| 74 29 0a 20 49 46 20 6c | 65 6e 3e 30 20 54 48 45 |t). IF l|en>0 THE|
|00002fe0| 4e 0a 20 20 70 74 72 3d | 30 0a 20 20 61 24 3d 46 |N. ptr=|0. a$=F|
|00002ff0| 4e 62 75 66 66 65 72 5f | 67 65 74 77 6f 72 64 28 |Nbuffer_|getword(|
|00003000| 73 74 61 72 74 2c 6c 65 | 6e 2c 70 74 72 29 0a 20 |start,le|n,ptr). |
|00003010| 20 49 46 20 61 24 3d 22 | 48 45 4c 4f 22 20 54 48 | IF a$="|HELO" TH|
|00003020| 45 4e 0a 20 20 20 61 24 | 3d 46 4e 62 75 66 66 65 |EN. a$|=FNbuffe|
|00003030| 72 5f 67 65 74 77 6f 72 | 64 28 73 74 61 72 74 2c |r_getwor|d(start,|
|00003040| 6c 65 6e 2c 70 74 72 29 | 0a 20 20 20 49 46 20 61 |len,ptr)|. IF a|
|00003050| 24 5c 3c 3e 46 4e 73 6f | 63 6b 65 74 5f 67 65 74 |$\<>FNso|cket_get|
|00003060| 70 65 65 72 6e 61 6d 65 | 28 6d 61 69 6e 73 6f 63 |peername|(mainsoc|
|00003070| 6b 65 74 25 29 20 54 48 | 45 4e 0a 20 20 20 20 7b |ket%) TH|EN. {|
|00003080| 66 3b 2f 7d 2e 2e 2e 20 | 74 68 65 79 20 67 61 76 |f;/}... |they gav|
|00003090| 65 20 75 73 20 74 68 65 | 20 77 72 6f 6e 67 20 68 |e us the| wrong h|
|000030a0| 6f 73 74 20 6e 61 6d 65 | 7b 2f 3b 66 43 6f 64 65 |ost name|{/;fCode|
|000030b0| 7d 0a 20 20 20 45 4c 53 | 45 0a 20 20 20 20 7b 66 |}. ELS|E. {f|
|000030c0| 3b 2f 7d 2e 2e 2e 20 74 | 68 65 79 20 67 61 76 65 |;/}... t|hey gave|
|000030d0| 20 75 73 20 74 68 65 20 | 72 69 67 68 74 20 68 6f | us the |right ho|
|000030e0| 73 74 20 6e 61 6d 65 7b | 2f 3b 66 43 6f 64 65 7d |st name{|/;fCode}|
|000030f0| 0a 20 20 20 45 4e 44 49 | 46 0a 20 20 45 4c 53 45 |. ENDI|F. ELSE|
|00003100| 0a 20 20 20 7b 66 3b 2f | 7d 2e 2e 2e 20 64 6f 20 |. {f;/|}... do |
|00003110| 73 6f 6d 65 74 68 69 6e | 67 20 65 6c 73 65 20 27 |somethin|g else '|
|00003120| 63 6f 73 20 69 74 27 73 | 20 6e 6f 74 20 48 45 4c |cos it's| not HEL|
|00003130| 4f 7b 2f 3b 66 43 6f 64 | 65 7d 0a 20 20 45 4e 44 |O{/;fCod|e}. END|
|00003140| 49 46 0a 20 45 4e 44 49 | 46 0a 55 4e 54 49 4c 20 |IF. ENDI|F.UNTIL |
|00003150| 46 4e 73 6f 63 6b 65 74 | 5f 65 6f 66 28 6d 61 69 |FNsocket|_eof(mai|
|00003160| 6e 73 6f 63 6b 65 74 25 | 29 0a 23 66 0a 0a 4e 6f |nsocket%|).#f..No|
|00003170| 74 65 3a 20 49 20 68 61 | 76 65 6e 27 74 20 74 65 |te: I ha|ven't te|
|00003180| 73 74 65 64 20 74 68 69 | 73 2c 20 69 74 27 73 20 |sted thi|s, it's |
|00003190| 69 73 20 6f 6e 6c 79 20 | 66 6f 72 20 69 6e 66 6f |is only |for info|
|000031a0| 72 6d 61 74 69 6f 6e 0a | 44 41 54 41 a5 02 00 00 |rmation.|DATA....|
|000031b0| 46 4e 62 75 66 66 65 72 | 5f 67 65 74 72 65 73 74 |FNbuffer|_getrest|
|000031c0| 28 73 74 61 72 74 2c 6c | 65 6e 2c 70 74 72 29 0a |(start,l|en,ptr).|
|000031d0| 23 50 61 72 65 6e 74 20 | 21 52 6f 6f 74 0a 3d 3e |#Parent |!Root.=>|
|000031e0| 09 2f 73 74 61 72 74 2f | 09 73 74 61 72 74 20 6f |./start/|.start o|
|000031f0| 66 20 64 61 74 61 0a 09 | 2f 6c 65 6e 2f 09 6c 65 |f data..|/len/.le|
|00003200| 6e 67 74 68 20 6f 66 20 | 64 61 74 61 20 69 6e 20 |ngth of |data in |
|00003210| 62 6c 6f 63 6b 0a 09 2f | 70 74 72 2f 09 6f 66 66 |block../|ptr/.off|
|00003220| 73 65 74 20 74 6f 20 66 | 69 72 73 74 20 62 79 74 |set to f|irst byt|
|00003230| 65 20 74 6f 20 72 65 61 | 64 0a 3c 3d 09 6c 69 6e |e to rea|d.<=.lin|
|00003240| 65 20 72 65 61 64 2c 20 | 6f 72 20 4e 55 4c 4c 20 |e read, |or NULL |
|00003250| 69 66 20 6e 6f 6e 65 2e | 0a 09 2f 70 74 72 2f 09 |if none.|../ptr/.|
|00003260| 75 70 64 61 74 65 64 0a | 0a 52 65 61 64 73 20 74 |updated.|.Reads t|
|00003270| 68 65 20 72 65 73 74 20 | 6f 66 20 74 68 65 20 6c |he rest |of the l|
|00003280| 69 6e 65 20 66 72 6f 6d | 20 74 68 65 20 62 75 66 |ine from| the buf|
|00003290| 66 65 72 2c 20 73 74 6f | 70 70 69 6e 67 20 77 68 |fer, sto|pping wh|
|000032a0| 65 6e 20 61 20 4c 46 20 | 28 26 30 41 29 20 6f 72 |en a LF |(&0A) or|
|000032b0| 20 43 52 20 28 26 30 44 | 29 20 69 73 20 65 6e 63 | CR (&0D|) is enc|
|000032c0| 6f 75 6e 74 65 72 65 64 | 2e 0a 0a 43 6c 69 63 6b |ountered|...Click|
|000032d0| 20 3c 68 65 72 65 3d 3e | 2e 65 78 61 6d 70 6c 65 | <here=>|.example|
|000032e0| 3e 20 66 6f 72 20 61 6e | 20 65 78 61 6d 70 6c 65 |> for an| example|
|000032f0| 2e 0a 23 53 75 62 70 61 | 67 65 20 65 78 61 6d 70 |..#Subpa|ge examp|
|00003300| 6c 65 0a 46 4e 62 75 66 | 66 65 72 5f 67 65 74 72 |le.FNbuf|fer_getr|
|00003310| 65 73 74 20 65 78 61 6d | 70 6c 65 73 0a 54 68 69 |est exam|ples.Thi|
|00003320| 73 20 69 73 20 6a 75 73 | 74 20 61 20 73 69 6d 70 |s is jus|t a simp|
|00003330| 6c 65 20 65 78 61 6d 70 | 6c 65 20 74 6f 20 74 68 |le examp|le to th|
|00003340| 72 6f 77 20 77 68 61 74 | 65 76 65 72 20 63 6f 6d |row what|ever com|
|00003350| 65 73 20 66 72 6f 6d 20 | 74 68 65 20 70 6f 72 74 |es from |the port|
|00003360| 20 61 74 20 74 68 65 20 | 73 63 72 65 65 6e 2e 0a | at the |screen..|
|00003370| 0a 23 66 43 6f 64 65 0a | 52 45 50 45 41 54 0a 20 |.#fCode.|REPEAT. |
|00003380| 6c 65 6e 3d 46 4e 73 6f | 63 6b 65 74 5f 72 65 61 |len=FNso|cket_rea|
|00003390| 64 6c 69 6e 65 28 6d 61 | 69 6e 73 6f 63 6b 65 74 |dline(ma|insocket|
|000033a0| 25 2c 73 74 61 72 74 29 | 0a 20 49 46 20 6c 65 6e |%,start)|. IF len|
|000033b0| 3e 30 20 54 48 45 4e 0a | 20 20 61 24 3d 46 4e 62 |>0 THEN.| a$=FNb|
|000033c0| 75 66 66 65 72 5f 67 65 | 74 72 65 73 74 28 73 74 |uffer_ge|trest(st|
|000033d0| 61 72 74 2c 6c 65 6e 2c | 70 74 72 29 0a 20 20 50 |art,len,|ptr). P|
|000033e0| 52 49 4e 54 20 61 24 0a | 20 45 4e 44 49 46 0a 55 |RINT a$.| ENDIF.U|
|000033f0| 4e 54 49 4c 20 46 4e 73 | 6f 63 6b 65 74 5f 65 6f |NTIL FNs|ocket_eo|
|00003400| 66 28 6d 61 69 6e 73 6f | 63 6b 65 74 25 29 0a 23 |f(mainso|cket%).#|
|00003410| 66 0a 0a 4e 6f 74 65 3a | 20 49 20 68 61 76 65 6e |f..Note:| I haven|
|00003420| 27 74 20 74 65 73 74 65 | 64 20 74 68 69 73 2c 20 |'t teste|d this, |
|00003430| 69 74 27 73 20 69 73 20 | 6f 6e 6c 79 20 66 6f 72 |it's is |only for|
|00003440| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 0a 00 00 00 | informa|tion....|
|00003450| 44 49 52 24 f4 01 00 00 | f4 01 00 00 44 36 00 00 |DIR$....|....D6..|
|00003460| 46 ff ff ff 5d 85 0c fb | 59 01 00 00 13 00 00 00 |F...]...|Y.......|
|00003470| 00 00 00 00 67 65 74 73 | 65 72 76 62 79 6e 61 6d |....gets|ervbynam|
|00003480| 65 00 00 00 a0 37 00 00 | 46 ff ff ff 1c 75 0c fb |e....7..|F....u..|
|00003490| f0 00 00 00 13 00 00 00 | 00 00 00 00 67 65 74 73 |........|....gets|
|000034a0| 65 72 76 62 79 70 6f 72 | 74 00 00 00 90 38 00 00 |ervbypor|t....8..|
|000034b0| 46 ff ff ff ca 8c 0c fb | 8d 00 00 00 13 00 00 00 |F.......|........|
|000034c0| 00 00 00 00 67 65 74 68 | 6f 73 74 62 79 6e 61 6d |....geth|ostbynam|
|000034d0| 65 00 00 00 20 39 00 00 | 46 ff ff ff 4f 1e 0c fb |e... 9..|F...O...|
|000034e0| 91 00 00 00 13 00 00 00 | 00 00 00 00 67 65 74 68 |........|....geth|
|000034f0| 6f 73 74 62 79 61 64 64 | 72 00 00 00 b4 39 00 00 |ostbyadd|r....9..|
|00003500| 47 ff ff ff 25 52 49 54 | 0d 01 00 00 13 00 00 00 |G...%RIT|........|
|00003510| 00 00 00 00 63 72 65 61 | 74 65 73 65 72 76 6d 65 |....crea|teservme|
|00003520| 6e 75 00 00 c4 3a 00 00 | 47 ff ff ff 0e d9 49 54 |nu...:..|G.....IT|
|00003530| 7e 01 00 00 13 00 00 00 | 00 00 00 00 6d 74 72 65 |~.......|....mtre|
|00003540| 73 6f 6c 76 65 72 00 00 | 44 3c 00 00 47 ff ff ff |solver..|D<..G...|
|00003550| e6 4f 4a 54 30 01 00 00 | 13 00 00 00 00 00 00 00 |.OJT0...|........|
|00003560| 73 74 61 72 74 6d 74 67 | 65 74 68 6f 73 74 62 79 |startmtg|ethostby|
|00003570| 61 64 64 72 00 00 00 00 | 74 3d 00 00 47 ff ff ff |addr....|t=..G...|
|00003580| 86 5f 4a 54 2a 01 00 00 | 13 00 00 00 00 00 00 00 |._JT*...|........|
|00003590| 73 74 61 72 74 6d 74 67 | 65 74 68 6f 73 74 62 79 |startmtg|ethostby|
|000035a0| 6e 61 6d 65 00 00 00 00 | a0 3e 00 00 47 ff ff ff |name....|.>..G...|
|000035b0| a3 8d 4a 54 46 01 00 00 | 13 00 00 00 00 00 00 00 |..JTF...|........|
|000035c0| 63 68 65 63 6b 6d 74 71 | 75 65 72 79 00 00 00 00 |checkmtq|uery....|
|000035d0| e8 3f 00 00 47 ff ff ff | 08 b0 4a 54 cb 00 00 00 |.?..G...|..JT....|
|000035e0| 13 00 00 00 00 00 00 00 | 6d 74 67 65 74 68 6f 73 |........|mtgethos|
|000035f0| 74 62 79 6e 61 6d 65 00 | b4 40 00 00 47 ff ff ff |tbyname.|.@..G...|
|00003600| 6f be 4a 54 d9 00 00 00 | 13 00 00 00 00 00 00 00 |o.JT....|........|
|00003610| 6d 74 67 65 74 68 6f 73 | 74 62 79 61 64 64 72 00 |mtgethos|tbyaddr.|
|00003620| 90 41 00 00 47 ff ff ff | 90 cf d8 6b 95 00 00 00 |.A..G...|...k....|
|00003630| 13 00 00 00 00 00 00 00 | 64 65 63 6f 64 65 65 72 |........|decodeer|
|00003640| 72 6f 72 00 44 41 54 41 | 59 01 00 00 46 4e 69 6e |ror.DATA|Y...FNin|
|00003650| 65 74 5f 67 65 74 73 65 | 72 76 62 79 6e 61 6d 65 |et_getse|rvbyname|
|00003660| 28 6e 61 6d 65 24 2c 70 | 72 6f 74 6f 24 29 0a 23 |(name$,p|roto$).#|
|00003670| 50 61 72 65 6e 74 20 21 | 52 6f 6f 74 0a 3d 3e 09 |Parent !|Root.=>.|
|00003680| 7b 2f 7d 6e 61 6d 65 24 | 7b 2f 7d 09 6e 61 6d 65 |{/}name$|{/}.name|
|00003690| 20 6f 66 20 73 65 72 76 | 69 63 65 0a 09 7b 2f 7d | of serv|ice..{/}|
|000036a0| 70 72 6f 74 6f 24 7b 2f | 7d 09 70 72 6f 74 6f 63 |proto${/|}.protoc|
|000036b0| 6f 6c 20 74 6f 20 75 73 | 65 0a 3c 3d 09 6e 75 6d |ol to us|e.<=.num|
|000036c0| 62 65 72 20 6f 66 20 70 | 6f 72 74 0a 0a 52 65 61 |ber of p|ort..Rea|
|000036d0| 64 73 20 74 68 65 20 70 | 6f 72 74 20 6e 75 6d 62 |ds the p|ort numb|
|000036e0| 65 72 20 77 68 69 63 68 | 20 70 72 6f 76 69 64 65 |er which| provide|
|000036f0| 73 20 61 20 70 61 72 74 | 69 63 75 6c 61 72 20 73 |s a part|icular s|
|00003700| 65 72 76 69 63 65 20 66 | 72 6f 6d 20 74 68 65 20 |ervice f|rom the |
|00003710| 53 65 72 76 69 63 65 73 | 20 66 69 6c 65 20 69 6e |Services| file in|
|00003720| 20 74 68 65 20 21 49 6e | 74 65 72 6e 65 74 20 72 | the !In|ternet r|
|00003730| 65 73 6f 75 72 63 65 2e | 20 54 68 65 20 6f 6e 6c |esource.| The onl|
|00003740| 79 20 70 72 6f 74 6f 63 | 6f 6c 73 20 77 68 69 63 |y protoc|ols whic|
|00003750| 68 20 68 61 76 65 20 61 | 6e 79 20 65 6e 74 72 69 |h have a|ny entri|
|00003760| 65 73 20 61 72 65 20 74 | 63 70 20 61 6e 64 20 75 |es are t|cp and u|
|00003770| 64 70 2e 0a 0a 4e 6f 74 | 65 3a 20 54 68 69 73 20 |dp...Not|e: This |
|00003780| 63 61 6e 20 74 61 6b 65 | 20 74 69 6d 65 20 75 6e |can take| time un|
|00003790| 64 65 72 20 46 72 65 65 | 4e 65 74 2e 0a 00 00 00 |der Free|Net.....|
|000037a0| 44 41 54 41 f0 00 00 00 | 46 4e 69 6e 65 74 5f 67 |DATA....|FNinet_g|
|000037b0| 65 74 73 65 72 76 62 79 | 70 6f 72 74 28 70 6f 72 |etservby|port(por|
|000037c0| 74 2c 70 72 6f 74 6f 24 | 29 0a 23 50 61 72 65 6e |t,proto$|).#Paren|
|000037d0| 74 20 21 52 6f 6f 74 0a | 3d 3e 09 2f 70 6f 72 74 |t !Root.|=>./port|
|000037e0| 2f 09 09 70 6f 72 74 20 | 6e 75 6d 62 65 72 0a 09 |/..port |number..|
|000037f0| 7b 2f 7d 70 72 6f 74 6f | 24 7b 2f 7d 09 70 72 6f |{/}proto|${/}.pro|
|00003800| 74 6f 63 6f 6c 20 74 6f | 20 75 73 65 0a 3c 3d 09 |tocol to| use.<=.|
|00003810| 6e 61 6d 65 20 6f 66 20 | 73 65 72 76 69 63 65 0a |name of |service.|
|00003820| 0a 52 65 61 64 73 20 74 | 68 65 20 6e 61 6d 65 20 |.Reads t|he name |
|00003830| 6f 66 20 74 68 65 20 73 | 65 72 76 69 63 65 20 77 |of the s|ervice w|
|00003840| 68 69 63 68 20 69 73 20 | 70 72 6f 76 69 64 65 64 |hich is |provided|
|00003850| 20 6f 6e 20 61 20 70 61 | 72 74 69 63 75 6c 61 72 | on a pa|rticular|
|00003860| 20 70 6f 72 74 2e 0a 0a | 4e 6f 74 65 3a 20 54 68 | port...|Note: Th|
|00003870| 69 73 20 63 61 6e 20 74 | 61 6b 65 20 74 69 6d 65 |is can t|ake time|
|00003880| 20 75 6e 64 65 72 20 46 | 72 65 65 4e 65 74 2e 0a | under F|reeNet..|
|00003890| 44 41 54 41 8d 00 00 00 | 46 4e 69 6e 65 74 5f 67 |DATA....|FNinet_g|
|000038a0| 65 74 68 6f 73 74 62 79 | 6e 61 6d 65 28 68 6f 73 |ethostby|name(hos|
|000038b0| 74 24 29 0a 23 50 61 72 | 65 6e 74 20 21 52 6f 6f |t$).#Par|ent !Roo|
|000038c0| 74 0a 3d 3e 09 7b 2f 7d | 68 6f 73 74 24 7b 2f 7d |t.=>.{/}|host${/}|
|000038d0| 09 6e 61 6d 65 20 6f 66 | 20 68 6f 73 74 0a 3c 3d |.name of| host.<=|
|000038e0| 09 61 64 64 72 65 73 73 | 20 6f 66 20 68 6f 73 74 |.address| of host|
|000038f0| 0a 0a 4c 6f 6f 6b 73 20 | 75 70 20 74 68 65 20 61 |..Looks |up the a|
|00003900| 64 64 72 65 73 73 20 6f | 66 20 61 20 70 61 72 74 |ddress o|f a part|
|00003910| 69 63 75 6c 61 72 20 68 | 6f 73 74 2e 0a 00 00 00 |icular h|ost.....|
|00003920| 44 41 54 41 91 00 00 00 | 46 4e 69 6e 65 74 5f 67 |DATA....|FNinet_g|
|00003930| 65 74 68 6f 73 74 62 79 | 61 64 64 72 28 61 64 64 |ethostby|addr(add|
|00003940| 72 65 73 73 29 0a 23 50 | 61 72 65 6e 74 20 21 52 |ress).#P|arent !R|
|00003950| 6f 6f 74 0a 3d 3e 09 2f | 61 64 64 72 65 73 73 2f |oot.=>./|address/|
|00003960| 09 61 64 64 72 65 73 73 | 20 6f 66 20 68 6f 73 74 |.address| of host|
|00003970| 0a 3c 3d 09 6e 61 6d 65 | 20 6f 66 20 68 6f 73 74 |.<=.name| of host|
|00003980| 0a 0a 4c 6f 6f 6b 73 20 | 75 70 20 74 68 65 20 6e |..Looks |up the n|
|00003990| 61 6d 65 20 6f 66 20 61 | 20 68 6f 73 74 20 66 72 |ame of a| host fr|
|000039a0| 6f 6d 20 69 74 27 73 20 | 61 64 64 72 65 73 73 2e |om it's |address.|
|000039b0| 0a 00 00 00 44 41 54 41 | 0d 01 00 00 46 4e 69 6e |....DATA|....FNin|
|000039c0| 65 74 5f 63 72 65 61 74 | 65 73 65 72 76 6d 65 6e |et_creat|eservmen|
|000039d0| 75 28 6e 61 6d 65 24 2c | 70 72 6f 74 6f 24 29 0a |u(name$,|proto$).|
|000039e0| 23 50 61 72 65 6e 74 20 | 21 52 6f 6f 74 0a 3d 3e |#Parent |!Root.=>|
|000039f0| 09 7b 2f 7d 6e 61 6d 65 | 24 7b 2f 7d 09 6e 61 6d |.{/}name|${/}.nam|
|00003a00| 65 20 6f 66 20 73 65 72 | 76 69 63 65 20 74 6f 20 |e of ser|vice to |
|00003a10| 74 69 63 6b 2c 20 6f 72 | 20 6e 75 6c 6c 20 66 6f |tick, or| null fo|
|00003a20| 72 20 6e 6f 6e 65 0a 09 | 7b 2f 7d 70 72 6f 74 6f |r none..|{/}proto|
|00003a30| 24 7b 2f 7d 09 70 72 6f | 74 6f 63 6f 6c 20 74 6f |${/}.pro|tocol to|
|00003a40| 20 75 73 65 2c 20 6f 72 | 20 6e 75 6c 6c 20 66 6f | use, or| null fo|
|00003a50| 72 20 64 65 66 61 75 6c | 74 0a 3c 3d 09 70 6f 69 |r defaul|t.<=.poi|
|00003a60| 6e 74 65 72 20 74 6f 20 | 6d 65 6e 75 20 73 74 72 |nter to |menu str|
|00003a70| 75 63 74 75 72 65 0a 0a | 43 72 65 61 74 65 73 20 |ucture..|Creates |
|00003a80| 61 20 6d 65 6e 75 20 73 | 74 72 75 63 74 75 72 65 |a menu s|tructure|
|00003a90| 20 66 6f 72 20 61 6c 6c | 20 74 68 65 20 73 65 72 | for all| the ser|
|00003aa0| 76 69 63 65 73 2c 20 74 | 69 63 6b 69 6e 67 20 74 |vices, t|icking t|
|00003ab0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 6f 6e 65 2e |he selec|ted one.|
|00003ac0| 0a 00 00 00 44 41 54 41 | 7e 01 00 00 46 4e 69 6e |....DATA|~...FNin|
|00003ad0| 65 74 5f 6d 74 72 65 73 | 6f 6c 76 65 72 0a 23 50 |et_mtres|olver.#P|
|00003ae0| 61 72 65 6e 74 20 21 52 | 6f 6f 74 0a 3c 3d 09 54 |arent !R|oot.<=.T|
|00003af0| 52 55 45 20 69 66 20 74 | 68 65 72 65 20 69 73 20 |RUE if t|here is |
|00003b00| 61 20 6d 75 6c 74 69 74 | 61 73 6b 69 6e 67 20 72 |a multit|asking r|
|00003b10| 65 73 6f 6c 76 65 72 20 | 70 72 65 73 65 6e 74 0a |esolver |present.|
|00003b20| 0a 43 68 65 63 6b 73 20 | 66 6f 72 20 74 68 65 20 |.Checks |for the |
|00003b30| 70 72 65 73 65 6e 63 65 | 20 6f 66 20 61 20 6d 75 |presence| of a mu|
|00003b40| 6c 74 69 74 61 73 6b 69 | 6e 67 20 72 65 73 6f 6c |ltitaski|ng resol|
|00003b50| 76 65 72 2e 20 49 66 20 | 74 68 69 73 20 64 6f 65 |ver. If |this doe|
|00003b60| 73 20 6e 6f 74 20 72 65 | 74 75 72 6e 20 54 52 55 |s not re|turn TRU|
|00003b70| 45 20 79 6f 75 20 73 68 | 6f 75 6c 64 20 4e 4f 54 |E you sh|ould NOT|
|00003b80| 20 63 61 6c 6c 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | call th|e follow|
|00003b90| 69 6e 67 20 72 6f 75 74 | 69 6e 65 73 20 3a 0a 23 |ing rout|ines :.#|
|00003ba0| 49 6e 64 65 6e 74 20 32 | 0a 3c 46 4e 69 6e 65 74 |Indent 2|.<FNinet|
|00003bb0| 5f 73 74 61 72 74 6d 74 | 67 65 74 68 6f 73 74 62 |_startmt|gethostb|
|00003bc0| 79 6e 61 6d 65 3e 0a 3c | 46 4e 69 6e 65 74 5f 73 |yname>.<|FNinet_s|
|00003bd0| 74 61 72 74 6d 74 67 65 | 74 68 6f 73 74 62 79 61 |tartmtge|thostbya|
|00003be0| 64 64 72 3e 0a 3c 46 4e | 69 6e 65 74 5f 63 68 65 |ddr>.<FN|inet_che|
|00003bf0| 63 6b 6d 74 71 75 65 72 | 79 3e 0a 3c 46 4e 69 6e |ckmtquer|y>.<FNin|
|00003c00| 65 74 5f 6b 69 6c 6c 6d | 74 71 75 65 72 79 3e 0a |et_killm|tquery>.|
|00003c10| 3c 46 4e 69 6e 65 74 5f | 6d 74 67 65 74 68 6f 73 |<FNinet_|mtgethos|
|00003c20| 74 62 79 6e 61 6d 65 3e | 0a 3c 46 4e 69 6e 65 74 |tbyname>|.<FNinet|
|00003c30| 5f 6d 74 67 65 74 68 6f | 73 74 62 79 61 64 64 72 |_mtgetho|stbyaddr|
|00003c40| 3e 0a 00 00 44 41 54 41 | 30 01 00 00 46 4e 69 6e |>...DATA|0...FNin|
|00003c50| 65 74 5f 73 74 61 72 74 | 6d 74 67 65 74 68 6f 73 |et_start|mtgethos|
|00003c60| 74 62 79 61 64 64 72 28 | 61 64 64 72 29 0a 23 50 |tbyaddr(|addr).#P|
|00003c70| 61 72 65 6e 74 20 21 52 | 6f 6f 74 0a 3d 3e 09 7b |arent !R|oot.=>.{|
|00003c80| 2f 7d 61 64 64 72 7b 2f | 7d 09 61 64 64 72 65 73 |/}addr{/|}.addres|
|00003c90| 73 20 74 6f 20 72 65 73 | 6f 6c 76 65 72 0a 3c 3d |s to res|olver.<=|
|00003ca0| 09 68 61 6e 64 6c 65 20 | 6f 66 20 6c 6f 6f 6b 75 |.handle |of looku|
|00003cb0| 70 2c 20 6f 72 20 30 20 | 69 66 20 63 61 6c 6c 20 |p, or 0 |if call |
|00003cc0| 66 61 69 6c 65 64 0a 0a | 53 74 61 72 74 73 20 61 |failed..|Starts a|
|00003cd0| 20 6d 75 6c 74 69 74 61 | 73 6b 69 6e 67 20 6c 6f | multita|sking lo|
|00003ce0| 6f 6b 75 70 20 6f 66 20 | 61 20 68 6f 73 74 20 62 |okup of |a host b|
|00003cf0| 79 20 69 74 27 73 20 61 | 64 64 72 65 73 73 2e 20 |y it's a|ddress. |
|00003d00| 55 73 65 20 3c 46 4e 69 | 6e 65 74 5f 63 68 65 63 |Use <FNi|net_chec|
|00003d10| 6b 6d 74 71 75 65 72 79 | 3e 20 74 6f 20 66 69 6e |kmtquery|> to fin|
|00003d20| 64 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 73 74 |d the cu|rrent st|
|00003d30| 61 74 65 20 6f 66 20 74 | 68 65 20 6c 6f 6f 6b 75 |ate of t|he looku|
|00003d40| 70 2c 20 61 6e 64 20 3c | 46 4e 69 6e 65 74 5f 6d |p, and <|FNinet_m|
|00003d50| 74 67 65 74 68 6f 73 74 | 62 79 61 64 64 72 3e 20 |tgethost|byaddr> |
|00003d60| 74 6f 20 72 65 61 64 20 | 74 68 65 20 72 65 73 75 |to read |the resu|
|00003d70| 6c 74 2e 0a 44 41 54 41 | 2a 01 00 00 46 4e 69 6e |lt..DATA|*...FNin|
|00003d80| 65 74 5f 73 74 61 72 74 | 6d 74 67 65 74 68 6f 73 |et_start|mtgethos|
|00003d90| 74 62 79 6e 61 6d 65 28 | 68 6f 73 74 24 29 0a 23 |tbyname(|host$).#|
|00003da0| 50 61 72 65 6e 74 20 21 | 52 6f 6f 74 0a 3d 3e 09 |Parent !|Root.=>.|
|00003db0| 7b 2f 7d 68 6f 73 74 24 | 7b 2f 7d 09 68 6f 73 74 |{/}host$|{/}.host|
|00003dc0| 20 74 6f 20 6c 6f 6f 6b | 75 70 0a 3c 3d 09 68 61 | to look|up.<=.ha|
|00003dd0| 6e 64 6c 65 20 6f 66 20 | 6c 6f 6f 6b 75 70 2c 20 |ndle of |lookup, |
|00003de0| 6f 72 20 30 20 69 66 20 | 63 61 6c 6c 20 66 61 69 |or 0 if |call fai|
|00003df0| 6c 65 64 0a 0a 53 74 61 | 72 74 73 20 61 20 6d 75 |led..Sta|rts a mu|
|00003e00| 6c 74 69 74 61 73 6b 69 | 6e 67 20 6c 6f 6f 6b 75 |ltitaski|ng looku|
|00003e10| 70 20 6f 66 20 61 20 68 | 6f 73 74 20 62 79 20 69 |p of a h|ost by i|
|00003e20| 74 27 73 20 6e 61 6d 65 | 2e 20 55 73 65 20 3c 46 |t's name|. Use <F|
|00003e30| 4e 69 6e 65 74 5f 63 68 | 65 63 6b 6d 74 71 75 65 |Ninet_ch|eckmtque|
|00003e40| 72 79 3e 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |ry> to f|ind the |
|00003e50| 63 75 72 72 65 6e 74 20 | 73 74 61 74 65 20 6f 66 |current |state of|
|00003e60| 20 74 68 65 20 6c 6f 6f | 6b 75 70 2c 20 61 6e 64 | the loo|kup, and|
|00003e70| 20 3c 46 4e 69 6e 65 74 | 5f 6d 74 67 65 74 68 6f | <FNinet|_mtgetho|
|00003e80| 73 74 62 79 6e 61 6d 65 | 3e 20 74 6f 20 72 65 61 |stbyname|> to rea|
|00003e90| 64 20 74 68 65 20 72 65 | 73 75 6c 74 2e 0a 00 00 |d the re|sult....|
|00003ea0| 44 41 54 41 46 01 00 00 | 46 4e 69 6e 65 74 5f 63 |DATAF...|FNinet_c|
|00003eb0| 68 65 63 6b 6d 74 71 75 | 65 72 79 28 68 61 6e 64 |heckmtqu|ery(hand|
|00003ec0| 6c 65 29 0a 23 50 61 72 | 65 6e 74 20 21 52 6f 6f |le).#Par|ent !Roo|
|00003ed0| 74 0a 3d 3e 09 7b 2f 7d | 68 61 6e 64 6c 65 7b 2f |t.=>.{/}|handle{/|
|00003ee0| 7d 09 68 61 6e 64 6c 65 | 20 72 65 74 75 72 6e 65 |}.handle| returne|
|00003ef0| 64 20 62 79 20 6f 6e 65 | 20 6f 66 20 74 68 65 20 |d by one| of the |
|00003f00| 46 4e 69 6e 65 74 5f 73 | 74 61 72 74 2e 2e 2e 20 |FNinet_s|tart... |
|00003f10| 63 61 6c 6c 73 0a 3c 3d | 09 54 52 55 45 20 69 66 |calls.<=|.TRUE if|
|00003f20| 20 6c 6f 6f 6b 75 70 20 | 68 61 73 20 73 75 63 63 | lookup |has succ|
|00003f30| 65 65 64 65 64 2c 0a 09 | 46 41 4c 53 45 20 69 66 |eeded,..|FALSE if|
|00003f40| 20 6c 6f 6f 6b 75 70 20 | 68 61 73 20 66 61 69 6c | lookup |has fail|
|00003f50| 65 64 2c 0a 09 31 20 69 | 73 20 6c 6f 6f 6b 75 70 |ed,..1 i|s lookup|
|00003f60| 20 69 73 20 73 74 69 6c | 6c 20 67 6f 69 6e 67 0a | is stil|l going.|
|00003f70| 0a 43 68 65 63 6b 73 20 | 74 68 65 20 73 74 61 74 |.Checks |the stat|
|00003f80| 65 20 6f 66 20 61 20 6d | 75 6c 74 69 74 61 73 6b |e of a m|ultitask|
|00003f90| 69 6e 67 20 6c 6f 6f 6b | 75 70 20 73 74 61 72 74 |ing look|up start|
|00003fa0| 65 64 20 62 79 20 3c 46 | 4e 69 6e 65 74 5f 73 74 |ed by <F|Ninet_st|
|00003fb0| 61 72 74 6d 74 67 65 74 | 68 6f 73 74 62 79 6e 61 |artmtget|hostbyna|
|00003fc0| 6d 65 3e 20 6f 72 20 3c | 46 4e 69 6e 65 74 5f 73 |me> or <|FNinet_s|
|00003fd0| 74 61 72 74 6d 74 67 65 | 74 68 6f 73 74 62 79 61 |tartmtge|thostbya|
|00003fe0| 64 64 72 3e 2e 0a 00 00 | 44 41 54 41 cb 00 00 00 |ddr>....|DATA....|
|00003ff0| 46 4e 69 6e 65 74 5f 6d | 74 67 65 74 68 6f 73 74 |FNinet_m|tgethost|
|00004000| 62 79 6e 61 6d 65 28 68 | 61 6e 64 6c 65 29 0a 23 |byname(h|andle).#|
|00004010| 50 61 72 65 6e 74 20 21 | 52 6f 6f 74 0a 3d 3e 09 |Parent !|Root.=>.|
|00004020| 7b 2f 7d 68 61 6e 64 6c | 65 7b 2f 7d 09 68 61 6e |{/}handl|e{/}.han|
|00004030| 64 6c 65 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |dle retu|rned by |
|00004040| 3c 46 4e 69 6e 65 74 5f | 73 74 61 72 74 6d 74 67 |<FNinet_|startmtg|
|00004050| 65 74 68 6f 73 74 62 79 | 6e 61 6d 65 3e 0a 3c 3d |ethostby|name>.<=|
|00004060| 09 49 50 20 6f 66 20 68 | 6f 73 74 20 69 66 20 66 |.IP of h|ost if f|
|00004070| 6f 75 6e 64 2c 20 30 20 | 6f 74 68 65 72 77 69 73 |ound, 0 |otherwis|
|00004080| 65 0a 0a 52 65 61 64 73 | 20 74 68 65 20 72 65 73 |e..Reads| the res|
|00004090| 75 6c 74 20 6f 66 20 61 | 20 6d 75 6c 74 69 74 61 |ult of a| multita|
|000040a0| 73 6b 69 6e 67 20 6e 61 | 6d 65 20 6c 6f 6f 6b 75 |sking na|me looku|
|000040b0| 70 2e 0a 00 44 41 54 41 | d9 00 00 00 46 4e 69 6e |p...DATA|....FNin|
|000040c0| 65 74 5f 6d 74 67 65 74 | 68 6f 73 74 62 79 61 64 |et_mtget|hostbyad|
|000040d0| 64 72 28 68 61 6e 64 6c | 65 29 0a 23 50 61 72 65 |dr(handl|e).#Pare|
|000040e0| 6e 74 20 21 52 6f 6f 74 | 0a 3d 3e 09 7b 2f 7d 68 |nt !Root|.=>.{/}h|
|000040f0| 61 6e 64 6c 65 7b 2f 7d | 09 68 61 6e 64 6c 65 20 |andle{/}|.handle |
|00004100| 72 65 74 75 72 6e 65 64 | 20 62 79 20 3c 46 4e 69 |returned| by <FNi|
|00004110| 6e 65 74 5f 73 74 61 72 | 74 6d 74 67 65 74 68 6f |net_star|tmtgetho|
|00004120| 73 74 62 79 61 64 64 72 | 3e 0a 3c 3d 09 6e 61 6d |stbyaddr|>.<=.nam|
|00004130| 65 20 6f 66 20 68 6f 73 | 74 20 69 66 20 66 6f 75 |e of hos|t if fou|
|00004140| 6e 64 2c 20 6f 72 20 6e | 75 6c 6c 20 69 66 20 6e |nd, or n|ull if n|
|00004150| 6f 74 20 66 6f 75 6e 64 | 0a 0a 52 65 61 64 73 20 |ot found|..Reads |
|00004160| 74 68 65 20 72 65 73 75 | 6c 74 20 6f 66 20 61 20 |the resu|lt of a |
|00004170| 6d 75 6c 74 69 74 61 73 | 6b 69 6e 67 20 61 64 64 |multitas|king add|
|00004180| 72 65 73 73 20 6c 6f 6f | 6b 75 70 2e 0a 00 00 00 |ress loo|kup.....|
|00004190| 44 41 54 41 95 00 00 00 | 46 4e 69 6e 65 74 5f 64 |DATA....|FNinet_d|
|000041a0| 65 63 6f 64 65 65 72 72 | 6f 72 28 65 72 72 6f 72 |ecodeerr|or(error|
|000041b0| 29 0a 23 50 61 72 65 6e | 74 20 21 52 6f 6f 74 0a |).#Paren|t !Root.|
|000041c0| 3d 3e 09 7b 2f 7d 65 72 | 72 6f 72 7b 2f 7d 09 65 |=>.{/}er|ror{/}.e|
|000041d0| 72 72 6f 72 20 6e 75 6d | 62 65 72 0a 3c 3d 09 74 |rror num|ber.<=.t|
|000041e0| 65 78 74 75 61 6c 20 65 | 72 72 6f 72 20 6d 65 73 |extual e|rror mes|
|000041f0| 73 61 67 65 0a 0a 52 65 | 61 64 73 20 74 68 65 20 |sage..Re|ads the |
|00004200| 74 65 78 74 75 61 6c 20 | 76 65 72 73 69 6f 6e 20 |textual |version |
|00004210| 6f 66 20 61 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |of an er|ror mess|
|00004220| 61 67 65 2e 0a 00 00 00 | 44 49 52 24 30 00 00 00 |age.....|DIR$0...|
|00004230| 30 00 00 00 58 42 00 00 | 47 ff ff ff c1 e3 03 d7 |0...XB..|G.......|
|00004240| 8d 00 00 00 13 00 00 00 | 00 00 00 00 6f 70 65 6e |........|....open|
|00004250| 73 65 73 73 69 6f 6e 00 | 44 41 54 41 8d 00 00 00 |session.|DATA....|
|00004260| 46 4e 6c 6f 67 5f 6f 70 | 65 6e 73 65 73 73 69 6f |FNlog_op|ensessio|
|00004270| 6e 28 6c 65 76 65 6c 29 | 0a 23 50 61 72 65 6e 74 |n(level)|.#Parent|
|00004280| 20 21 52 6f 6f 74 0a 3d | 3e 09 7b 2f 7d 6c 65 76 | !Root.=|>.{/}lev|
|00004290| 65 6c 7b 2f 7d 09 3c 70 | 72 69 6f 72 69 74 79 3d |el{/}.<p|riority=|
|000042a0| 3e 49 6e 65 74 53 57 49 | 73 3a 53 79 73 4c 6f 67 |>InetSWI|s:SysLog|
|000042b0| 5f 70 72 69 6f 72 69 74 | 69 65 73 3e 0a 3c 3d 09 |_priorit|ies>.<=.|
|000042c0| 73 65 73 73 69 6f 6e 20 | 68 61 6e 64 6c 65 0a 0a |session |handle..|
|000042d0| 4f 70 65 6e 73 20 61 20 | 73 65 73 73 69 6f 6e 20 |Opens a |session |
|000042e0| 6c 6f 67 2e 0a 00 00 00 | |log.....| |
+--------+-------------------------+-------------------------+--------+--------+
