(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 8-Sep-94 20:19:14" ("compiled on " {DSK}lispusers>COURIERSERVE.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "19-Dec-91 20:30:40" |{PELE:MV:ENVOS}MEDLEY>COURIERSERVE.;2| 29040 changes to%: (VARS COURIERSERVECOMS) previous date%: "21-Jul-88 15:19:08" |{PELE:MV:ENVOS}MEDLEY>COURIERSERVE.;1|) COURIER.START.SERVER :D8 (P 0 PROCESS I 0 RESTART) wg X•@³WHµS¿hlhgo ¿`²` ¿o` ¿g Xµ °íH ¿¿°(114 BLOCK 108 DEL.PROCESS 99 BLOCK 91 FIND.PROCESS 80 PRIN1 64 TERPRI 46 SPP.OPEN 25 COURIER.RESET.SOCKET 12 FIND.PROCESS) (86 COURIER.LISTENER 75 COURIERTRACEFILE 59 COURIERTRACEFILE 52 COURIERTRACEFLG 35 COURIER.LISTENER 7 COURIER.LISTENER) ( 70 "Courier Server started" 40 (SERVER.FUNCTION \COURIERSERVER OTHERXIPHANDLER \EXPEDITEDCOURIERSERVER)) COURIER.RETURN :D8 (P 1 STREAM P 0 RESULTS I 3 RESULTLST I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) Y ABgA` XCH ²$@l YdACH—@I @ @l (86 COURIER.REJECT 77 COURIER.REJECT 70 \COURIER.FINISH.REPLY 62 \COURIER.EXPEDITED.ARGS 52 \COURIER.SETUP.REPLY 42 EQLENGTH 37 LENGTH 25 \GET.COURIER.DEFINITION 20 GETHASH) (15 \COURIERPROGRAM 9 PROCEDURES) () COURIER.ABORT :D8 (P 1 ERRORFORM P 0 STREAM I 3 RESULTLST I 2 ERROR I 1 PROGRAM I 0 COURIERSTREAM) U@l BA` g'"HI»ZKã ¿JKlÿå ¿HACI—@H l (82 COURIER.REJECT 74 \COURIER.FINISH.REPLY 66 \COURIER.EXPEDITED.ARGS 54 \BOUT 43 \BOUT 19 GETHASH 7 \COURIER.SETUP.REPLY) (25 ERRORS 14 \COURIERPROGRAM) () COURIER.REJECT :D8 (P 0 STREAM I 2 RESULTLST I 1 ERROR I 0 COURIERSTREAM) ¥@k AA3³GA™Adgð•¿nÿÿ°3gð’j°)Adgð“¿k°gð’lAgð’l„b¿HAã ¿HAlÿå Akð²2HBºYJã ¿IJlÿå ¿HB¼[Lã ¿KLlÿå ¿@H (162 \COURIER.FINISH.REPLY 154 \BOUT 143 \BOUT 130 \BOUT 119 \BOUT 102 \BOUT 91 \BOUT 80 SHOULDNT 6 \COURIER.SETUP.REPLY) (70 INVALID.ARGUMENTS 59 NO.SUCH.PROCEDURE 48 NO.SUCH.VERSION 36 NO.SUCH.PROGRAM 23 UNSPECIFIED) () CLOSE.BULK.DATA :D8 (P 2 A0293 P 1 A0292 P 0 CON I 1 ABORTFLG I 0 STREAM) ì@ÉHh.¿HÉ8¡h@Êlåjð²+@Êlåjð³.@É É<@kI²A˜@k °.@ °&@É É<@kJ¬A£ib¿@ ¿@j Hh0¿Hh8@h¿@jÍA´‚±ÿ]HÉ6g*¿@g*¿±ÿ6(151 SPP.DSTYPE 143 \ABORT.BULK.DATA 105 SPP.SENDEOM 97 SPP.SENDATTENTION) (228 ERROR! 223 STREAM 214 \COURIER.EOF 209 STREAM 202 SPPCON 186 STREAM 176 STREAM 167 SPPCON 157 SPPCON 120 FDEV 113 STREAM 76 FDEV 69 STREAM 53 STREAM 37 STREAM 26 SPPCON 16 SPPCON 5 STREAM) () COURIER.RESET.SOCKET :D8 NIL lg i (17 CLOSENSOCKET 11 OPENNSOCKET) (6 ACCEPT) () \COURIERSERVERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 HIGH.VERSION P 0 LOW.VERSION I 0 SI::*CLEANUP-FORMS* F 2 STREAM F 3 SI::*RESETFORMS*) AgRhhdSc Rj Rg*`gR `²:` ¿o` ¿k` ¿R ` ¿Rj ¿Rl Rj ¿Rl R R áR ØXR áR ØYHló³lIó¯Ri ¿R °p`´j` ¿o` ¿k` ¿R ` ¿k` ¿H` ¿k` ¿I` h(317 PRIN1 305 SPACES 293 PRIN1 281 SPACES 269 PRIN1 259 SPP.DESTADDRESS 252 SPACES 240 PRIN1 224 TERPRI 205 \COURIER.SERVE 198 SPP.CLEAREOM 166 SPP.FORCEOUTPUT 160 \BOUT 151 \BOUT 144 \BOUT 135 \BOUT 127 PRIN1 117 SPP.DESTADDRESS 110 SPACES 98 PRIN1 82 TERPRI 65 PROCESS.NAME 60 PACK* 55 SPP.DESTADDRESS 26 SPP.DSTYPE) (312 COURIERTRACEFILE 300 COURIERTRACEFILE 288 COURIERTRACEFILE 276 COURIERTRACEFILE 264 COURIERTRACEFILE 247 COURIERTRACEFILE 235 COURIERTRACEFILE 219 COURIERTRACEFILE 212 COURIERTRACEFLG 122 COURIERTRACEFILE 105 COURIERTRACEFILE 93 COURIERTRACEFILE 77 COURIERTRACEFILE 70 COURIERTRACEFLG 49 COURIER 44 \RUNNING.PROCESS 37 \COURIER.EOF 32 STREAM 4 CLOSEF?) ( 230 "Client requesting unknown version of Courier" 88 "Server opened connection with") \COURIERSERVER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \COURIERSERVERA0001) (8 SI::RESETUNWIND) () \COURIER.SERVE :D8 (P 12 FLG P 8 RESULTLST P 7 VERSIONS P 6 PROCDEF P 5 PGMDEF P 4 PROCEDURE P 3 PROCEDURE# P 2 VERSION# P 1 PROGRAM# P 0 PROGRAM I 0 STREAM) A @ ‘h@ á@ Øjð¢±%@g@ á@ Ø¿@ á@ Ø@ á@ Øõ¹@ á@ Øº@ á@ Ø»IJ _¢±ºJOXµ'@kO!OµoOO!Oµ}O±”` ]K \²=HLgM^² N@HLMN gð³L°k@l°?@l°:_¿O•OOó”O_¿O_±ÿx_¿O•OOó”O_¿O_±ÿj@j ¿@ _µ@ ¿°ógð–@ ¿±þÌ¿±þÃ(315 SHOULDNT 304 SPP.CLEAREOM 282 SPP.EOFP 272 COURIER.REJECT 191 \COURIER.APPLY 160 \GET.COURIER.DEFINITION 144 \FIND.COURIER.PROCEDURE 137 GETHASH 124 COURIER.REJECT 76 \FIND.COURIER.PROGRAM 40 STREAMPROP 5 SPP.EOFP) (296 EOM 196 FLUSH 154 PROCEDURES 132 \COURIERPROGRAM 29 TRANSACTIONID) () \COURIER.APPLYA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FN F 3 STREAM F 4 PROGRAM F 5 SI::NLSETQ-VALUE F 6 PROCEDURE F 7 ARGLST) i@RSTVW hc g(18 APPLY) (27 :NORMAL) () \COURIER.APPLYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 12 *CONDITION-HANDLER-BINDINGS* P 11 SI::*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SI::NLSETQ-VALUE P 8 TYPE P 3 DATASTREAM P 2 RESULTS P 1 ARGLST P 0 XIPSOCKETPAIR I 0 SI::*CLEANUP-FORMS* F 13 STREAM F 14 PROGRAM F 15 PROCDEF F 16 PROCEDURE F 17 *PROCEED-CASES* F 18 *CONDITION-HANDLER-BINDINGS* F 19 FN F 20 PGMDEF) Å @Wgð²WXghlc¿WALµ‚±ÐMYHµ‚±ÁW gð—W ¿ `W"ioW$O gð´OZµI`²6` ¿o` ¿k` ¿W&` ¿Wnÿÿ hºKµ!Jdgð¢±»¿WWW J¿±Ú ²ÜK ¿°Óc±ÿU_gð©Ogð²\W áW Ødkð³(djðªdlð¥dlð²¿W ¿g±þö¿¿WOgð•g„gWW W(W [ŠWWO_¿NµOh^½L\±þ¤O&¾°ödgð²¿WWJJ¿°gð´WJJh(449 COURIER.REJECT 425 COURIER.ABORT 376 COURIER.READ 363 \BULK.DATA.STREAM 326 SHOULDNT 311 COURIER.REJECT 247 CLOSE.BULK.DATA 239 OPENP 230 COURIER.RETURN 196 COURIER.REJECT 185 PRIN1 172 SPACES 160 PRIN1 144 TERPRI 112 \COURIER.APPLYA0001A0002 81 SPP.CLEAREOM 67 SPP.EOFP 32 \CREATE.EXPEDITED.STREAM) (433 REJECT 406 ABORT 349 OUTPUT 343 INPUT 336 BULK.DATA.SOURCE 317 FLUSH 272 BULK.DATA.SOURCE 263 BULK.DATA.SINK 211 RETURN 180 COURIERTRACEFILE 167 COURIERTRACEFILE 155 COURIERTRACEFILE 139 COURIERTRACEFILE 132 COURIERTRACEFLG 118 :NORMAL 90 SI::NLSETQ-PROCEED-CASE 72 EOM 24 INPUT 11 XIPSOCKETPAIR) ( 150 "Courier server function break:" 99 (CL:ERROR . SI::NLSETQHANDLER)) \COURIER.APPLY :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 PROCDEF I 4 PGMDEF I 3 PROCEDURE I 2 PROGRAM I 1 STREAM I 0 FN F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \COURIER.APPLYA0001) (8 SI::RESETUNWIND) () \COURIER.SETUP.REPLY :D8 (P 0 TRANSACTIONID I 1 TYPE I 0 STREAM) [@dgð²È7¸@ghlb‹g ¸@Aã ¿@Alÿå @Hã ¿@Hlÿå @(87 \BOUT 76 \BOUT 68 \BOUT 57 \BOUT 48 STREAMPROP 35 \CREATE.EXPEDITED.STREAM) (43 TRANSACTIONID 27 OUTPUT 11 XIPSOCKETPAIR) () \COURIER.FINISH.REPLY :D8 (I 1 STREAM I 0 COURIERSTREAM) B@dgð²1AÈÍ#@ @g@@ (63 SPP.SENDEOM 57 SENDXIP 31 SWAPXIPADDRESSES) (44 FREE 39 ETHERPACKET 19 STREAM 8 XIPSOCKETPAIR) () \FIND.COURIER.PROGRAMA0001 :D8 (I 1 KEY I 0 VALUE F 0 VERSIONS F 1 PROGRAM F 2 VERSION) -@Q ´"@APc@R ´g (42 RETFROM 30 EQP 8 EQP) (37 MAPHASH) () \FIND.COURIER.PROGRAM :D8 (P 0 VERSIONS I 1 VERSION I 0 PROGRAM) `g H(17 MAPHASH) (12 \FIND.COURIER.PROGRAMA0001 7 \COURIERPROGRAM) () \FIND.COURIER.PROCEDURE :D8 (P 7 OTHERPROGRAM P 0 PROCEDURE I 1 PROCEDURE# I 0 PGMDEF) uP@g'hºYµhµ@g'!MµNdZA •Jµði°ÚI°Ñ_` g'[µh^µÌM]°Ã\A •Lµìi°éK°à(104 EQP 74 GETHASH 50 EQP) (80 PROCEDURES 69 \COURIERPROGRAM 26 INHERITS 9 PROCEDURES) () \EXPEDITEDCOURIERSERVER :D8 (P 0 XIPSOCKETPAIR I 1 SOCKET I 0 XIP) `²=` ¿o` ¿k` ¿@l+Ð ` ¿g@A@È4ló©l@È5ó¢±€`²q` ¿o` ¿k` ¿@l+Ð ` ¿k` ¿@È4` ¿k` ¿@È5` ¿H ¿gHd´dið¬3µgHhh (253 ADD.PROCESS 218 COURIER.REJECT 211 PRIN1 197 SPACES 185 PRIN1 171 SPACES 159 PRIN1 149 \LOADNSADDRESS 139 SPACES 127 PRIN1 111 TERPRI 64 PRIN1 54 \LOADNSADDRESS 44 SPACES 32 PRIN1 16 TERPRI) (241 QUOTE 224 \EXPEDITEDCOURIER.SERVE 206 COURIERTRACEFILE 192 COURIERTRACEFILE 180 COURIERTRACEFILE 166 COURIERTRACEFILE 154 COURIERTRACEFILE 134 COURIERTRACEFILE 122 COURIERTRACEFILE 106 COURIERTRACEFILE 99 COURIERTRACEFLG 70 XIPSOCKETPAIR 59 COURIERTRACEFILE 39 COURIERTRACEFILE 27 COURIERTRACEFILE 11 COURIERTRACEFILE 4 COURIERTRACEFLG) ( 117 "Client requesting unknown version of Courier" 22 "Expedited server connection with") \EXPEDITEDCOURIER.SERVE :D8 (P 6 RESULTLST P 5 VERSIONS P 4 PROCDEF P 3 PGMDEF P 2 PROCEDURE P 1 PROGRAM I 0 XIPSOCKETPAIR) ê @HÈ6jð¢±×`Hl4Ðl HÈ: ]¢±³HÈ:MYµ%@kM! OµhOM!OµwO±Ž` [HÈ; Z²5IJgK\²L@IJKL °I@l°?@l°:_¿O•OOó”O_¿O_±ÿ_¿O•OOó”O_¿O_±ÿp@j h(231 SHOULDNT 224 COURIER.REJECT 151 \COURIER.APPLY 120 \GET.COURIER.DEFINITION 104 \FIND.COURIER.PROCEDURE 95 GETHASH 82 COURIER.REJECT 36 \FIND.COURIER.PROGRAM 28 \GETBASEFIXP) (114 PROCEDURES 90 \COURIERPROGRAM) () \CREATE.EXPEDITED.STREAM :D8 (P 1 END P 0 STREAM I 3 OFFSET I 2 OSTREAM I 1 ACCESS I 0 XIP) BµlH` HA H@l"ÐHllØAgð™@È#¹Cµl‹n"lØ¹CµlàØÍHHIÍ¿IÍAgðHg*ŒHgH(28 \SETACCESS) (137 \COURIER.EXPEDITED.OVERFLOW 132 STREAM 123 \COURIER.EOF 118 STREAM 110 INPUT 97 STREAM 91 STREAM 57 INPUT 46 STREAM 34 STREAM 19 \BASEBYTESDEVICE 14 STREAM) () (PRETTYCOMPRINT COURIERSERVECOMS) (RPAQQ COURIERSERVECOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES UTILISOPRS ETHERRECORDS (LOADCOMP) COURIER)) (FNS COURIER.START.SERVER COURIER.RETURN COURIER.ABORT COURIER.REJECT CLOSE.BULK.DATA COURIER.RESET.SOCKET) (FNS \COURIERSERVER \COURIER.SERVE \COURIER.APPLY \COURIER.SETUP.REPLY \COURIER.FINISH.REPLY \FIND.COURIER.PROGRAM \FIND.COURIER.PROCEDURE) (FNS \EXPEDITEDCOURIERSERVER \EXPEDITEDCOURIER.SERVE \CREATE.EXPEDITED.STREAM) (PROP ARGNAMES COURIER.CALL COURIER.EXPEDITED.CALL) (CONSTANTS (\REJECT.NOSUCHPROGRAM 0) (\REJECT.NOSUCHVERSION 1) (\REJECT.NOSUCHPROCEDURE 2) ( \REJECT.INVALIDARGUMENTS 3) (\REJECT.UNSPECIFIED 65535) (\SINK.NULL 0) (\SINK.IMMEDIATE 1) ( \SINK.PASSIVE 2) (\SINK.ACTIVE 3)) (DECLARE%: DONTCOPY (RECORDS COURIERSERVERFN XIPSOCKETPAIR)))) (PUTPROPS COURIER.CALL ARGNAMES (NIL (STREAM PROGRAM PROCEDURE ARG1 |...| ARGn NOERRORFLG) . U)) (PUTPROPS COURIER.EXPEDITED.CALL ARGNAMES (NIL (ADDRESS SOCKET PROGRAM PROCEDURE ARG1 |...| ARGn NOERRORFLG) . U)) (RPAQQ \REJECT.NOSUCHPROGRAM 0) (RPAQQ \REJECT.NOSUCHVERSION 1) (RPAQQ \REJECT.NOSUCHPROCEDURE 2) (RPAQQ \REJECT.INVALIDARGUMENTS 3) (RPAQQ \REJECT.UNSPECIFIED 65535) (RPAQQ \SINK.NULL 0) (RPAQQ \SINK.IMMEDIATE 1) (RPAQQ \SINK.PASSIVE 2) (RPAQQ \SINK.ACTIVE 3) (CONSTANTS (\REJECT.NOSUCHPROGRAM 0) (\REJECT.NOSUCHVERSION 1) (\REJECT.NOSUCHPROCEDURE 2) ( \REJECT.INVALIDARGUMENTS 3) (\REJECT.UNSPECIFIED 65535) (\SINK.NULL 0) (\SINK.IMMEDIATE 1) ( \SINK.PASSIVE 2) (\SINK.ACTIVE 3)) (PUTPROPS COURIERSERVE COPYRIGHT ("Xerox Corporation & Stanford University" 1985 1986 1987 1988 1991)) NIL