(FILECREATED "27-Apr-85 15:07:18" ("compiled on " {ERIS}LIBRARY>TCPFTP.;20) "19-Mar-85 14:34:17" recompiled changes: \TCPFTP.HOSTNAMEP \GET.TCPFTP.CONNECTION \TCPFTP.OPEN.CONNECTION \TCPFTP.ASSURE.CLEANUP \TCPFTP.CLEANUP \TCPFTP.RELEASE.CONNECTION \TCPFTP.DELETEFILE \TCPFTP.DIRECTORYNAMEP \TCPFTP.GENERATEFILES \TCPFTP.GENERATENEXTFILE \TCPFTP.GETFILENAME \TCPFTP.OPENFILE \TCPFTP.TRANSFER.COMPLETE \TCPFTP.DELETE.CONNECTION in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "27-Apr-85 15:06:33" {ERIS}LIBRARY>TCPFTP.;20 34091 changes to: (FNS \TCPFTP.HOSTNAMEP \TCPFTP.OPEN.CONNECTION \TCPFTP.RELEASE.CONNECTION \TCPFTP.GENERATEFILES \TCPFTP.TRANSFER.COMPLETE \TCPFTP.DELETEFILE \TCPFTP.DIRECTORYNAMEP \TCPFTP.GENERATENEXTFILE \TCPFTP.GETFILENAME \TCPFTP.OPENFILE \TCPFTP.DELETE.CONNECTION \TCPFTP.CLEANUP \TCPFTP.ASSURE.CLEANUP \GET.TCPFTP.CONNECTION) (VARS TCPFTPCOMS \TCPFTP.CLEANUP.PROCESS) (RECORDS TCPFTPCON) previous date: "26-Apr-85 12:22:56" {ERIS}LIBRARY>TCPFTP.;18) ARPACMDA0001A0002 D1 (NAME ERRORSET F 0 CMD F 1 INC F 2 OUTC F 3 FTPDEBUGLOG F 4 FTPDEBUGFLG F 5 WANTARG F 6 WANT F 7 DISCARD F 10Q RESETVARSLST F 11Q ARG F 12Q RESETY) @ ggggQogQhhggRogRhhhhhhWc¿P²BT²PS ¿oS ¿WS ¿PR ¿oR ¿WR ¿R ¿R ¿TŸS ¿T˜oS ¿Q c¿TžPS ¿oS ¿PUð§U²PUœQ l-ð²-P °&Q l-ðœQ ¿Q Pð²õPVð¨VŸPdV›¿Q ¿PciPWðªWœPdW—¿Q °…Pd¡´PldÛdlð¤dlð–¿P °dlð¤dlð˜¿Qi ¿Q ±ÿM(473Q DISCARDLINE 466Q ERROR 463Q GETLINE 441Q FTPHELP 403Q DISCARDLINE 351Q DISCARDLINE 324Q \TCPFTP.INPUT 317Q DISCARDLINE 303Q FTPHELP 253Q PRIN1 242Q PRIN1 230Q \TCPFTP.INPUT 223Q PRIN1 210Q TERPRI 201Q FORCEOUTPUT 174Q TELNET.EOL 167Q PRIN3 160Q PRIN3 147Q PRIN3 141Q PRIN1 132Q PRIN1 121Q PRIN1) (55Q CLOSEF 43Q OPENP 40Q AND 25Q CLOSEF 13Q OPENP 10Q AND 5 RESETSTATE 2 COND) ( 247Q " " 217Q "< " 154Q " " 126Q " " 50Q ((QUOTE OUTPUT)) 20Q ((QUOTE INPUT))) ARPACMDA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 OUTC P 0 INC F 5 TCPFTPCON F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) :`hi ¿UUV!Wog ‘h‚g\ ¿L“€Kci(60Q ERROR! 52Q RESETRESTORE 40Q ARPACMDA0001A0002 7 OBTAIN.MONITORLOCK) (46Q ERROR 35Q INTERNAL 2 \TCPFTP.ARPACMD.LOCK) ( 32Q (ARPACMDA0001A0002)) ARPACMD D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 WANTARG I 4 DISCARD I 3 WANT I 2 ARG I 1 CMD I 0 TCPFTPCON F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ARPACMDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (ARPACMDA0001)) FTPHELP D1 (I 0 ARG) @o (7 ERROR) NIL ( 4 " unrecognized response from remote FTP server") CMDREADCODE D1 (I 0 IN) @ @ @ (16Q PACK* 13Q CMDREAD 7 CMDREAD 3 CMDREAD) NIL () CMDREAD D1 (P 0 CH I 0 IN) @ `–H` H(17Q BOUT) (14Q FTPDEBUGLOG 7 FTPDEBUGFLG) () DISCARDLINE D1 (P 0 CH I 0 IN) /`²"@ @ Xl ð—` h`H ¿°é@ l ð²ûh(41Q BOUT 30Q TERPRI 10Q \BACKFILEPTR) (35Q FTPDEBUGLOG 25Q FTPDEBUGLOG 2 FTPDEBUGFLG) () GETLINE D1 (P 2 CH P 1 STRING P 0 POS I 1 FLG I 0 IN) -klP @ Zl ð³HdlPó¦¿IHJ+¿HkÔ¸°èIkHkÙ (52Q SUBSTRING 5 ALLOCSTRING) NIL () \TCPFTP.INPUT D1 (P 2 CH P 1 GOTCODE P 0 CODE I 0 STREAM) 9j!Jl-ð³.Jjð³)Jl ð³#@ ºI³l0Jó³Jl9ó«Hl ÖJl0ÕÔ¸°Ôi¹°ÐHNIL NIL () TELNET.EOL D1 (I 0 STREAM) @l @l @ (17Q FORCEOUTPUT 13Q BOUT 5 BOUT) NIL () \TCPFTP.GET.OSTYPE D1 (P 1 ENTRY P 0 HOST I 0 DEVICE F 2 \HOSTNAMES F 3 \IP.HOSTNAMES) $@ÉHR ˜Hg µ HSd”É(25Q GETHOSTINFO 15Q FASSOC) (37Q HOSTS.TXT.ENTRY 22Q OSTYPE 3 FDEV) () \TCPFTP.EVENTFN D1 (P 4 DATASTREAM P 3 TCPOUT P 2 TCPIN P 1 TCPFTPCON I 1 FLG I 0 FDEV) YAgð¬Agð¦Agð´@É(AHµhYºI»I¼Jg ”J ¿Kg ”K ¿L ”L ¿HX°Ç(121Q CLOSEF 114Q OPENP 107Q CLOSEF 102Q OPENP 72Q CLOSEF 65Q OPENP) (77Q OUTPUT 62Q INPUT 26Q FDEV 17Q BEFOREMAKESYS 11Q BEFORESYSOUT 3 BEFORELOGOUT) () \TCPFTP.HOSTNAMEP D1 (P 2 FILINGNAME P 1 FULLHOSTNAME P 0 SERVER I 1 DEVICE I 0 HOST) ³@ µ@ 1H¡h@ Yid µ‚±@o ZI`` dI¿dg¿dg¿dg¿dg ¿dg¿dg2¿dg¿dg¿dg¿dg¿dg ¿dg¿dh(¿`É*»dK*¿b A`A(247Q \DEFINEDEVICE 66Q NCREATE2 53Q PACK* 35Q \GETDEVICEFROMNAME 27Q MKATOM 24Q U-CASE 11Q \IP.READ.STRING.ADDRESS 3 DODIP.HOSTP) (257Q \TCPFTP.DEVICES 253Q \TCPFTP.DEVICES 232Q FDEV 227Q \TCP.DEVICE 214Q NILL 205Q \TCPFTP.GENERATEFILES 176Q \TCPFTP.DIRECTORYNAMEP 167Q \TCPFTP.GETFILENAME 160Q NILL 151Q \TCPFTP.DELETEFILE 142Q \TCPFTP.GETEOFPTR 133Q NILL 124Q NILL 115Q \TCPFTP.CLOSEFILE 106Q NILL 77Q \TCPFTP.OPENFILE 63Q \TCP.DEVICE 60Q FDEVTYPE#) ( 50Q " Filing") \GET.TCPFTP.CONNECTIONA0001 D1 (NAME ERRORSET L (0 NIL) F 2 TCPFTPCON F 3 INSTREAM F 4 DEVICE F 5 CONNECTIONS F 6 RESETY) ^`hi ¿UHµhcµT c iY¥Iµëi°èHX°ßcµ RT ¿°Û ²õS ³ïS ”S ¿°øRi¿R°À(114Q READP 106Q EOFP 100Q OPENP 72Q \TCPFTP.DELETE.CONNECTION 32Q \TCPFTP.OPEN.CONNECTION 7 OBTAIN.MONITORLOCK) (2 \TCPFTP.CONNECTION.LOCK) () \GET.TCPFTP.CONNECTION D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 INSTREAM P 1 TCPFTPCON P 0 CONNECTIONS I 0 DEVICE F 6 LISPXHIST F 7 RESETVARSLST) ,@É(!V!Wog ‘h‚g] M“L(47Q ERROR! 42Q RESETRESTORE 30Q \GET.TCPFTP.CONNECTIONA0001) (36Q ERROR 25Q INTERNAL 3 FDEV) ( 22Q (\GET.TCPFTP.CONNECTIONA0001)) \TCPFTP.OPEN.CONNECTIONA0001 D1 (I 0 STREAM) (2 ZERO) NIL () \TCPFTP.OPEN.CONNECTION D1 (P 2 INSTREAM P 1 TCPFTPCON P 0 HOST I 0 DEVICE) b@É hddihh¹Hlhgg Jg"IJIJ J lÜð²@I @I@É((II@ h(136Q \TCPFTP.DELETE.CONNECTION 111Q \TCPFTP.LOGIN 77Q \TCPFTP.INPUT 72Q TCP.OTHER.STREAM 45Q TCP.OPEN 10Q DODIP.HOSTP) (122Q FDEV 115Q FDEV 57Q \TCPFTP.OPEN.CONNECTIONA0001 54Q STREAM 41Q INPUT 36Q ACTIVE 3 FDEV) () \TCPFTP.ASSURE.CLEANUP D1 NIL #` ™` hðµogg (35Q ADD.PROCESS 14Q PROCESS.FINISHEDP 5 PROCESSP) (40Q \TCPFTP.CLEANUP.PROCESS 32Q NO 27Q RESTARTABLE 11Q \TCPFTP.CLEANUP.PROCESS 2 \TCPFTP.CLEANUP.PROCESS) ( 24Q (\TCPFTP.CLEANUP)) \TCPFTP.CLEANUPA0001A0002 D1 (NAME ERRORSET F 0 CONNECTION F 1 DEVICE) 5P³+Pg ´P ¿P ¿P ¿PQ €hh(56Q \TCPFTP.DELETE.CONNECTION 50Q CLOSEF? 40Q CLOSEF? 31Q CLOSEF? 22Q TIMEREXPIRED?) (17Q MILLISECONDS) () \TCPFTP.CLEANUPA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ¿o ci(17Q \TCPFTP.CLEANUPA0001A0002 7 OBTAIN.MONITORLOCK) (2 \TCPFTP.CONNECTION.LOCK) ( 14Q (\TCPFTP.CLEANUPA0001A0002)) \TCPFTP.CLEANUP D1 (P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 5 CONNECTION P 4 CONNECTIONSP P 3 DEVICE P 1 CONNECTIONSP P 0 INTERVAL F 11Q CONNNECTIONSP F 12Q LISPXHIST F 13Q RESETVARSLST) h `l×H ¿hc¿`!JµI³ëh[É( °3di¼W!Wog ‘h‚g_ ¿O“¿µÎJZ°´(134Q BLOCK 127Q ERROR! 120Q RESETRESTORE 105Q \TCPFTP.CLEANUPA0001 53Q COPY 14Q BLOCK) (113Q ERROR 102Q INTERNAL 46Q FDEV 24Q \TCPFTP.DEVICES 2 \TCPFTP.IDLE.TIMEOUT) ( 77Q (\TCPFTP.CLEANUPA0001)) \TCPFTP.RELEASE.CONNECTION D1 (I 0 TCPFTPCON) @h@l `ö(30Q \TCPFTP.ASSURE.CLEANUP 20Q \CLOCK0) (23Q \TCPFTP.IDLE.TIMEOUT) () \TCPFTP.LOGIN D1 (P 1 INFO P 0 HOST I 1 TCPFTPCON I 0 DEVICE) £ @ÉX¿H Y¿AoIo dlæð¤dlÊð‘idnKð²0¿AoI o dlæð³ádnKð¥dnð–¿H °¯¿°)dnLð²'¿AooH dlæð³ªnLð³Œhdn÷ð’±ÿ~nð²îH ±ÿk(236Q LOGIN 211Q FTPHELP 172Q ARPACMD 167Q PROMPTFORWORD 164Q CONCAT 132Q LOGIN 103Q ARPACMD 74Q \DECRYPT.PWD 36Q ARPACMD 16Q \INTERNAL/GETPASSWORD) (6 FDEV) ( 160Q "Account for logging into " 154Q "ACCT" 100Q (346Q 513Q 1022Q) 67Q "PASS" 33Q (312Q 346Q 513Q 514Q 767Q 1022Q) 25Q "USER") \TCPFTP.DELETEFILEA0001 D1 (NAME ERRORSET F 0 TCPFTPCON F 1 NAME F 2 OSTYPE) PoghgQ R o h(32Q ARPACMD 23Q REPACKFILENAME.STRING 17Q PACKFILENAME.STRING) (13Q BODY 7 HOST) ( 27Q (310Q 342Q 372Q) 4 "DELE") \TCPFTP.DELETEFILE D1 (P 2 CODE P 1 OSTYPE P 0 TCPFTPCON I 1 DEVICE I 0 NAME) 0A A o H JlúðªJlâð¥JlÈð´@(34Q \TCPFTP.RELEASE.CONNECTION 24Q \TCPFTP.DELETEFILEA0001 12Q \TCPFTP.GET.OSTYPE 3 \GET.TCPFTP.CONNECTION) NIL ( 21Q (\TCPFTP.DELETEFILEA0001)) \TCPFTP.DIRECTORYNAMEPA0001A0002 D1 (I 0 TCPFTPCON F 0 RESETSTATE) +@ P´$@ •@ ¿@h@ –@ ¿@h(42Q CLOSEF 33Q OPENP 21Q CLOSEF 13Q OPENP 3 \TCPFTP.RELEASE.CONNECTION) NIL () \TCPFTP.DIRECTORYNAMEPA0001 D1 (NAME ERRORSET F 0 TCPFTPCON F 1 RESETVARSLST F 2 RESETY F 3 DEVICE F 4 HOST/DIR) !gPhhhQc¿SPTg ci(33Q \TCPFTP.CONNECT 30Q FILENAMEFIELD) (25Q DIRECTORY 2 \TCPFTP.DIRECTORYNAMEPA0001A0002) () \TCPFTP.DIRECTORYNAMEP D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 TCPFTPCON I 1 DEVICE I 0 HOST/DIR F 4 LISPXHIST F 5 RESETVARSLST) )A T!Uog ‘h‚g[ K“J(44Q ERROR! 37Q RESETRESTORE 25Q \TCPFTP.DIRECTORYNAMEPA0001 3 \GET.TCPFTP.CONNECTION) (33Q ERROR 22Q INTERNAL) ( 17Q (\TCPFTP.DIRECTORYNAMEPA0001)) \TCPFTP.ENDOFSTREAMOP D1 (I 1 SILENTLY I 0 STREAM) @ Aµ@ (12Q \EOSERROR 3 \TCPFTP.TRANSFER.COMPLETE) NIL () \TCPFTP.GENERATEFILESA0001 D1 (NAME ERRORSET F 0 PATTERN F 1 OSTYPE F 2 TCPFTPCON) œRoQgð²zPg gð²