(FILECREATED "29-Feb-84 13:52:12" ("compiled on " {PHYLUM}LIBRARY>FTPSERVER.;1) "25-Feb-84 17:16:34" recompiled exprs: \SFTP.COMMANDLOOP \SFTP.STORE \SFTP.OPENFILE.FROM.PLIST \SFTP.MARK.ERROR in WORK dated "25-Feb-84 17:23:38") (FILECREATED "29-Feb-84 13:51:28" {PHYLUM}LIBRARY>FTPSERVER.;1 16726 changes to: (FNS \SFTP.STORE \SFTP.COMMANDLOOP \SFTP.OPENFILE.FROM.PLIST \SFTP.MARK.ERROR) (VARS \SFTP.DEFAULT.HOST) previous date: "10-OCT-83 02:44:33" {PHYLUM}LIBRARY>FTPSERVER.;2) \FTPSERVERA0055 D1 (I 0 SOC) @dj (6 CLOSERTPSOCKET) NIL NIL \FTPSERVERA0056A0057 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FTPDEBUGLOG F 1 RESETVARSLST F 2 SOCKET F 3 INSTREAM F 4 SAVER F 5 RESETY) cgSjhhhQcThPSd P c i oP RRR P P gd gi Qc(131Q SETTOPVAL 121Q GETTOPVAL 111Q TERPRI 104Q PRIN1 100Q PORTSTRING 62Q PRIN1 51Q TERPRI 42Q \SFTP.COMMANDLOOP 36Q BSPOUTPUTSTREAM) (125Q FTPDEBUGFLG 115Q FTPDEBUGFLG 2 CLOSEBSPSTREAM) (56Q "Connection open with ") \FTPSERVERA0056 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ Ji(36Q ERROR! 30Q RESETRESTORE 16Q \FTPSERVERA0056A0057) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) \FTPSERVER D1 (P 4 SAVER P 3 EVENT P 2 INSTREAM P 1 SOCKET P 0 PUPSOC I 0 FTPDEBUGLOG F 5 RESETVARSLST) P@]ghh\hhUc holi LII[IlVIhg`dnngg Zo g b @gg g@ o@ |K (220Q AWAIT.EVENT 210Q DSPFONT 177Q DSPSCROLL 167Q PUTWINDOWPROP 153Q DISPLAYSTREAMP 146Q GETSTREAM 136Q \FTPSERVERA0056 124Q CREATEBSPSTREAM 44Q OPENRTPSOCKET 41Q OPENPUPSOCKET) (173Q ON 164Q NILL 161Q PAGEFULLFN 143Q OUTPUT 120Q \SFTP.WHENCLOSED 115Q \SFTP.TIMEOUTFN 100Q \FTP.IDLE.TIMEOUT 75Q \SFTP.ERRORHANDLER 10Q \FTPSERVERA0055) (204Q (GACHA 10Q) 133Q (DUMMY.FOR.ERRORSET) 33Q (SERVER RETURN)) \GETFILETYPEA0058A0059 D1 (L (1 EOS 0 STREAM)) @A"ANIL (3 STREAM) NIL \GETFILETYPEA0058 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 STREAM F 1 RESETVARSLST F 2 FILE F 3 FILEOPENP F 4 RESETY) tS9gRg Xd"hhhQcgHd hhhQcHj gRg XhhhQcHg"H glgci(106Q OPENSTREAM 72Q SETFILEPTR 50Q GETFILEPTR 17Q GETSTREAM) (155Q BINARY 144Q TEXT 132Q NILL 127Q STREAM 103Q INPUT 77Q CLOSEF 43Q SETFILEPTR 14Q INPUT 10Q \GETFILETYPEA0058A0059) NIL \GETFILETYPE D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 TYPE I 1 FILEOPENP I 0 FILE F 4 LISPXHIST F 5 RESETVARSLST) /@g H"T!Uog hg[ KJ(52Q ERROR! 45Q RESETRESTORE 33Q \GETFILETYPEA0058 6 GETFILEINFO) (41Q ERROR 30Q INTERNAL 3 TYPE) (25Q (DUMMY.FOR.ERRORSET)) \SFTP.COMMANDLOOP D1 (P 0 MARK I 2 FTPDEBUGLOG I 1 OUTS I 0 INS) @ Xdl@A k@A Hdl @A l@Ai Hdl @Ai rl @A gHdl^dl@B @A LlHlHl Hdl@A /jh)Al Ak oA H A Al iFh(271Q FTPPUTMARK 262Q PRIN3 256Q MKSTRING 251Q PRIN3 240Q FTPPUTCODE 232Q FTPPUTMARK 214Q \SFTP.PROTOCOL.ERROR 157Q \SFTP.PROTOCOL.ERROR 150Q \FTP.FLUSH.TO.EOC 124Q \SFTP.ENUMERATE 111Q \SFTP.ENUMERATE 71Q \SFTP.STORE 54Q \SFTP.STORE 35Q \SFTP.RETRIEVE 22Q \SFTP.VERSION 6 FTPGETMARK) NIL ( 245Q "Unimplemented command ") \SFTP.RETRIEVE D1 (P 1 FILE P 0 PLIST I 1 OUTS I 0 INS F 6 FTPDEBUGLOG) 0@A dX@ l@A HgA iYdh0HdZgJh[L%K]\Mi A @ dl@V < \Kl@ @V Al IA Al Aj oA I Al i(253Q FTPPUTMARK 245Q CLOSEF 240Q PRIN3 227Q FTPPUTCODE 221Q FTPPUTMARK 212Q COPYBYTES 204Q FTPPUTMARK 175Q \FTP.FLUSH.TO.EOC 167Q FTPGETCODE 151Q LAST 144Q \FTP.FLUSH.TO.EOC 131Q FTPGETMARK 125Q \SFTP.SENDPLIST 121Q \SFTP.PLIST.FROM.FILE 41Q \SFTP.OPENFILE.FROM.PLIST 30Q \SFTP.PROTOCOL.ERROR 17Q FTPGETMARK 7 \SFTP.READPLIST) (65Q DESIRED-PROPERTY 35Q INPUT) (234Q "File sent ok") \SFTP.ENUMERATE D1 (P 6 FOUNDSOME P 5 SCRATCH P 4 PATTERN P 3 GENERATOR P 2 DESIREDPROPS P 1 FILE P 0 PLIST I 2 NEWP I 1 OUTS I 0 INS) @A d@ l@A HgA i0 H#d_gOh_O_O__OK Klk2 OO>O]KMhi YOLI BNAl iAI hJ _O_OOh__Ok_O&_NAl Al@i oA Al i(357Q FTPPUTMARK 350Q PRIN3 337Q FTPPUTCODE 327Q FTPPUTMARK 247Q LAST 242Q \FTP.PRINTPLIST 237Q \SFTP.PLIST.FROM.FILE 232Q PACKC 222Q FTPPUTMARK 206Q DMATCH 176Q \GENERATENEXTFILE 141Q CHCON 136Q U-CASE 133Q MKSTRING 43Q \SFTP.OPENFILE.FROM.PLIST 32Q \SFTP.PROTOCOL.ERROR 21Q FTPGETMARK 7 \SFTP.READPLIST) (66Q DESIRED-PROPERTY 37Q ENUMERATE) (344Q "File not found") \SFTP.STOREA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 INS F 1 FILE) PQ h(4 COPYBYTES) NIL () \SFTP.STORE D1 (P 2 SUCCESS P 1 FILE P 0 PLIST I 2 OLDSTYLE I 1 OUTS I 0 INS F 7 FTPDEBUGLOG) @@A dX@ l@A HgA iYBAl Aj Al 1Ii0Hd[gKh\M.L^]Ni A @ dl@i @W w ]Lleo @ h@ dl:@ @W JA ;Al Aj oA I Al il@i @W @A I Al i(412Q FTPPUTMARK 404Q DELFILE 401Q CLOSEF 374Q \SFTP.PROTOCOL.ERROR 366Q \FTP.FLUSH.TO.EOC 357Q FTPGETCODE 344Q FTPPUTMARK 335Q CLOSEF 330Q PRIN3 317Q FTPPUTCODE 311Q FTPPUTMARK 301Q \SFTP.MARK.ERROR 272Q \FTP.FLUSH.TO.EOC 263Q FTPGETCODE 250Q FTPGETMARK 241Q \FTP.FLUSH.TO.MARK 233Q \SFTP.STOREA0001 212Q LAST 205Q \FTP.FLUSH.TO.EOC 176Q FTPGETCODE 162Q FTPGETMARK 155Q \SFTP.SENDPLIST 151Q \SFTP.PLIST.FROM.FILE 74Q FTPPUTMARK 65Q FTPPUTCODE 57Q FTPPUTMARK 41Q \SFTP.OPENFILE.FROM.PLIST 30Q \SFTP.PROTOCOL.ERROR 17Q FTPGETMARK 7 \SFTP.READPLIST) (115Q DESIRED-PROPERTY 35Q OUTPUT) ( 324Q "File stored ok" 230Q (DUMMY.FOR.ERRORSET)) \SFTP.VERSION D1 (I 1 OUTS I 0 INS F 0 FTPDEBUGLOG F 1 \SFTP.VERSION) %@P Al Ak oA QA Al (42Q FTPPUTMARK 34Q PRIN3 27Q PRIN3 17Q FTPPUTCODE 12Q FTPPUTMARK 4 \FTP.FLUSH.TO.EOC) NIL (23Q "Interlisp-D Ftp Server of ") \SFTP.OPENFILE.FROM.PLISTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ACCESS F 1 FILENAME F 2 MYPLIST F 3 FILE) PgQd QPhdgR ci(31Q OPENFILE 12Q \GENERATEFILES) (23Q SEQUENTIAL 3 ENUMERATE) () \SFTP.OPENFILE.FROM.PLIST D1 (P 5 PAIR P 4 MYPLIST P 3 ERROR P 2 PIECES P 1 FILENAME P 0 FILE I 2 OUTS I 1 ACCESS I 0 PLIST F 6 \SFTP.DEFAULT.HOST)  P@dMdgMdg$gMm)l:Mkm MJdggMJmdggMJZdggMJGdggM /dggM dggM ggMhL>IJgVh g gVgI IYo HB Bl h(407Q FTPPUTMARK 401Q \SFTP.MARK.ERROR 372Q \SFTP.OPENFILE.FROM.PLISTA0001 360Q PACKFILENAME 344Q FILENAMEFIELD 334Q PACKFILENAME 331Q \NCONC2 260Q U-CASE 236Q CONCATLIST 215Q U-CASE 71Q SUBSTRING) (354Q BODY 350Q HOST 341Q HOST 322Q HOST 271Q LENGTH 264Q SIZE 252Q EOLCONVENTION 244Q END-OF-LINE-CONVENTION 231Q CREATIONDATE 223Q CREATION-DATE 207Q TYPE 201Q TYPE 164Q VERSION 156Q VERSION 141Q BODY 133Q NAME-BODY 116Q DIRECTORY 110Q DIRECTORY 46Q HOST 37Q DEVICE 21Q SERVER-FILENAME) ( 367Q (DUMMY.FOR.ERRORSET)) \SFTP.PLIST.FROM.FILE D1 (P 10Q PLIST P 7 TYPE P 6 AUTHOR P 5 VERSION P 4 EXT P 3 NAME P 2 DIR P 1 HOST P 0 PIECES I 3 FILEOPENP I 2 DESIREDPROPS I 1 NEW I 0 FILE F 25Q \SFTP.DEFAULT.HOST) @ PHWd_dgOdW*h:Y5dgOZ'dgO[dgO\gO]BgBH _ gOhhBgBLKoL K_ gOhhBgBM_ gOhhBgB gghhJBgBJ_ gOhhIBgBI_ gOhh _AdBgB@C __ gOhhOg glhhBgB@g _ gO hhBgB@g _" gO"hhBgB@g _$ gO$hhBgB@g _& gO&hhBgB@g _( gO(hh O(767Q \NCONC2 764Q \NCONC2 761Q \NCONC2 756Q \NCONC2 753Q \NCONC2 750Q \NCONC2 745Q \NCONC2 724Q GETFILEINFO 666Q GETFILEINFO 630Q GETFILEINFO 572Q GETFILEINFO 534Q GETFILEINFO 452Q \GETFILETYPE 424Q \NCONC2 421Q \NCONC2 416Q \NCONC2 413Q \NCONC2 410Q \NCONC2 223Q CONCAT 161Q PACKFILENAME 3 UNPACKFILENAME) (733Q AUTHOR 721Q AUTHOR 711Q AUTHOR 675Q SIZE 663Q LENGTH 653Q SIZE 637Q READ-DATE 625Q READDATE 615Q READ-DATE 601Q WRITE-DATE 567Q WRITEDATE 557Q WRITE-DATE 543Q CREATION-DATE 531Q CREATIONDATE 521Q CREATION-DATE 505Q BYTE-SIZE 477Q BINARY 463Q TYPE 441Q TYPE 376Q DEVICE 362Q DEVICE 343Q DIRECTORY 327Q DIRECTORY 312Q CR 307Q END-OF-LINE-CONVENTION 300Q END-OF-LINE-CONVENTION 264Q VERSION 250Q VERSION 234Q NAME-BODY 204Q NAME-BODY 170Q SERVER-FILENAME 151Q SERVER-FILENAME 127Q VERSION 113Q EXTENSION 75Q NAME 57Q DIRECTORY 24Q HOST) (217Q ".") \SFTP.SENDPLIST D1 (I 1 OUTS I 0 PLIST) Al A@ Al (20Q FTPPUTMARK 12Q \FTP.PRINTPLIST 5 FTPPUTMARK) NIL NIL \SFTP.PROTOCOL.ERROR D1 (I 1 OUTS I 0 INS) Al Al oA @j h(30Q CLOSEBSPSTREAM 23Q PRIN3 13Q FTPPUTCODE 5 FTPPUTMARK) NIL (17Q "Protocol Error - Aborting connection") \SFTP.MARK.ERROR D1 (P 0 ERN I 0 OUTS) M@l @HdllCdl lA H oH @ hdllDll@(66Q PRIN3 62Q CONCAT 50Q ERRORSTRING 43Q FTPPUTCODE 13Q FTPPUTMARK 2 ERRORN) NIL ( 54Q ": ") \SFTP.READPLISTA0063 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 INS) P h(3 READPLIST) NIL NIL \SFTP.READPLIST D1 (P 0 PLIST I 1 OUTS I 0 INS F 1 FTPDEBUGLOG) !o H@A `HQ H(33Q PRIN2 20Q \SFTP.PROTOCOL.ERROR 6 \SFTP.READPLISTA0063) (24Q FTPDEBUGFLG) (3 (DUMMY.FOR.ERRORSET)) \SFTP.TIMEOUTFN D1 (I 0 STREAM) @g @ h@@ (25Q CLOSEBSPSTREAM 6 BSPOPENP) (16Q BSPSOC 3 INPUT) NIL \SFTP.ERRORHANDLER D1 (I 1 ERRCODE I 0 INSTREAM) Ag@@"@kHm(33Q ERROR!) (3 MARK.ENCOUNTERED) NIL \SFTP.WHENCLOSED D1 (I 0 STREAM) g go (21Q PROCESS.EVAL 5 FIND.PROCESS) (12Q \FTPSERVER 2 \FTPSERVER) (16Q (PROGN (AND FTPDEBUGLOG (PRINTOUT FTPDEBUGLOG T "Connection closed" T) (RESET)))) (PRETTYCOMPRINT FTPSERVERCOMS) (RPAQQ FTPSERVERCOMS ((FNS \FTPSERVER \GETFILETYPE \SFTP.COMMANDLOOP \SFTP.RETRIEVE \SFTP.ENUMERATE \SFTP.STORE \SFTP.VERSION) (FNS \SFTP.OPENFILE.FROM.PLIST \SFTP.PLIST.FROM.FILE \SFTP.SENDPLIST \SFTP.PROTOCOL.ERROR \SFTP.MARK.ERROR \SFTP.READPLIST \SFTP.TIMEOUTFN \SFTP.ERRORHANDLER \SFTP.WHENCLOSED) (E (PRINT (LIST (QUOTE RPAQQ) (QUOTE \SFTP.VERSION) (DATE)))) (VARS \SFTP.DEFAULT.HOST) (MACROS .IFDESIRED.))) (RPAQQ \SFTP.VERSION "29-Feb-84 13:52:00") (RPAQQ \SFTP.DEFAULT.HOST DSK) (PUTPROPS .IFDESIRED. MACRO ((PROP . LISTFORM) (AND (OR (NULL DESIREDPROPS) (FMEMB (QUOTE PROP) DESIREDPROPS)) (PROG ((PROPVAL . LISTFORM)) (RETURN (AND PROPVAL (LIST (LIST (QUOTE PROP) PROPVAL))))) ))) (PUTPROPS FTPSERVER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL