(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "17-Apr-87 11:39:32" ("compiled on " {ERIS}LIBRARY>MINISERVE.;3) "15-Apr-87 23:01:32" brecompiled changes%: \NSTIMESERVER \HANDLE.NS.TIMEREQ \GET.PUP#.FROM.NS# in "Xerox Lisp 15-Apr-87 ..." dated "15-Apr-87 23:25:13") (FILECREATED "17-Apr-87 11:37:51" {ERIS}LIBRARY>MINISERVE.;3 15948 changes to%: (FNS \GET.PUP#.FROM.NS# \NSTIMESERVER \HANDLE.NS.TIMEREQ) (VARS MINISERVECOMS) previous date%: "12-Jun-84 15:43:13" {ERIS}LIBRARY>MINISERVE.;1) STARTMINISERVER :D4 NIL *ogg ogg ogg i(38 ADD.PROCESS 25 ADD.PROCESS 12 ADD.PROCESS) (35 HARDRESET 32 RESTARTABLE 22 HARDRESET 19 RESTARTABLE 9 HARDRESET 6 RESTARTABLE) ( 29 (\PUP.ID.SERVER) 16 (\NSTIMESERVER) 3 (\PUPTIMESERVER)) \NSTIMESERVERA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 EVENT P 1 XIP P 0 SOC I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 TRACEFLG) 4li !gHhhdScH ZH Y˜HIT ¿°óJ ¿°ì(47 AWAIT.EVENT 40 \HANDLE.NS.TIMEREQ 32 GETXIP 27 NSOCKETEVENT 5 OPENNSOCKET) (11 CLOSENSOCKET) () \NSTIMESERVER :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TRACEFLG F 2 LISPXHIST) Rg ¿ (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \NSTIMESERVERA0001) (6 SI::RESETUNWIND) () \HANDLE.NS.TIMEREQ :D4 (P 1 TIME P 0 BUF I 2 TRACEFLG I 1 XIP I 0 SOC) Al-ÐAÊ ‡lð¨AÊ ‡l{ð²*HÈkð²#`lð›`È7j hð€i›`Al)Ð ô–A ±»B²$oB ¿Al)Ð B hihB ¿B ¿oæ¹Al<Í¿HlÍ¿HlÍ¿j`ñ’HkHjÍ¿H` Í¿HjÍ ¿H`Í ¿H`Í ¿HIÈÍ¿HIÈÍ¿HjÍ ¿HnÿÿÍ ¿HnÿÿÍ¿A ¿Al)Ð` ¿AlÐl ` ¿Ag¿@A h(254 SENDXIP 238 \PUTBASEFIXP 225 \STORENSHOSTNUMBER 214 SWAPXIPADDRESSES 155 ABS 110 IDATE 106 TERPRI 101 PRINTDEF 93 POSITION 89 \LOADNSHOSTNUMBER 81 PRIN1 67 RELEASE.XIP 61 \LOADNSHOSTNUMBER 46 EQP) (246 FREE 243 ETHERPACKET 235 \MY.NSNETNUMBER 222 \MY.NSHOSTNUMBER 174 \EndDST 167 \BeginDST 152 \TimeZoneComp 138 \TimeZoneComp 54 \MY.NSHOSTNUMBER 40 \IOPAGE 33 \MACHINETYPE) ( 114 -2147483648 77 "Serving time to ") \PUPTIMESERVER :D4 (P 2 PUP P 1 EVENT P 0 PUPSOC F 3 SI::*RESETFORMS*) ?li !gHhhdSc¿H Y¿H ZµI °ôʇl†ð•HJ ¿°â(59 BLOCK 55 \HANDLE.PUP.ALTOTIMEREQ 41 AWAIT.EVENT 34 GETPUP 28 PUPSOCKETEVENT 5 OPENPUPSOCKET) (11 CLOSEPUPSOCKET) () \HANDLE.PUP.ALTOTIMEREQ :D4 (P 1 TIME P 0 DATA I 1 PUP I 0 MISCSOC) jAl(ÐoæA HI ÍHI Íj`óœHkÏ¿Hj`Ù‰HjÏ¿H`Ï¿HjχH`ÍH`ÍAl‡Ï‡Al Í@A A h(102 \RELEASE.ETHERPACKET 98 SENDPUP 30 \LONUM 23 \HINUM 18 SWAPPUPPORTS 6 IDATE) (80 \EndDST 74 \BeginDST 61 \TimeZoneComp 49 \TimeZoneComp 36 \TimeZoneComp) ( 10 -2147483648) \PUP.ID.SERVERA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 EVENT P 1 XIP P 0 SOC I 0 SI::*CLEANUP-FORMS* F 3 TRACEFLG F 4 SI::*RESETFORMS*) rl i !gHhhdTc¿S²oS ¿S ¿S ¿`¬`µg ² H Z¿H Y²HIS °ò ¿°äo °ÈJ °Ú(110 AWAIT.EVENT 104 ERROR 91 READFILE 86 \HANDLE.PUP.LOOKUP 77 GETXIP 71 NSOCKETEVENT 65 \DEFINEDP 48 TERPRI 43 PRIN1 39 DATE 35 PRIN1 5 OPENNSOCKET) (94 NS.TO.PUP.ALIST 62 NetDirNameLookup 57 NS.TO.PUP.FILE 52 NS.TO.PUP.ALIST 11 CLOSENSOCKET) ( 101 "NS.TO.PUP.ALIST is empty, and there is no NS.TO.PUP.FILE to read from" 31 "Pup ID server started at ") \PUP.ID.SERVER :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TRACEFLG F 2 LISPXHIST) Rg ¿ (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \PUP.ID.SERVERA0001) (6 SI::RESETUNWIND) () \HANDLE.PUP.LOOKUP :D4 (P 2 NSHOST# P 1 PUP# P 0 BUF I 2 TRACEFILE I 1 XIP I 0 NSOC) ¿0AÊ ‡lð•AÈ/kð¦A ±¢Al0Ð Z Y¢±”`²!`IlÿåJj h`É¿Al*Í¿AlÍ/¿Al0ÐXIÍ¿HjÍ¿HjÍ¿B²JB ¿oB ¿I B ¿B ¿A ¿Al)Ð` ¿AlÐl ` ¿Ag¿@A hA (188 RELEASE.XIP 182 SENDXIP 166 \PUTBASEFIXP 153 \STORENSHOSTNUMBER 142 SWAPXIPADDRESSES 137 TERPRI 132 PRIN1 128 PORTSTRING 123 PRIN1 114 PRINTNSHOSTNUMBER 59 CLOCK 34 \GET.PUP#.FROM.NS# 30 \LOADNSHOSTNUMBER 20 RELEASE.XIP) (174 FREE 171 ETHERPACKET 163 \MY.NSNETNUMBER 150 \MY.NSHOSTNUMBER 69 NDB 66 \10MBLOCALNDB 50 NDB 47 \10MBLOCALNDB 42 \10MBLOCALNDB) ( 119 " = ") \GET.PUP#.FROM.NS# :D4 (I 0 NSHOST#) @` (6 SASSOC) (3 NS.TO.PUP.ALIST) () (PRETTYCOMPRINT MINISERVECOMS) (RPAQQ MINISERVECOMS ((FNS STARTMINISERVER) (FNS \NSTIMESERVER \HANDLE.NS.TIMEREQ) (FNS \PUPTIMESERVER \HANDLE.PUP.ALTOTIMEREQ) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS TIMEPUPCONTENTS TIMEXIP) ( CONSTANTS \TIMESOCKET \XIPT.EXCHANGE \EXTYPE.TIME \XIPT.OLDTIME \TIMEVERSION \TIMEOP.TIMEREQUEST \TIMEOP.TIMERESPONSE \NSTIMELENGTH) (CONSTANTS \PUPSOCKET.MISCSERVICES \PT.ALTOTIMEREQUEST \PT.ALTOTIMERESPONSE \PUPOVLEN \TIMEPUPLENGTH) (GLOBALVARS \BeginDST \EndDST \TimeZoneComp)) (COMS (* PUPIDSERVER) (FNS \PUP.ID.SERVER \HANDLE.PUP.LOOKUP \GET.PUP#.FROM.NS#) (INITVARS NS.TO.PUP.ALIST NS.TO.PUP.FILE) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS NS.TO.PUP.ALIST NS.TO.PUP.FILE) (FILES ( LOADCOMP) LLNS))))) (RPAQ? NS.TO.PUP.ALIST NIL) (RPAQ? NS.TO.PUP.FILE NIL) (PUTPROPS MINISERVE COPYRIGHT ("Xerox Corporation" 1984 1987)) NIL