From a78175183272dcbf6371ff73c61761fd32de5f64 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Thu, 6 May 2021 15:05:19 -0700 Subject: [PATCH] Better handling of no-ether when starting without ethernet (#327) * Better handling of no-ether when starting without ethernet * before save, with ether, clear \ETHERPORTS, passwords * move SUBRCALL to separate function --- sources/LLETHER | 233 +++++++++--------- sources/LLETHER.LCOM | Bin 43838 -> 43972 bytes sources/PUP | 560 +++++++++++++++++++------------------------ sources/PUP.LCOM | Bin 36704 -> 34876 bytes 4 files changed, 375 insertions(+), 418 deletions(-) diff --git a/sources/LLETHER b/sources/LLETHER index cdc7d870..6bc70986 100644 --- a/sources/LLETHER +++ b/sources/LLETHER @@ -1,19 +1,19 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Jan-93 10:49:30" {DSK}lde>lispcore>sources>LLETHER.;2 139094 +(FILECREATED " 3-May-2021 23:13:56" {DSK}larry>ilisp>medley>sources>LLETHER.;4 139646 - changes to%: (RECORDS SYSQUEUE QABLEITEM ETHERPACKET ETHERAUX NDB ROUTING ETHERTRANS - CENTICLOCK 3MBENCAPSULATION PBI) + changes to%: (FNS \ETHEREVENTFN \ETHER-AVAILABLE) + (VARS LLETHERCOMS) - previous date%: " 5-Jan-93 00:36:20" {DSK}lde>lispcore>sources>LLETHER.;1) + previous date%: " 2-May-2021 12:37:02" {DSK}larry>ilisp>medley>sources>LLETHER.;3) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT LLETHERCOMS) -(RPAQQ LLETHERCOMS +(RPAQQ LLETHERCOMS [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) LLNSDECLS)) [COMS (* ; @@ -27,7 +27,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (MACROS \QUEUEHEAD))) (INITRECORDS SYSQUEUE) (SYSRECORDS SYSQUEUE) - (FNS \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE) + (FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE) (* ;  "Queue management constructed by TCONC") (EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC] @@ -58,7 +58,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b PRINTNSHOSTNUMBER) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'NSADDRESS '\NSADDRESS.DEFPRINT] [COMS (* ; "Assorted Level 0") - (FNS \ETHERINIT \ETHEREVENTFN \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS \FLUSH.NDB.QUEUE) + (FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS + \FLUSH.NDB.QUEUE) (FNS \CHECKSUM \HANDLE.RAW.OTHER \HANDLE.RAW.PACKET \ADD.PACKET.FILTER \DEL.PACKET.FILTER) (DECLARE%: DONTCOPY (EXPORT (CONSTANTS (\NULLCHECKSUM 65535))) @@ -190,8 +191,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b '6) (DECLARE%: EVAL@COMPILE -(PUTPROPS \QUEUEHEAD MACRO ((Q) - (fetch (SYSQUEUE SYSQUEUEHEAD) of Q))) +(PUTPROPS \QUEUEHEAD MACRO ((Q) + (fetch (SYSQUEUE SYSQUEUEHEAD) of Q))) ) (* "END EXPORTED DEFINITIONS") @@ -213,6 +214,33 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b ) (DEFINEQ +(CANONICAL.HOSTNAME + [LAMBDA (HOSTNAME) (* ; "Edited 1-May-2021 19:45 by larry") + (LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL] + (if DEV + then (* ; "Known device, don't ask anyone") + (fetch DEVICENAME of (CDR DEV)) + elseif (NOT (SUBRCALL ETHER-AVAILABLE)) + then HOSTNAME + elseif (AND \NS.READY (STRPOS ":" HOSTNAME)) + then (* ; "Assume NS") + (\CANONICAL.NSHOSTNAME HOSTNAME) + elseif (NUMBERP HOSTNAME) + then (* ; "Some sort of host address") + (if (AND (SMALLP HOSTNAME) + (< HOSTNAME 255)) + then (* ; "valid pup address") + HOSTNAME + elseif \IP.READY + then (* ; "Big number may be IP host") + (IPHOSTNAME HOSTNAME)) + else (if (NOT (LITATOM HOSTNAME)) + then (SETQ HOSTNAME (MKATOM HOSTNAME))) + (OR (CDR (FASSOC HOSTNAME \HOSTNAMES)) + (AND \IP.READY (\CANONICALIZE.IP.HOSTNAME HOSTNAME)) + (AND \PUP.READY (\CANONICALIZE.PUP.HOSTNAME HOSTNAME)) + HOSTNAME]) + (\ENQUEUE [LAMBDA (Q ITEM) (* bvm%: "14-Feb-85 21:55") @@ -333,14 +361,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS \DETCONC MACRO (OPENLAMBDA (TQ) - (PROG1 (\PEEKTCONC TQ) - (if [NULL (CAR (RPLACA TQ (CDAR TQ] - then (RPLACD TQ)))] +(PUTPROPS \DETCONC MACRO [OPENLAMBDA (TQ) + (PROG1 (\PEEKTCONC TQ) + (if [NULL (CAR (RPLACA TQ (CDAR TQ] + then (RPLACD TQ)))]) -(PUTPROPS \ENTCONC MACRO (= . TCONC)) +(PUTPROPS \ENTCONC MACRO (= . TCONC)) -(PUTPROPS \PEEKTCONC MACRO (= . CAAR)) +(PUTPROPS \PEEKTCONC MACRO (= . CAAR)) ) (* "END EXPORTED DEFINITIONS") @@ -1471,16 +1499,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b HOSTNAMEP _ 'NILL]) (\ETHEREVENTFN - [LAMBDA (DEV EVENT) (* ; "Edited 15-Jan-88 01:30 by bvm") - (SELECTQ EVENT - ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) - (PROG (NDB TURNOFFNS TIMESET) + [LAMBDA (DEV EVENT) (* ; "Edited 3-May-2021 23:12 by larry") + (PROG (NDB TURNOFFNS TIMESET) + (SELECTQ EVENT + ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) (SETQ \PUP.READY (SETQ \NS.READY (SETQ \IP.READY))) + (OR (\ETHER-AVAILABLE) + (RETURN)) (\SETETHERFLAGS) (\SETLOCALNSNUMBERS) (\FLUSHNDBS EVENT) - [SETQ \3MBLOCALNDB (COND - (\3MBFLG (SETQ \LOCALNDBS (\3MB.CREATENDB \3MBFLG] (SETQ \10MBLOCALNDB (COND (\10MBFLG (SETQ NDB (\10MB.CREATENDB \10MBFLG)) (COND @@ -1499,30 +1527,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (\NSINIT EVENT) (SETQ TIMESET (\NS.SETTIME] (\STARTPUP EVENT) - (OR TIMESET (AND (EQ \PUP.READY T) - (\PUP.SETTIME)) - [SELECTC \MACHINETYPE - (\DANDELION (NEQ 0 (fetch DLTODVALID of \IOPAGE))) - (\DAYBREAK (\DoveMisc.TODValid)) - (> (IDATE) - (CONSTANT (IDATE " 1-JAN-88 12:00"] - (\TIME.NOT.SET)) (COND (TURNOFFNS (STOPNS))) (COND (\GATEWAYFLG (\INIT.GATEWAY))) (for FN in RESTARTETHERFNS do (CL:FUNCALL FN EVENT)) - T)) - ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) - (COND - ((EQ EVENT 'BEFORESAVEVM) (* ; + T) + ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) + (COND + ((EQ EVENT 'BEFORESAVEVM) (* ;  "Save passwords in place outside vmem to avoid having to reenter them later") - (\STASH.PASSWORDS)) - (T (* ; + (\STASH.PASSWORDS)) + (T (* ;  "No need to flush this before SAVEVM") - (CLRHASH \ETHERPORTS))) - (CLRHASH LOGINPASSWORDS)) - NIL]) + (CLRHASH \ETHERPORTS))) + (CLRHASH LOGINPASSWORDS)) + NIL]) + +(\ETHER-AVAILABLE + [LAMBDA NIL (* ; "Edited 3-May-2021 23:12 by larry") + (SUBRCALL ETHER-AVAILABLE]) (\TIME.NOT.SET [LAMBDA NIL (* ; "Edited 13-Jan-88 14:40 by bvm") @@ -1532,28 +1556,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (printout PROMPTWINDOW T "[Time not set]"]) (\SETETHERFLAGS - [LAMBDA NIL (* ; "Edited 17-May-88 12:00 by bvm") - (SELECTC \MACHINETYPE - ((LIST \DANDELION \DAYBREAK \MAIKO) - (SETQ \10MBFLG 0) - (SETQ \3MBFLG NIL) - (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE) - (UNFOLD (INDEXF (FETCH EPBODY)) - BYTESPERWORD)))) - (\DORADO (SETQ \3MBFLG T) - (SETQ \10MBFLG NIL) - (SETQ *MAXIMUM-PACKET-SIZE* (if (>= (fetch (IFPAGE BVersion) of - \InterfacePage - ) - 11776) - then (* ; "This field is valid") - (fetch (IFPAGE MAXETHERBYTES) of - - \InterfacePage - ) - else (* ; "Old bcpl had this much") - 590))) - (SHOULDNT]) + [LAMBDA NIL (* ; "Edited 2-May-2021 12:35 by larry") + + (* ;; "for Medley there is no 3MB ethernet ; used to be conditional on \MACHINETYPE") + + (SETQ \10MBFLG 0) + (SETQ \3MBFLG NIL) + (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE) + (UNFOLD (INDEXF (FETCH EPBODY)) + BYTESPERWORD]) (\FLUSHNDBS [LAMBDA (EVENT) (* ; "Edited 15-Jan-88 00:30 by bvm") @@ -1774,25 +1785,27 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (DECLARE%: EVAL@COMPILE -(PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE) - (SPREADAPPLY* (fetch NDBENCAPSULATOR of NDB) - NDB PACKET HOST LENGTH TYPE))) +(PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE) + (SPREADAPPLY* (fetch NDBENCAPSULATOR + of NDB) + NDB PACKET HOST LENGTH TYPE))) -(PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET) - (SPREADAPPLY* (fetch NDBTRANSMITTER of NDB) - NDB PACKET))) +(PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET) + (SPREADAPPLY* (fetch NDBTRANSMITTER of NDB) + NDB PACKET))) -[PUTPROPS BROADCASTP MACRO ((PACKET) - ([LAMBDA (NDB) - (AND NDB (APPLY* (fetch NDBBROADCASTP of NDB) - PACKET NDB] - (fetch EPNETWORK of PACKET] +(PUTPROPS BROADCASTP MACRO ((PACKET) + ([LAMBDA (NDB) + (AND NDB (APPLY* (fetch NDBBROADCASTP of NDB) + PACKET NDB] + (fetch EPNETWORK of PACKET)))) -[PUTPROPS \CHECK.ROUTING.TABLE MACRO ((TABLE) - (if (NEQ (NTYPX TABLE) - \ROUTING.TABLE.TYPENUM) - then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :CULPRIT - TABLE :EXPECTED-TYPE 'RoutingTable] +(PUTPROPS \CHECK.ROUTING.TABLE MACRO [(TABLE) + (if (NEQ (NTYPX TABLE) + \ROUTING.TABLE.TYPENUM) + then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR + :CULPRIT TABLE :EXPECTED-TYPE + 'RoutingTable]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -2785,7 +2798,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS \SERIALNUMBER MACRO (NIL (fetch (IFPAGE SerialNumber) of \InterfacePage))) +(PUTPROPS \SERIALNUMBER MACRO (NIL (fetch (IFPAGE SerialNumber) of \InterfacePage))) ) (* "END EXPORTED DEFINITIONS") @@ -2866,9 +2879,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b T]) ) -(RPAQQ ROUTINGINFOMACRO - (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR ") " -2 FINALLY - ")")) +(RPAQQ ROUTINGINFOMACRO (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS + SEPR ") " -2 FINALLY ")")) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -2926,41 +2938,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b ) (* "FOLLOWING DEFINITIONS EXPORTED") -(PUTPROPS \DEVICE.INPUT DOPVAL (1 MISC1 1)) +(PUTPROPS \DEVICE.INPUT DOPVAL (1 MISC1 1)) -(PUTPROPS \DEVICE.OUTPUT DOPVAL (2 MISC2 2)) +(PUTPROPS \DEVICE.OUTPUT DOPVAL (2 MISC2 2)) -(PUTPROPS \D0.STARTIO DOPVAL (1 MISC1 0)) +(PUTPROPS \D0.STARTIO DOPVAL (1 MISC1 0)) (* "END EXPORTED DEFINITIONS") ) (PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 -1992 1993)) +1992 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10827 17692 (\ENQUEUE 10837 . 13482) (\DEQUEUE 13484 . 14811) (\QUEUELENGTH 14813 . -15113) (\ONQUEUE 15115 . 15381) (\UNQUEUE 15383 . 17690)) (51359 55225 (\ALLOCATE.ETHERPACKET 51369 . -52410) (\RELEASE.ETHERPACKET 52412 . 53485) (RELEASE.PUP 53487 . 53632) (\FLUSH.PACKET.QUEUE 53634 . -53985) (\REQUEUE.ETHERPACKET 53987 . 54501) (\EP.PUT.AUX 54503 . 55223)) (55799 67180 ( -\SETLOCALNSNUMBERS 55809 . 57194) (\LOADNSADDRESS 57196 . 57488) (\STORENSADDRESS 57490 . 57671) ( -\PRINTNSADDRESS 57673 . 58756) (\NSADDRESS.DEFPRINT 58758 . 63703) (\NSADDRESS.PRINT.DECIMAL 63705 . -65836) (\LOADNSHOSTNUMBER 65838 . 66467) (\STORENSHOSTNUMBER 66469 . 66873) (PRINTNSHOSTNUMBER 66875 - . 67178)) (67293 74381 (\ETHERINIT 67303 . 67873) (\ETHEREVENTFN 67875 . 70869) (\TIME.NOT.SET 70871 - . 71197) (\SETETHERFLAGS 71199 . 72688) (\FLUSHNDBS 72690 . 73868) (\FLUSH.NDB.QUEUE 73870 . 74379)) -(74382 77674 (\CHECKSUM 74392 . 76324) (\HANDLE.RAW.OTHER 76326 . 76681) (\HANDLE.RAW.PACKET 76683 . -77195) (\ADD.PACKET.FILTER 77197 . 77429) (\DEL.PACKET.FILTER 77431 . 77672)) (85243 85768 ( -ENCAPSULATE.ETHERPACKET 85253 . 85525) (TRANSMIT.ETHERPACKET 85527 . 85766)) (86056 98652 ( -\AGE.ROUTING.TABLE 86066 . 88215) (\ADD.ROUTING.TABLE.ENTRY 88217 . 88913) (\CLEAR.ROUTING.TABLE 88915 - . 89642) (\MAP.ROUTING.TABLE 89644 . 90172) (PRINTROUTINGTABLE 90174 . 93799) (\ROUTINGTABLE.INFOHOOK - 93801 . 98650)) (99137 105922 (\TRANSLATE.10TO3 99147 . 100931) (\NOTE.10TO3 100933 . 102549) ( -\HANDLE.RAW.10TO3 102551 . 105920)) (109904 124726 (PRINTPACKET 109914 . 110475) (\MAYBEPRINTPACKET -110477 . 112134) (PRINT10TO3 112136 . 113504) (PRINTPACKETDATA 113506 . 118796) (PRINTPACKETQUEUE -118798 . 119227) (TIME.SINCE.PACKET 119229 . 119714) (MAKE-NETWORK-TRACE-WINDOW 119716 . 123258) ( -\CHANGE.ETHER.TRACING 123260 . 124724)) (125097 125912 (\CENTICLOCK 125107 . 125910)) (126367 132467 ( -\3MBGETPACKET 126377 . 127797) (\3MB.CREATENDB 127799 . 128514) (\3MBSENDPACKET 128516 . 130699) ( -\3MBWATCHER 130701 . 131439) (\3MBENCAPSULATE 131441 . 131989) (\3MB.BROADCASTP 131991 . 132162) ( -\3MBFLUSH 132164 . 132465)) (135413 137356 (ASSURE.ETHER.ON 135423 . 135753) (INITPUPLEVEL1 135755 . -136235) (TURN.ON.ETHER 136237 . 136382) (RESTART.ETHER 136384 . 136758) (TURN.OFF.ETHER 136760 . -137078) (PRINTWORDS 137080 . 137354)) (137618 138153 (\DEVICE.INPUT 137628 . 137793) (\DEVICE.OUTPUT -137795 . 137989) (\D0.STARTIO 137991 . 138151))))) + (FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040 + . 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815 + (\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222 +) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813) +) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS +59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) ( +\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 . +68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465 + . 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938 +) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574) +(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679 +) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) ( +TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) ( +\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158 + . 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 ( +\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) ( +110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 . +114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743 + . 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) ( +125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) ( +\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) ( +\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) ( +135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759 + . 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 . +137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO +138526 . 138686))))) STOP diff --git a/sources/LLETHER.LCOM b/sources/LLETHER.LCOM index 80a7929fd6de5bd3117047d0361656ca9a95b263..44e58fab8158ce57ea7ab9bedc939c776e68fe9f 100644 GIT binary patch delta 4690 zcmb_gdr(tX8V>QlMDil{21<=eAc>&JQ{AG)h>G=9 z6ppA>QITqu-F8LFwmW^$cJ0(Y{?Kk)cRF@vZMQSsSv#%mY-eY8X5H_*$pvh8W~Vco z8GiSBpL4$Ro$sE@8=uOr+>jqCjVRP5b_Zwma;(7FNG37lI0GFydYzsjdV_^ASd4j@ zM4egJyrHF`F%%@tO<=Uu#+P?4t#95CDr^k2wRIFWG&Z!i6mAFw8$%t1?aiCo>O$>> z4hJWcab9gfu7)TwiGE6CorPg6MtvrU)V75tV%OCNn%0KeAF&X>=*d-bE}_H~<8s(a z*6v`79UN(Bf`CqOG(t)?H8v8y14i9QrVgUjYBNbNun{JG&)|&SV$8KLx=anMJ@UU7 z|4SE37=t-4H;=?tLlhgEVMXc^7yn(UT)CF|u$EOA!1lh=@zw$SE==1uM5 zQXtSz*J8-G=pd1bUpP&JMqy=L?ug57WgXfwH!rwYCr2zclS1tvY8{b88V!;4$Yip( zq8dQi+6kDA)L2HRMRvKh2I<{DAlRQ6uus)Fnl2h2r$zs90B5w4UP?iiuA{&oAMBx)-R`GdW#Ojl*=rBH02ETE3 z7A;z^Fmg#&>u> zyZ~aY2kNHE?X^J}=?%p1a9hixEMtaxu)FMnwiH@%6$_{2zEHMj1fxE#e?%A0SZt@{EW_7tc^Bxm#vtXp$bbJKE4bXo|w$^t$;FO zg5e>8*l9}~Y$=o{gcaE-ElB~Z(i4Zf)b5&`xJr%I*er;_MA#C6^GXXhN7;!b=wj;Vsu?EAMwbky7>_T$BquX2wqTdtL1fdQ zu4T|(6J@|E@DI&#$LDBWZUMJnG^QV??$n~5$kNbdop^NWMQoHe$z`85+CCAvXe71X zNVf~g8kmgV5KR*#DVDM5oFRu-W)koMOnI2Mvb~F3TR>Yc|DA6MGB2v`jVnrR8-w7!NK(gV8?~{Q$1?Lk=gn zv*a+~g3=EGJM9IOl;Modm0^SHw7&)B%U9e&=M3lfIFiymB3G!XPCjq+rn>|rqgfS| z_}Joo1I(z|*9-W8?^l4RDJ>YZq-%5Lyy}5KYJV`qpw%b#<1@{aSE_u zr48`KmDPYV{n(BLzaMbK9|l~oDhIG+RUP2)s&I-TdQX^mt4+Ml=={|tuyL){&?i?f z1?r{MYI=H=V)|lIP(Yy5uXfY6IAsD{ArzEfQ%sMnNe8R3HOuMW*E|YTT1^3cyha05 z7f|D8?xR<02ykE5m}zEUF;I@cQtCZBkDdz51g;sVR|6XQRRFD~)h?%8EyigC>dM*F zIT~o{YP_Kk^1!y2I>rHfr?wJqz6M;bTqUCxGzFEG%<|(!G&|C!%G)V zIqfne(F0)|_hNW4{Wy&Ija!=r+p=)&9Nd=d`jvot>M{M_)>i?ZzF?*M8gNQ4HsA*R zv!MoX<+^aZ0y2AL9a=uNel_5}^&!CT)}y4V(FgcK<66LZ8v=l{hqLJM4J=SMH=u>J zDF}F>33ZC*Re)W>Jlfgp1nPrk-0~$YsOxPB8Wn1H##sw zg{0eZWaCJ=>jn9JFKFmd(f_RkCHyO2XAI~_F(v2 zG5qGeQuvSdVtBF-bw*KlZXfDK_9>}+Kl-`%qb^U>eY{`t(;Yy+Z3j@7FY4l-LEW7L zN?P*_`n~WB>P(_e-y`|;^q}9(9@LpdUEm<<*h5PC#zFME?-1zpI?$6qJoYESoE*u>NngX3(tD98lL!C)4exu^C)D zjm<@WrWUaO47SM+&ZGiD)94$-qfkB=egL{HQCIlf0!Q+&CA>KZt&)B|n3^Fq9lx_0 zK7&}B4Q@Ouj%dZ%r0G!stq%}<)WV5S;_-FZOUnco zeCbGmq`Q=KqXT*LU4pk^n3I1fmHsw31A_U7asaXG4Gm$A?hIiU^*x6b@tTNP=Wx;8 z=TLI{+(JN1P4;;!P%YFwd7SssKN^m<=c&#!TymQvg>C eW8OxFaeLn#4$p@Z4&N#O2KW@#Gf*~oH~kMlZA7;K delta 4688 zcmc&&Yj9J?6}AmF&&$gK0!FY1uq6k}lCEq^c5ren$(BGb>q>qE*;v-Y4}@fFCmHI1 z!oxgGh*@yL8)F{9X{Ugb=Fv=?PLqaC(wT$~ByE#0Nry?(rZc8Yo3>NZp0n4&hH0ih z>mT1e=X|?o_kO#3?#l0coc7j@wC5@koU+_zx0pN@!D}%Sg{~lPbs&~!G!Sh;ae=N_ zqgN26A{gJ$))EbeNIXUqq{}R>+5AYfrK2qvZx5Gt#GhynhC52_c8k|)@u*9*D#9sv zO`apro@Xo|I!!UpvqX)UCz=x?Es(|$4n@P85=5)d6P{?ohHAB1K|+B}7)LP{g?Z?T ziuDGC>Vc_hjnY(kqSX}Zjm5ksIkmP;oz3xBX*3ir{r*|%h?X~M<{0%P*c^y8g*!-R zd_^%)a&$)h!USRO;ucJ6EMCbLd^N;rE+Zb7&uep5NI|bhaEioaae8egyUVnO@QyNz z(pIz|UTu$OHvvDfY)*gPcCH_PQdp#IMK}L1vi3a2;EY{sWdCmWty;jBfEzU}x z#b+VKW&<}gbD}>rm7~%07~t>H*8t{Zh^gFASH^54_D}i_uxIiGK>d_Tz@1at0sk@O zW5AE5{u!DMPrHpxFLQCgr8De+u^HEaFwdMf0Um4TWFjBWd>c?BI|}%|><>V^JU4ej zKBu%3rIuK#KnGDm!x!gyrPPv_NAw$qzPAa!odYAGg6li&vs9w`3vSH zh9{@M->@)+JsJ>0N0>7oZ3e>)XojxLXYtpV_e#hraib3wT>DB5d!A=ldweu28{&;o zXZ6qq#-#N$ZVVlHAdB@wkL#b~H>l5}F!)X&<`CId>ChRpb zv`7ezTA8E9i<1BHO+hlGB;CGoiZOFmic+uPiOKG<3Zj+pM%|cgfaMUq5LUYdQLJ`( z%p&2nMZ}-5Ic;8b1r&j5p_cHP0wQ`{ZrIy8Bd}hZ!=iS&ylN3ngAS6|%+QkPij2f> zjz1Z8v~&d3UYEHl5N!z&T>*sgG)Vb%8a?s5eQxZGiHOz!DPa~KFGRu95WmwQj?qQX z-YMdQh*k#^)@mGOYN@gO+L=Wr-quSBsbJzH+-z zAwmJ+p|IIq6*lL%*Do@VGE2G3V-bZaOO=E0g~kU1x@4eMgws#>0)8|AxmZA-3^;@} z7O@sY)g^cWDe*0(8Gx3&7G^%Gak;&M=n4y2Nzv&GK}WAyYzqX#Wr2<`(ea~bX#K!pN1y!>z1NcaePcICAm8N z&IOk3>hf)|G^f;>opd;UMk5ieE}z}(^s2ao(#Vrshfrg4_#AoC7bQ=$J#NV*23Qwc ztTWsmfpvEWn!=Lot`oIwsiVLwS?7~&Ma2fVE~47h7qAK>EUI{*ikH$$W8E3QGKp_|$1 z*!EV=yWqT}%thyhsuY~LxwF#2$(+fdZM0zWjO{a%2hc&c}MnkK> zx)@T@YoS80CWkfj^MRGqR4SOA$>k6U+!MmN)V^*iJsZZceic^Je}#*{;v@Mq7(rPs z=gg-UB8%xSn0F^qNOPNVA?|I;le4Rp13pUQB!JvZ8*b=S6NfACqvo}MQ(92zww7u@ za?wPmwJrlIzZKV_tF-~})7HoY4yI&Tk1c<=z8-K|Gz_>gijhyEK0x(`CcwT80l@u( z%V<_i0IM#BE#8TR09A41_QmS}zm7Ko+S_ntFSTKO&c@JWPU&$Am5&noSl!%*l8)Qs za=5+KHmBKDO`s;w(;W-wI~yI?r`-kEbABn^-frPIx69^)DhV<|tLyENhv4$q*&L1$ zNNX2NX5y_x4oI_T zhS^=He|Hx~dUwvFX-}gD8+#Yh=+mpgdi7~!`cGt0<7V`CY)<+aThOoEf`01Oh4k7M zT;s)wq<<=b{-5so(Pz+q?HP&BqQzUWfA?1OFK^AFleVp%ao-s$q9a=t(XMT{yK#VD zZ^HyjwkHQTy&e5;?)e*bp#S;~#&^rLB*!a#4#(?x4mh0#I60luTLF>V zy)qi>#eP5SMGiHRQ{kY*WzypZvELsLqNDnX6 z{p^U0zIp`vO+1PmsvxI(k0$%wI*R@HW5}Tja{Br)ouQ1kk+j@$dQ0I}>C2j)=PZvgLu{>V%Y>vg5i1-JP^tSZ8pMZnab$tq6P zF2AEz?Gy#G8E&&8fom4r9i$SMdoP>^*Jp>|&6Q~SNdSlZ`V4+HzH7vx0s}bw=7IUy z$<7bljUlP@I}xw_Fptj$vS@yI5_I}(AP*2{zWgjIaI<3`-Oa2UXK~F}okKi(4&ONA zJlY%1F9z&6j|KZSi_}~|_Kgduhx|p~SdlJmS?Em8$nWv0;hxRvZQCKooCw6)Qj_IKA%33ho9)+G{S#aB)O8;vT>b9Z`EVj#@(#Pg5&S% zW6^te?y(TN?vJ@PH_TNv_ulv(p&CA_Civ$C%MaE&zOg qFfyN0sNnw;c{);Va|(8QEm5cxxJ9flMP|cMho6-IJVfBVx&HuGQc=nP diff --git a/sources/PUP b/sources/PUP index f8e98ad1..c64000e1 100644 --- a/sources/PUP +++ b/sources/PUP @@ -1,139 +1,134 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8) -(FILECREATED "19-Jan-93 11:14:09" {DSK}lde>lispcore>sources>PUP.;4 352070Q +(FILECREATED " 1-May-2021 19:49:18" {DSK}larry>ilisp>medley>sources>PUP.;2 336270Q - changes to%: (RECORDS PUP PUPADDRESS ERRORPUP PUPROUTINGINFO PUPSOCKET PORT TIMEPUPCONTENTS) + changes to%: (FNS \PUP.SETTIME CANONICAL.HOSTNAME) + (VARS PUPCOMS) - previous date%: " 5-Jan-93 01:53:53" {DSK}lde>lispcore>sources>PUP.;3) + previous date%: "19-Jan-93 11:14:09" {DSK}larry>ilisp>medley>sources>PUP.;1) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT PUPCOMS) -(RPAQQ PUPCOMS ((COMS (* ; "Low level pup") - (DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS) - (MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER - \LOCALPUPNETNUMBER)) - (GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#)) - (FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER - \PROMPT.FOR.PUP.NUMBER \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM) - (INITVARS (\PUP.CHECKSUMFLG T) - (\MAX.EPKTS.ON.PUPSOCKET 20Q) - (\LOCALPUPNETHOST) - (\OLDPUPHOST# 0))) - (COMS (* ; "Pup error stuff") - (DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP) - (CONSTANTS * PUPERRORCODES)) - (GLOBALVARS PUPERRORMESSAGES)) - (VARS PUPERRORMESSAGES) - (FNS \PUPERROR)) - (COMS (* ; "Pup utilities") - (FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS - GETPUPWORD \PUPINIT) - (FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 - \PUP.SETTIME \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT - \PARSE.PORTCONSTANT \FIXLOCALNET) - (FNS PORTSTRING OCTALSTRING) - (INITVARS (\ETHERPORTS (HASHARRAY 24Q)) - (\ETHERTIMEOUT 3720Q) - (\MAXETHERTRIES 4) - (\PUPCOUNTER 0)) - (GLOBALVARS \ETHERPORTS \PUPCOUNTER)) - (COMS (* ; "Accessing a PUP's contents") - (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM - PUTPUPSTRING) - (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE)) - (COMS (* ; +(RPAQQ PUPCOMS + ((COMS (* ; "Low level pup") + (DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS) + (MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER + \LOCALPUPNETNUMBER)) + (GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#)) + (FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER \PROMPT.FOR.PUP.NUMBER + \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM) + (INITVARS (\PUP.CHECKSUMFLG T) + (\MAX.EPKTS.ON.PUPSOCKET 20Q) + (\LOCALPUPNETHOST) + (\OLDPUPHOST# 0))) + (COMS (* ; "Pup error stuff") + (DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP) + (CONSTANTS * PUPERRORCODES)) + (GLOBALVARS PUPERRORMESSAGES)) + (VARS PUPERRORMESSAGES) + (FNS \PUPERROR)) + (COMS (* ; "Pup utilities") + (FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS GETPUPWORD \PUPINIT) + (FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 \PUP.SETTIME + \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT \PARSE.PORTCONSTANT \FIXLOCALNET) + (FNS PORTSTRING OCTALSTRING) + (INITVARS (\ETHERPORTS (HASHARRAY 24Q)) + (\ETHERTIMEOUT 3720Q) + (\MAXETHERTRIES 4) + (\PUPCOUNTER 0)) + (GLOBALVARS \ETHERPORTS \PUPCOUNTER)) + (COMS (* ; "Accessing a PUP's contents") + (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING) + (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE)) + (COMS (* ;  "Reading property lists from streams") - (FNS READPLIST) - (INITVARS \READPLIST.READTABLES) - (GLOBALVARS \READPLIST.READTABLES)) - (COMS (FNS CANONICAL.HOSTNAME \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME) - (P (* ; + (FNS READPLIST) + (INITVARS \READPLIST.READTABLES) + (GLOBALVARS \READPLIST.READTABLES)) + (COMS (FNS \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME) + (P (* ;  "Default this for when IP not loaded") - (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T)) - (ADDVARS (\HOSTNAMES) - (\SYSTEMCACHEVARS \HOSTNAMES)) - (GLOBALVARS \HOSTNAMES)) - [COMS (* ; "PUP allocation") - (EXPORT (MACROS BINDPUPS) - (PROP INFO BINDPUPS) - (ALISTS (PRETTYPRINTMACROS BINDPUPS] - (COMS (* ; "Pup routing") - (FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET - SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE) - (INITVARS (\PUP.ROUTING.TABLE (CONS)) - (\PUP.ROUTING.TABLE.RADIUS 2) - (\PUPROUTER.PROBECOUNT 0) - (\PUPROUTER.PROBETIMER) - (\PUPROUTER.PROBEINTERVAL 5670Q) - (\PUP.READY) - (\PUP.READY.EVENT (CREATE.EVENT "Pup Ready")) - (\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready"))) - (ADDVARS (\SYSTEMCACHEVARS \PUP.READY)) - (DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO) - (CONSTANTS \PUP.ROUTINGINFO.WORDS) - (GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS - \PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER - \PUPROUTER.PROBEINTERVAL \PUP.READY \PUP.READY.EVENT - \PUP.READY.LOCK))) - (COMS (* ; "Sockets") - (DECLARE%: DONTCOPY (RECORDS PUPSOCKET) - (MACROS \PUPSOCKET.FROM#) - (GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET - \PUP.CHECKSUMFLG)) - (INITRECORDS PUPSOCKET) - (SYSRECORDS PUPSOCKET) - (FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER - PUPSOCKETEVENT \FLUSHPUPSOCQUEUE) - (FNS \GETMISCSOCKET) - (GLOBALVARS \MISC.SOCKET \PUPSOCKETS) - (INITVARS (\MISC.SOCKET) - (\PUPSOCKETS))) - (DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP) - (GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES - PUPTRACEFLG LOGINPASSWORDS) - (GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES - PUPPRINTMACROS) - (CONSTANTS (\PUPOVLEN 26Q) - (\MAX.PUPLENGTH 1024Q) - (\TIME.GETPUP 5)) - (PROP VARTYPE PUPPRINTMACROS) - (MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE - \PUTPUPBYTE) - (CONSTANTS * RAWPUPTYPES) - (INITVARS (PUPTYPES RAWPUPTYPES)) - (CONSTANTS * WELLKNOWNPUPSOCKETS)) - (CONSTANTS * PUPCONSTANTS) - (MACROS PUPDEBUGGING) - (ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q)) - (RECORDS TIMEPUPCONTENTS)) - (COMS (* ; "echo utilities") - (FNS PUP.ECHOSERVER PUP.ECHOUSER)) - (COMS (* ; "Peeking") - (FNS \PEEKPUP \MAYBEPEEKPUP) - (INITVARS (\PEEKPUPNUMBER)) - (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC) - (GLOBALVARS \PEEKPUPNUMBER))) - (COMS (* ; "Debugging assistance") - (FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE - PRINTCONSTANT) - (INITVARS (PUPTRACEFLG) - (PUPTRACEFILE T) - (PUPTRACETIME)) - (GLOBALVARS PUPTRACETIME) - (ADDVARS (PUPPRINTMACROS) - (PUPONLYTYPES) - (PUPIGNORETYPES)) - (ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q))) - (DECLARE%: DONTEVAL@LOAD (P (\PUPINIT))) - (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) - (FILES (LOADCOMP) - LLETHER)) - (PROP (MAKEFILE-ENVIRONMENT FILETYPE) - PUP))) + (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T)) + (ADDVARS (\HOSTNAMES) + (\SYSTEMCACHEVARS \HOSTNAMES)) + (GLOBALVARS \HOSTNAMES)) + [COMS (* ; "PUP allocation") + (EXPORT (MACROS BINDPUPS) + (PROP INFO BINDPUPS) + (ALISTS (PRETTYPRINTMACROS BINDPUPS] + (COMS (* ; "Pup routing") + (FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET + SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE) + (INITVARS (\PUP.ROUTING.TABLE (CONS)) + (\PUP.ROUTING.TABLE.RADIUS 2) + (\PUPROUTER.PROBECOUNT 0) + (\PUPROUTER.PROBETIMER) + (\PUPROUTER.PROBEINTERVAL 5670Q) + (\PUP.READY) + (\PUP.READY.EVENT (CREATE.EVENT "Pup Ready")) + (\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready"))) + (ADDVARS (\SYSTEMCACHEVARS \PUP.READY)) + (DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO) + (CONSTANTS \PUP.ROUTINGINFO.WORDS) + (GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS \PUPROUTER.PROBECOUNT + \PUPROUTER.PROBETIMER \PUPROUTER.PROBEINTERVAL \PUP.READY + \PUP.READY.EVENT \PUP.READY.LOCK))) + (COMS (* ; "Sockets") + (DECLARE%: DONTCOPY (RECORDS PUPSOCKET) + (MACROS \PUPSOCKET.FROM#) + (GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET \PUP.CHECKSUMFLG)) + (INITRECORDS PUPSOCKET) + (SYSRECORDS PUPSOCKET) + (FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER PUPSOCKETEVENT + \FLUSHPUPSOCQUEUE) + (FNS \GETMISCSOCKET) + (GLOBALVARS \MISC.SOCKET \PUPSOCKETS) + (INITVARS (\MISC.SOCKET) + (\PUPSOCKETS))) + (DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP) + (GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES PUPTRACEFLG + LOGINPASSWORDS) + (GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES + PUPPRINTMACROS) + (CONSTANTS (\PUPOVLEN 26Q) + (\MAX.PUPLENGTH 1024Q) + (\TIME.GETPUP 5)) + (PROP VARTYPE PUPPRINTMACROS) + (MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE \PUTPUPBYTE) + (CONSTANTS * RAWPUPTYPES) + (INITVARS (PUPTYPES RAWPUPTYPES)) + (CONSTANTS * WELLKNOWNPUPSOCKETS)) + (CONSTANTS * PUPCONSTANTS) + (MACROS PUPDEBUGGING) + (ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q)) + (RECORDS TIMEPUPCONTENTS)) + (COMS (* ; "echo utilities") + (FNS PUP.ECHOSERVER PUP.ECHOUSER)) + (COMS (* ; "Peeking") + (FNS \PEEKPUP \MAYBEPEEKPUP) + (INITVARS (\PEEKPUPNUMBER)) + (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC) + (GLOBALVARS \PEEKPUPNUMBER))) + (COMS (* ; "Debugging assistance") + (FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE PRINTCONSTANT) + (INITVARS (PUPTRACEFLG) + (PUPTRACEFILE T) + (PUPTRACETIME)) + (GLOBALVARS PUPTRACETIME) + (ADDVARS (PUPPRINTMACROS) + (PUPONLYTYPES) + (PUPIGNORETYPES)) + (ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q))) + (DECLARE%: DONTEVAL@LOAD (P (\PUPINIT))) + (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) + (FILES (LOADCOMP) + LLETHER)) + (PROP (MAKEFILE-ENVIRONMENT FILETYPE) + PUP))) @@ -193,11 +188,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, ) (DECLARE%: EVAL@COMPILE -(PUTPROPS \LOCALPUPADDRESS MACRO (NIL \LOCALPUPNETHOST)) +(PUTPROPS \LOCALPUPADDRESS MACRO (NIL \LOCALPUPNETHOST)) -(PUTPROPS \LOCALPUPHOSTNUMBER MACRO (NIL (fetch PUPHOST# of \LOCALPUPNETHOST))) +(PUTPROPS \LOCALPUPHOSTNUMBER MACRO (NIL (fetch PUPHOST# of \LOCALPUPNETHOST))) -(PUTPROPS \LOCALPUPNETNUMBER MACRO (NIL (fetch PUPNET# of \LOCALPUPNETHOST))) +(PUTPROPS \LOCALPUPNETNUMBER MACRO (NIL (fetch PUPNET# of \LOCALPUPNETHOST))) ) (* "END EXPORTED DEFINITIONS") @@ -485,16 +480,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, ))) ) -(RPAQQ PUPERRORCODES ((\PUPE.CHECKSUM 1) - (\PUPE.NOSOCKET 2) - (\PUPE.SOCKETFULL 3) - (\PUPE.GATEWAY.BADPUP 1001Q) - (\PUPE.NOROUTE 1002Q) - (\PUPE.NOHOST 1003Q) - (\PUPE.LOOPED 1004Q) - (\PUPE.TOOLARGE 1005Q) - (\PUPE.WRONG.GATEWAY 1006Q) - (\PUPE.GATEWAYFULL 1007Q))) +(RPAQQ PUPERRORCODES + ((\PUPE.CHECKSUM 1) + (\PUPE.NOSOCKET 2) + (\PUPE.SOCKETFULL 3) + (\PUPE.GATEWAY.BADPUP 1001Q) + (\PUPE.NOROUTE 1002Q) + (\PUPE.NOHOST 1003Q) + (\PUPE.LOOPED 1004Q) + (\PUPE.TOOLARGE 1005Q) + (\PUPE.WRONG.GATEWAY 1006Q) + (\PUPE.GATEWAYFULL 1007Q))) (DECLARE%: EVAL@COMPILE (RPAQQ \PUPE.CHECKSUM 1) @@ -539,16 +535,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, ) ) -(RPAQQ PUPERRORMESSAGES ((1 "Bad Checksum") - (2 "No such socket") - (3 "Socket full") - (1001Q "Inconsistent pup") - (1002Q "No route to that host") - (1003Q "Host is down") - (1004Q "Too many hops") - (1005Q "Pup too long") - (1006Q "Wrong gateway for that host") - (1007Q "Gateway IQ full"))) +(RPAQQ PUPERRORMESSAGES + ((1 "Bad Checksum") + (2 "No such socket") + (3 "Socket full") + (1001Q "Inconsistent pup") + (1002Q "No route to that host") + (1003Q "Host is down") + (1004Q "Too many hops") + (1005Q "Pup too long") + (1006Q "Wrong gateway for that host") + (1007Q "Gateway IQ full"))) (DEFINEQ (\PUPERROR @@ -936,41 +933,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, (\NET.SETTIME T]) (\PUP.SETTIME - [LAMBDA (RETFLG) (* bvm%: " 1-NOV-83 17:07") - -(* ;;; "Sets the local time from the network, if possible, or simply returns a 32-bit unsigned alto time if RETFLG is T") - - (DECLARE (GLOBALVARS \TimeZoneComp \BeginDST \EndDST)) - (PROG ((SOC (\GETMISCSOCKET)) - (OPUP (ALLOCATE.PUP)) - RESULT IPUP DATA TIME) - (SETUPPUP OPUP 0 \PUPSOCKET.MISCSERVICES \PT.ALTOTIMEREQUEST NIL SOC T) - (RETURN (to \MAXETHERTRIES when (SETQ IPUP (EXCHANGEPUPS SOC OPUP NIL T)) - do (SELECTC (fetch PUPTYPE of IPUP) - (\PT.ALTOTIMERESPONSE - (SETQ DATA (fetch PUPCONTENTS of IPUP)) - (SETQ TIME (create FIXP - HINUM _ (fetch TIMEPUPVALUEHI of - DATA) - LONUM _ (fetch TIMEPUPVALUELO of - DATA))) - (COND - (RETFLG (RETURN TIME))) - (\SETNEWTIME0 TIME) - (SETQ \TimeZoneComp (ITIMES (COND - ((fetch TIMEPUPEASTP - of DATA) - -1) - (T 1)) - (fetch TIMEPUPHOURS of DATA)) - ) - (SETQ \BeginDST (fetch TIMEPUPBEGINDST of DATA)) - (SETQ \EndDST (fetch TIMEPUPENDDST of DATA)) - (RELEASE.PUP IPUP) - (RETURN T)) - (\PT.ERROR (AND PUPTRACEFLG (PRINTERRORPUP IPUP PUPTRACEFILE))) - NIL) - (RELEASE.PUP IPUP]) + [LAMBDA (RETFLG) (* ; "Edited 13-May-88 15:22 by MASINTER") + (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG))) + (SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 10Q NIL))) + (\PROCESS.RESET.TIMERS) + (DAYTIME]) (\SETNEWTIME0 [LAMBDA (NEWTIME) (* bvm%: "26-Jul-84 15:23") @@ -1281,30 +1248,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, ) (DEFINEQ -(CANONICAL.HOSTNAME - [LAMBDA (HOSTNAME) (* ; "Edited 12-Apr-88 17:43 by bvm") - (LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL] - (if DEV - then (* ; "Known device, don't ask anyone") - (fetch DEVICENAME of (CDR DEV)) - elseif (STRPOS ":" HOSTNAME) - then (* ; "Assume NS") - (\CANONICAL.NSHOSTNAME HOSTNAME) - elseif (NUMBERP HOSTNAME) - then (* ; "Some sort of host address") - (if (AND (SMALLP HOSTNAME) - (< HOSTNAME 377Q)) - then (* ; "valid pup address") - HOSTNAME - elseif \IP.READY - then (* ; "Big number may be IP host") - (IPHOSTNAME HOSTNAME)) - else (if (NOT (LITATOM HOSTNAME)) - then (SETQ HOSTNAME (MKATOM HOSTNAME))) - (OR (CDR (FASSOC HOSTNAME \HOSTNAMES)) - (\CANONICALIZE.IP.HOSTNAME HOSTNAME) - (\CANONICALIZE.PUP.HOSTNAME HOSTNAME]) - (\CANONICAL.HOSTNAME [LAMBDA (NAME) (* ; "Edited 11-Mar-88 12:09 by bvm") @@ -1357,25 +1300,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS BINDPUPS MACRO (X (CONS (LIST 'LAMBDA (CAR X) - (CONS 'PROGN (CDR X))) - (in (CAR X) collect (LIST 'ALLOCATE.PUP] +(PUTPROPS BINDPUPS MACRO [X (CONS (LIST 'LAMBDA (CAR X) + (CONS 'PROGN (CDR X))) + (in (CAR X) collect (LIST 'ALLOCATE.PUP]) ) -(PUTPROPS BINDPUPS INFO BINDS) +(PUTPROPS BINDPUPS INFO BINDS) -(ADDTOVAR PRETTYPRINTMACROS (BINDPUPS LAMBDA - (FORM) - (PROG [(POS (IPLUS 2 (POSITION] - (PRIN1 "(") - (PRIN2 (CAR FORM)) - (SPACES 1) - (PRINTDEF (CADR FORM) - (POSITION)) - (OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM] - (TAB POS 0)) - (PRINTDEF FORM POS T T FNSLST) - (PRIN1 ")")))) +(ADDTOVAR PRETTYPRINTMACROS + (BINDPUPS LAMBDA + (FORM) + (PROG [(POS (IPLUS 2 (POSITION] + (PRIN1 "(") + (PRIN2 (CAR FORM)) + (SPACES 1) + (PRINTDEF (CADR FORM) + (POSITION)) + (OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM] + (TAB POS 0)) + (PRINTDEF FORM POS T T FNSLST) + (PRIN1 ")")))) (* "END EXPORTED DEFINITIONS") @@ -1725,12 +1669,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, (DECLARE%: EVAL@COMPILE -[PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO) - (for SOC in \PUPSOCKETS - when (AND (EQ (fetch PSOCKETLO of SOC) - SOCLO) - (EQ (fetch PSOCKETHI of SOC) - SOCHI)) do (RETURN SOC] +(PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO) + (for SOC in \PUPSOCKETS + when (AND (EQ (fetch PSOCKETLO of SOC) + SOCLO) + (EQ (fetch PSOCKETHI of SOC) + SOCHI)) do (RETURN SOC)))) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -1920,61 +1864,62 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, (\TIME.GETPUP 5)) ) -(PUTPROPS PUPPRINTMACROS VARTYPE ALIST) +(PUTPROPS PUPPRINTMACROS VARTYPE ALIST) (DECLARE%: EVAL@COMPILE -(PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#) - (\GETBASE (fetch PUPCONTENTS of PUP) - WORD#))) +(PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#) + (\GETBASE (fetch PUPCONTENTS of PUP) + WORD#))) -(PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE) - (\PUTBASE (fetch PUPCONTENTS of PUP) - WORD# VALUE))) +(PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE) + (\PUTBASE (fetch PUPCONTENTS of PUP) + WORD# VALUE))) -(PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#) - (\GETBASEBYTE (fetch PUPCONTENTS of PUP) - BYTE#))) +(PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#) + (\GETBASEBYTE (fetch PUPCONTENTS of PUP) + BYTE#))) -(PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE) - (\PUTBASEBYTE (fetch PUPCONTENTS of PUP) - BYTE# VALUE))) +(PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE) + (\PUTBASEBYTE (fetch PUPCONTENTS of PUP) + BYTE# VALUE))) ) -(RPAQQ RAWPUPTYPES ((\PT.ECHOME 1) - (\PT.IAMECHO 2) - (\PT.IAMBADECHO 3) - (\PT.ERROR 4) - (\PT.RFC 10Q) - (\PT.ABORT 11Q) - (\PT.END 12Q) - (\PT.ENDREPLY 13Q) - (\PT.DATA 20Q) - (\PT.ADATA 21Q) - (\PT.ACK 22Q) - (\PT.MARK 23Q) - (\PT.INTERRUPT 24Q) - (\PT.INTERRUPTREPLY 25Q) - (\PT.AMARK 26Q) - (\PT.GATEWAYREQUEST 200Q) - (\PT.GATEWAYRESPONSE 201Q) - (\PT.ALTOTIMEREQUEST 206Q) - (\PT.ALTOTIMERESPONSE 207Q) - (\PT.MSGCHECK 210Q) - (\PT.NEWMAIL 211Q) - (\PT.NONEWMAIL 212Q) - (\PT.NOMAILBOX 213Q) - (\PT.LAURELCHECK 214Q) - (\PT.NAMELOOKUP 220Q) - (\PT.NAMERESPONSE 221Q) - (\PT.NAME/ADDRERROR 222Q) - (\PT.ADDRLOOKUP 223Q) - (\PT.ADDRRESPONSE 224Q) - (\PT.PRINTERSTATUS 200Q) - (\PT.STATUSRESPONSE 201Q) - (\PT.PRINTERCAPABILITY 202Q) - (\PT.CAPABILITYRESPONSE 203Q) - (\PT.PRINTJOBSTATUS 204Q) - (\PT.PRINTJOBRESPONSE 205Q))) +(RPAQQ RAWPUPTYPES + ((\PT.ECHOME 1) + (\PT.IAMECHO 2) + (\PT.IAMBADECHO 3) + (\PT.ERROR 4) + (\PT.RFC 10Q) + (\PT.ABORT 11Q) + (\PT.END 12Q) + (\PT.ENDREPLY 13Q) + (\PT.DATA 20Q) + (\PT.ADATA 21Q) + (\PT.ACK 22Q) + (\PT.MARK 23Q) + (\PT.INTERRUPT 24Q) + (\PT.INTERRUPTREPLY 25Q) + (\PT.AMARK 26Q) + (\PT.GATEWAYREQUEST 200Q) + (\PT.GATEWAYRESPONSE 201Q) + (\PT.ALTOTIMEREQUEST 206Q) + (\PT.ALTOTIMERESPONSE 207Q) + (\PT.MSGCHECK 210Q) + (\PT.NEWMAIL 211Q) + (\PT.NONEWMAIL 212Q) + (\PT.NOMAILBOX 213Q) + (\PT.LAURELCHECK 214Q) + (\PT.NAMELOOKUP 220Q) + (\PT.NAMERESPONSE 221Q) + (\PT.NAME/ADDRERROR 222Q) + (\PT.ADDRLOOKUP 223Q) + (\PT.ADDRRESPONSE 224Q) + (\PT.PRINTERSTATUS 200Q) + (\PT.STATUSRESPONSE 201Q) + (\PT.PRINTERCAPABILITY 202Q) + (\PT.CAPABILITYRESPONSE 203Q) + (\PT.PRINTJOBSTATUS 204Q) + (\PT.PRINTJOBRESPONSE 205Q))) (DECLARE%: EVAL@COMPILE (RPAQQ \PT.ECHOME 1) @@ -2151,9 +2096,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, (DECLARE%: EVAL@COMPILE -[PUTPROPS PUPDEBUGGING MACRO ((X . Y) - (COND - (PUPTRACEFLG (printout PUPTRACEFILE X . Y] +(PUTPROPS PUPDEBUGGING MACRO [(X . Y) + (COND + (PUPTRACEFLG (printout PUPTRACEFILE X . Y]) ) @@ -2521,36 +2466,35 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, LLETHER) ) -(PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q)) +(PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q)) -(PUTPROPS PUP FILETYPE CL:COMPILE-FILE) +(PUTPROPS PUP FILETYPE CL:COMPILE-FILE) (PUTPROPS PUP COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3705Q -3706Q 3707Q 3710Q 3711Q)) +3706Q 3707Q 3710Q 3711Q 3745Q)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (30620Q 64575Q (\STARTPUP 30632Q . 31504Q) (ASSURE.PUP.READY 31506Q . 37601Q) ( -\FIND.LOCALPUPHOSTNUMBER 37603Q . 42001Q) (\PROMPT.FOR.PUP.NUMBER 42003Q . 44023Q) (\HANDLE.RAW.PUP -44025Q . 62125Q) (\FORWARD.PUP 62127Q . 63047Q) (\SETPUPCHECKSUM 63051Q . 64573Q)) (72106Q 77200Q ( -\PUPERROR 72120Q . 77176Q)) (77237Q 116373Q (SETUPPUP 77251Q . 102437Q) (SWAPPUPPORTS 102441Q . -103256Q) (GETPUP 103260Q . 106172Q) (SENDPUP 106174Q . 112016Q) (EXCHANGEPUPS 112020Q . 114056Q) ( -DISCARDPUPS 114060Q . 114664Q) (GETPUPWORD 114666Q . 115205Q) (\PUPINIT 115207Q . 116371Q)) (116374Q -164121Q (ETHERHOSTNAME 116406Q . 125534Q) (ETHERHOSTNUMBER 125536Q . 126151Q) (ETHERPORT 126153Q . -131672Q) (BESTPUPADDRESS 131674Q . 141734Q) (NETDAYTIME0 141736Q . 142267Q) (\PUP.SETTIME 142271Q . -147063Q) (\SETNEWTIME0 147065Q . 150145Q) (\NET.SETTIME 150147Q . 151236Q) (NETDATE 151240Q . 151575Q) - (\LOOKUPPORT 151577Q . 157436Q) (\PARSE.PORTCONSTANT 157440Q . 162550Q) (\FIXLOCALNET 162552Q . -164117Q)) (164122Q 165457Q (PORTSTRING 164134Q . 165123Q) (OCTALSTRING 165125Q . 165455Q)) (166051Q -175162Q (CLEARPUP 166063Q . 170576Q) (PUTPUPWORD 170600Q . 171125Q) (GETPUPBYTE 171127Q . 171452Q) ( -PUTPUPBYTE 171454Q . 172005Q) (GETPUPSTRING 172007Q . 173440Q) (GETPUPSTREAM 173442Q . 174371Q) ( -PUTPUPSTRING 174373Q . 175160Q)) (177265Q 205104Q (READPLIST 177277Q . 205102Q)) (205265Q 213311Q ( -CANONICAL.HOSTNAME 205277Q . 210121Q) (\CANONICAL.HOSTNAME 210123Q . 211170Q) ( -\CANONICALIZE.PUP.HOSTNAME 211172Q . 213307Q)) (216177Q 251404Q (\PUPGATELISTENER 216211Q . 222042Q) ( -\HANDLE.PUP.ROUTING.INFO 222044Q . 234403Q) (\ROUTE.PUP 234405Q . 240240Q) (\LOCATE.PUPNET 240242Q . -244777Q) (SORT.PUPHOSTS.BY.DISTANCE 245001Q . 247255Q) (\PUPNET.CLOSERP 247257Q . 250440Q) ( -PUPNET.DISTANCE 250442Q . 251402Q)) (263001Q 272753Q (OPENPUPSOCKET 263013Q . 267474Q) (CLOSEPUPSOCKET - 267476Q . 271155Q) (PUPSOCKETNUMBER 271157Q . 271410Q) (PUPSOCKETFROMNUMBER 271412Q . 272051Q) ( -PUPSOCKETEVENT 272053Q . 272332Q) (\FLUSHPUPSOCQUEUE 272334Q . 272751Q)) (272754Q 273521Q ( -\GETMISCSOCKET 272766Q . 273517Q)) (314367Q 327157Q (PUP.ECHOSERVER 314401Q . 317206Q) (PUP.ECHOUSER -317210Q . 327155Q)) (327210Q 336341Q (\PEEKPUP 327222Q . 334353Q) (\MAYBEPEEKPUP 334355Q . 336337Q)) ( -336742Q 350177Q (PRINTPUP 336754Q . 343124Q) (PRINTPUPROUTE 343126Q . 345073Q) (PRINTPUPDATA 345075Q - . 345545Q) (PRINTERRORPUP 345547Q . 346247Q) (PUPTRACE 346251Q . 346562Q) (PRINTCONSTANT 346564Q . -350175Q))))) + (FILEMAP (NIL (25631Q 61606Q (\STARTPUP 25643Q . 26515Q) (ASSURE.PUP.READY 26517Q . 34612Q) ( +\FIND.LOCALPUPHOSTNUMBER 34614Q . 37012Q) (\PROMPT.FOR.PUP.NUMBER 37014Q . 41034Q) (\HANDLE.RAW.PUP +41036Q . 57136Q) (\FORWARD.PUP 57140Q . 60060Q) (\SETPUPCHECKSUM 60062Q . 61604Q)) (66376Q 73470Q ( +\PUPERROR 66410Q . 73466Q)) (73527Q 112663Q (SETUPPUP 73541Q . 76727Q) (SWAPPUPPORTS 76731Q . 77546Q) +(GETPUP 77550Q . 102462Q) (SENDPUP 102464Q . 106306Q) (EXCHANGEPUPS 106310Q . 110346Q) (DISCARDPUPS +110350Q . 111154Q) (GETPUPWORD 111156Q . 111475Q) (\PUPINIT 111477Q . 112661Q)) (112664Q 154244Q ( +ETHERHOSTNAME 112676Q . 122024Q) (ETHERHOSTNUMBER 122026Q . 122441Q) (ETHERPORT 122443Q . 126162Q) ( +BESTPUPADDRESS 126164Q . 136224Q) (NETDAYTIME0 136226Q . 136557Q) (\PUP.SETTIME 136561Q . 137206Q) ( +\SETNEWTIME0 137210Q . 140270Q) (\NET.SETTIME 140272Q . 141361Q) (NETDATE 141363Q . 141720Q) ( +\LOOKUPPORT 141722Q . 147561Q) (\PARSE.PORTCONSTANT 147563Q . 152673Q) (\FIXLOCALNET 152675Q . 154242Q +)) (154245Q 155602Q (PORTSTRING 154257Q . 155246Q) (OCTALSTRING 155250Q . 155600Q)) (156174Q 165305Q ( +CLEARPUP 156206Q . 160721Q) (PUTPUPWORD 160723Q . 161250Q) (GETPUPBYTE 161252Q . 161575Q) (PUTPUPBYTE +161577Q . 162130Q) (GETPUPSTRING 162132Q . 163563Q) (GETPUPSTREAM 163565Q . 164514Q) (PUTPUPSTRING +164516Q . 165303Q)) (167410Q 175227Q (READPLIST 167422Q . 175225Q)) (175410Q 200610Q ( +\CANONICAL.HOSTNAME 175422Q . 176467Q) (\CANONICALIZE.PUP.HOSTNAME 176471Q . 200606Q)) (203163Q +236370Q (\PUPGATELISTENER 203175Q . 207026Q) (\HANDLE.PUP.ROUTING.INFO 207030Q . 221367Q) (\ROUTE.PUP +221371Q . 225224Q) (\LOCATE.PUPNET 225226Q . 231763Q) (SORT.PUPHOSTS.BY.DISTANCE 231765Q . 234241Q) ( +\PUPNET.CLOSERP 234243Q . 235424Q) (PUPNET.DISTANCE 235426Q . 236366Q)) (250017Q 257771Q ( +OPENPUPSOCKET 250031Q . 254512Q) (CLOSEPUPSOCKET 254514Q . 256173Q) (PUPSOCKETNUMBER 256175Q . 256426Q +) (PUPSOCKETFROMNUMBER 256430Q . 257067Q) (PUPSOCKETEVENT 257071Q . 257350Q) (\FLUSHPUPSOCQUEUE +257352Q . 257767Q)) (257772Q 260537Q (\GETMISCSOCKET 260004Q . 260535Q)) (300551Q 313341Q ( +PUP.ECHOSERVER 300563Q . 303370Q) (PUP.ECHOUSER 303372Q . 313337Q)) (313372Q 322523Q (\PEEKPUP 313404Q + . 320535Q) (\MAYBEPEEKPUP 320537Q . 322521Q)) (323124Q 334361Q (PRINTPUP 323136Q . 327306Q) ( +PRINTPUPROUTE 327310Q . 331255Q) (PRINTPUPDATA 331257Q . 331727Q) (PRINTERRORPUP 331731Q . 332431Q) ( +PUPTRACE 332433Q . 332744Q) (PRINTCONSTANT 332746Q . 334357Q))))) STOP diff --git a/sources/PUP.LCOM b/sources/PUP.LCOM index e70f75bebaeea426a5fdf231ff83043deb711b7a..82a817906eef3c9178405992ae777fb480e89b97 100644 GIT binary patch delta 8980 zcmb7K3vg7|dEQ+Cf(reHz zIh-{mYmPeo)TAKFZns>+aWz1k+BNTjnvAg zCKG2zl4nlyM{I9vl&wlb-NB)Wx&}>Fltw(m(O{LO{|AeeT8XW-95qX9%5pQ>H!TBb zwSwblzs_6p66y~xiKD%?GUTHsi z$uWifxkO|CD$(KRn>Mo8N&~$=SxI}At|EelR?*zwuA&p`Ru7?lY&G@&YxOa-{YBLO zUJ@4QX-lHOY%&j;@Nf78wJWI^q~?hk(|v5J z#JBpY>B4C0&pPm@|B}LfT(WD`!Rw|A^Bq?#y_e?)+2+#kI-N?F95y%s_E0$3Vniac zOH;e#W*@GWU8=K74g{m#wm!RY$OuGbmqTT1%E}Hp-Su6v-rAbo5jPYrmo@9q{MUAkmDfM(*ovMM5+})}Q#r}c~3QlF_f{pBI*#Ka|rGN~s z?7)iFERhOMTO5_0^)CGG&;zYL!yeXq?8I!RJ8x0?eNGps*4sdv(d&)MPAATf^hKhE zAAP(b%`CmyXUJtveos3i@^R>%Pht|bzS-D|}<`$hI&4sJmyuBe=b2<2&MRT(G z6BW~%dIM2fG^l`63UMlj*7UH0xT!e&&2*1i@5Zm7uN4m=o355sl1B{8)_oWY7*QIQ zReFsW4YW2#WL1HX#Nq79hLxobBH@Nj?BfluE0RriYM8VU7wLgMFL)3z!nL)M9*J~^ z4dS7lGhL|d2jx#!O164A;%#j718$5&%F4-Ha#;vc1(E)(yCUX~U@8`U!eUCjQgH8#`8V8X{?fC8 zY-fJP{I=&x(b~sXbS#eiz!Se(bAjwA^)mHFQ-6_JJae_C@NfrvYioIcc@}nf7Hk8> z^8-cm{LJC+9x1q-81BD}YfR7aq35`*@~(vIO!GLp`odUhb}GJL8(*559gi>U7){M4 zShE~b`Qp;$^TQsoc*gYeaZ9HAlZ9mm7YaZ5@FmZ9L1ygx>`l3$>cP&@)RP|H^_s#< z13nyfxTEvBxp1ByFq-t|EVw0_&*q>+l z^-j_qBhb}tbQ`j}p1o7GY1*x2)Go?30*WWQT%^I^xe*Qr!?KGoCf3qnv~)(gVMT5- z?Ch*lBMn{rsbX=&2#{jKny@s|qlfS#6bwfrfDzi9Jxg^EY=pwz0OA6EO7x83iSY}o@dlc1F!YYT_;t^?xLIdgEE5}V&%4UN4XKf_x&%DkLFR8a1 zfKwIX%&r!KCy5(ICj^Tfq#o>W?cQa;Q&m;iQ?>RY39^GeLqR!{{;5_s-^DiU9Nb>s z%zb#pvnfyJNvj7+|y<8rfpS>iX%m|kMR-MgeqoUgMV3>UKp zcHh=UZYs@2?witVBoCDCx)!^fP23(;74J{)Q|f^hdrGIdjZ#Po=Nj^cjn)IQLKdv| z=-z1B0V@gtLON^^CJf(`!4l9SA`|XBTMZ6I&`^!Sg*-`UhH8OctBizWaYx8rv#+oCm4$rKG7|Jri|1<|(KF5K?6-D5Yuhtbb!GW?I`naiw`iUVX_)k# zkXW!mQ&n)bY`udJ>IP6y-E6>7zF*CVhpd9&E)7^Q-seckaVjgTtTYwP!3G`W(*!9u zI(_1~;9?X;a|82KVqPE_Mw&D-aRO0DE(~%rA=J+bhXNV}N9f~|iJ|zpt}}@<;G{|s z53OOV+czk*OQBdQcb7sTN+8KY1EeYB8!#=R5;mf2=4R(~vWJz;7PphVq$ukoqqhaY zRl9+O5pEcBA1LJ%kQ8cL5qH;0t=>orTu64FHEMFr7PHA@&PZo%vB|Tr3=UL80iID9 z62zjq*kjuIDg>o@8j`WXo?y6DSYk@6<*N{+0iJj~40a-9!JS@2PGVJ~^Wlxi1IQY{ z9<+YFrNavc+ZQqbzVA5Cmq`4COj0LabK3P-0bWzk@CMrJ4M2&-Mcw{p#M~Sul*T^H zKh#*gj&2r|z{QF)UTfS!9Qo-@)pgKt#RYY<4ku4f$rH&b`FQfo1VvuWNE<*fasb4{ zX;$vpS8u__6HQ-2`+n2mwG!xU)%(ci9pd7i1J>ybJaK7dvQ#3==96s>#Mn`CTD7vN z3U*=kq&>&eUm-dH)_Mh8JZs>o1~tAJIHWM8;>G zEY<9u<`m`R<2*hJM6#z4`LUee-L;&Z{ zW%iAh{W}HAWqLMB7TJFYuyInbQv_H-`lYP{B*dw&`h0Go@PpPksuc&zl6&fbYdvaie`wfGD@49(Ad zV|R$2sDtNOlo&3xc;fiSzT{JNp0D*A;b3!L6lZa9(oX^flAuc#Cb$R&p>DFSMbPN= zyQ{xwopAAVta#pxf9Dsj6Xz|i`_!*(|NZCXGVD-b;{RT0=zekcuLJjkhsj_C4^704 zxhFjn?B4xFcP39wjhr00Jy9nfv-s$XT~+KrNXMb~gedrZHM9xszl12_Z0c&Lkg_{( zWY@*65v=*Rs}Zu6UG?m>P&s~w!?g3S!wqOZ3~xZ2dqcxAVh_YDu33oC;=1VPuUX_` z=9&gcY|XjL=%(#2b~mh%C`}Gg2F=+t_n+O56TIHna|Z3lJ@mYNy;T+|#%}Iik00y$ zlVBi6{tULKOF%38Dn;yYx&K>OIDR-Nlz0B{z73KMP#g`Su7?aiUFX9#_QKdEW{*i& z-VmcI)bp{OXy1r!LHk~eXbc{q_LUT)XD#1K4wsDDuT$PG5t2Ocwq9&s{+4&O{ z78m{5Xy*GGRi2WDqjtpj$R&*MA>9WL3}oSZfSzf1&d(hcO=XUujb?=|Ws^h0LNv;X zifuVy$brJ_FCw7e>CZi>*@mmN7d%WpD$f~5tITUC^Ug3>b!qHpRh7jmub*Y3Vi)B* z`+0#4acLmpBOdcY5wOHb(N_%g6Bl`Un|_0n;xPUOLO)PxaVhNXrcD)G)$(3r_v?{P zSz}%0Wz!sWbE3t}YZN$Yy)_u{^~ny3cnATXLI7*=peTa>F05@{+7Ta3JtZJM_VREs z510lNGjgC1XLk?+c?zwvnv zdKRp{1$lg_zi3{c+tD$a`kKdg)m(^5$Gqs&q62P@roM{brVH0=FZhamygCw}`!>aB zs>TKrrR&MVE~+NHCmyLNY(7y@!!wI~@0!0<81b^>tz^WVC;sOqijgSbZyt)HFg0~+ za&k(OE}P$G+f_1{31@N8`&X>R#-^!1q2;IXedy1 zeB|h+jE_yv=b!Q3$P{*Strh-C$eqiLogJ+zOnWpo-L%O<@HV;?cfK{c8STfTHHdoC z4iBe`;2DdYV;ZK1$M&LqVXOx2!WhBFo^fiQg6&C^9ASl1meH<~{7~3Fk`FC*CAQC^M$tu+2&D()e)y+^uXZx!W9P&m_y62lSED zi+WsS{p;lN8@vlt>)H$h~1HImX%!X&D zEiFa}{Y+6gQ@Y``0*cep1MHWl?xc*v>2$H-TOy?h6d=XyykNogTQ;vej)x;Q7)j06 zu>Zbg>(b#;>C)Rwo^)5CN122|vUVqI?b(d0fNPf_dHO{Xj4Qg(GRi2{ z+8nhM7qx|h{+#338>f#$4SCfrd!6uQ*`MOO0)YzapRxuhKFH1q==q$~G6=+B2Nx5i zYdEFpoQzU350T3*YGsufDv5MIvO7VlkjIuYO;Fe)XPOO)0yBm{tL$Rg;$W64JOF*W z(E^)>cQC>_;%P;kN1taZ&h9op&)UxJX1AU_I4yg}E!V2&y&_rkW@@?}UJgt5r^lCr zeAA^zflws-bd7@&fv|yalY(yqoV=`a%Ro`TL){u-MMZ@2QP~Ri^hI5P;_ng z%xAZfbg9=&UH~5ht<1eH$)36;< ze_&ZCN?)*oJ#sw;a<G)Caxg=K`063zn(P?ePmx~!Fonqoc>ey8a-{f+NfdTbY)j=f@>tpA z3gh1PKoCVLF@ufAw@G!XEOL1nF(&j7MaFOhA4~ZMR4VG>hTcc%|0a0l(H&^tdNi?J b((0*liWaZX>M4dqiPh~m| z9h79H%XP5JbOsClbRK0M`-F?$03j8a&{?7m(A(Eyi%95 zH-}Qmbn1d6yF1kLXQozVQ5*t?}S?-eEUCu+z zlGx|`g~jP?=14l3Dr~KIUv4R&`=p)Zc4;$>`|)PlNblX$_x#;7uG&6@a?wup@7hnHJX%5ZPgcxT-h= zsm-p&<3lmcfmR1Jp=VTeI-RnZ@|)_T*2mc4ng;9p*=S9$zSM&MUa?%7%|G8~)W@!R z*;38Eo&3B1Rm-In(RI^y{QC2gG@+FJd(9VfovuL%5=2{aL}L*@36saG3`*TW$c^Oj zcm}0#BoXKxb!fwo8Ofuda~yK#h^i!54k&9vi%AgIL5Vl(RNNl-pwy!U3uN6c&>Hs> zU8khb8sk0pQGXE~#REETLf_@a1T#4olj`bATuv{0r0!uD4G*7K;FqyoHx5X=6uV zj=^M&sH45XW0G6J@o8aFM=eHN=+;R8Vv<{a>n&}bSVPpa?i@-Y zB7?2OCG+w0W`$TUJ44;HHO1A5uSl>5yX%X@6D??QvZ;eLeua)4?&+2kI_x;EN)6&O zF1fr|jyhZ(EWj)LHrFxIC3g~?I@zn!kv%vC4VM*}df3(a7i4>@aY6;(@NNP$V2kL}DF7;gLYNhwBP^v~K$b(x&Cf?Z>Q8v`_8$ z63X<>eJJydTiIuKmZSEYYR~e2?tIt^8$$aVgteM)JiWs%HEWC0sdJgsqBN5^os}}F zR5F!>J;&S~m^c2Ahxv9rhT6)mx^1MKW)718aZP@0*S?(X{>>JPP0iRW`Ik$cxMowh zs(sp5P8zpz&DQMW3VE}l>T-GCTJvV#D|;>#bT_|T<4dApHvegTp7qBVPRp08sUf*i#MCHmv#R^||`il>gTu)7pUB_N5pWsbb&d^qPbraQA zuvE*Xx%|?Ff5j6&zis`aUs%>r|BOKF$ni}Vug*Fy_ zLkDChk-==;+sjTj=9s?~Y_RZME6Gl>*M$bD)8%D9sjn;PbaD;Oc{_E5_j)jqG}!Bg z)uM_=p~GOR!#EHb6^|2!VT~TQkfu*EK)o?dgI&bBTB1*j3A-=3^qnSRs$V1IhZg7D zptMJFDdJ3`2WtQkiIv4Ex#E7a`3iLVZ7p3W zUubEogNxS4K^w;t>iy%EkQa>BcVIp{C)RK|1!t#tz`bynQJblfwN?M%WkVo|k zLievvG54NkZUKam%c!rCw3!YDg+MI#Hb9K0Fs1 zAaEo-TwZZGg{tgi-o4%My^2f{s*XsCOua+VwJYlsa%j3;T~bXgq&&uPLqH(vF%2$< zfJT87mkUyisHP1_awleRagsY-_9A&=Kihk-6duL}ftFhx6?WVu)DU{b`FOTfwLZaK zYMpFv?1rhfSb9GqOmZ&_oOZqJE^4c^&E}VXpxUl}4>rZ?W$w1)HMn|GTC?P`_qT=W z$Q=~vI$tK=cB+Q3DfJ%X!X%bI-QI3}ja_cvS+TTLtSd_PQu|ixRrb~PeOsR6*Ru5b zbfvhuU$?(wJE@3%6$)1heie%BWsmQx&2fh6mt(p!E~+7Qv|AH*%3+oy6D;F6L^~c0 z#I&BHh;Y!Pj;Mizj(lVe5Oky_%n@9)E{+tG2yn;|K##`m*enHbwG52spVP-z<83S~CrwBs&muIa98v~fZ z*k)y^7Bq}LwrSj-8Jb=T+m)U+*7vBG6(niPy~NbpSIu<(vsQDg}Fdb8sqDIbq%+;ut3 zhj-B>7@EofCe+2dhei|Hl7uayjonm(7BN?sT|pE{pP=5W>KL0r9c53*($WNvm0 zk%D~Op@K5O?r@glH#knn8+T0H+T-4f^_3Jt7nypcg|nYsb2StQ}yQWvDZ*p;u}i?BZlG0N_G?+&aADH+FIp$w`1z5sC2XjFs0T6SHmv2zws1QAw4 zn&42c@`ojGVc+(C4dur>VIS894TZW9{c!uZ;ovCxA3WGnP23WqO$iF>TxJJ%S#9=K z_Wr|74!ReaVvgqN?82gy$u3H#v*$B}&btw|V#`Jfgip0~b=p9<>+ri!e(~^$Dm!-E zqmI%&ImOcL_c!MZ)69hh4uZOQFKN6JSStZYL%MzgI&9^7%!{g%Wr5lBhV*-;`)2HA zK5HA;kj>JyFF)V<@#BK9z6-Nov;S54tmVc4&GB|rg}?#$P;SRe+I7Q48fYMEqDoGd+wSa<5oOol#XLUQAYnX{>} zY$oMLmXBjPNZ)axaIt_U5+p^N)2%i8<^5mB#ee0;dp@*kF!nRJSzfeGzLI!Da18dBMSOCL^Z|L+*WW2O$hm; zbe5&TVqtrH+D0y=Y~EK}Wk;wI84%Hg(2)=MCP>hK-u-QqU-xIWLw(g4#RpI$p(%`kz5dAJuINkHApeBs0&=roXuE)p+Uz{kNkFWQal&kG???B+&S2PXWEgPz-7Tce|oaL!wFKi%c?7lt%%@ch)AyhhOE)oLC4Qgwk+aDPsd6odC{fLx!GSqaw zp(q`1f-c*z!2GhOYi;8Dt;*?I_T4^bPUe1lOhXoDGy!xfb96=DWLQZeDM%BBOaLv? zgQ9QJA5+{z5@Y@*uw?!wc`1C~`zHPh93LVBxMtad0dLEjS$5$8Xyf8$o(r_U={P}e zZQM@-%I>$OXTH1s{>*P5si`5c_CNN&`v8OohYy4aUfk)2#4gO#FAoguf3tmL=ND(r z&ODszSnuNA2vdf3GIGcULAn}jz{jm1g;uW6q3!mmdpT8wP1+ zZv0vOGtrc@`_(XVWJujPihQ&1ZAKHR!v(GmT&sDG zhZo#|U9Zcc&mwX!SM+GpCh)BdVW(2Lv}2?7ne=Vn&o28aIfa)Gh+*t~iEXu&qJI4@ zeJaIK>}q1y1{rxvCJ*n(A$Erhga*_^BqX#cz>|?2O7K+f+A+d$W7o)?!s#Sp(Fg)W zD2PAU1rQtYL;rXbGj0rohVo=Vppf{5I`;Nx!|*UfAwqVl1JGIxN)&W-L8(a?$1x<} z*Ju}sh^Uj%qP;eE!D@}K?aEk6$n|U@i&&83C8I<5DfW6|7jDKr^k*o)JQNYut$z4$ zy}cFKB@r1`V@TQRC<=4f?C>58y*x}W3%?w0=k=Pq`Fl<`Ql2!VdxXT}PkDLw@xBHQ z-pr{~zA5r1)>1ZqyhjgGUOxWi9Qk!42~Qz{5%BO3q~On86t}CvwG5d^0TUEJI$RGN zUEC<@#CYsBj?mqqKR`JWJT)#;CTVS63y(OxxVxf=lOUdmkbpecjF-7!OyNCeJ0ea{ArE_Jid~_Akmu1AB%Xggw%z8XKRc{MYkLz1@ObgS zZaE4Xh7`C6jWy2PJ(n3JqN$Hv+$oXM=z**sV zkkXhu)lZIyBPyJZn9kn<;TP$IZi>|S3H9x7qWFq@I0B!+!woi%%>H(&-s+~)=UmW= zg8$LO8dG>_98U&pRC^-f;HU_a$*%kb426v{)|A$+>fYFwoX!7{z!2lhwbPXxzn(~b z{F>!MHk-|QW8ivqklU75EM@7E{6_;_fr8(Upgt~j|rXyYb(Tzn|FU9 z=>D9JN0O1@xCzr1v z>~eYCY;vMDNB6&`0sv}YuZtovVj341UZKF1D%=F|%6jL{!|m=^MD6jb2$zIC6Y&sT z3a3JfDWDl%T(D4^y{33^VgGMV^w1MW#nf+5Za%paWq<@0B#rD^(TjXe_8fE$dw4@n_gnC^hJ_>*b(W@|}+`>ku1pR?~z2R6=3 zk1apS95ef;xOfG);MHzg32=|KLxfW`{Y#VTO#U-!lKa2>l6R$ll#jgHXPu~BEeYm7 z5~)qD+6MB=Ppw3%ZP#w+`j)>I%;awW%iMP|7cD=$aqV`JU7u;P^B9R@D$4jXDP3EF z91i={%y67s0~D%Pg-Lc(3J)r?7s(Z}Q>x#uMN#K@|H9euYCu^VvOh+;+eObCg>Ux3 z*>_T=)9q2%*132sa4+t;&@Ha}(YeOW^YG+0UvehDw2wVEch4ryi|N`;SO1>fob&E6 zJ}KWIlVucXXPE#feq9iX4CCFziPN;>6f(VJtgRvQ)Ij0e@Vcf3vi{~X=-DD8Qzx^F z>BB(yfCE^rnd1AYjFg>EWoQ*?Axn8V_}v1<@LCo@02jSQJ zI}|K$tMbu53N#;n9@MW%pY@!#_h4ZuT%{Ky{ak+D7exNhBP$PLo z@4|3ky-}gY1n3q$S`aiZeG}{;&sz$&!b7WahPJ?b*h& zmI3BJKM+h+Xog&`|z%c zN#+~yc+q|oFNPrS4wx@|nY-QeBZS=!m{9yRceu!w2!uuynvnCRRSiwVQ!4t63GC{5 zH{1}OEz#KAn#Rwz+L|Q=hU}N;W7T9&_`TAN2}?Qt&@FMJRdl1{BoicpT!o@8!mN;{RB1dD`nS=H*nLHfub|{*lUtdH<5W0~V=-kq`KsQSCd6KLE zX?Wzt(UDG3{I&!q1UH=Qy%(e!JMw(=US;O}%7taz%fiERMdqt$K`5YZG1e)c?~wy_ z1+Zfn6}r*oCm-piJoVo^_TMOP3i)RE=eTNBzQJhV7$1*2wU>s2GMH-xa+t?zs&oCOM6i+T}s_!hZf_IC~-1`g^)Is L@*t+slk5KjSXl&a