(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 2-Apr-87 17:06:29" ("compiled on " {ERIS}LIBRARY>TCPDOMAIN.;5) "31-Mar-87 21:33:35" brecompiled changes%: nothing in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 2-Apr-87 17:01:18" {ERIS}LIBRARY>TCPDOMAIN.;5 61676 changes to%: (VARS TCPDOMAINCOMS) previous date%: "19-Mar-87 16:59:01" {ERIS}LIBRARY>TCPDOMAIN.;4) \UDPDOM.PROCESS.RESPONSE :D4 (P 1 RESPONSEBASE I 1 RESPONSE I 0 DOMAIN.PATH) tAHlÐHÊCàÐlÐ!IÈjð³#IjAZlÐJÊCàÐÈlÙg A ¿IÈjð–IÈjð³#IjA[lÐKÊCàÐÈlÙg A ¿A g(110 \RELEASE.ETHERPACKET 104 \RELEASE.ETHERPACKET 100 \DOMAIN.PROCESS.REDIRECT 97 \MAKEBASEBYTESTREAM 58 \RELEASE.ETHERPACKET 54 \DOMAIN.PROCESS.RESPONSE 51 \MAKEBASEBYTESTREAM) (113 FAILED 94 INPUT 48 INPUT) () \UDPDOM.QUERY :D4 (P 11 RESPONSEBASE P 10 RESPONSE P 9 I P 7 NAME P 5 DOMAINBASE P 4 ANSWER P 3 ID P 0 QUERY I 3 SERVER I 2 CLASS I 1 TYPE I 0 DOMAIN) Á!knÿþ !HCµ`l5K HYlÐIÊCàÐlÐ]dKÍMjÏ¿jdðhðMjÏP¿jdðhðMjÏ`¿jdðhðMjÏp¿jdðhðMjÏ€¿jdðhðMjÏMjÏÃMkÍMjÍMjÍMjÍHl @d—d¤ bNµ#Hj HA HB `k"OOó²"±ð_¿HO ¿HO ¿N^°ÁHn'_µ;`¢±Ê` ¿o` ¿HlÐl ` ¿o` ±—ZlÐJÊCàÐlÐ_ÈKð²|OÊjð³sOÊ`jð³%OÈjð²OÈjð²OÊÃjðšg¼O °@OÊÃjð³0OÊÃ ¼`²` ¿o` ¿L` ¿O †@O \¿H LO ¿OkÔ_±þù(437 \RELEASE.ETHERPACKET 430 \RELEASE.ETHERPACKET 424 \UDPDOM.PROCESS.RESPONSE 417 \RELEASE.ETHERPACKET 411 PRIN1 403 PRIN1 392 FRESHLINE 380 \DOMAIN.RCODE.ERROR 361 \RELEASE.ETHERPACKET 286 PRIN1 275 PRIN1 269 \IP.ADDRESS.TO.STRING 266 \GETBASEFIXP 256 PRIN1 245 FRESHLINE 228 UDP.EXCHANGE 221 \UDPDOM.IPSOCKET 212 UDP.APPEND.STRING 209 MKSTRING 202 UDP.APPEND.BYTE 199 NCHARS 172 UDP.APPEND.WORD 167 UDP.APPEND.WORD 161 UDP.APPEND.BYTE 147 \DOMAIN.PARSE.NAME 138 UDP.INCREMENT.LENGTH 32 UDP.SETUP 28 \UDPDOM.IPSOCKET 12 RAND 2 \ALLOCATE.ETHERPACKET) (408 DOMAIN.TRACE.FILE 400 DOMAIN.TRACE.FILE 389 DOMAIN.TRACE.FILE 384 DOMAIN.TRACE.FLG 355 USE.TCP 283 DOMAIN.TRACE.FILE 272 DOMAIN.TRACE.FILE 253 DOMAIN.TRACE.FILE 242 DOMAIN.TRACE.FILE 235 DOMAIN.TRACE.FLG 175 \MAXETHERTRIES 22 \DOMAIN.DEFAULT.SERVER) ( 397 "Error on query: " 280 " timed out." 250 "Query to ") \UDPDOM.IPSOCKET :D4 NIL *`µ Él ªhg `(32 UDP.OPEN.SOCKET 24 \IP.FIND.SOCKET 21 \IP.FIND.PROTOCOL 7 UDP.OPEN.SOCKET) (39 \UDPDOMAIN.IPSOCKET 35 \UDPDOMAIN.IPSOCKET 29 ACCEPT 14 IPSOCKET 10 \UDPDOMAIN.IPSOCKET 2 \UDPDOMAIN.IPSOCKET) () \DOMAIN.NAME :D4 (P 0 SUFFIX I 0 DOMAIN.TREE.NODE) .@É¡h@É Hž@ÉoH@É(36 CONCAT 17 \DOMAIN.NAME) (41 DOMAIN.TREE.NODE 26 DOMAIN.TREE.NODE 12 DOMAIN.TREE.NODE 3 DOMAIN.TREE.NODE) ( 32 ".") \DOMAIN.PACK.NAME.LIST :D4 (P 6 NAME P 5 I P 3 DOMAIN.NAME P 2 NAME I 0 LIST) b@µj kÙ@jHµIØ @kLµKºIJ Ô¹HX°Ý¾KMN¿MN Ô]K ýñ›KMl.¿MkÔ½L\°Ç(86 RPLCHARCODE 76 NCHARS 70 NCHARS 64 RPLSTRING 49 NCHARS 28 ALLOCSTRING 11 LENGTH 7 ALLOCSTRING) NIL () \DOMAIN.PARSE.NAME :D4 (P 4 NAMELIST P 3 CHAR P 1 LENGTH P 0 SCRATCHSTRING I 0 NAME) ¯ oj@ cJdÊjð£ ÈkÙ¾JdÊjð£ É_¿NJÈØ½JdÊjð£ ‚Ê‡lDð_¿NkØ^Mñ³IO–ONÐÈƒONÂ[l.ð²Ijð³áLHkI h ¼jY°ÌIl?ñ™oH °½HIkÔYK°²Ijð¯LHkI h L(170 \NCONC2 165 CONCAT 162 SUBSTRING 149 RPLCHARCODE 138 ERROR 120 \NCONC2 115 CONCAT 112 SUBSTRING 62 %%ARRAY-TYPE-NUMBER 39 %%ARRAY-BASE 22 %%ARRAY-OFFSET 8 MKSTRING) NIL ( 134 "Domain name too long" 3 "") \DOMAIN.RCODE.ERROR :D4 (L (0 CODE)) 6@djð“gkð“g@dlð“glð“g@dlð“glð´gNIL (51 REFUSED 42 NOT.IMPLEMENTED 32 NAME.ERROR 24 SERVER.FAILED 14 FORMAT.ERROR 7 OK) () \DOMAIN.PROCESS.REDIRECT :D4 (P 5 I P 3 %#ADDITIONAL P 2 %#NSERVERS P 1 %#ANSWERS P 0 %#QUESTIONS I 0 STREAM) Ä @ ¿@ @ ¿@ @ á@ Ø@ á@ Ø@ á@ Ø@ á@ ØHkMLóª@ ¿MkÔ]°ôIk"MLó³ @ _¿NµOh^¿MkÔ]°èOh^°óJk2MLó³$@ _¿OµOh_^¿MkÔ]°åOh_°òNKk2MLó³$@ _¿OµOh_^¿MkÔ]°åOh_°òN (193 \APPEND2 158 \DOMAIN.PROCESS.RR 112 \DOMAIN.PROCESS.RR 71 \DOMAIN.SKIP.RR 49 \DOMAIN.SKIP.QUESTION) NIL () \DOMAIN.PROCESS.RESPONSE :D4 (P 3 I P 1 %#ANSWERS P 0 %#QUESTIONS I 0 STREAM) `@ ¿@ @ ¿@ @ á@ Ø@ á@ Ø@ ¿@ @ ¿@ HkKJóª@ ¿KkÔ[°ôIk2KJó³@ ¾MµNh]\¿KkÔ[°êNh]°ôL(69 \DOMAIN.PROCESS.RR 47 \DOMAIN.SKIP.QUESTION) NIL () \DOMAIN.PROCESS.RR :D4 (P 7 I P 5 ANSWER P 4 RDLEN P 3 TTL P 2 CLASS P 1 TYPE P 0 NAME I 0 STREAM) ¬@ @ á@ Ø@ á@ Ø@ á@ Ø@ á@ Øõ@ á@ ØgHgIgJgKgIdkðš¿@JLââ°9lð¦Idlð–¿@ °(l ðš@ @ °LkONóª@ ¿OkÔ_°ôhh]`²`o` ¿M` M(168 FRESHLINE 165 PRIN1 157 PRIN1 101 \DOMAIN.READ.STRING.FROM.STREAM 97 \DOMAIN.READ.STRING.FROM.STREAM 87 \DOMAIN.READ.NAME.FROM.STREAM 70 \DOMAIN.READ.ADDRESS 3 \DOMAIN.READ.NAME.FROM.STREAM) (162 DOMAIN.TRACE.FILE 154 DOMAIN.TRACE.FILE 147 DOMAIN.TRACE.FILE 142 DOMAIN.TRACE.FLG 56 DATA 52 TTL 48 CLASS 44 TYPE 40 NAME) ( 151 "Answer received: ") \DOMAIN.READ.ADDRESS :D4 (P 1 I I 2 %#ADDRESSES I 1 CLASS I 0 STREAM) OAkð´JBdjð‘hkð³2Bk2IHó³&@ á@ Ø@ á@ Øõ¼KµLh[Z¿IkÔY°áLh[°ôJ@ á@ Ø@ á@ ØõNIL NIL () \DOMAIN.READ.NAME.FROM.STREAM :D4 (P 5 NAME P 4 STREAMPTR P 3 CONTINUATIONADDR P 1 NAMELST P 0 NAMELEN I 0 STREAM) 0@ Xdjð˜¿I ââââââlð²8Hl?åá@ Ø@ @K ¿Iµ @ @L ¿ o@ °èH @MÊjð¤M ‚MÉMÊjð¤M ‚MÈNÉ É<ºNOOHlJMIY±ÿj(117 %%ARRAY-OFFSET 102 %%ARRAY-BASE 87 ALLOCSTRING 81 CONCAT 78 \DOMAIN.READ.NAME.FROM.STREAM 70 \DOMAIN.PACK.NAME.LIST 67 DREVERSE 62 SETFILEPTR 57 \DOMAIN.READ.NAME.FROM.STREAM 49 SETFILEPTR 41 GETFILEPTR 17 \DOMAIN.PACK.NAME.LIST 14 DREVERSE) (133 FDEV 128 STREAM) ( 74 ".") \DOMAIN.READ.STRING.FROM.STREAM :D4 (P 3 I P 1 STRING P 0 NAMELEN I 0 STREAM) %@ H !Hk»ºKJóIK@ ¿KkÔ[°ñI(26 RPLCHARCODE 8 ALLOCSTRING) NIL () \DOMAIN.SEARCH.FOR.CANONICAL.NAME :D4 (P 3 DATA P 2 FOUNDIT P 1 RR I 1 RRLST I 0 NAME) 1A1Hµ°Yg'lð²Ig'@ ›iZ˜J´Ig'HX°×(29 DOMAIN.NAME.EQUAL) (40 DATA 24 NAME 14 TYPE) () \DOMAIN.SKIP.NAME.IN.STREAM :D4 (P 3 I P 1 NAMELST P 0 NAMELEN I 0 STREAM) 1 @ Xdjð‘hââââââlð”@ ¿°êHkKJó¨@ ¿KkÔ[°ö°ÕNIL NIL () \DOMAIN.SKIP.QUESTION :D4 (I 0 STREAM) @ @ ¿@ @ á@ Ø(3 \DOMAIN.SKIP.NAME.IN.STREAM) NIL () \DOMAIN.SKIP.RR :D4 (P 1 I I 0 STREAM) 2@ @ ¿@ @ ¿@ @ ¿@ @ ¿@ @ á@ ØjIHó‘h@ ¿IkÔY°ô(3 \DOMAIN.SKIP.NAME.IN.STREAM) NIL () USTRINGHASHBITS :D4 (P 2 C P 1 HASHBITS I 0 STRING) [@ jBHdÊjð£ ÈkÙ¼HdÊjð£ É½LHÈØ»LkØ\Kñ³$MLÂº`J IdnÿåààÐÓYdlÿåáÐÓÐÓ¹°ØI(64 ELT 35 %%ARRAY-BASE 18 %%ARRAY-OFFSET 3 MKSTRING) (60 UPPERCASEARRAY) () \DOMAIN.ADD.NEW.DOMAIN :D4 (P 0 SUBDOMAIN I 4 TTL I 3 ADDRESSES I 2 NAMESERVER I 1 DOMAIN I 0 NODE) x`d@¿dA¿@H@É`²2` ¿o` ¿A` ¿o` ¿@ ` ¿B´!`²o` ¿B` ¿HBCD(117 \DOMAIN.ADD.NAMESERVER 109 PRIN1 101 PRIN1 82 PRIN1 76 \DOMAIN.NAME 71 PRIN1 60 PRIN1 52 PRIN1 41 FRESHLINE) (106 DOMAIN.TRACE.FILE 98 DOMAIN.TRACE.FILE 89 DOMAIN.TRACE.FLG 79 DOMAIN.TRACE.FILE 68 DOMAIN.TRACE.FILE 57 DOMAIN.TRACE.FILE 49 DOMAIN.TRACE.FILE 38 DOMAIN.TRACE.FILE 33 DOMAIN.TRACE.FLG 25 DOMAIN.TREE.NODE 20 DOMAIN.TREE.NODE 2 |DOMAIN.TREE.NODETYPE#|) ( 95 " with name server " 65 " as subdomain of " 46 "Adding ") \DOMAIN.ADD.NAMESERVER :D4 (P 2 SERVER P 0 DOMAIN.SERVER I 3 TTL I 2 ADDRESSES I 1 NAMESERVER I 0 NODE) ÉAd¢±§` µAdBC3µnØhjh`B³Hb³HBµAhib²x@ÉIµWh³e`²2` ¿o` ¿A` ¿o` ¿@ ` ¿@A@ÉH@HZA •Jµ¤i°¡IY°˜hAh`(198 PUTHASH 176 STRING-EQUAL 141 PRIN1 135 \DOMAIN.NAME 130 PRIN1 119 PRIN1 111 PRIN1 100 FRESHLINE 66 DOMAIN.LOOKUP.ADDRESS 42 PUTHASH 19 IDATE 11 GETHASH) (195 \DOMAIN.NAMESERVERS 151 DOMAIN.TREE.NODE 146 DOMAIN.TREE.NODE 138 DOMAIN.TRACE.FILE 127 DOMAIN.TRACE.FILE 116 DOMAIN.TRACE.FILE 108 DOMAIN.TRACE.FILE 97 DOMAIN.TRACE.FILE 92 DOMAIN.TRACE.FLG 76 DOMAIN.TREE.NODE 39 \DOMAIN.NAMESERVERS 8 \DOMAIN.NAMESERVERS) ( 124 " as new name server for " 105 "Adding ") \DOMAIN.AUGMENT.TREE :D4 (P 2 NAMESERVER P 1 RR I 0 RRLST) 7@!HµhYg'lð²Ig'ºIg'J@JkhIg'¿HX°Ñ(47 \DOMAIN.INSERT.IN.TREE 39 \DOMAIN.SEARCH.RESOURCE.LIST) (43 TTL 30 NAME 24 DATA 14 TYPE) () \DOMAIN.CHOOSE.BEST.SERVERS :D4 (P 7 BEST.CHOICE P 6 SUBDOMAIN P 4 NEXT P 3 NAME P 2 CURRENT P 0 PATH I 0 DOMAIN) †@d§d• H`"Iµ°»JÉMµ9h\µLJOµIOd`ð²m¿Hk ´`ÉMµ;h³Ph_°M¾KNÉ •Nµ¼i°¹M]°°ºIY°™É³´OÉ_°§¾HNÉ •Nµ¹i°¶M]°O’±‘Hk ©`É³G`²1` ¿o` ¿@` ¿o` ¿`` ¿`d£d‘hg `²'` ¿o` ¿@` ¿o` ¿`Ég `²5` ¿o` ¿@` ¿o` ¿OÉ` ¿OÉg (387 SORT 373 PRIN1 359 PRIN1 348 PRIN1 340 PRIN1 329 FRESHLINE 317 SORT 302 PRIN1 291 PRIN1 283 PRIN1 272 FRESHLINE 260 SORT 243 PRIN1 233 PRIN1 222 PRIN1 214 PRIN1 203 FRESHLINE 181 EQLENGTH 158 STRING-EQUAL 109 STRING-EQUAL 71 EQLENGTH 11 DREVERSE 8 \DOMAIN.PARSE.NAME) (384 \DOMAIN.SORT.BY.SVC.TIME 379 DOMAIN.TREE.NODE 370 DOMAIN.TRACE.FILE 365 DOMAIN.TREE.NODE 356 DOMAIN.TRACE.FILE 345 DOMAIN.TRACE.FILE 337 DOMAIN.TRACE.FILE 326 DOMAIN.TRACE.FILE 321 DOMAIN.TRACE.FLG 314 \DOMAIN.SORT.BY.SVC.TIME 309 DOMAIN.TREE.NODE 306 \DOMAIN.ROOT 299 DOMAIN.TRACE.FILE 288 DOMAIN.TRACE.FILE 280 DOMAIN.TRACE.FILE 269 DOMAIN.TRACE.FILE 264 DOMAIN.TRACE.FLG 257 \DOMAIN.SORT.BY.SVC.TIME 247 \DOMAIN.DEFAULT.SERVER 240 DOMAIN.TRACE.FILE 237 \DOMAIN.DEFAULT.SERVER 230 DOMAIN.TRACE.FILE 219 DOMAIN.TRACE.FILE 211 DOMAIN.TRACE.FILE 200 DOMAIN.TRACE.FILE 195 DOMAIN.TRACE.FLG 188 DOMAIN.TREE.NODE 185 \DOMAIN.ROOT 153 DOMAIN.TREE.NODE 139 DOMAIN.TREE.NODE 130 DOMAIN.TREE.NODE 104 DOMAIN.TREE.NODE 79 DOMAIN.TREE.NODE 76 \DOMAIN.ROOT 62 \DOMAIN.ROOT 33 DOMAIN.TREE.NODE 18 \DOMAIN.ROOT) ( 353 ": " 334 "Best choice(s) for " 296 " is the root server" 277 "Best choice for " 227 " is our local server: " 208 "Best choice for ") \DOMAIN.FIND.DOMAIN.IN.TREE :D4 (P 6 NEXT P 5 NODE P 3 SUBDOMAIN P 1 CURRENT P 0 PATH I 0 NAME) ^@o “`@d“ … `"H!L]²3IÉh»Zµ h^µIM»MKÉ •Kµêi°çJ°Þ¹M°ÍI(74 STRING-EQUAL 26 DREVERSE 23 \DOMAIN.PARSE.NAME 19 REVERSE 7 STREQUAL) (69 DOMAIN.TREE.NODE 45 DOMAIN.TREE.NODE 29 \DOMAIN.ROOT 11 \DOMAIN.ROOT) ( 4 "") \DOMAIN.INIT :D4 (P 6 NAME P 5 SERVER P 1 SERVER# I 0 EVENT) Y`kRHµJ½oI ^dM hohjh`¿N¼KµLh[Z¿H¸IkÔ¹°¿Lh[°ñ(59 PUTHASH 39 \IP.READ.STRING.ADDRESS 33 CONCAT) (56 \DOMAIN.NAMESERVERS 22 \DOMAIN.DEFAULT.SERVER 2 \IP.DEFAULT.CONFIGURATION) ( 45 2147483647 29 "Local-Domain-Server-") \DOMAIN.INSERT.IN.TREE :D4 (P 0 PARTIAL.PATH I 3 TTL I 2 ADDRESSES I 1 NAMESERVER I 0 DOMAIN) 9@ HÃ—HABCHl œHHABC HH @ABC(54 \DOMAIN.INSERT.IN.TREE 47 \DOMAIN.ADD.NEW.DOMAIN 38 \DOMAIN.ADD.NEW.DOMAIN 25 EQLENGTH 18 \DOMAIN.ADD.NAMESERVER 3 \DOMAIN.FIND.DOMAIN.IN.TREE) (10 DOMAIN.TREE.NODE) () \DOMAIN.PATH :D4 (I 0 DOMAIN.TREE.NODE) @É¡h@É@É (23 \DOMAIN.PATH) (18 DOMAIN.TREE.NODE 12 DOMAIN.TREE.NODE 3 DOMAIN.TREE.NODE) () \DOMAIN.SEARCH.RESOURCE.LIST :D4 (P 11 CANONICAL.NAME P 10 DATA P 9 FOUNDIT P 8 RR P 6 ANSWER P 5 DATA P 4 RR I 3 OK.TO.RETURN.NAME I 2 TYPE I 1 NAME I 0 RRLST) ¡@QHµINµ‚±†@1 OµE°`¼BLg'ð²,Lg'A ²!Lg']´Bkð—C•Lg'€M»Jµ KhZY¿HX°®KhZ°õ_g'lð².Og'A ²"i_²O´Og'O´ @OBCO_±ÿ}(150 \DOMAIN.SEARCH.RESOURCE.LIST 117 DOMAIN.NAME.EQUAL 50 DOMAIN.NAME.EQUAL) (133 DATA 112 NAME 101 TYPE 70 NAME 56 DATA 45 NAME 37 TYPE) () \DOMAIN.DELETE.NAMESERVER :D4 (P 5 NAME P 3 NAMESERVERS P 2 DOMAIN P 0 DOMAIN.SERVER I 0 NAMESERVER) Q@` Hd²!Iµ@h`ZÉ[LµIY°à]@ ›JMK ¿L\°á(71 DREMOVE 61 STRING-EQUAL 33 PUTHASH 6 GETHASH) (66 DOMAIN.TREE.NODE 39 DOMAIN.TREE.NODE 30 \DOMAIN.NAMESERVERS 3 \DOMAIN.NAMESERVERS) () \DOMAIN.AROUND.EXIT :D4 (I 0 EVENT) "@²@gð³@gð¬@gð¦@gð´(31 \DOMAIN.DELETE.TREE) (25 AFTERSAVEVM 19 AFTERMAKESYS 13 AFTERSYSOUT 6 AFTERLOGOUT) () \DOMAIN.DELETE.TREEA0001 :D4 (L (1 NAME 0 DOMAIN.SERVER)) @hNIL NIL () \DOMAIN.DELETE.TREE :D4 (P 2 CURRENT P 1 CLOSED P 0 OPEN) O`h!Hµ`g ` hH¸ZÉH ¸Jh¿Jh¿Jh¿Jh¿°¼(42 \APPEND2 26 CLRHASH 20 MAPHASH) (71 DOMAIN.TREE.NODE 63 DOMAIN.TREE.NODE 55 DOMAIN.TREE.NODE 47 DOMAIN.TREE.NODE 36 DOMAIN.TREE.NODE 23 \DOMAIN.NAMESERVERS 17 \DOMAIN.DELETE.TREEA0001 14 \DOMAIN.NAMESERVERS 2 \DOMAIN.ROOT) () \DOMAIN.BACKGROUND :D4 NIL %` ´`Ã“`‚l `ö(27 \CLOCK0 10 \DOMAIN.GC.NAMESERVERS 5 TIMEREXPIRED?) (34 \DOMAIN.GC.TIMER 30 \DOMAIN.GC.INTERVAL 20 \DOMAIN.GC.TIMER 16 FIXP 13 \DOMAIN.GC.TIMER 2 \DOMAIN.GC.TIMER) () \DOMAIN.GC.NAMESERVERSA0001 :D4 (I 1 NAME I 0 DOMAIN.SERVER F 0 TIME) 9@Pýñ´0`²'` ¿o` ¿A` ¿o` ¿A (54 \DOMAIN.DELETE.NAMESERVER 49 PRIN1 38 PRIN1 30 PRIN1 19 FRESHLINE) (46 DOMAIN.TRACE.FILE 35 DOMAIN.TRACE.FILE 27 DOMAIN.TRACE.FILE 16 DOMAIN.TRACE.FILE 11 DOMAIN.TRACE.FLG) ( 43 " has expired; deleting..." 24 "Name server ") \DOMAIN.GC.NAMESERVERS :D4 (P 0 TIME) `g h(14 MAPHASH 2 IDATE) (11 \DOMAIN.GC.NAMESERVERSA0001 8 \DOMAIN.NAMESERVERS) () \DOMAIN.SORT.BY.SVC.TIME :D4 (L (1 NAME2 0 NAME1)) '@` A` HµjIµjýñ(13 GETHASH 6 GETHASH) (10 \DOMAIN.NAMESERVERS 3 \DOMAIN.NAMESERVERS) () DOMAIN.INIT :D4 (P 7 NAMESERVER P 6 ADDR P 1 LOCAL.DOMAIN P 0 LOCAL.DOMAIN.SERVERS) ƒ`` H²^I²[HAJµKIH°C£J¾h„J¾JºN ½Lµ Mh\»°ØMh\¿°ÐdIO O hoµáho (128 PROMPTPRINT 114 \DOMAIN.INSERT.IN.TREE 105 DODIP.HOSTP 102 MKSTRING 97 MKSTRING 67 MKSTRING 23 MKSTRING) (48 INTERNET.LOCAL.DOMAIN 44 \DOMAIN.DEFAULT.SERVER 12 \IP.DEFAULT.CONFIGURATION 2 \IP.DEFAULT.CONFIGURATION) ( 125 "Internet domain code is loaded, but disabled." 111 2147483647) DOMAIN.LOOKUP.ADDRESS :D4 (P 12 NEXT.SERVER P 5 ANSWER P 4 THIS.SERVER P 3 ADDRESSES P 2 CLOSED P 1 CANONICAL.NAME P 0 OPEN I 2 DONT.GET.OSTYPE I 1 SERVER I 0 NAME) ë Ad©”Ahµ@ qHd¢±ªH¸\Jº@kL]@k[²FM ¿@ `dg¿dK¿@ h¾dN¿B‘hƒ@ _¿dO¿`KM²ž@M Yµ#M ¿MgkiAOµ(OH X±ÿqA »@ I` `K_J ³O_¿OµOh__¿O_°·Oh_°ñ(197 MEMBER 188 PUTHASH 182 GETHASH 175 MKATOM 172 U-CASE 167 DOMAIN.LOOKUP.ADDRESS 159 \APPEND2 144 \DOMAIN.SEARCH.RESOURCE.LIST 134 \DOMAIN.AUGMENT.TREE 127 MKATOM 124 U-CASE 121 \DOMAIN.SEARCH.FOR.CANONICAL.NAME 111 PUTHASH 96 DOMAIN.LOOKUP.OSTYPE 80 MKATOM 77 U-CASE 57 MKATOM 54 U-CASE 49 \DOMAIN.AUGMENT.TREE 42 \DOMAIN.SEARCH.RESOURCE.LIST 36 DOMAIN.LOOKUP 13 \DOMAIN.CHOOSE.BEST.SERVERS) (185 \IP.HOSTNAMES 179 \IP.HOSTNAMES 139 * 108 \IP.HOSTNAMES 65 HOST 60 |HOSTS.TXT.ENTRYTYPE#|) () DOMAIN.LOOKUP.NAMESERVER :D4 (P 9 NEXT.SERVER P 4 ANSWER P 3 THIS.SERVER P 2 NAMESERVERS P 1 CLOSED P 0 OPEN I 1 SERVER I 0 NAME) } Ad©”Ahµ@ AHd H¸[I¹@lK\@lZ•L JL²ÝL ¿LgkiA MµNH X°À_I ³O_¿OµOh_^¿M]°×Oh_°ó(90 MEMBER 80 \APPEND2 67 \DOMAIN.SEARCH.RESOURCE.LIST 57 \DOMAIN.AUGMENT.TREE 48 \DOMAIN.AUGMENT.TREE 42 \DOMAIN.SEARCH.RESOURCE.LIST 35 DOMAIN.LOOKUP 13 \DOMAIN.CHOOSE.BEST.SERVERS) (62 *) () DOMAIN.LOOKUP.OSTYPE :D4 (P 10 NEXT.SERVER P 5 ANSWER P 4 THIS.SERVER P 3 CPU.OSTYPES P 2 CLOSED P 1 CANONICAL.NAME P 0 OPEN I 1 SERVER I 0 NAME) •Ad©”Ahµ@ QHd H¸\Jº@l L]@l [žM ¿K M²Ô@M Yµ!M ¿MgkiA NµOH X°®A _J ³O_¿OµOh__¿N^°ÐOh_°ó(113 MEMBER 105 DOMAIN.LOOKUP.OSTYPE 98 \APPEND2 84 \DOMAIN.SEARCH.RESOURCE.LIST 74 \DOMAIN.AUGMENT.TREE 67 \DOMAIN.SEARCH.FOR.CANONICAL.NAME 58 MKATOM 55 U-CASE 48 \DOMAIN.AUGMENT.TREE 42 \DOMAIN.SEARCH.RESOURCE.LIST 35 DOMAIN.LOOKUP 13 \DOMAIN.CHOOSE.BEST.SERVERS) (79 *) () DOMAIN.LOOKUP :D4 (P 5 START.TIME P 4 TIMINGFLG P 3 ADDRESS P 2 ANSWER P 1 RETRYCOUNT P 0 DOMAIN.PATH I 2 SERVER I 1 TYPE I 0 NAME F 6 DOMAIN.RRTYPES) î@ jBA£kb¿`²Q` ¿o` ¿AV`¿o` ¿Bd3’ ` ¿o` ¿@` ¿` ¿Bd—d›‡‘B…`b[ ›K` \»IkÔ¹L“½Jµ HAkKŒgð´ HAkKºLµJdlð–µ!BµJb»jY°ÂMÙ¿°Úgð‘hJdgð²Ù¿Ikð´Ó°(207 IDATE 169 \TCPDOM.QUERY 155 \UDPDOM.QUERY 144 IDATE 130 GETHASH 122 STRINGP 96 TERPRI 89 PRIN1 81 PRIN1 70 PRIN1 64 \IP.ADDRESS.TO.STRING 55 PRIN1 44 PRINTCONSTANT 35 PRIN1 24 FRESHLINE 3 \DOMAIN.PARSE.NAME) (225 USE.TCP 216 NAME.ERROR 159 USE.TCP 127 \DOMAIN.NAMESERVERS 115 \DOMAIN.DEFAULT.SERVER 93 DOMAIN.TRACE.FILE 86 DOMAIN.TRACE.FILE 78 DOMAIN.TRACE.FILE 67 DOMAIN.TRACE.FILE 52 DOMAIN.TRACE.FILE 41 DOMAIN.TRACE.FILE 32 DOMAIN.TRACE.FILE 21 DOMAIN.TRACE.FILE 16 DOMAIN.TRACE.FLG) ( 75 " for " 49 " query to " 29 "Type ") DOMAIN.GRAPHA0001 :D4 (I 1 W I 0 NODE) @µA (11 INSPECT 6 DOMAIN.GRAPH) NIL () DOMAIN.GRAPH :D4 (P 3 NODE P 1 NODELST P 0 OPENLIST I 0 WINDOW F 4 DEFAULT.GRAPH.NODELABELSHADE F 5 DEFAULT.GRAPH.NODEFONT F 6 DEFAULT.GRAPH.NODEBORDER) i`h!HµI`hg@gH¸[É¤o…KÉºKhddThdKÉhUJVhI¹KÉH X°¦(100 \APPEND2 33 SHOWGRAPH 26 LAYOUTGRAPH) (94 DOMAIN.TREE.NODE 68 DOMAIN.TREE.NODE 54 DOMAIN.TREE.NODE 42 DOMAIN.TREE.NODE 30 DOMAIN.GRAPHA0001 23 HORIZONTAL 18 \DOMAIN.ROOT 2 \DOMAIN.ROOT) ( 49 "*ROOT*") DOMAIN.NAME.EQUAL :D4 (P 3 Y P 2 X I 1 NAME2 I 0 NAME1) Q@gð³8Agð³1@¦@ b¿A¦A b¿@¡A¤Aµ@‘hA@"Iµ…ºHµi»JK ´æI¹H¸°ä(69 STRING-EQUAL 30 \DOMAIN.PARSE.NAME 20 \DOMAIN.PARSE.NAME) (10 * 3 *) () DOMAIN.TRACEA0001 :D4 NIL hdNIL (7 DOMAIN.TRACE.FILE 3 DOMAIN.TRACE.FLG) () DOMAIN.TRACE :D4 (I 0 MODE) P` ´ ` °;o ¿g` ¿o` ¿`gg¿`gg¿@(72 PUTWINDOWPROP 59 PUTWINDOWPROP 46 DSPFONT 35 DSPSCROLL 22 CREATEW 13 OPENW 5 WINDOWP) (77 DOMAIN.TRACE.FLG 69 DOMAIN.TRACEA0001 66 CLOSEFN 63 DOMAIN.TRACE.FILE 56 DOMAIN.TRACEWINDOW.BUTTONFN 53 BUTTONEVENTFN 50 DOMAIN.TRACE.FILE 43 DOMAIN.TRACE.FILE 32 DOMAIN.TRACE.FILE 29 ON 25 DOMAIN.TRACE.FILE 10 DOMAIN.TRACE.FILE 2 DOMAIN.TRACE.FILE) ( 40 (GACHA 8) 19 "Domain Trace File") DOMAIN.TRACEWINDOW.BUTTONFN :D4 (I 0 WINDOW) \¿`låHjðµH´H ³=`µi„ið´h@ o@ `ið”oƒo@ o@ @ h(87 TERPRI 83 PRIN1 75 PRIN1 56 PRIN1 48 TERPRI 26 \FZEROP 2 GETMOUSESTATE) (59 DOMAIN.TRACE.FLG 44 DOMAIN.TRACE.FLG 32 DOMAIN.TRACE.FLG 6 LASTMOUSEBUTTONS) ( 79 "]" 71 "off" 66 "on" 52 "[Tracing ") (PRETTYCOMPRINT TCPDOMAINCOMS) (RPAQQ TCPDOMAINCOMS ((COMS (* ;; "TCP/IP Domain resolver implementation. RFC882, RFC883, RFC973")) ( COMS (* ;; "UDP protocol functions") (DECLARE%: DONTCOPY (EXPORT (CONSTANTS (\UDPDOMAIN.WDS 6)) ( RECORDS DOMAIN.HEADER))) (INITVARS (\UDPDOMAIN.IPSOCKET)) (GLOBALVARS \UDPDOMAIN.IPSOCKET) (FILES ( SYSLOAD) TCPUDP) (FNS \UDPDOM.PROCESS.RESPONSE \UDPDOM.QUERY \UDPDOM.IPSOCKET)) (COMS (* ;; "Protocol independent functions") (DECLARE%: DONTCOPY (EXPORT (CONSTANTS * DOMAIN.OPCODES) (CONSTANTS * DOMAIN.RCODES) (CONSTANTS * DOMAIN.RRTYPES) (CONSTANTS * DOMAIN.CLASSTYPES) (CONSTANTS (\DOMAIN.PORT 53)))) (INITVARS (\DOMAIN.DEFAULT.SERVER)) (GLOBALVARS \DOMAIN.DEFAULT.SERVER) (FNS \DOMAIN.NAME \DOMAIN.PACK.NAME.LIST \DOMAIN.PARSE.NAME \DOMAIN.RCODE.ERROR \DOMAIN.PROCESS.REDIRECT \DOMAIN.PROCESS.RESPONSE \DOMAIN.PROCESS.RR \DOMAIN.READ.ADDRESS \DOMAIN.READ.NAME.FROM.STREAM \DOMAIN.READ.STRING.FROM.STREAM \DOMAIN.SEARCH.FOR.CANONICAL.NAME \DOMAIN.SKIP.NAME.IN.STREAM \DOMAIN.SKIP.QUESTION \DOMAIN.SKIP.RR)) (COMS (* ;; "Functions to maintain the domain tree structure") (RECORDS DOMAIN.TREE.NODE DOMAIN.SERVER) (INITRECORDS DOMAIN.TREE.NODE) (FNS USTRINGHASHBITS) ( INITVARS (\DOMAIN.ROOT (create DOMAIN.TREE.NODE NAME _ "")) (\DOMAIN.NAMESERVERS (HASHARRAY 50 1.2 ( FUNCTION USTRINGHASHBITS) (FUNCTION STRING-EQUAL))) (\DOMAIN.UNKNOWN.DOMAINS) (\DOMAIN.GC.INTERVAL 600000) (\DOMAIN.GC.TIMER (SETUPTIMER \DOMAIN.GC.INTERVAL))) (GLOBALVARS \DOMAIN.ROOT \DOMAIN.NAMESERVERS \DOMAIN.UNKNOWN.DOMAINS \DOMAIN.GC.TIMER \DOMAIN.GC.INTERVAL) (FNS \DOMAIN.ADD.NEW.DOMAIN \DOMAIN.ADD.NAMESERVER \DOMAIN.AUGMENT.TREE \DOMAIN.CHOOSE.BEST.SERVERS \DOMAIN.FIND.DOMAIN.IN.TREE \DOMAIN.INIT \DOMAIN.INSERT.IN.TREE \DOMAIN.PATH \DOMAIN.SEARCH.RESOURCE.LIST \DOMAIN.DELETE.NAMESERVER \DOMAIN.AROUND.EXIT \DOMAIN.DELETE.TREE \DOMAIN.BACKGROUND \DOMAIN.GC.NAMESERVERS \DOMAIN.SORT.BY.SVC.TIME) (ADDVARS (BACKGROUNDFNS \DOMAIN.BACKGROUND))) (COMS (* ;; "Programmer's interface") (INITVARS (DOMAIN.TRACE.FLG) ( DOMAIN.TRACE.FILE) (INTERNET.LOCAL.DOMAIN)) (GLOBALVARS DOMAIN.TRACE.FLG DOMAIN.TRACE.FILE INTERNET.LOCAL.DOMAIN) (FNS DOMAIN.INIT DOMAIN.LOOKUP.ADDRESS DOMAIN.LOOKUP.NAMESERVER DOMAIN.LOOKUP.OSTYPE DOMAIN.LOOKUP DOMAIN.GRAPH DOMAIN.NAME.EQUAL DOMAIN.TRACE DOMAIN.TRACEWINDOW.BUTTONFN)) (P (DOMAIN.INIT)))) (RPAQ? \UDPDOMAIN.IPSOCKET) (FILESLOAD (SYSLOAD) TCPUDP) (RPAQ? \DOMAIN.DEFAULT.SERVER) (DATATYPE DOMAIN.TREE.NODE ((NAME POINTER) (* The name of this domain) (SUBDOMAINS POINTER) (* List of domains inferior to this one) (SUPERDOMAIN POINTER) (* The domain of which this domain is a part) ( NAMESERVERS POINTER) (* The list of designated name servers for this domain))) (RECORD DOMAIN.SERVER (NAME ADDRESSES EXPIRATION.DATE FOR.DOMAINS AVG.SVC.TIME) AVG.SVC.TIME _ 0) (/DECLAREDATATYPE (QUOTE DOMAIN.TREE.NODE) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( DOMAIN.TREE.NODE 0 POINTER) (DOMAIN.TREE.NODE 2 POINTER) (DOMAIN.TREE.NODE 4 POINTER) ( DOMAIN.TREE.NODE 6 POINTER))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE DOMAIN.TREE.NODE) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( DOMAIN.TREE.NODE 0 POINTER) (DOMAIN.TREE.NODE 2 POINTER) (DOMAIN.TREE.NODE 4 POINTER) ( DOMAIN.TREE.NODE 6 POINTER))) (QUOTE 8)) (RPAQ? \DOMAIN.ROOT (create DOMAIN.TREE.NODE NAME _ "")) (RPAQ? \DOMAIN.NAMESERVERS (HASHARRAY 50 1.2 (FUNCTION USTRINGHASHBITS) (FUNCTION STRING-EQUAL))) (RPAQ? \DOMAIN.UNKNOWN.DOMAINS) (RPAQ? \DOMAIN.GC.INTERVAL 600000) (RPAQ? \DOMAIN.GC.TIMER (SETUPTIMER \DOMAIN.GC.INTERVAL)) (ADDTOVAR BACKGROUNDFNS \DOMAIN.BACKGROUND) (RPAQ? DOMAIN.TRACE.FLG) (RPAQ? DOMAIN.TRACE.FILE) (RPAQ? INTERNET.LOCAL.DOMAIN) (DOMAIN.INIT) (PUTPROPS TCPDOMAIN COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL