(FILECREATED " 3-Aug-84 18:18:28" ("compiled on " {ERIS}LIBRARY>EVALSERVER.;9) " 1-Aug-84 17:04:49" recompiled changes: \ES.UNCACHE \ES.BroadAppSweeper \ES.ApplicantValid? in "INTERLISP-D 2-Aug-84 ..." dated " 2-Aug-84 22:52:56") (FILECREATED " 3-Aug-84 18:16:48" {ERIS}LIBRARY>EVALSERVER.;9 78275 changes to: (FNS \ES.UNCACHE \ES.BroadAppSweeper \ES.ApplicantValid?) (VARS EVALSERVERCOMS) previous date: "12-Jul-84 22:41:24" {ERIS}LIBRARY>EVALSERVER.;4) ORDINALSUFFIXSTRING.ES D1 (L (0 N)) Cj@@j@bl@ddlo@l bdkolo@looNIL NIL ( 100Q "th" 73Q "rd" 61Q "nd" 50Q "st" 31Q "th") PRIN4.INTO.STRING D1 (L (1 MAX#CHARS.WANTED? 0 FORM) P 5 P4STRPTR I 2 OLDSTRING) PBBAndIIb0AlA!`dhh@Ji X bk b`Uj \BBBMNMOMO@H MOٻ@OKNOKl ǿKkػBKLBh(173Q \P4S.FOOT 125Q ALLOCSTRING 111Q ALLOCSTRING 102Q LENGTH 73Q DCHCON) (250Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 242Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 146Q STRINGP 117Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 77Q \\P4S.SCRATCHLIST.GLOBALRESOURCE 60Q \\P4S.SCRATCHLIST.GLOBALRESOURCE 52Q \\P4S.SCRATCHLIST.GLOBALRESOURCE) () \P4S.FOOT D1 (L (2 FN 1 CHARSLIST 0 FORM)) Ag@i d h(20Q \P4S.PERCHAR 12Q \MAPCHARS) (5 \P4S.PERCHAR) () \P4S.PERCHAR D1 (L (0 C) F 3 P4STRPTR) *SSkjIg SH@SISHkZJ(24Q RETFROM) (21Q \P4S.FOOT) () \UNTCONC D1 (L (1 ITEM 0 QUEUE)) J@d;@ d@ h@@HAHJ@HHI@JiHHZX(25Q \ILLEGAL.ARG 12Q \ILLEGAL.ARG) NIL () READ.FROM.PUP D1 (L (1 DATASTARTBYTE 0 PUP)) @bg V`Jjddg !H@HdlP@lY IHdlPAdjZJH Hhj @lH@l(HAAjIHAIAH Hh` (224Q PUTHASH 214Q READ 145Q ALLOCSTRING 124Q READ 33Q \MAKEBASEBYTESTREAM 13Q DEFINEDP) (221Q \STRINGOFDS 136Q \\READPUPSTREAM.GLOBALRESOURCE 130Q \\READPUPSTREAM.GLOBALRESOURCE 73Q STREAM 30Q INPUT 20Q \\READPUPSTREAM.GLOBALRESOURCE 10Q \MAKEBASEBYTESTREAM 3 ETHERPACKET) () PRINT.INTO.PUPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 4 PUP F 5 DATASTARTBYTE F 6 WINP F 7 PRINFN F 10Q FORM) ~`dhjdg 1lPHTHdKnY IKUdTlػHKHKHjWgWHlJTldHic Hi(22Q \MAKEBASEBYTESTREAM) (172Q \\WRITEPUPSTREAM.GLOBALRESOURCE 132Q PRIN4 117Q STREAM 102Q STREAM 17Q OUTPUT 10Q \\WRITEPUPSTREAM.GLOBALRESOURCE 2 \\WRITEPUPSTREAM.GLOBALRESOURCE) () PRINT.INTO.PUP D1 (L (4 NOERRORFLG) P 4 \INTERRUPTABLE P 0 WINP I 3 PRINFN I 2 DATASTARTBYTE I 1 PUP I 0 FORM) Ab0Cdgzh`j BnAlٍhnBlٹKAl(KBdAlKI@IK KIJAldJiKg g o HiDo@ h(255Q ERROR 236Q PRINT.INTO.PUPA0001 226Q ERROR 217Q DEFINEDP 153Q PRIN4.INTO.STRING 34Q ALLOCSTRING) (223Q \MAKEBASEBYTESTREAM 214Q \MAKEBASEBYTESTREAM 206Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 141Q STRINGP 113Q STRINGP 100Q STRINGP 60Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 26Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 16Q PRIN4 3 ETHERPACKET) ( 251Q "Form too big to Print into pup" 233Q (DUMMY.FOR.ERRORSET)) \ES.LOCALHOSTNUMBER D1 (F 0 \LOCALPUPNETHOST) PPlNIL (12Q \ES.LOCALHOSTNUMBER) () \HNM.MEMBER D1 (L (1 L 0 HNM)) H@d@l AHhYd#di@`i dI @IjiHX(70Q ETHERHOSTNUMBER 54Q \ES.LOCALHOSTNUMBER 15Q \LISPERROR) (46Q \ES.LOCALHOSTNUMBER) () \NORMALIZEHOSTNUM D1 (L (1 DEFAULTADDRESS 0 X)) 4@Ai`'i @dj`i  A @o (61Q ERROR 44Q ETHERHOSTNUMBER 40Q \BROADCASTADDRESS.ON.MYNET 20Q \ES.LOCALHOSTNUMBER) (32Q \BROADCASTADDRESS.ON.MYNET 12Q \ES.LOCALHOSTNUMBER) ( 56Q "Not a valid Network Host identification") \BROADCASTADDRESS.ON.MYNET D1 (F 0 \LOCALPUPNETHOST) PNIL (5 \BROADCASTADDRESS.ON.MYNET) () \GETFILTEREDPUP D1 (L (5 TRACEINFO 4 WAITINGTIME? 3 PUP? 2 ID 1 TYPESLST 0 SOC) P 4 PX) `El j10Cg`}`@@ Oh\dCgaih_OO$AOO#7ABO OOOOhOOlYIjOiO_``O"LO0O &`OOO`O Cgi0OO_ _LC`C EM `ME MHgM iDi(MlBBMl[KjoM W`Mj  hCN@ Ni Ng h DdpHlHl D^iY@ ]Di@ iAMAbBBMlZJjLCgCdg.`Mj  g(770Q TCONC 764Q CLOCK 660Q AWAIT.EVENT 655Q PUPSOCKETEVENT 641Q GETPUP 624Q \CLOCK0 567Q TIMEREXPIRED? 557Q AWAIT.EVENT 552Q PUPSOCKETEVENT 533Q TCONC 527Q CLOCK 514Q ERROR 440Q RELEASE.PUP 415Q \ES.PRINTRACE 376Q RELEASE.PUP 326Q BLOCK 12Q \CLOCK0) (777Q NEW 773Q \PUPINQUEUE 757Q \PUPINQUEUE 746Q NEW 737Q ? 665Q ETHERPACKET 564Q MILLISECONDS 536Q \PUPINQUEUE 522Q \PUPINQUEUE 431Q DELETE 424Q \\GFP.TIMER.GLOBALRESOURCE 407Q \ES.TRACE? 370Q ETHERPACKETTYPE# 333Q DELETE 316Q \PUPINQUEUE 300Q \PUPINQUEUE 251Q \PUPINQUEUE 245Q \PUPINQUEUE 113Q \\GFP.TIMER.GLOBALRESOURCE 100Q ? 46Q \PUPINQUEUE 36Q \PUPINQUEUE 26Q NEW 2 \\GFP.TIMER.GLOBALRESOURCE) ( 510Q "Error PUP received during indefinite wait") \SENDUNFILTEREDPUP D1 (L (2 TRACEINFO 1 PUP 0 SOC)) @A `ABdo h(26Q \ES.PRINTRACE 4 SENDPUP) (7 \ES.TRACE?) ( 23Q (\SENDUNFILTEREDPUP)) \ES.GETSOCKET D1 NIL #l jHHoHg Hk(32Q OPENPUPSOCKET 5 \CLOCK0) (27Q DONT) ( 21Q -20000000000Q) \ES.RELEASE.OUTPUT.PUP D1 (L (0 X)) @j@ h(13Q RELEASE.PUP) NIL () REMOTEVAL D1 (L (3 TIMEOUT.ms 2 MULTIPLE.RESPONSES? 1 SERVERHOST 0 FORM)) Bkb@o@dd@d ;`i HiHJ`AH bHAHo bAH IAnBjlˁlhJ Il_O@I Cl C_J k`Cl C___ko*OOln>O_oOd o oJIK JoMhO \OO`g l`Lo Ll_O L%bl_kHBdjIANlMJ Il(Ildk_Olkǿk`COlOOkر l C___JIo JoMLO \O O`Jg l"`Lo JOIL Lo `Lo BjgOkذgAJMCOk BjJOIL MJoMLio IANlMJ JIo gAJMCOk Ld LJOIL dlKloK o Ko@ JOIL @o (1312Q ERROR 1301Q \ES.EXITREMOTEVAL 1270Q ERROR 1254Q CONCAT 1245Q ERRORSTRING 1217Q \ES.EXITREMOTEVAL 1202Q READ.FROM.PUP 1173Q \ES.AddSweeping 1153Q \SENDUNFILTEREDPUP 1141Q SETUPPUP 1125Q \GETFILTEREDPUP 1103Q \ES.EXITREMOTEVAL 1066Q \ES.AddSweeping 1030Q \ES.PRINTRACE 1012Q ERROR 1001Q \ES.EXITREMOTEVAL 770Q \ES.PRINTRACE 742Q TIMEREXPIRED? 714Q BLOCK 706Q \GETFILTEREDPUP 670Q \SENDUNFILTEREDPUP 644Q \CLOCK0 553Q SETUPPUP 465Q \ES.PRINTRACE 435Q TIMEREXPIRED? 403Q \GETFILTEREDPUP 365Q \SENDUNFILTEREDPUP 351Q CONCAT 342Q ORDINALSUFFIXSTRING 263Q \CLOCK0 246Q DISCARDPUPS 235Q \CLOCK0 224Q PRINT.INTO.PUP 200Q SETUPPUP 153Q EQUAL 142Q ERROR 120Q \NORMALIZEHOSTNUM 77Q \ES.GETSOCKET 57Q ALLOCATE.PUP 54Q \BROADCASTADDRESS.ON.MYNET 40Q DEFEVAL) (1157Q \ES.Re-acknowledge.service 1052Q \ES.RejectApplicants 1040Q \ES.IgnoreApplicants 1017Q \ES.TRACE? 757Q \ES.TRACE? 737Q MILLISECONDS 726Q \MAXETHERTRIES 612Q \ETHERTIMEOUT 454Q \ES.TRACE? 432Q MILLISECONDS 417Q \MAXETHERTRIES 253Q \ETHERTIMEOUT 112Q \ES.LOSTSOCKETSLST 106Q \ES.LOSTSOCKETSLST 66Q ETHERPACKET 46Q \BROADCASTADDRESS.ON.MYNET) ( 1307Q "Remote EVAL request timed out" 1264Q "Remote EVALuation failed to return." 1251Q "%"" 1240Q "Returned from Remote EVALuation with Error msg %"" 1150Q ("Client Sends Acknowledgement for Services Rendered" REMOTEVAL) 1121Q ("=== Client Gets Results in Hand!" REMOTEVAL) 1112Q (312Q 314Q) 1025Q ("=== Client knows that applicant knows he's selected." REMOTEVAL) 1007Q "Error PUP" 765Q ("*** Server Errors-out on Connection Request" REMOTEVAL) 676Q (315Q 4) 665Q ("=== Client Certifies applicant for broadcast Request" REMOTEVAL) 462Q ("=== Client Receives Acknowledgement of Request: " REMOTEVAL) 373Q (311Q 4) 355Q (REMOTEVAL) 346Q " time:" 334Q "=== Client Re-Dispatches Eval Request for " 304Q ("=== Client Dispatches an Eval Request:" REMOTEVAL) 137Q " is not a suitable value for the variable: FORM" 13Q (5 4)) \ES.EXITREMOTEVAL D1 (L (3 pup2 2 pup1 1 EXIT.REFCOUNT? 0 MY.TRANSCEIVER) P 0 \INTERRUPTABLE) MAjAkj0 @```Y@IIid@ BB CC iI(105Q \ES.RELEASE.OUTPUT.PUP 76Q \ES.RELEASE.OUTPUT.PUP 67Q \ES.CLOSEOUTSOCKET) (40Q \ES.LOSTSOCKETSLST 33Q \ES.LOSTSOCKETSLST 27Q \ES.LOSTSOCKETSLST 21Q \ES.LOSTSOCKETSLST) () \ES.CLOSEOUTSOCKET D1 (L (0 SOC)) @`@ @dhdg @i (35Q CLOSEPUPSOCKET 25Q \GETFILTEREDPUP 13Q DISCARDPUPS) (22Q DELETE 4 PUPSOCKETTYPE#) () \ES.UNCACHE D1 NIL hddNIL (13Q \ES.LOSTSOCKETSLST 7 \ES.LOCALHOSTNUMBER 3 \BROADCASTADDRESS.ON.MYNET) () REMOTEABORT D1 (L (1 SERVERHOST 0 TRANSACTION#) F 3 \PUPCOUNTER) o@dd @b"nS@n` i @l `i @HZAI bdIJo gJ`i hA (154Q REMOTEVAL 144Q \ES.LOCALHOSTNUMBER 126Q ERROR 110Q \NORMALIZEHOSTNUM 74Q \BROADCASTADDRESS.ON.MYNET 63Q \LISPERROR 54Q \ES.LOCALHOSTNUMBER 14Q ETHERHOSTNUMBER) (136Q \ES.LOCALHOSTNUMBER 132Q \ES.ABORTQQ 66Q \BROADCASTADDRESS.ON.MYNET 46Q \ES.LOCALHOSTNUMBER) ( 123Q "Can't broadcast a REMOTEABORT.") REMOTEAPPLY D1 (L (3 MULTIPLE.RESPONSES? 2 HOST 1 ARGS 0 FUN)) g@ABC (13Q REMOTEVAL) (2 \ES.APPLYQQ) () \ES.APPLYQQ D1 (L (0 L)) @@ (6 APPLY) NIL () EVALSERVERA0001 D1 (L (0 X)) @ oHhdi @ (30Q DEL.PROCESS 22Q STRPOS 3 PROCESS.NAME) NIL ( 12Q "EvalService.") EVALSERVER D1 (L (2 GAGGEDCLIENTSLST 1 CLIENTSLST 0 DURATION.MINUTES) F 2 EVALSERVER) b`AB@d@n`HhYH:g g g hgIgggi chgI h(136Q APPLY 122Q ADD.PROCESS 71Q MAP.PROCESSES 62Q DEL.PROCESS 57Q FIND.PROCESS 50Q DEL.PROCESS 45Q FIND.PROCESS) (132Q \ES.LISTENER 115Q RESTARTABLE 112Q EvalServerListening 107Q NAME 102Q \ES.LISTENER 76Q \ES.BroadSweepQ 66Q EVALSERVERA0001 54Q \ES.BroadAppSweeper 42Q EvalServerListening 2 \RUNNING.PROCESS) () \ES.LISTENERA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ARGL F 1 RESETY) gP ci(6 APPLY) (2 \ES.DO1THING) () \ES.LISTENER D1 (L (3 PROCP 2 DURATION 1 GAGS 0 CLIENTSLST) P 23Q RESETY P 22Q LISPXHIST P 11Q ARGL P 0 \INTERRUPTABLE F 25Q \ES.EXECTTYWINDOWSTREAM F 26Q EvalServerClientHosts F 27Q EvalServerGaggedHosts F 30Q \ES.CurrentlyPendingService F 31Q LISPXHIST F 32Q RESETVARSLST) ``hd h`n`i l @i^][Jh@ ih@ bi@ i^@ b0@d _O Oh_O&_Ob@ _=@l hA hA bhiA iA b`i Abh0A"hbd _O Oh_"O&_ O" bni  ` l I` oohi  l Bo_Og dKLi `ohO _"Lg hI LlL%_jJO"MhW,hW.hNOd@ W, OA OW. Oh_h_CCgOgoOoOloOl_O  gg GW2!W4og hg_( O(W0W0` g _Ohi `Oo l IBg g c*W* c*Bh(1256Q BLOCK 1246Q \INSUREWINDOW 1236Q PROCESSPROP 1230Q FIND.PROCESS 1214Q \CLOCK0 1202Q \ES.PRINTRACE 1156Q RETFROM 1141Q STKPOS 1127Q MEMBER 1107Q ERROR! 1100Q RESETRESTORE 1065Q \ES.LISTENERA0002 1040Q ADD.PROCESS 1026Q MKATOM 1023Q CONCAT 721Q \HNM.MEMBER 706Q MEMBER 674Q \HNM.MEMBER 666Q MEMBER 572Q \ES.PURGEOLDTHINGS 563Q TIMEREXPIRED? 553Q BLOCK 544Q \GETFILTEREDPUP 526Q AWAIT.EVENT 514Q TIMEREXPIRED? 471Q \CLOCK0 455Q \INSUREWINDOW 447Q CREATEW 430Q DISPLAYSTREAMP 417Q \CLOCK0 410Q DISCARDPUPS 401Q PUPSOCKETEVENT 373Q OPENPUPSOCKET 361Q DREMOVE 323Q ETHERHOSTNUMBER 274Q \ES.LOCALHOSTNUMBER 260Q REMOVE 251Q MEMB 237Q REMOVE 231Q MEMB 223Q \LISPERROR 211Q ETHERHOSTNUMBER 147Q \NORMALIZEHOSTNUM 131Q REMOVE 122Q MEMB 112Q REMOVE 102Q MEMB 54Q \BROADCASTADDRESS.ON.MYNET 25Q \ES.CLOSEOUTSOCKET) (1233Q WINDOW 1225Q EXEC 1165Q \ES.TRACE? 1136Q \ES.DO1THING 1124Q \ES.PENDINGSERVICES 1073Q ERROR 1062Q INTERNAL 1034Q NO 1031Q RESTARTABLE 754Q NAME 746Q \ES.DO1THING 560Q MILLISECONDS 532Q \EVALREQUEST.SOCKET 511Q MILLISECONDS 462Q \ES.TTYWINDOWSTREAM 452Q \ES.TTYWINDOW 425Q \ES.TTYWINDOWSTREAM 405Q \EVALREQUEST.SOCKET 376Q \EVALREQUEST.SOCKET 266Q \ES.LOCALHOSTNUMBER 46Q \BROADCASTADDRESS.ON.MYNET 37Q \ES.PURGEINTERVAL.SECS 16Q \ES.LOSTSOCKETSLST 12Q \ES.LOSTSOCKETSLST 2 \ES.LOSTSOCKETSLST) ( 1177Q ("=== EvalServer Rejects Request:" \ES.LISTENER) 1057Q (DUMMY.FOR.ERRORSET) 1000Q "." 767Q "#" 760Q "EvalService." 536Q (310Q 313Q) 500Q 17777777777Q 442Q "TTY Window for REMOTEVAL services" 436Q (226Q 43Q 764Q 454Q)) \ES.DO1THINGA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FluidVariableForInterlospLissage) P h(6 EVAL 3 READ.FROM.PUP) NIL () \ES.DO1THING D1 (P 15Q \INTERRUPTABLE P 11Q \ES.CurrentlyPendingService I 0 FluidVariableForInterlospLissage F 25Q RESETVARSLST) ` HiH@%@lHH @lHH``i l@"gX KI_ O` Od` i_*gLgj Ohh_``LOoOhW*c*`@Ooo HIJlKO OHOoo OO nM@l}``"k_ O O~OoKO"O _"OHo O k_ O`_lO"O"l(jjHlOHo gIOK o _@lgO_l_HIJOKO OHhdg ;HlHloHhg O knHll Hhg ``k_(O(O$q` o` ` o` I ` o` K` ON @@ HH Lth g_lʱ)OHo OoK@O& bO(k_(O&`_&Yl`@o `@o g^w(1334Q \ES.PRINTRACE 1316Q \ES.PRINTRACE 1243Q \GETFILTEREDPUP 1224Q BLOCK 1220Q \SENDUNFILTEREDPUP 1166Q PROCESS.RETURN 1156Q \ES.RELEASE.OUTPUT.PUP 1147Q RELEASE.PUP 1140Q \ES.DELETE1PENDING 1130Q PRIN1 1120Q PRIN1 1105Q PRIN1 1077Q ETHERHOSTNAME 1072Q PRIN1 1057Q TERPRI 1050Q PRIN1 1035Q TERPRI 1002Q PRINT.INTO.PUP 772Q SUBSTRING 751Q MKSTRING 743Q PRINT.INTO.PUP 710Q PRINT.INTO.PUP 673Q SETUPPUP 647Q ERRORN 605Q \ES.DO1THINGA0003 575Q \ES.AddSweeping 562Q \SENDUNFILTEREDPUP 470Q \SENDUNFILTEREDPUP 452Q \GETFILTEREDPUP 406Q BLOCK 362Q \ES.CLOSEOUTSOCKET 351Q \SENDUNFILTEREDPUP 326Q SETUPPUP 311Q \ES.PRINTRACE 235Q \ES.INVALIDATE.STATUSW 202Q CLOCK 156Q SASSOC 144Q SASSOC 120Q \ES.GETSOCKET 102Q \BROADCASTADDRESS.ON.MYNET 10Q ALLOCATE.PUP 5 TTYDISPLAYSTREAM) (1340Q COMPLETED.NORESULT 1323Q \ES.TRACE? 1304Q \ES.TRACE? 1263Q \ETHERTIMEOUT 1172Q ABORTED 1125Q \ES.MESSAGESTREAM 1115Q \ES.MESSAGESTREAM 1102Q \ES.MESSAGESTREAM 1067Q \ES.MESSAGESTREAM 1054Q \ES.MESSAGESTREAM 1045Q \ES.MESSAGESTREAM 1032Q \ES.MESSAGESTREAM 1011Q \ETHERTIMEOUT 1006Q \MAXETHERTRIES 777Q PRIN1 740Q PRIN1 704Q NOERROR 623Q COMPLETED.NORESULT 566Q \ES.ApplicantValid? 505Q \ETHERTIMEOUT 415Q \ETHERTIMEOUT 412Q \MAXETHERTRIES 267Q \ES.TRACE? 231Q EVALSERVER.STATUS.WINDOW 225Q \ES.PENDINGSERVICES 221Q \ES.PENDINGSERVICES 176Q RUNNING 170Q TRANSACTIONNOTE 153Q \ES.COMPLETEDSERVICES 141Q \ES.PENDINGSERVICES 115Q COMPLETED 74Q \BROADCASTADDRESS.ON.MYNET 71Q \RUNNING.PROCESS 17Q ETHERPACKET 2 \ES.TTYWINDOWSTREAM) ( 1331Q ("*** Client Aborts Before Receiving Results" \ES.DO1THING) 1313Q ("Ah, Received Client's Acknowledgement of Results:" \ES.DO1THING) 1233Q (311Q 4) 1215Q ("=== EvalServer Sends Result: " \ES.DO1THING) 1112Q ", TRANSACTION# = " 1064Q " HOSTNAME: " 1042Q "No acknowledgement for Remote Eval service performed." 733Q "Result too large to fit into PUP -- first few characters of it are: " 602Q (DUMMY.FOR.ERRORSET) 557Q ("=== EvalServer acknowledges certification re broadcast:" \ES.DO1THING) 465Q ("=== EvalServer Re-Sends Acknowledgement of Receipt:" \ES.DO1THING) 441Q (315Q) 346Q ("=== EvalServer Sends Acknowledgement of Receipt:" \ES.DO1THING) 341Q ("=== EvalServer Re-Sends Acknowledgement of Receipt:" \ES.DO1THING) 306Q ("=== EvalServer Receives Request:" \ES.LISTENER) 301Q ("=== EvalServer Receives Duplicate Request:" \ES.LISTENER) 251Q (AND RESETSTATE (\ES.ABORTPENDING OLDVALUE))) \ES.ABORTQQ D1 (L (0 L)) g@ (6 APPLY) (2 EVALSERVER.ABORT) () EVALSERVER.ABORT D1 (L (2 ERRORFLG 1 GUILTYPARTY 0 TRANSACTION#)) P@ddd@ @b"`` !M*OihOX@HYd` Z8I` g@N OiN_M]oBAIK 8gJAddl Ago h goBJL h(275Q ERROR 253Q APPLY 245Q SUBST 230Q ETHERHOSTNAME 204Q ERROR 147Q EQP 130Q SASSOC 116Q SASSOC 57Q \APPEND2 33Q ETHERHOSTNUMBER) (257Q ABORTED 236Q GUILTYPARTY 212Q \ES.ABORTPENDING 135Q ALREADY.COMPLETED 125Q \ES.COMPLETEDSERVICES 113Q \ES.PENDINGSERVICES 54Q \ES.COMPLETEDSERVICES 51Q \ES.PENDINGSERVICES) ( 264Q "EvalService with this transaction ID seems to be wedged." 242Q (ABORTED REMOTELY BY GUILTYPARTY) 173Q "No EvalService with this transaction ID in progress.") EVALSERVER.STATUS D1 (L (1 ID 0 WHEREPENDINGFLG))  @gbp@do W0 `=dAAJjJ gJd` hhh_ObO__OXgHI@o ```d`ni `oAg g0 ` _Od]X$nVH#jOHoDAAHl[Kj0gHl\LH%X HhgM nhh_O,O__OXgHI@o g0 `O _OdAAN 'N gNNXd:ghhh_OO__OXgHIYI _O n۰(677Q CLOCKDIFFERENCE 665Q LAST 557Q \ES.MakeClientHostInfo 551Q EQP 526Q LAST 511Q MEMB 427Q CLOCKDIFFERENCE 410Q ETHERHOSTNAME 276Q BLOCK 264Q LAST 241Q \GETFILTEREDPUP 217Q OPENPUPSOCKET 161Q MEMB 101Q PROCESS.NAME 60Q \ES.MakeClientHostInfo 23Q MEMB) (653Q Completed.Transactions: 607Q ? 562Q HowStop.#Seconds: 521Q \ES.COMPLETEDSERVICES 474Q EvalServer.InputQueue: 422Q #Secs.on.this.Queue: 366Q ID#.ClientHost: 255Q \PUPINQUEUE 244Q NEW 236Q NEW 226Q \EVALREQUEST.SOCKET 222Q \EVALREQUEST.SOCKET 205Q \PUPSOCKETS 201Q \EVALREQUEST.SOCKET 174Q PUPSOCKETTYPE# 170Q \EVALREQUEST.SOCKET 144Q CurrentlyRunning.Transactions: 74Q PROCESSTYPE# 63Q Process: 34Q \ES.PENDINGSERVICES 4 ALL) ( 506Q (ALL DONE COMPLETED FINISHED) 334Q (310Q 313Q) 232Q (310Q) 156Q (ALL T INPUT INPUTQUEUE) 20Q (ALL T CURRENT RUNNING)) \ES.MakeClientHostInfo D1 (L (0 X)) 1g@@@ H @HH@h(24Q ETHERHOSTNAME) (2 ID#.ClientHost:) () \ES.DELETE1PENDING D1 (L (1 FINISHOW? 0 THISPENDINGSERVICE) P 0 \INTERRUPTABLE) F@ @h@A@` @j @` @``@(102Q \ES.INVALIDATE.STATUSW 61Q MEMB 51Q CLOCK 36Q DREMOVE 13Q \ES.CLOSEOUTSOCKET) (76Q EVALSERVER.STATUS.WINDOW 72Q \ES.COMPLETEDSERVICES 66Q \ES.COMPLETEDSERVICES 56Q \ES.COMPLETEDSERVICES 41Q \ES.PENDINGSERVICES 33Q \ES.PENDINGSERVICES) () \ES.ABORTPENDING D1 (L (1 ABORTWHY 0 THISPENDINGSERVICE)) (@@Ao HgH`H i(44Q DEL.PROCESS 21Q \ES.DELETE1PENDING) (35Q PROCESSTYPE# 25Q RUNNING) ( 16Q (ABORTED LOCALLY BY ERROR/QUIT)) \ES.PURGEOLDTHINGS D1 (L (1 MILLISECONDSOLD 0 SECONDSOLD) P 11Q \INTERRUPTABLE P 0 #DELETIONS) B```hjA@d@jA@nbA@d`n ` 30`,d\d` ghLh^ON__O _Nd `b`[KI ` H` ظh<`!N_-_O[OI `HO ظOh ` ]``HM`ظ`d` `X`J `H` ظ`h`h0`jN_OM``j``N[`)jd` o` H` o` hJ `OO`hO_Ok_`N$N# O"hEO<`NNO`OHkظ-_OOOOOiO_NN_N^A(666Q TIMEREXPIRED? 656Q PRIN1 643Q PRIN1 633Q PRIN1 620Q TAB 504Q LENGTH 466Q TIMEREXPIRED? 444Q NTH 406Q LENGTH 364Q LENGTH 347Q TIMEREXPIRED? 271Q LENGTH 253Q TIMEREXPIRED? 222Q \ES.DELETE1PENDING 207Q LAST 143Q RELPROCESSP 110Q CLOCKDIFFERENCE 102Q CLOCKDIFFERENCE) (1005Q \PUPINQUEUE 772Q \PUPINQUEUE 735Q \PUPSOCKETS 706Q \PUPINQUEUE 673Q \PUPINQUEUE 653Q \ES.MESSAGESTREAM 640Q \ES.MESSAGESTREAM 630Q \ES.MESSAGESTREAM 615Q \ES.MESSAGESTREAM 606Q \ES.TRACE? 571Q \PUPINQUEUE 565Q \PUPINQUEUE 557Q \ES.TRACE? 551Q \PUPINQUEUE 527Q \PUPINQUEUE 517Q \PUPINQUEUE 511Q \PUPINQUEUE 500Q \PUPINQUEUE 473Q \ES.TRACE? 457Q \PUPINQUEUE 451Q \PUPINQUEUE 441Q \PUPINQUEUE.MAXLENGTH 434Q \PUPINQUEUE 426Q \PUPINQUEUE.MAXLENGTH 420Q \ES.TRACE? 412Q \PUPINQUEUE.MAXLENGTH 402Q \PUPINQUEUE 354Q \ES.TRACE? 305Q \ES.COMPLETEDSERVICES 277Q \ES.COMPLETEDSERVICES 266Q \ES.COMPLETEDSERVICES 260Q \ES.TRACE? 237Q \ES.COMPLETEDSERVICES 232Q \ES.COMPLETEDSERVICES 147Q RUNNING 136Q PROCESSTYPE# 121Q \ES.PENDINGSERVICES 105Q \PUPINQUEUE.MAXAGE 73Q \ES.PURGEINTERVAL.SECS 12Q \PUPINQUEUE 6 \ES.COMPLETEDSERVICES 2 \ES.PENDINGSERVICES) ( 650Q " old things -- \ES.PURGEOLDTHINGS." 625Q "Deleted ") \ES.BroadAppSweeper D1 (P 10Q \INTERRUPTABLE)  `dhQJK1MN`` ^Xg H _NNOlIONL Mh\JZM&h_NX_`O Hh``JNJ"L`JJK`LM]bJJ\Z(210Q \ES.RELEASE.OUTPUT.PUP 126Q BLOCK 104Q RELPROCESSP 74Q TIMEREXPIRED? 54Q AWAIT.EVENT 20Q PROCESS.RETURN) (266Q \ES.BroadSweepQ 253Q \ES.BroadSweepQ 227Q \ES.BroadSweepQ 223Q \ES.BroadSweepQ 201Q ETHERPACKETTYPE# 71Q MILLISECONDS 51Q \ETHERTIMEOUT 46Q \ES.BroadAppEVENT 15Q \ES.BroadSweepQ 5 \ES.BroadSweepQ) () \ES.AddSweeping D1 (L (5 EXITCOUNT 4 TIMEOUT.ms 3 REFID 2 TRANSCEIVER 1 SERVERHOST 0 FUN)) [`g ogi hh@@BCAl Dn@`KhJIhHEh `i (130Q NOTIFY.EVENT 121Q TCONC 61Q \CLOCK0 27Q ADD.PROCESS 13Q FIND.PROCESS) (124Q \ES.BroadAppEVENT 74Q \RUNNING.PROCESS 41Q \ES.BroadSweepQ 32Q \ES.BroadAppSweeper 23Q RESTARTABLE 10Q \ES.BroadAppSweeper 2 \ES.BroadSweepQ) ( 20Q (\ES.BroadAppSweeper)) \ES.Re-acknowledge.service D1 (L (1 FINALCALL? 0 SWEEPENTRY)) @A (4 \ES.WatchSocket) NIL () \ES.IgnoreApplicants D1 (L (1 FINALCALL? 0 SWEEPENTRY)) @Ag (7 \ES.WatchSocket) (4 IGNORE) () \ES.RejectApplicants D1 (L (1 FINALCALL? 0 SWEEPENTRY)) @Ai (5 \ES.WatchSocket) NIL () \ES.WatchSocket D1 (L (2 BROADRejectAP? 1 FINALCALL? 0 SWEEPENTRY)) @QHH" OBooN _BgBHO% H_`bO%OlYI O h_ZiJ_LMBlɁlNO BOl(Oldk[KljǿHOOOBoo AIOO AOHO h(345Q \ES.EXITREMOTEVAL 323Q RELEASE.PUP 307Q BLOCK 301Q \SENDUNFILTEREDPUP 211Q SETUPPUP 156Q ALLOCATE.PUP 146Q RELEASE.PUP 75Q EQP 42Q \GETFILTEREDPUP) (162Q ETHERPACKET 114Q ETHERPACKETTYPE# 54Q IGNORE) ( 276Q ("=== Losing broadcast applicant is rejected." REMOTEVAL) 271Q ("Late acknowledgement for services rendered" REMOTEVAL) 36Q (312Q 314Q) 31Q (311Q)) \ES.ApplicantValid? D1 (L (1 FINALCALL? 0 SWEEPENTRY)) @1HHLoMg VHLK`KHYiIo HH^lNZlJl nAHdg H h(214Q DEL.PROCESS 205Q TIMEREXPIRED? 155Q \CLOCK0 111Q \SENDUNFILTEREDPUP 67Q ALLOCATE.PUP 35Q \GETFILTEREDPUP) (202Q MILLISECONDS 73Q ETHERPACKET 53Q ETHERPACKETTYPE# 32Q DELETE) ( 106Q ("=== EvalServer acknowledges certification re broadcast:" \ES.DO1THING) 26Q (315Q)) EVALSERVER.TRACE D1 (L (1 REGION 0 FLG)) s@h` ` hA` ` Ao `gg ` gl ` id` ` `(155Q TOTOPW 147Q DSPSCROLL 134Q DSPFONT 126Q FONTCREATE 111Q \INSUREWINDOW 103Q PUTWINDOWPROP 63Q CREATEW 52Q DISPLAYSTREAMP 42Q WINDOWP 27Q CLOSEW 24Q WFROMDS 14Q DISPLAYSTREAMP) (160Q \ES.MESSAGESTREAM 152Q \ES.MESSAGESTREAM 144Q \ES.MESSAGESTREAM 140Q \ES.TRACE? 131Q \ES.MESSAGESTREAM 121Q GACHA 116Q \ES.MESSAGESTREAM 106Q \ES.MESSAGESTREAM 100Q \ES.BUGGERTRACEWINDOW 75Q BUTTONEVENTFN 72Q \ES.MESSAGESTREAM 66Q \ES.MESSAGESTREAM 47Q \ES.MESSAGESTREAM 37Q \ES.MESSAGESTREAM 21Q \ES.MESSAGESTREAM 11Q \ES.MESSAGESTREAM 6 \ES.TRACE?) ( 60Q "Remote Eval Service Actions") \ES.BUGGERTRACEWINDOW D1 (L (0 WINDOW)) U@@d @ @`dlj/jd@ o@ `hoio@ kj@ h(121Q DSPRESET 107Q PRIN1 53Q PRIN1 42Q TAB 15Q OPENW 7 ACTIVEWP) (76Q \ES.TRACE? 64Q \ES.TRACE? 57Q \ES.TRACE? 23Q LASTMOUSEBUTTONS) ( 103Q "On]" 71Q "Off]" 47Q "[Traceing ") \ES.PRINTRACE D1 (L (2 FUN 1 TRACEINFO 0 TPUP)) 3`.Ad*` AAb` @AdB` (60Q PRINTPUP 37Q PRIN1 21Q TERPRI) (55Q \ES.MESSAGESTREAM 34Q \ES.MESSAGESTREAM 16Q \ES.MESSAGESTREAM 2 \ES.TRACE?) () EVALSERVER.STATUS.WINDOW D1 (L (0 WIN/REG)) '`k`o`jh` PIHI\`` ` ` ` `dog`  _dOdi dgdggl _dOdg jdndh_dO `dog`  _dOdi dgdggl _dOdg jdndh_dO `dog`  _ dO di dgdggl _"dO"dg jdndh_$dO$ `` ` _&dO&O&` _(dO(O(Jh` _*dO*O*`_KI` L` L` `_` @oJ`i o OO _.O._`NOOOh OKI` ]``O` l`M` M`]hdd`NHOMOHlHggn MI` ]``O` l`M` M`]hdd`NHOMOHlHggn MI` ]``O` l`M` h _,O,(1430Q \INSUREWINDOW 1423Q ADDMENU 1400Q CHECK/MENU/IMAGE 1356Q CHECK/MENU/IMAGE 1345Q BKBITBLT 1275Q ADDMENU 1252Q CHECK/MENU/IMAGE 1230Q CHECK/MENU/IMAGE 1217Q BKBITBLT 1147Q ADDMENU 1124Q CHECK/MENU/IMAGE 1100Q CHECK/MENU/IMAGE 1066Q SHAPEW 1032Q GETBOXPOSITION 1022Q PROMPTPRINT 1007Q CREATEW 741Q CHECK/MENU/IMAGE 730Q CHECK/MENU/IMAGE 717Q CHECK/MENU/IMAGE 665Q STRINGWIDTH 662Q DSPFONT 635Q CHECK/MENU/IMAGE 612Q CHECK/MENU/IMAGE 602Q CHECK/MENU/IMAGE 522Q FONTCREATE 456Q \ES.STATUSW.GETITEMS 452Q ASSOC 356Q FONTCREATE 312Q \ES.STATUSW.GETITEMS 306Q ASSOC 212Q FONTCREATE 146Q \ES.STATUSW.GETITEMS 142Q ASSOC 112Q EVALSERVER.STATUS 106Q CLEARW 77Q DELETEMENU 70Q DELETEMENU 61Q DELETEMENU 30Q DSPLINEFEED) (1416Q WBorder 1411Q WBorder 1375Q \ES.DONEMENU 1370Q EVALSERVER.STATUS.WINDOW 1365Q \ES.DONEMENU 1353Q \ES.DONEMENU 1336Q REPLACE 1333Q TEXTURE 1311Q ScreenBitMap 1301Q WBorder 1270Q WBorder 1263Q WBorder 1247Q \ES.RUNMENU 1242Q EVALSERVER.STATUS.WINDOW 1237Q \ES.RUNMENU 1225Q \ES.RUNMENU 1210Q REPLACE 1205Q TEXTURE 1163Q ScreenBitMap 1153Q WBorder 1142Q WBorder 1135Q WBorder 1121Q \ES.IQMENU 1114Q EVALSERVER.STATUS.WINDOW 1111Q \ES.IQMENU 1075Q \ES.IQMENU 1047Q EVALSERVER.STATUS.WINDOW 1012Q EVALSERVER.STATUS.WINDOW 1003Q WBorder 762Q EVALSERVER.STATUS.WINDOW 746Q WBorder 736Q \ES.DONEMENU 725Q \ES.RUNMENU 714Q \ES.IQMENU 703Q WBorder 657Q WindowTitleDisplayStream 632Q \ES.DONEMENU 607Q \ES.RUNMENU 577Q \ES.IQMENU 574Q WBorder 571Q \ES.DONEMENU 537Q CLRPROMPT 515Q GACHA 507Q \ES.STATUSW.HELDFN 500Q \ES.STATUSW.SELECTEDFN 447Q \ES.LASTSTATUSLIST 444Q Completed.Transactions: 430Q MENUTYPE# 425Q \ES.RUNMENU 373Q CLRPROMPT 351Q GACHA 343Q \ES.STATUSW.HELDFN 334Q \ES.STATUSW.SELECTEDFN 303Q \ES.LASTSTATUSLIST 300Q CurrentlyRunning.Transactions: 264Q MENUTYPE# 261Q \ES.IQMENU 227Q CLRPROMPT 205Q GACHA 177Q \ES.STATUSW.HELDFN 170Q \ES.STATUSW.SELECTEDFN 137Q \ES.LASTSTATUSLIST 134Q EvalServer.InputQueue: 120Q MENUTYPE# 115Q \ES.LASTSTATUSLIST 103Q EVALSERVER.STATUS.WINDOW 74Q \ES.DONEMENU 65Q \ES.RUNMENU 56Q \ES.IQMENU 51Q EVALSERVER.STATUS.WINDOW 25Q WindowTitleDisplayStream 20Q WBorder 10Q WBorder 2 WBorder) ( 1017Q "Position the EvalServer Status Window." 777Q (0 0 144Q 144Q) 436Q "Completed Services" 272Q "Currently Running" 126Q "Input Queue" 15Q "EvalServer Status") \ES.STATUSW.GETITEMS D1 (L (0 L)) 1@@'d[gK KKhIHhZH&J(24Q CONCAT) (17Q %.) () \ES.STATUSW.SELECTEDFN D1 (L (2 BUTTON 1 MENU 0 ITEM)) `A)Bdgdgx`o@g a`ABdgSdgL@ A`A7Bdg4dg-@@ H` YI` Bg @An  (233Q SHADEITEM 213Q SHOULDNT 202Q DREMOVE 171Q SASSOC 156Q ETHERHOSTNUMBER 112Q EVALSERVER.ABORT 51Q \GETFILTEREDPUP) (220Q MIDDLE 205Q \ES.COMPLETEDSERVICES 177Q \ES.COMPLETEDSERVICES 166Q \ES.COMPLETEDSERVICES 137Q MIDDLE 130Q LEFT 117Q \ES.DONEMENU 100Q MIDDLE 71Q LEFT 60Q \ES.RUNMENU 46Q DELETE 33Q \EVALREQUEST.SOCKET 24Q MIDDLE 13Q LEFT 2 \ES.IQMENU) ( 37Q (310Q 313Q)) \ES.STATUSW.HELDFN D1 (L (2 BUTTON 1 MENU 0 ITEM)) >Bdgo-g$`Ao`Ao`Aog (73Q PROMPTPRINT) (70Q ?? 55Q \ES.DONEMENU 42Q \ES.RUNMENU 26Q \ES.IQMENU 20Q MIDDLE 4 LEFT) ( 64Q "Deletes this item from the status lists" 51Q "Aborts this service." 35Q "Removes this request from the input queue." 13Q "Shows more detailed information about this item.") \ES.INVALIDATE.STATUSW D1 (P 0 \INTERRUPTABLE) G``=` gh-`g`gg ` hkg` (104Q DSPFILL 67Q ACTIVEWP 61Q PUTWINDOWPROP 56Q PUTWINDOWPROP 17Q \INSUREWINDOW) (101Q EVALSERVER.STATUS.WINDOW 76Q INVERT 64Q EVALSERVER.STATUS.WINDOW 53Q \ES.UPDATE.STATUSW 50Q BUTTONEVENTFN 45Q EVALSERVER.STATUS.WINDOW 42Q OLDBUTTONEVENTFN 37Q EVALSERVER.STATUS.WINDOW 24Q \ES.UPDATE.STATUSW 14Q EVALSERVER.STATUS.WINDOW 6 WINDOWTYPE# 2 EVALSERVER.STATUS.WINDOW) () \ES.UPDATE.STATUSW D1 (L (0 WINDOW)) @g @gH H@kHh(24Q EVALSERVER.STATUS.WINDOW 21Q PUTWINDOWPROP 6 PUTWINDOWPROP) (15Q BUTTONEVENTFN 3 OLDBUTTONFN) () (PRETTYCOMPRINT EVALSERVERCOMS) (RPAQQ EVALSERVERCOMS ((LOCALVARS . T) (COMS (* This ought to be in the system!) (FNS ORDINALSUFFIXSTRING.ES) (P (MOVD? (QUOTE ORDINALSUFFIXSTRING.ES) (QUOTE ORDINALSUFFIXSTRING)) (PUTD ( QUOTE ORDINALSUFFIXSTRING.ES)))) (COMS (* Generally useful utilities) (FNS PRIN4.INTO.STRING \P4S.FOOT \P4S.PERCHAR \UNTCONC) (DECLARE: DONTCOPY (MACROS \FILLINSTRPTR \UNTCONC)) (GLOBALRESOURCES \P4S.SCRATCHLIST \P4S.STR.BYTEPOINTER)) (COMS (* Pup/Net assistance) (DECLARE: DONTCOPY (MACROS \ALLOCATE.BIGPUP HOSTNUMBERP PROBABLYSOCKETP HOST#.FROM.ADDRESS NTWK#.FROM.ADDRESS \BROADCASTADDRESS.ON.MYNET \ES.LOCALHOSTNUMBER) (RECORDS BVM.LOSES.PUPSOCKET)) (MACROS #PUPDATABYTES #PUPDATABYTES.LEFT) (GLOBALRESOURCES \PIP.SCRATCHSPTR \GFP.TIMER \READPUPSTREAM \WRITEPUPSTREAM) (FNS READ.FROM.PUP PRINT.INTO.PUP \ES.LOCALHOSTNUMBER \HNM.MEMBER \NORMALIZEHOSTNUM \BROADCASTADDRESS.ON.MYNET \GETFILTEREDPUP \SENDUNFILTEREDPUP \ES.GETSOCKET \ES.RELEASE.OUTPUT.PUP) ( VARS (\BROADCASTADDRESS.ON.MYNET NIL) (\ES.LOCALHOSTNUMBER NIL)) (GLOBALVARS \PUPSOCKETS \BROADCASTADDRESS.ON.MYNET \ES.LOCALHOSTNUMBER) (ALISTS (PUPPRINTMACROS 4))) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS TRANSACTIONNOTE) (MACROS TYPE\ID.OF.PUP? CONNECTIONIDP TRACEAPUP 1BYTETOPUP)) ( CONSTANTS (\SOCKET#.EVALREQUEST 668) (\PT.EVALREQUEST 200) (\PT.ACKNOWLEDGE 201) (\PT.EVALRESPONSE 202 ) (\PT.EVALREQUEST.NORESULT 203) (\PT.EVALERROR 204) (\PT.EVALREQUEST.CERTIFY 205)) (INITVARS ( EvalServerClientHosts NIL) (EvalServerGaggedHosts (QUOTE (T))) (\EVALREQUEST.SOCKET NIL) ( \ES.TTYWINDOW NIL) (\ES.TTYWINDOWSTREAM NIL) (\ES.MESSAGESTREAM NIL) (\ES.PURGEINTERVAL.SECS 180) ( \ES.PENDINGSERVICES NIL) (\ES.COMPLETEDSERVICES NIL) (\PUPINQUEUE NIL) (\PUPINQUEUE.MAXLENGTH 50) ( \PUPINQUEUE.MAXAGE (TIMES 6 60 1000)) (\ES.LOSTSOCKETSLST NIL) (\ES.CurrentlyPendingService NIL)) ( GLOBALVARS \PUPINQUEUE \PUPINQUEUE.MAXLENGTH \PUPINQUEUE.MAXAGE \EVALREQUEST.SOCKET \ES.TTYWINDOW \ES.TTYWINDOWSTREAM \ES.MESSAGESTREAM \ES.PURGEINTERVAL.SECS \ES.COMPLETEDSERVICES \ES.PENDINGSERVICES \ES.LOSTSOCKETSLST) (SPECVARS \ES.CurrentlyPendingService FluidVariableForInterlospLissage) (FNS REMOTEVAL \ES.EXITREMOTEVAL \ES.CLOSEOUTSOCKET \ES.UNCACHE REMOTEABORT REMOTEAPPLY \ES.APPLYQQ EVALSERVER \ES.LISTENER \ES.DO1THING \ES.ABORTQQ EVALSERVER.ABORT EVALSERVER.STATUS \ES.MakeClientHostInfo \ES.DELETE1PENDING \ES.ABORTPENDING \ES.PURGEOLDTHINGS) (COMS (* Things related to coordination of Broadcast case of REMOTEVAL) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS BROADAPNOTE) ) (INITVARS (\ES.BroadSweepQ (LIST NIL)) (\ES.BroadAppEVENT (CREATE.EVENT (QUOTE \ES.BroadAppEVENT)))) (GLOBALVARS \ES.BroadSweepQ \ES.BroadAppEVENT \ES.BroadAppSweeper) (FNS \ES.BroadAppSweeper \ES.AddSweeping \ES.Re-acknowledge.service \ES.IgnoreApplicants \ES.RejectApplicants \ES.WatchSocket \ES.ApplicantValid?)) (ADDVARS (AFTERSYSOUTFORMS (\ES.UNCACHE)) (AFTERLOGOUTFORMS (\ES.UNCACHE))) ( ALISTS (PUPPRINTMACROS 200 202 203 204 205)) (COMS (* Debugging aids) (VARS (\ES.TRACE?) ( EVALSERVER.STATUS.WINDOW) (\ES.LASTSTATUSLIST) (\ES.IQMENU) (\ES.RUNMENU) (\ES.DONEMENU)) (FNS EVALSERVER.TRACE \ES.BUGGERTRACEWINDOW \ES.PRINTRACE) (FNS EVALSERVER.STATUS.WINDOW \ES.STATUSW.GETITEMS \ES.STATUSW.SELECTEDFN \ES.STATUSW.HELDFN \ES.INVALIDATE.STATUSW \ES.UPDATE.STATUSW) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \ES.TRACE? EVALSERVER.STATUS.WINDOW \ES.LASTSTATUSLIST \ES.IQMENU \ES.RUNMENU \ES.DONEMENU) (CONSTANTS LIGHTGRAYSHADE FUZZYSHADE))) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA \ES.ABORTQQ \ES.APPLYQQ) ( NLAML \ES.ABORTPENDING \ES.DO1THING \ES.LISTENER) (LAMA))))) (MOVD? (QUOTE ORDINALSUFFIXSTRING.ES) (QUOTE ORDINALSUFFIXSTRING)) (PUTD (QUOTE ORDINALSUFFIXSTRING.ES)) (/SETTOPVAL (QUOTE \\P4S.SCRATCHLIST.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE)) (PUTPROPS #PUPDATABYTES DMACRO ((Pup) (IDIFFERENCE (FETCH PUPLENGTH OF Pup) \PUPOVLEN))) (PUTPROPS #PUPDATABYTES.LEFT DMACRO (OPENLAMBDA (Pup) (IDIFFERENCE \MAX.PUPLENGTH (#PUPDATABYTES Pup)) )) (/SETTOPVAL (QUOTE \\PIP.SCRATCHSPTR.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\GFP.TIMER.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\READPUPSTREAM.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\WRITEPUPSTREAM.GLOBALRESOURCE)) (RPAQQ \BROADCASTADDRESS.ON.MYNET NIL) (RPAQQ \ES.LOCALHOSTNUMBER NIL) (ADDTOVAR PUPPRINTMACROS (4 WORDS 24 CHARS 66 ...)) (RPAQQ \SOCKET#.EVALREQUEST 668) (RPAQQ \PT.EVALREQUEST 200) (RPAQQ \PT.ACKNOWLEDGE 201) (RPAQQ \PT.EVALRESPONSE 202) (RPAQQ \PT.EVALREQUEST.NORESULT 203) (RPAQQ \PT.EVALERROR 204) (RPAQQ \PT.EVALREQUEST.CERTIFY 205) (CONSTANTS (\SOCKET#.EVALREQUEST 668) (\PT.EVALREQUEST 200) (\PT.ACKNOWLEDGE 201) (\PT.EVALRESPONSE 202) (\PT.EVALREQUEST.NORESULT 203) (\PT.EVALERROR 204) (\PT.EVALREQUEST.CERTIFY 205)) (RPAQ? EvalServerClientHosts NIL) (RPAQ? EvalServerGaggedHosts (QUOTE (T))) (RPAQ? \EVALREQUEST.SOCKET NIL) (RPAQ? \ES.TTYWINDOW NIL) (RPAQ? \ES.TTYWINDOWSTREAM NIL) (RPAQ? \ES.MESSAGESTREAM NIL) (RPAQ? \ES.PURGEINTERVAL.SECS 180) (RPAQ? \ES.PENDINGSERVICES NIL) (RPAQ? \ES.COMPLETEDSERVICES NIL) (RPAQ? \PUPINQUEUE NIL) (RPAQ? \PUPINQUEUE.MAXLENGTH 50) (RPAQ? \PUPINQUEUE.MAXAGE (TIMES 6 60 1000)) (RPAQ? \ES.LOSTSOCKETSLST NIL) (RPAQ? \ES.CurrentlyPendingService NIL) (RPAQ? \ES.BroadSweepQ (LIST NIL)) (RPAQ? \ES.BroadAppEVENT (CREATE.EVENT (QUOTE \ES.BroadAppEVENT))) (ADDTOVAR AFTERSYSOUTFORMS (\ES.UNCACHE)) (ADDTOVAR AFTERLOGOUTFORMS (\ES.UNCACHE)) (ADDTOVAR PUPPRINTMACROS (200 CHARS 32 ...) (202 CHARS 32 ...) (203 CHARS 32 ...) (204 CHARS 32 ...) ( 205 BYTES 1 ...)) (RPAQQ \ES.TRACE? NIL) (RPAQQ EVALSERVER.STATUS.WINDOW NIL) (RPAQQ \ES.LASTSTATUSLIST NIL) (RPAQQ \ES.IQMENU NIL) (RPAQQ \ES.RUNMENU NIL) (RPAQQ \ES.DONEMENU NIL) (PUTPROPS EVALSERVER COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL