(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 21:11:45" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.;1) "13-Jun-2021 14:44:27" recompiled explicitly%: \FTP.FLUSH.TO.EOC \FTP.FLUSH.TO.MARK in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "16-May-90 16:10:35" {DSK}local>lde>lispcore>sources>DPUPFTP.;2 50085 changes to%: ( VARS DPUPFTPCOMS) previous date%: "19-Aug-88 12:45:25" {DSK}local>lde>lispcore>sources>DPUPFTP.;1 ) \FTPINIT :D8 NIL #``` dg`g`g`g`g `g`gD`g`g`g`g `g`g`g i(30 NCREATE2) (288 \FTPAVAILABLE 280 \FTP.UNREGISTER 275 FDEV 270 \FTPFDEV 262 \FTP.REGISTER 257 FDEV 252 \FTPFDEV 244 \GENERIC.OPENP 239 FDEV 234 \FTPFDEV 226 \FTPEVENTFN 221 FDEV 216 \FTPFDEV 208 \FTP.GENERATEFILES 203 FDEV 198 \FTPFDEV 190 \FTP.DELETEFILE 185 FDEV 180 \FTPFDEV 172 \FTP.RENAMEFILE 167 FDEV 162 \FTPFDEV 154 \FTP.GETFILEINFO 149 FDEV 144 \FTPFDEV 136 \FTP.GETFILENAME 131 FDEV 126 \FTPFDEV 118 \FTP.DIRECTORYNAMEP 113 FDEV 108 \FTPFDEV 100 \FTP.CLOSEFILE 95 FDEV 90 \FTPFDEV 82 \FTP.REOPENFILE 77 FDEV 72 \FTPFDEV 64 \FTP.OPENFILE 59 FDEV 54 \FTPFDEV 46 DPUPFTP 41 FDEV 35 \FTPFDEV 25 \BSPFDEV 20 |FDEVTYPE#| 9 FDEV 4 \BSPFDEV) () \FTPEVENTFN :D8 (I 1 EVENT I 0 DEV) :Adgi gAgAgid @A (55 \BSPEVENTFN 47 FTP.BREAKCONNECTION 15 FTP.BREAKCONNECTION) (38 BEFORESAVEVM 30 BEFOREMAKESYS 22 BEFORESYSOUT 6 BEFORELOGOUT) () \FTP.OPENFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 PAIR P 4 EOLCONVENTION P 3 BYTESIZE P 2 TYPE P 1 DESIREDPLIST P 0 HOST I 0 SI::*CLEANUP-FORMS* F 7 ACCESS F 8 RECOG F 9 FILENAME F 10 DEFAULTFILETYPE F 11 OTHERINFO) PWdgWggWgiWl W Xd\YHXWgBWM5gJWZhIJdggLg^dgdgNZdg𩢱gZhdgN3 Nl hdgdgNhwdgdg*gNdgo hIh>dg gN3 Nl hIhdgdghiNIM]ggKlhIHIW (409 \FTP.OPENFILE.FROM.PLIST 336 \LISPERROR 294 GDATE 220 \LISPERROR 58 \FTP.UNPACKFILENAME 50 \LISPERROR) (389 BYTE-SIZE 382 BINARY 359 DON'TCACHE 351 SEQUENTIAL 321 SIZE 312 LENGTH 280 ICREATIONDATE 272 CREATION-DATE 263 ICREATIONDATE 255 CREATIONDATE 239 EOLCONVENTION 231 EOL 201 BYTESIZE 189 BINARY 178 TEXT 164 FILETYPE 156 TYPE 138 CR 126 END-OF-LINE-CONVENTION 115 TEXT 96 TYPE 76 OUTPUT 37 OLD 28 OUTPUT 20 NEW 10 INPUT) ( 289 (DATEFORMAT TIME.ZONE)) \FTP.OPENFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILENAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 \FTP.OPENFILEA0001) (8 SI::RESETUNWIND) () \FTP.REOPENFILE :D8 (L (5 STREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) AgENIL (5 INPUT) () \FTP.OPENFILE.FROM.PLIST :D8 (P 4 FULLNAME P 3 REMOTEPLIST P 2 OUTS P 1 INS P 0 CONNECTION I 2 ACCESS I 1 DESIREDPLIST I 0 HOST) P@i XdHJBdgkgl JA Jl I dl"HA Ig H hdl .I @KhgA I lH l]H BdgJl Jj Jl I dl,HAhdi In H Ll dlJILIKIg IK Ij I` IlH gTJg Jl JLJKJj JA J` J(432 \FTP.EOL.FROM.PLIST 419 \BSP.DECLARE.FILEPTR 391 FTPPUTMARK 379 BSPOPENP 359 \FTPERROR 330 \BSP.DECLARE.FILEPTR 319 \FTP.EOL.FROM.PLIST 306 \SETACCESS 267 \LISPERROR 258 \RELEASE.FTPCONNECTION 248 CLOSEBSPSTREAM 238 \FTP.HANDLE.NO 220 FTPGETMARK 213 FTPPUTMARK 204 FTPPUTCODE 196 FTPPUTMARK 174 \FTPERROR 160 \FTPERROR 149 FTPGETMARK 142 \FTP.PACKFILENAME 124 READPLIST 109 \RELEASE.FTPCONNECTION 99 BSPOPENP 87 \FTP.HANDLE.NO 73 FTPGETMARK 66 FTPPUTMARK 57 \FTP.PRINTPLIST 49 FTPPUTMARK 9 \GETFTPCONNECTION) (447 \FTPFDEV 442 STREAM 426 STREAM 408 STREAM 398 STREAM 374 OUTPUT 365 OUTPUT 342 \FTPFDEV 337 STREAM 313 STREAM 301 INPUT 291 STREAM 281 STREAM 182 INPUT 133 DEVICE 94 INPUT 39 OUTPUT 29 INPUT) () \FTP.GETFILENAME :D8 (I 2 DEV I 1 RECOG I 0 NAME) PAgAdg@BhA gAg@BhA g@gk (77 SHOULDNT 71 PACKFILENAME 52 \FTP.RECOGNIZEFILE 26 \FTP.RECOGNIZEFILE) (65 VERSION 59 BODY 40 NEW 32 OLD/NEW 14 OLDEST 5 OLD) () \FTP.RECOGNIZEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 11 DEVICEWANTED P 10 CODE P 9 RESULT P 8 BESTPLIST P 7 V P 6 BESTVERSION P 5 DESIREDPLIST P 4 REMOTEPLIST P 3 OUTS P 2 INS P 1 HOST P 0 CONNECTION I 0 SI::*CLEANUP-FORMS* F 13 OPTION F 14 RECOG F 15 FTPDEBUGLOG F 16 NAME F 17 DESIREDPROPS) ~  W Yd&IWggMooMgMIg dgWgo^oWdgdgWgo5o.ddgdgWgooh_gOhMWdgoM]WgoMgM_oMW"d_gOhMIid XdHKl KM Kl J dluJi _dl J`W l@*J`W WgHM _HMhOhi Jg [jdl AJ gL_d$ _NWgNOONHOL_>dl𓿱 lIWdgO7gHO &WgNgONkIOhO _H H O(633 \RELEASE.FTPCONNECTION 626 \FTPERROR 617 \FTP.PACKFILENAME 579 \FTP.PACK.DIRECTORYNAMEP 499 MKATOM 479 READPLIST 459 BSPOPENP 444 \FTP.HANDLE.NO 426 \FTP.PACK.DIRECTORYNAMEP 406 \FTP.FLUSH.TO.EOC 383 \FTP.FLUSH.TO.EOC 359 FTPGETCODE 345 FTPGETMARK 338 FTPPUTMARK 329 \FTP.PRINTPLIST 321 FTPPUTMARK 303 \GETFTPCONNECTION 77 GETHOSTINFO 9 \FTP.UNPACKFILENAME) (597 VERSION 588 NEW 569 DIRECTORYNAMEP 557 PROPS 512 OLDEST 485 VERSION 454 INPUT 414 DIRECTORYNAMEP 397 FTPDEBUGFLG 374 FTPDEBUGFLG 283 DESIRED-PROPERTY 254 DEVICE 238 PROPS 219 PROPS 203 VERSION 179 OLDEST 168 D 160 IFS 135 OLDEST 124 TOPS20 116 TENEX 94 OLDEST 83 VMS 72 OSTYPE 60 VERSION 35 NAME-BODY 27 DIRECTORYNAMEP) ( 266 (DESIRED-PROPERTY DEVICE) 246 (DESIRED-PROPERTY DIRECTORY) 227 (DESIRED-PROPERTY NAME-BODY) 192 "H" 186 "L" 149 "0" 142 "-2" 108 "0" 101 "-0" 52 (DESIRED-PROPERTY VERSION) 43 "QXZYQJ") \FTP.RECOGNIZEFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 DESIREDPROPS I 3 RECOG I 2 OPTION I 1 DEV I 0 NAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 \FTP.RECOGNIZEFILEA0001) (8 SI::RESETUNWIND) () \FTP.DIRECTORYNAMEP :D8 (I 1 DEV I 0 HOST/DIR) @Ag (11 \FTP.RECOGNIZEFILE) (6 DIRECTORYNAMEP) () \FTP.CLOSEFILE :D8 (P 8 A9327 P 7 A9326 P 6 SUCCESS P 5 INS P 4 FILENAME P 3 CONN P 2 ACCESS I 0 STREAM F 9 FTPDEBUGLOG)  @ `Hh@#@hJdgʿ@J `@ <@kO0@ @J 4@ <@kO@ dl8@ @`W LYd@@IViRHXDl*@i @`g o ^g@ ]"@l @j @l M dlM M`W ^Dl@Mi `oK M`g lDLl oL N@` K KLn (455 CLOSEBSPSTREAM 439 \RELEASE.FTPCONNECTION 415 ERROR 403 \LISPERROR 390 \FTP.FLUSH.TO.EOC 385 \GETSTREAM 368 CL:FORMAT 349 FTPGETCODE 334 \FTP.FLUSH.TO.EOC 318 FTPGETCODE 305 FTPGETMARK 298 FTPPUTMARK 289 FTPPUTCODE 281 FTPPUTMARK 270 BSPINPUTSTREAM 249 ERROR 239 \FTP.FLUSH.TO.EOC 234 \GETSTREAM 217 FTPGETCODE 174 \FTP.FLUSH.TO.EOC 158 FTPGETCODE 145 FTPGETMARK 107 BSPOPENP 99 \BSP.FLUSHINPUT 63 BSPOPENP 5 \GETACCESS) (430 \BSPFDEV 425 STREAM 380 OUTPUT 375 PROMPTWINDOW 354 PROMPTWINDOW 325 FTPDEBUGFLG 259 OUTPUT 229 OUTPUT 224 PROMPTWINDOW 165 FTPDEBUGFLG 124 FDEV 117 STREAM 80 FDEV 73 STREAM 50 INPUT 40 STREAM 29 STREAM 10 \FTPCONNECTIONS) ( 409 "CLOSEF: Remote file not successfully stored" 359 "~&~A: " 244 "CLOSEF: Remote file not successfully retrieved") \FTP.REGISTER :D8 (I 1 STREAM I 0 DEVICE) A A (18 \ADD-OPEN-STREAM 12 \GETDEVICEFROMNAME) (5 STREAM) () \FTP.UNREGISTER :D8 (P 0 A9328 I 1 STREAM I 0 DEVICE) 0A@hd@lH@AA A (45 \GENERIC-UNREGISTER-STREAM 39 \GETDEVICEFROMNAME) (29 STREAM 6 FDEV) () \FTP.RENAMEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 8 CODE P 7 NEWPLIST P 6 OLDPLIST P 5 OUTS P 4 INS P 3 OLDNAME P 2 HOST P 1 CONNECTION P 0 HOST I 0 SI::*CLEANUP-FORMS* F 9 NEWFILE F 10 OLDFILE F 11 FTPDEBUGLOG F 12 NEW-DEVICE F 13 OLD-DEVICE)  W HHWi _dH nO_H Hid YdbIMl MN MO Ml L dlPLi _k L`W WWWW INhOhdO BLg vdlL L`W WlKI I WWl (262 \LISPERROR 248 \RELEASE.FTPCONNECTION 242 \FTPERROR 224 \FTP.FLUSH.TO.EOC 208 FTPGETCODE 189 BSPOPENP 176 \FTP.HANDLE.NO 160 \GENERIC.RENAMEFILE 146 \FTP.FLUSH.TO.EOC 125 FTPGETCODE 111 FTPGETMARK 104 FTPPUTMARK 95 \FTP.PRINTPLIST 86 \FTP.PRINTPLIST 78 FTPPUTMARK 60 \GETFTPCONNECTION 51 CLEAR.LEAF.CACHE 37 CL::SIMPLE-STRING-EQUAL 23 \FTP.UNPACKFILENAME 6 \FTP.UNPACKFILENAME) (215 FTPDEBUGFLG 184 INPUT 137 FTPDEBUGFLG) () \FTP.RENAMEFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 NEWFILE I 2 NEW-DEVICE I 1 OLDFILE I 0 OLD-DEVICE F 3 LISPXHIST) ,@B@ABC S!g $(37 SI::RESETUNWIND 32 \MVLIST 27 \FTP.RENAMEFILEA0001 12 \GENERIC.RENAMEFILE) (22 SI::RESETUNWIND) () \FTP.DELETEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 RESULT P 6 DESIREDPLIST P 5 REMOTEPLIST P 4 OUTS P 3 INS P 2 REMOTENAME P 1 HOST P 0 CONNECTION I 0 SI::*CLEANUP-FORMS* F 9 FILENAME)  W Yd#IgN$Ig ggohNod_gOhNI Iid XdHLl LN Ll K dl'HNhddi Kg H hdl \K K lH Ll Lj Ll K dl+HNhdid FKn Cl=H lK K IMhgN O_K dl clH Od (382 REVERSE 371 \RELEASE.FTPCONNECTION 352 FTPGETMARK 340 \FTP.PACKFILENAME 322 \FTP.FLUSH.TO.MARK 315 FTPGETCODE 303 \FTPERROR 287 CLOSEBSPSTREAM 276 \FTP.HANDLE.NO 257 FTPGETMARK 250 FTPPUTMARK 241 FTPPUTCODE 233 FTPPUTMARK 224 \FTPERROR 214 FTPGETMARK 207 READPLIST 192 \RELEASE.FTPCONNECTION 182 BSPOPENP 170 \FTP.HANDLE.NO 151 FTPGETMARK 144 FTPPUTMARK 135 \FTP.PRINTPLIST 127 FTPPUTMARK 107 \GETFTPCONNECTION 98 CLEAR.LEAF.CACHE 40 GETHOSTINFO 9 \FTP.UNPACKFILENAME) (331 DEVICE 177 INPUT 80 DESIRED-PROPERTY 52 VERSION 45 VMS 35 OSTYPE 25 VERSION) ( 68 (DIRECTORY NAME-BODY VERSION) 57 "-0") \FTP.DELETEFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILENAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 \FTP.DELETEFILEA0001) (8 SI::RESETUNWIND) () \FTP.GENERATEFILESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 26 PROP P 19 TAIL P 16 FILTERNEEDED P 15 INFO P 14 OSTYPE P 13 NAMEBODY P 12 DIRECTORY P 11 NAME P 10 WANTDEVICE P 9 DEVICE P 8 EXTENSION P 7 VERSION P 6 CODE P 5 DESIREDPLIST P 4 OUTS P 3 INS P 2 REMOTENAME P 1 HOST P 0 CONNECTION I 0 SI::*CLEANUP-FORMS* F 27 PATTERN F 28 DESIREDPROPS) 0W6 O$_&kIg _dggO O kg__ OOOgj dji_ dgO& xdgO&_fdgO&_TdgO&o_:dgO& j O& _gO&__O&k;gO +g__ gOj_Oi_OdgӲOgOgO*OgOm l/eOkm _Y dk4O l*h_Om l*Og __ jh_gO _ Ok l/gO _O O _Og_00W8$dO4 _.O0 O.h_2O.&_0O2o &d_"gO"h_(O* O(h_,O(&_*O,O O&O0gOggOhMOoO _Og!Om l*Og __ gOhMOgOhMO"gghMOgOhMgI _hgOhMIid XHLl LM Ll K dl'HMhNhi Kg H Kdl 8Hl `ggHhOO W6 hlaH ghd(1036 \FTPERROR 1015 DIRECTORY.MATCH.SETUP 982 \CLOCK0 961 \RELEASE.FTPCONNECTION 951 BSPOPENP 939 \FTP.HANDLE.NO 920 FTPGETMARK 913 FTPPUTMARK 904 \FTP.PRINTPLIST 896 FTPPUTMARK 876 \GETFTPCONNECTION 847 \INTERNAL/GETPASSWORD 766 CONCAT 749 NTHCHARCODE 727 CONCAT 624 \NCONC2 586 \FTP.FROM.LISP.ATTRIBUTE 550 L-CASE 541 U-CASEP 531 CONCAT 515 NTHCHARCODE 502 STRPOS 475 CONCAT 458 NTHCHARCODE 440 CHCON1 427 NCHARS 418 SUBSTRING 403 NTHCHARCODE 298 STRPOS 249 MKATOM 236 NCHARS 152 \CANONICAL.HOSTNAME 147 MKATOM 113 NCHARS 69 NCHARS 60 STRPOS 34 GETHOSTINFO 12 UNPACKFILENAME.STRING) (1042 NILL 1000 \FTP.FILEINFOFN 995 \FTP.NEXTFILE 987 \FTP.IDLE.TIMEOUT 946 INPUT 858 USER-PASSWORD 841 USER-NAME 828 DEVICE 814 DEVICE 809 DESIRED-PROPERTY 792 DIRECTORY 776 NAME-BODY 761 * 737 UNIX 703 VERSION 695 VMS 686 * 636 DESIRED-PROPERTY 561 H 524 / 495 * 470 * 389 UNIX 373 UNIX 364 IFS 350 VMS 320 TOPS20 307 * 291 * 259 DEVICE 223 VERSION 197 EXTENSION 179 NAME 161 DIRECTORY 134 HOST 99 TENEX 77 * 53 * 42 TENEX 29 OSTYPE) ( 720 "." 619 (DIRECTORY NAME-BODY VERSION) 212 "") \FTP.GENERATEFILESA0002 :D8 (I 0 CONNECTION F 0 RESETSTATE) P @j (10 CLOSEBSPSTREAM) NIL () \FTP.GENERATEFILES :D8 (P 3 RESULT P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 4 SI::*RESETFORMS* F 5 LISPXHIST) \U!g $Kd8d3CgC gCgKhhdTcK(88 \FTP.ASSURE.CLEANUP 23 SI::RESETUNWIND 18 \MVLIST 13 \FTP.GENERATEFILESA0001) (67 \FTP.GENERATEFILESA0002 58 RESETLST 47 RESETLST 8 SI::RESETUNWIND) () \FTP.NEXTFILE :D8 (P 10 A9329 P 7 PLIST P 6 N P 5 EXT P 4 NAME P 3 NAMEBODY P 2 INS P 1 FILTER P 0 FTPCONNECTION I 1 NAMEONLY I 0 GENSTATE)  @@ Ho@ ZqH_Ol `J < JkO!J dlH @hhdl *J _+Jg oH hlH AgOoHOi@ IIL E@OH_Ol `L`oO (277 HELP 248 \CLOCK0 214 DIRECTORY.MATCH 204 \FTP.PACKFILENAME 166 \FTPERROR 153 ERROR 137 BSPOPENP 122 READPLIST 103 \RELEASE.FTPCONNECTION 91 FTPGETMARK 52 \CLOCK0 23 ERROR) (263 FTPDEBUGFLG 253 \FTP.IDLE.TIMEOUT 236 FIXP 175 NAME-BODY 132 INPUT 72 FDEV 65 STREAM 57 \FTP.IDLE.TIMEOUT 40 FIXP) ( 270 "Uninterpretable filename returned by ENUMERATE" 187 "" 144 "File server broke connection before directory enumeration finished. RETURN() to terminate enumeration." 17 "End of file Enumerator") \FTP.FILEINFOFN :D8 (I 1 ATTRIBUTE I 0 GENSTATE) @A (8 \FTP.GETFILEINFO.FROM.PROPS) NIL () \FTP.GETFILEINFO :D8 (I 2 DEV I 1 ATTRIBUTE I 0 STREAM) 3@@@BggA h A (48 \FTP.GETFILEINFO.FROM.PROPS 42 \FTP.RECOGNIZEFILE 34 \FTP.FROM.LISP.ATTRIBUTE) (28 OLD 23 PROPS 12 STREAM 5 STREAM) () \FTP.GETFILEINFO.FROM.PROPS :D8 (P 0 TMP I 1 ATTRIBUTE I 0 PROPS) Adgg@dgg@gg@Adgg@ gg@ Adgg@ gg@ Adg"g@Xd X3 HngA@ AdgSg@ (244 MKATOM 216 MKATOM 211 U-CASE 181 MKATOM 151 MKATOM 129 IDATE 104 IDATE 82 IDATE) (235 BYTE-SIZE 224 BYTESIZE 199 TYPE 168 SIZE 159 SIZE 142 SIZE 135 LENGTH 120 READ-DATE 112 IREADDATE 95 WRITE-DATE 88 IWRITEDATE 73 CREATION-DATE 65 ICREATIONDATE 53 READ-DATE 46 READDATE 36 WRITE-DATE 28 WRITEDATE 17 CREATION-DATE 9 CREATIONDATE) () \FTP.FROM.LISP.ATTRIBUTE :D8 (L (0 ATTR)) o@dggdggg@dggg@dggg@dgggg@NIL (106 END-OF-LINE-CONVENTION 99 EOLCONVENTION 93 READ-DATE 86 IREADDATE 77 READDATE 71 WRITE-DATE 64 IWRITEDATE 55 WRITEDATE 49 CREATION-DATE 42 ICREATIONDATE 33 CREATIONDATE 27 SIZE 20 LENGTH 13 BYTE-SIZE 6 BYTESIZE) () \FTP.OPEN.CONNECTION :D8 (P 1 INSTREAM P 0 PORT I 2 FAILURESTRING I 1 ECHOSTREAM I 0 HOST) @` HdmHdjlhghdgBo YdA9Id @d3@@H ihdYdA I`II (132 CLOSEBSPSTREAM 110 \FTP.SENDVERSION 94 \CANONICAL.HOSTNAME 89 ETHERHOSTNAME 75 BSPOUTPUTSTREAM 57 OPENBSPSTREAM 10 BESTPUPADDRESS) (123 \FTPCONNECTIONS 117 \FTPCONNECTIONS 66 STREAM 43 \FTP.WHENCLOSED 36 \FTP.ERRORHANDLER 5 PROMPTWINDOW) ( 51 "Can't open FTP connection") FTP.BREAKCONNECTION :D8 (P 1 STREAM P 0 HOSTS I 1 IDLEONLY I 0 HOST) c `AJKL@i@N'ANdNHNHNL Mh\[JZM&\dYn H(90 CLOSEBSPSTREAM) (7 \FTPCONNECTIONS) () \FTP.SENDVERSION :D8 (P 1 OUTS P 0 INS I 1 ECHOSTREAM I 0 CONNECTION) D@@Il Ik oI Il H lH k HA (65 \FTP.FLUSH.TO.EOC 47 FTPGETMARK 41 FTPPUTMARK 33 PRIN3 22 BOUT 15 FTPPUTMARK) NIL ( 27 "Xerox Lisp Ftp user") \FTP.WHENCLOSED :D8 (P 2 CONN I 0 INSTREAM F 3 FTPDEBUGLOG) p`HThJdJ` `3S oS JS oS S hY@IiHX(91 TERPRI 84 PRIN1 72 PRIN1 61 PRIN1 49 TERPRI 30 DREMOVE) (41 FTPDEBUGFLG 35 \FTPCONNECTIONS 25 \FTPCONNECTIONS 4 \FTPCONNECTIONS) ( 78 " closed}" 55 "{FTP Connection with ") \GETFTPCONNECTION :D8 (P 3 CONN P 1 CONNECTION P 0 H I 2 TRYHARD I 1 UNWINDSAVE I 0 HOST F 4 SI::*RESETFORMS* F 5 *FTP-IGNORE-SERVER-FULL* F 6 FTPDEBUGLOG) @d3@@@ Uib`J5h@`VBg Yd\AoIhTcI[H) () \FTP.EOL.FROM.PLIST :D8 (L (0 PLIST)) 2@HjdgHXdgkglNIL (42 CRLF 33 LF 17 END-OF-LINE-CONVENTION) () \FTP.MAKEPLIST :D8 (I 2 DESIREDPROPS I 1 HOST I 0 FILENAME) XA gHhgHhg@hBAIJdhIgMhK Lh[L&(5 \INTERNAL/GETPASSWORD) (66 DESIRED-PROPERTY 33 SERVER-FILENAME 23 USER-PASSWORD 13 USER-NAME) () \FTP.PRINTPLIST :D8 (P 7 CH P 4 ISPASSWORD P 3 ITEM P 2 BEFORE P 0 PAIR I 1 PLIST I 0 STREAM F 11 FTPDEBUGLOG) 5 @l( AdHl("I(@l) @l) `AW @@J l jKB Nd KNdj _Ndj k]Nl _Ndj lDd3@>N__N jh_Mk]O%KgKgiIY4N ^fOOMOM_LOlI_Odl(dl)@l' @OlOl (305 BOUT 287 BOUT 235 MKSTRING 154 %%ARRAY-TYPE-NUMBER 137 \GETBASEFIXP 123 %%ARRAY-OFFSET 104 %%ARRAY-BASE 88 STRINGP 72 BOUT 61 PRIN2 47 BOUT 34 BOUT 7 BOUT) (219 CONNECT-PASSWORD 211 USER-PASSWORD 52 FTPDEBUGFLG) () \FTP.PACKFILENAME :D8 (P 8 PAIR P 7 I P 6 NAME P 5 FIELDS P 4 DIR P 3 DEVICE P 2 SERVERNAME P 1 VERSION P 0 NAMEBODY I 3 DEVICEWANTED I 2 PRESERVECASE I 1 PLIST I 0 HOST F 9 *UPPER-CASE-FILE-NAMES*)  AdOdgCO\yL dl[Lm l]_Llm Rl/MLlm @dgC4O-dgOdgOgOjH+Jd&h]^g@gM]d ^BWN I#gIhgH _WgMHMLgL gMKCi_KC VJSoJ _DJkOk [7H @g gHkOk o XKm l:gMK MN (415 MKATOM 410 U-CASE 400 \FTP.ADD.QUOTES 382 NTHCHARCODE 371 CONCAT 361 SUBSTRING 342 GETHOSTINFO 328 NCHARS 319 SUBSTRING 304 STRPOS 288 STREQUAL 263 \FTP.ADD.QUOTES 233 STRPOS 208 \FTP.ADD.QUOTES 192 CONCATLIST 85 SUBSTRING 67 SUBSTRING 52 NTHCHARCODE 37 CHCON1) (391 %: 347 IFS 337 OSTYPE 268 > 257 < 242 %. 227 %. 217 ; 181 } 175 { 143 SERVER-FILENAME 129 VERSION 113 NAME-BODY 94 DEVICE 20 DIRECTORY) ( 366 "'." 298 ":") \FTP.ADD.QUOTES :D8 (P 2 PIECES P 1 I P 0 N I 0 NAME) Rk!o@H YJ;H@ %@H JZo@HI JIkظJ @(77 CONCATLIST 72 DREVERSE 56 SUBSTRING 38 SUBSTRING 28 NCHARS 15 STRPOS) NIL ( 48 "'" 8 "'") \FTP.PACK.DIRECTORYNAMEP :D8 (P 1 DEVICE P 0 DIRECTORY I 1 PLIST I 0 CONNECTION) 2gAgAg@gIgH (47 PACKFILENAME.STRING) (40 DIRECTORY 34 DEVICE 25 HOST 13 DEVICE 4 DIRECTORY) () \FTP.UNPACKFILENAME :D8 (P 7 INFO P 6 EXT P 5 NAME P 4 DIR P 3 DEVICE P 2 HOST P 1 PLIST P 0 FIELDS I 1 NOLOGIN I 0 FILENAME) 1 @ Hnd_dgOXdgOHdgO8dgO(dgOggOhIJd ZgN8MhIYLwJg gXLm l/%Lkm \ jMgN Lk l/gL \L L gLhIKgKhIJAIIJ (301 \FTP.ADD.USERINFO 262 L-CASE 255 U-CASEP 247 CONCAT 232 NTHCHARCODE 223 CONCAT 207 NCHARS 199 SUBSTRING 185 NTHCHARCODE 169 GETHOSTINFO 133 \CANONICAL.HOSTNAME 5 UNPACKFILENAME.STRING) (282 DEVICE 268 DIRECTORY 241 / 217 %. 174 UNIX 164 OSTYPE 145 NAME-BODY 107 VERSION 100 VERSION 85 EXTENSION 69 NAME 53 DEVICE 37 DIRECTORY 21 HOST) () \FTP.ADD.USERINFO :D8 (I 1 HOST I 0 PLIST) "A gHhgHh@(5 \INTERNAL/GETPASSWORD) (23 USER-PASSWORD 13 USER-NAME) () \FTP.FLUSH.TO.EOC :D8 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) /Adg @ YmHHI @ l(41 FTPGETMARK 32 \OUTCHAR 12 GETSTREAM) (7 OUTPUT) () \FTP.FLUSH.TO.MARK :D8 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) 'Adg @ YmHHI i(32 \OUTCHAR 12 GETSTREAM) (7 OUTPUT) () \FTPERROR :D8 (I 2 ERRARG I 1 ERRMSG I 0 CONNECTION F 0 FTPDEBUGLOG) O`"P oP P @@@n AddioB (76 ERROR 57 CLOSEBSPSTREAM 37 HELP 31 TERPRI 24 PRIN1 12 TERPRI) (44 STREAM 4 FTPDEBUGFLG) ( 70 "FTP Protocol violation" 18 "{FTP Protocol violation, aborted}") FTPDEBUGA0001 :D8 (I 0 WINDOW F 0 FTPDEBUGLOG) @ P hc(5 \INSUREWINDOW) (17 FTPDEBUGFLG) () FTPDEBUGA0002 :D8 (I 0 WINDOW F 0 FTPDEBUGLOG) @ Ph(5 \INSUREWINDOW) (17 FTPDEBUGFLG) () FTPDEBUGA0003 :D8 (I 0 WINDOW F 0 FTPDEBUGLOG) @ Pi(5 \INSUREWINDOW) (17 FTPDEBUGFLG) () FTPDEBUG :D8 (I 1 REGION I 0 FLG F 0 FTPDEBUGLOG) hAo cdgg Pgg Pgg P cgl P iP i(95 DSPSCROLL 88 DSPFONT 82 FONTCREATE 66 \INSUREWINDOW 60 PUTWINDOWPROP 44 PUTWINDOWPROP 28 PUTWINDOWPROP 10 CREATEW) (101 FTPDEBUGFLG 75 GACHA 55 FTPDEBUGA0003 50 EXPANDFN 39 FTPDEBUGA0002 34 SHRINKFN 23 FTPDEBUGA0001 18 CLOSEFN) ( 5 "FTP Debug info") FTPPRINTMARK :D8 (I 0 MARK F 0 FTPDEBUGLOG F 1 FTPMARKTYPES) ?`7oP @Q@P oP @dlP @(59 TERPRI 45 PRIN1 33 PRIN1 17 PRIN1) (4 FTPDEBUGFLG) ( 39 "]" 11 "[") FTPPRINTCODE :D8 (I 1 NOCODEP I 0 CODE F 0 FTPDEBUGLOG F 1 FTPNOCODES) >`6gP A@QPo o@P gP @(58 PRIN1 46 PRINTNUM 33 PRINTCONSTANT 17 PRIN1) (52 } 11 { 4 FTPDEBUGFLG) ( 39 (FIX 1) 28 "\NO.") FTPGETMARK :D8 (P 0 MARK I 0 STREAM F 1 FTPDEBUGLOG) '@ XlH@`Q (34 \FTP.FLUSH.TO.MARK 13 FTPPRINTMARK 8 BSPGETMARK) (26 FTPDEBUGFLG) () FTPPUTMARK :D8 (I 1 MARK I 0 STREAM) @A (11 BSPPUTMARK 6 FTPPRINTMARK) NIL () FTPPUTCODE :D8 (I 2 NOCODEP I 1 CODE I 0 STREAM) @AB (12 BOUT 7 FTPPRINTCODE) NIL () FTPGETCODE :D8 (I 1 NOCODEP I 0 STREAM) @ A (7 FTPPRINTCODE) NIL () (PRETTYCOMPRINT DPUPFTPCOMS) (RPAQQ DPUPFTPCOMS ((* ;;; "Implementation of the PUP FTP device") (COMS (FNS \FTPINIT \FTPEVENTFN \FTP.OPENFILE \FTP.REOPENFILE \FTP.OPENFILE.FROM.PLIST \FTP.GETFILENAME \FTP.RECOGNIZEFILE \FTP.DIRECTORYNAMEP \FTP.CLOSEFILE \FTP.REGISTER \FTP.UNREGISTER \FTP.RENAMEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTP.NEXTFILE \FTP.FILEINFOFN \FTP.GETFILEINFO \FTP.GETFILEINFO.FROM.PROPS \FTP.FROM.LISP.ATTRIBUTE) (INITVARS (\FTPAVAILABLE) (\FTP.IDLE.TIMEOUT 120000) ( *FTP-IGNORE-SERVER-FULL*))) (COMS (* ;; "internal") (FNS \FTP.OPEN.CONNECTION FTP.BREAKCONNECTION \FTP.SENDVERSION \FTP.WHENCLOSED \GETFTPCONNECTION \RELEASE.FTPCONNECTION \FTP.ERRORHANDLER \FTP.FIX.BROKEN.INPUT \FTP.CLEANUP \FTP.ASSURE.CLEANUP) (ADDVARS (\FTPCONNECTIONS)) (FNS \FTP.HANDLE.NO \FTP.DIRECTORYNAMEONLY \FTP.EOL.FROM.PLIST \FTP.MAKEPLIST \FTP.PRINTPLIST \FTP.PACKFILENAME \FTP.ADD.QUOTES \FTP.PACK.DIRECTORYNAMEP \FTP.UNPACKFILENAME \FTP.ADD.USERINFO \FTP.FLUSH.TO.EOC \FTP.FLUSH.TO.MARK \FTPERROR)) (COMS (* ;; "for debugging") (FNS FTPDEBUG FTPPRINTMARK FTPPRINTCODE FTPGETMARK FTPPUTMARK FTPPUTCODE FTPGETCODE) (INITVARS (FTPDEBUGLOG) ( FTPDEBUGFLG))) (DECLARE%: EVAL@COMPILE DONTCOPY (VARS FTPMARKTYPES) (CONSTANTS \FTP.VERSION) ( CONSTANTS * FTPNOCODES) (MACROS MARK# .EOC. .FTPDEBUGLOG.) (PROP INFO MARK#) (RECORDS FTPCONNECTION FTPSTREAM FTPFILEGENSTATE) (GLOBALVARS FTPDEBUGFLG \FTPCONNECTIONS \FTPAVAILABLE \FTP.IDLE.TIMEOUT \BSPFDEV \FTPFDEV)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\FTPINIT))))) (RPAQ? \FTPAVAILABLE) (RPAQ? \FTP.IDLE.TIMEOUT 120000) (RPAQ? *FTP-IGNORE-SERVER-FULL*) (ADDTOVAR \FTPCONNECTIONS) (RPAQ? FTPDEBUGLOG) (RPAQ? FTPDEBUGFLG) (\FTPINIT) (PUTPROPS DPUPFTP COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990)) NIL