(FILECREATED "16-Nov-84 16:13:03" ("compiled on " {ERIS}LIBRARY>FTPSERVER.;8) " 1-Nov-84 14:14:14" recompiled exprs: \SFTP.RETRIEVE \SFTP.STORE \SFTP.OPENFILE.FROM.PLIST \SFTP.PLIST.FROM.FILE in "INTERLISP-D 1-Nov-84 ..." dated " 1-Nov-84 14:30:10") (FILECREATED "16-Nov-84 16:12:16" {ERIS}LIBRARY>FTPSERVER.;8 19301 changes to: (FNS \SFTP.RETRIEVE \SFTP.OPENFILE.FROM.PLIST \SFTP.PLIST.FROM.FILE \SFTP.STORE \SFTP.ENUMERATE FTPSERVER \SFTP.WHENCLOSED \FTPSERVER.TOP START.FTPSERVER \GETFILETYPE) (VARS FTPSERVERCOMS) previous date: "16-Oct-84 17:12:00" {ERIS}LIBRARY>FTPSERVER.;6) \FTPSERVER.TOPA0001 D1 (I 0 SOC) @dj (6 CLOSERTPSOCKET) NIL () \FTPSERVER.TOPA0002A0003 D1 (NAME ERRORSET 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 ") \FTPSERVER.TOPA0002 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ Ji(36Q ERROR! 30Q RESETRESTORE 16Q \FTPSERVER.TOPA0002A0003) (24Q ERROR 13Q INTERNAL) ( 10Q (\FTPSERVER.TOPA0002A0003)) \FTPSERVER.TOP 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[IlIhg`dnngg Zo di@d-o g bgg g@ o@ g bo@ @ @ @ JK l(302Q AWAIT.EVENT 272Q TERPRI 265Q TERPRI 260Q PRIN1 254Q DATE 250Q PRIN1 235Q GETSTREAM 226Q DSPFONT 215Q DSPSCROLL 205Q PUTWINDOWPROP 172Q GETSTREAM 164Q CREATEW 140Q \FTPSERVER.TOPA0002 126Q CREATEBSPSTREAM 44Q OPENRTPSOCKET 41Q OPENPUPSOCKET) (232Q OUTPUT 211Q ON 202Q NILL 177Q PAGEFULLFN 167Q OUTPUT 122Q \SFTP.WHENCLOSED 117Q \SFTP.TIMEOUTFN 102Q \FTP.IDLE.TIMEOUT 77Q \SFTP.ERRORHANDLER 10Q \FTPSERVER.TOPA0001) ( 244Q "FTP Server started at " 222Q (GACHA 10Q) 161Q "FTP Server traffic" 135Q (\FTPSERVER.TOPA0002) 33Q (SERVER RETURN)) FTPSERVER D1 (I 0 FTPDEBUGLOG) 4g@ddidd g@hhgggg (61Q ADD.PROCESS) (55Q HARDRESET 52Q RESTARTABLE 47Q FTPSERVER 44Q NAME 32Q QUOTE 2 \FTPSERVER.TOP) () \GETFILETYPEA0001 D1 (NAME ERRORSET P 0 STREAM F 1 FILE F 2 RESETVARSLST F 3 FILEOPENP F 4 RESETY) 0SQg XgQg XhhhRcH ci(51Q \INFER.FILE.TYPE 30Q OPENSTREAM 13Q GETSTREAM) (25Q INPUT 21Q CLOSEF 10Q INPUT) () \GETFILETYPE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FILEOPENP I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \GETFILETYPEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\GETFILETYPEA0001)) \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.RETRIEVEA0001 D1 (NAME ERRORSET P 1 FILE P 0 PLIST F 6 OUTS F 7 INS F 10Q RESETVARSLST F 11Q FTPDEBUGLOG F 12Q RESETY)  WV dW lWV HgV gIhhhWcIhH1J"Ki V W dl*WW UdgL Mh\[JZM&\l@W WW Vl IV Vl Vj oV Vl iciWV (320Q \SFTP.PROTOCOL.ERROR 303Q FTPPUTMARK 274Q PRIN3 263Q FTPPUTCODE 255Q FTPPUTMARK 246Q COPYBYTES 240Q FTPPUTMARK 231Q \FTP.FLUSH.TO.EOC 221Q FTPGETCODE 147Q \FTP.FLUSH.TO.EOC 131Q FTPGETMARK 123Q \SFTP.SENDPLIST 117Q \SFTP.PLIST.FROM.FILE 50Q \SFTP.OPENFILE.FROM.PLIST 35Q \SFTP.PROTOCOL.ERROR 23Q FTPGETMARK 10Q \SFTP.READPLIST) (157Q DESIRED-PROPERTY 61Q CLOSEF 44Q INPUT) ( 270Q "File sent ok") \SFTP.RETRIEVE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OUTS I 0 INS F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFTP.RETRIEVEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\SFTP.RETRIEVEA0001)) \SFTP.ENUMERATE D1 (P 13Q PAIR 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 F 21Q FTPSERVER.DEFAULT.PROPS) p@A d@ l@A HA OOHgAJW" 2i_dg _OOh__O_O&_[ Klk2OOAO]KhM Y%NAl Al@i oA Al i-LI Y #_ OO h__Ok_O &_iBNAl iAI hJhK  (374Q \FTP.PRINTPLIST 371Q \SFTP.PLIST.FROM.FILE 361Q MKATOM 351Q FTPPUTMARK 272Q DIRECTORY.MATCH 266Q CONCATCODES 254Q FTPPUTMARK 245Q PRIN3 234Q FTPPUTCODE 224Q FTPPUTMARK 210Q \GENERATENEXTFILE 154Q DIRECTORY.MATCH.SETUP 111Q MKATOM 65Q \SFTP.OPENFILE.FROM.PLIST 32Q \SFTP.PROTOCOL.ERROR 21Q FTPGETMARK 7 \SFTP.READPLIST) (101Q DESIRED-PROPERTY 54Q ENUMERATE) ( 241Q "File not found") \SFTP.STOREA0001A0002 D1 (I 0 STREAM) @ (6 DELFILE 3 CLOSEF) NIL () \SFTP.STOREA0001A0003 D1 (NAME ERRORSET F 0 INS F 1 FILE) PQ h(4 COPYBYTES) NIL () \SFTP.STOREA0001 D1 (NAME ERRORSET P 3 SAVER P 2 SUCCESS P 1 FILE P 0 PLIST F 10Q INS F 11Q OUTS F 12Q FTPDEBUGLOG F 13Q RESETVARSLST F 14Q OLDSTYLE F 15Q RESETY) =@WW d+W lWW HgW gIh[hhWcWWl Wj Wl IiH1L+Mi W W dl6Wi WW dg_NOh^]L\O&^lno W hW dl?W WW JW AWl Wj oW I KglWi WW WW Wl ici(464Q FTPPUTMARK 454Q \SFTP.PROTOCOL.ERROR 444Q \FTP.FLUSH.TO.EOC 434Q FTPGETCODE 412Q CLOSEF 405Q PRIN3 373Q FTPPUTCODE 364Q FTPPUTMARK 353Q \SFTP.MARK.ERROR 343Q \FTP.FLUSH.TO.EOC 333Q FTPGETCODE 317Q FTPGETMARK 307Q \FTP.FLUSH.TO.MARK 300Q \SFTP.STOREA0001A0003 217Q \FTP.FLUSH.TO.EOC 207Q FTPGETCODE 172Q FTPGETMARK 164Q \SFTP.SENDPLIST 157Q \SFTP.PLIST.FROM.FILE 135Q FTPPUTMARK 125Q FTPPUTCODE 116Q FTPPUTMARK 53Q \SFTP.OPENFILE.FROM.PLIST 37Q \SFTP.PROTOCOL.ERROR 24Q FTPGETMARK 11Q \SFTP.READPLIST) (417Q NILL 230Q DESIRED-PROPERTY 64Q \SFTP.STOREA0001A0002 46Q OUTPUT) ( 400Q "File stored ok" 275Q (\SFTP.STOREA0001A0003)) \SFTP.STORE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OLDSTYLE I 1 OUTS I 0 INS F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFTP.STOREA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\SFTP.STOREA0001)) \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 F 0 FILENAME F 1 ACCESS F 2 FILE F 3 DESIREDPROPS F 4 MYPLIST) %QgP cdS PQhdgT ci(37Q OPENSTREAM 20Q \GENERATEFILES 11Q DIRECTORY.FILL.PATTERN) (31Q 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 3 DESIREDPROPS I 2 OUTS I 1 ACCESS I 0 PLIST F 6 FTPSERVER.DEFAULT.HOST)  P@dMdgMdg$gMm)l:Mkm MJdggMJndggMJ[dggMJHdggM -dggM!dggM ggM hL=IJgVh g gVgI IYo HB Bl h(410Q FTPPUTMARK 402Q \SFTP.MARK.ERROR 373Q \SFTP.OPENFILE.FROM.PLISTA0001 361Q PACKFILENAME 345Q FILENAMEFIELD 335Q PACKFILENAME 332Q \NCONC2 275Q MKATOM 256Q U-CASE 215Q U-CASE 71Q SUBSTRING) (355Q BODY 351Q HOST 342Q HOST 323Q HOST 267Q LENGTH 262Q SIZE 250Q EOLCONVENTION 242Q 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) ( 370Q (\SFTP.OPENFILE.FROM.PLISTA0001)) \SFTP.PLIST.FROM.FILE D1 (P 26Q TAIL P 12Q PLIST P 11Q TYPE P 10Q AUTHOR P 7 VERSION P 6 EXT P 5 NAME P 4 DIR P 3 HOST P 2 INFOHANDLE P 1 INFOFN P 0 PIECES I 4 GENERATOR I 3 FILEOPENP I 2 DESIREDPROPS I 1 NEW I 0 FILE F 27Q FTPSERVER.DEFAULT.HOST) 6@d` `DgDg@HbdO,dgO, W.O,h=O,[6dgO,\(dgO,]dgO,^gO,_BgBH _ gOhhBgBNMoN M_ gOhhBgBO_ gOhhBgB gghhLBgBL_ gOhhKBgBK_ gOhh _AdBgB"JglI@C __ gO hhOg glhhBgBJglI_" gO"hhBgBJglI_$ gO$hhBgBJglI_& gO&hhBgBJglI_( gO(hhBgBJglI_* gO*hh O(1060Q \NCONC2 1055Q \NCONC2 1052Q \NCONC2 1047Q \NCONC2 1044Q \NCONC2 1041Q \NCONC2 1036Q \NCONC2 531Q \GETFILETYPE 470Q \NCONC2 465Q \NCONC2 462Q \NCONC2 457Q \NCONC2 454Q \NCONC2 266Q CONCAT 224Q PACKFILENAME.STRING 72Q MKATOM 15Q UNPACKFILENAME.STRING 12Q FULLNAME) (1024Q AUTHOR 1010Q AUTHOR 1000Q AUTHOR 764Q SIZE 750Q LENGTH 740Q SIZE 724Q READ-DATE 710Q READDATE 700Q READ-DATE 664Q WRITE-DATE 650Q WRITEDATE 640Q WRITE-DATE 624Q CREATION-DATE 610Q CREATIONDATE 600Q CREATION-DATE 564Q BYTE-SIZE 556Q BINARY 542Q TYPE 515Q TYPE 505Q TYPE 442Q DEVICE 426Q DEVICE 407Q DIRECTORY 373Q DIRECTORY 356Q CR 353Q END-OF-LINE-CONVENTION 344Q END-OF-LINE-CONVENTION 330Q VERSION 313Q VERSION 277Q NAME-BODY 247Q NAME-BODY 233Q SERVER-FILENAME 214Q SERVER-FILENAME 170Q VERSION 154Q EXTENSION 136Q NAME 120Q DIRECTORY 57Q HOST 36Q GETFILEINFO 30Q \GENERATEFILEINFO 5 STREAMTYPE#) ( 262Q ".") \SFTP.SENDPLIST D1 (I 1 OUTS I 0 PLIST) Al A@ Al (20Q FTPPUTMARK 12Q \FTP.PRINTPLIST 5 FTPPUTMARK) 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.READPLISTA0001 D1 (NAME ERRORSET F 0 INS) P h(3 READPLIST) 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.READPLISTA0001) (24Q FTPDEBUGFLG) ( 3 (\SFTP.READPLISTA0001)) \SFTP.TIMEOUTFN D1 (I 0 STREAM) @g @ h@@ (22Q CLOSEBSPSTREAM 6 BSPOPENP) (3 INPUT) () \SFTP.ERRORHANDLER D1 (I 1 ERRCODE I 0 INSTREAM) Ag@@"@kHm(33Q ERROR!) (3 MARK.ENCOUNTERED) () \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.TOP 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)))) ( INITVARS (FTPSERVER.DEFAULT.HOST (QUOTE DSK)) (FTPSERVER.DEFAULT.PROPS (QUOTE (TYPE CREATIONDATE WRITEDATE READDATE LENGTH AUTHOR)))) (DECLARE: DONTCOPY (MACROS .IFDESIRED.) (FILES (LOADCOMP) DPUPFTP )))) (RPAQQ \SFTP.VERSION "16-Nov-84 16:12:47") (RPAQ? FTPSERVER.DEFAULT.HOST (QUOTE DSK)) (RPAQ? FTPSERVER.DEFAULT.PROPS (QUOTE (TYPE CREATIONDATE WRITEDATE READDATE LENGTH AUTHOR))) (PUTPROPS FTPSERVER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL