PDP-10 Archive: decus/20-0004/ftp.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/ftp.com

There are no other files named ftp.com in the archive.

(FILECREATED "31-JAN-82 19:44:05" ("compiled on " <LISPUSERS>FTP.;29) (2 . 2) brecompiled changes: 
ARPAFTP FINDFILEINLINE CLOSEARPAFTP in WORK dated "27-JAN-82 21:39:12")
(FILECREATED "30-JAN-82 23:28:24" <LISPUSERS>FTP.;29 12973 changes to: ARPAFTP CLOSEARPAFTP 
FINDFILEINLINE previous date: "19-DEC-80 00:35:31" <LISPUSERS>FTP.;28)
CHECKREMOTEFILE BINARY
-(-.(Z,<@,~,<,<,<,<,<,<,<,<,<ZwzZ8-,+,<,<$2B+,<Zwz,<8,<&XBw|3B+ZB2B+ZXBw}3B++a3B+2B+ZXBw}3B++a2B+"ZXBw},<ZDXBw~,<ZDXBw}Z,3B++a2B+4ZXBw},<ZDXBw~-,+ w~(Bq,XBw~ w~A
,XBw~,\+ZZwZ7[ZZ1H+G2D+DXBw|3B+T[w|Z,<,<w~<w},>,<,<$,<"ZDXBp[wXBw+7Zp/XBZXBw}XBw}3B+Zwz,<8,<,<8 wz/",D2B +iZXBw w{/",+j w{/",,<Z H!B!XBwZwz,<8 w{.",,<,<"Z"H!XBw|2B+uZw}2B+uZ#XBw|Zp3B+w,<#,<,<@$`+ZZ%XBZw},<?,<?|,<?},<,<,<,<?~.&Zw}XB?|Z,~3B+Zw}3B+Z%,<,<w|,<&&+Zw|+

'XBZ	0B+ 'Z/,~>2s|y*O):0 @"p!@98e 
(VARIABLE-VALUE-CELL DIRFIELDS . 188)
(VARIABLE-VALUE-CELL ERRORPOS . 265)
(VARIABLE-VALUE-CELL COMMANDS . 107)
(VARIABLE-VALUE-CELL REMOTEINFOLST . 134)
(VARIABLE-VALUE-CELL ERRORMESS . 275)
(VARIABLE-VALUE-CELL DIRFIELDS . 0)
(NIL VARIABLE-VALUE-CELL HELPFLAG . 0)
1
NTHCHAR
{
"}"
2
STRPOS
STKNAME
INFILE
INPUT
OUTFILE
DRIBBLE
OUTPUT
OPENFILE
4
STKARG
((INPUT OUTPUT) . 0)
OPENF
DIRECTORY
0
P
NAME-BODY
";"
((VERSION 0 T) . 0)
"Remote directory specification "
PRIN1
" ignored."
TERPRI
NCONC
:
""
SUBSTRING
MKATOM
-1
""
*.*
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
FTP
RETFROM
ERRORN
ERROR!
(ASZ CF CONSNL BHC IUNBOX LIST3 MKN SKI FMEMB KT SKLA KNIL ENTER1)00
@P^
	p
8?Xk
Axp

pZW
X1H

Hxhyw0a0Ix8x3"	xhX
CHANGEFILENAME BINARY

-.
Z`Z`2D+,+ $,Z`XB@Z`[`QDZ`ZQDZ`,~ (F1 . 1)
(F2 . 1)
(OUTFLG . 1)
(FILEA OFSET IFSET KNIL ENTER3)p`H
FTPHELP BINARY
	-...Z82B+Z,<,<$,~L(ARG . 1)
(VARIABLE-VALUE-CELL FILE . 8)
" unrecognized response from remote FTP server"
ERROR
(KNIL CF CFARP ENTERN)

ARPAFTPBLOCK BINARY
Eu9-.u-.0upx@8,,~-.yZ,<@{ ,~Z,<,<|,<},<@}`+SZZXBZ,<,<,<&,<@ 8+QZ,<,<`,XB`,<,<,Z	,XBZ`XB[`ZXB,<,<,<,<,<,v,<Zw~Z82B+'ZB,<,<,<&XB`[`Zw~XB8Z`Zw~XB8,<,<,<,<,v0Bs+++:0B%+:,<Zw~Z82B+/ 	,<,<	,<,<,v0Bs+3+:0B%+:,<
Zw~Z82B+7Z",<,<
,<,<,v+: ZwZ83B+?,<,<,<

,<,<,vZwZ81B+C1B+C2B+EZZwXB8+P1B+G0B+N,<

B,<,v,<,<,<,<,<,v+P,<,<$ZwZ82B+[,<Z,<,<,<,<,v,<Z,<,<,^,<,Z2B+PZR,~2B+]Z+g2B+Z+g2B+aZ+g2B+cZ+g2B+eZ+g,<,<,B,<ZZ,<,<,<,<,vZVB3B+m ,<Z ,<ZjB,<Zw}Z83B+s2B+tZ+t,<Zw}Z82B+wZ"JXB`Zn,<,p,<`,<[`ZF,<`,<ZyF,<,<,<,<,<,vZx,<,<,^XB`ZwZ82B+,<`",<`"Z+M2B+-,<,<,<,<,<,<@}`+!ZZXBZw|,<8,<[p2B+,<p,<",<,<,<,<w& ,< ,<!,<w&!,<",<,<w&"Zp/ ,\XDZQDZp/D#Zw|XB8Z,~2B+#+,Z`,XBpZw3B+),<Zw,XBw,\QB++Zp,XBwXBw+Zw/+M2B+5,<`,<#Zm,<,<$,<$,<`,Z2B+4ZgH%D%+M2B+M,<`,<,<&,<`,<#Z/,<,<$,<&,<`,<,<,<,<,&XB`3B+J,<`,<,<',<`F&2B+G,<',<`,<`&&2B+G^"+H,/",F(+JZ3H%,<,<&%+M (,<,<`Z),\XB,\,~Zw~XB8Z,~3B+UZ+UZXB`D)Z`3B+Y *,~Z`,~,<w,<,<,<Zw~2B+^+u-,+aXBwZXBw~+cZw~XBw[w~XBw~,<w,<w},<,<,<,<,&XBp2B+h+t,<w~,<,<*,<w|F&2B+m^"+m,/",F(XBw~,<,<+$+2B,+s,<w~",,<w~"++\Zw+Zw~3B+Z3B+},<w~D-,<-ZwD-,<w~ZzD-,<w~ZD-,<.Z}D-,<w~ZD-ZB.ZB/, tZ|3B+B.Z3B+	,</D-Z,<,YXBw~Zw~Zp1B+*-,+*,2B7 3B+Z	,<,T2B0+ Zw~+?Z,<,T2B0+,<Z,<,pZ,<,YZw}2B+Zp/Zw~Zw1B+$*-,+$*,2B7 3B+(Z,<,p+Zw~Zw1B+-*-,+-*,2B7 3B+1Z&,<,p+Zw~-,+4 w~&"2,+5Z1B+70B+8,<w~"+=1B+:0B+=Z/,<,<,^BZ:,<,p++,<p,<$0,<@1 +SZ`3B+RZw~,<8,<$03B+O,<`"23B+OZ`XB=[`ZXB,<3,<3,<4,<4,<,v,<`"Zw~,<8,<5$5Z,~+,<p"6,<Z3B+X,<pD-Zp/+,<p,T,<,<w,T,<,<w,TF%+,<,<6,<,<w~,TXBp2B7+c+gZ,<,<wF7 w.",XBw+`Zc,<,<6 w~/",,<,<8((XBpZw~3B+o,<p"8+Zp+,<,<w,T2B7+tZp++qR!U0UK1RlIc$*Sfg
dKUb*%CY`@B:5})AYQSH4@)B($d\!!EH(ARPAFTPBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 13)
(VARIABLE-VALUE-CELL RESETVARSLST . 48)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 683)
(VARIABLE-VALUE-CELL OUTC . 664)
(VARIABLE-VALUE-CELL INC . 661)
(VARIABLE-VALUE-CELL MACSCRATCHSTRING . 719)
ARPAFTP
CLOSEARPAFTP
*ARPAFTP*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HOST . 371)
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL FILE . 404)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
NET
FTP
MAKENEWCONNECTION
(0 . 1)
(NIL VARIABLE-VALUE-CELL INC . 0)
(NIL VARIABLE-VALUE-CELL OUTC . 0)
NIL
NIL
NIL
NIL
NIL
CLOSECONNECTION
300
"USER"
MKATOM
QUIET
LOGIN
((330 230) . 0)
"PASS"
USERNAME
((230 331) . 0)
"ACCT"
230
FTPHELP
"ACCT"
((230 200) . 0)
"BYTE"
MKSTRING
((200 331) . 0)
"TYPE"
I
((200 331) . 0)
"ILLEGAL BYTE SIZE"
ERROR
DELETE
"DELE"
254
"file "
OUTPUT
"STOR"
INPUT
"RETR"
LIST
"NLST"
DIRECTORY
"LIST"
"DELE"
27
ERRORX
255
RATOM
SOCK
6
ARPAOPENF
CONNECTION
PUTPROP
AFTER
WHENCLOSE
250
COPYBYTES
CLOSEF
((DUMMY) . 0)
((NIL) . 0)
ORIG
COPYREADTABLE
SETBRK
%%
OTHER
SETSYNTAX
((13 10 31) . 0)
SETSEPR
READ
{
}
((" retrieve of " "Here comes ") . 0)
PACK*
CHANGEFILENAME
"Store of "
STRPOS
";P"
" "
SUBSTRING
SHOULDNT
NILL
RESETRESTORE
ERROR!
" "
-1
NTHCHAR
%.
GLC
PRIN3
" "
" "
TERPRI
OPNJFN
"< "
-
GETP
(0 . 1)
(NIL VARIABLE-VALUE-CELL INC . 0)
(NIL VARIABLE-VALUE-CELL OUTC . 0)
CHECKCONNECTION
"BYE"
""
((231 232) . 0)
((257 252) . 0)
((OUTPUT CONNECTION) . 0)
REMPROPLIST
READC
1
%

RPLSTRING
""
CONCAT
(URET2 URET1 URET5 SKI FMEMB SKLST URET6 SKNLST MKN IUNBOX CONSNL KT BHC ASZ CONS LIST2 CF KNIL BINDB 
BLKENTENTER1)t+ Tq.@2-$@+$(vPp-0g&Ho Hn0(H'H.$PhSH>!`+X@'(9&p6xGhB7@2@*gx`.n,*pS)xJ)E&X/%h-$`%$H"(" hyxlfXe]H\8XPThC>X=8&(`(
xhj
HN	XK	(D8?p<9h1.)8 `Hp



ARPAFTP BINARY
-.8,<,~(VARIABLE-VALUE-CELL HOST . 0)
(VARIABLE-VALUE-CELL FILE . 0)
(ACCESS . 1)
(USER . 1)
(PWD . 1)
(ACCT . 1)
(BYTESIZE . 1)
ARPAFTP
(NIL)
(LINKED-FN-CALL . ARPAFTPBLOCK)
(ENTERF)

CLOSEARPAFTP BINARY
-.,<,~(X . 1)
CLOSEARPAFTP
(NIL)
(LINKED-FN-CALL . ARPAFTPBLOCK)
(ENTER1)
(PRETTYCOMPRINT FTPCOMS)
(RPAQQ FTPCOMS ((* enable access of files across network) (FNS CHECKREMOTEFILE CHANGEFILENAME FTPHELP)
 (FNS ARPAFTP FINDFILEINLINE ARPACMD CLOSEARPAFTP CMDREAD CMDREADCODE GETLINE DISCARDLINE) (P (MOVD? (
QUOTE ARPAFTP) (QUOTE FTP))) (* key off BAD FILE NAME error to detect attempt to access files with "{"
 in them. Curly brackets used instead of square because typing square brackets into lisp as part of 
atoms is a pain) (ALISTS (ERRORTYPELST 42)) (VARS (FTPDEBUGFLG)) (* GETFILENAME is in lisp-coded MSG) 
(ADVICE GETFILENAME) (ADDVARS (REMOTEINFOLST)) (FILES NET PASSWORDS) (BLOCKS (NIL CHECKREMOTEFILE 
CHANGEFILENAME FTPHELP (LOCALVARS . T)) (ARPAFTPBLOCK (ENTRIES ARPAFTP CLOSEARPAFTP) ARPAFTP 
FINDFILEINLINE ARPACMD CLOSEARPAFTP CMDREAD CMDREADCODE GETLINE DISCARDLINE (SPECVARS INC OUTC FILE 
HOST) (NOLINKFNS . T) (GLOBALVARS FTPDEBUGFLG MACSCRATCHSTRING))) (DECLARE: EVAL@COMPILE DONTCOPY (
FILES (LOADCOMP) NET)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (
NLAML) (LAMA FTPHELP)))))
(MOVD? (QUOTE ARPAFTP) (QUOTE FTP))
(ADDTOVAR ERRORTYPELST (42 (CHECKREMOTEFILE (CADR ERRORMESS))))
(RPAQQ FTPDEBUGFLG NIL)
(PUTPROPS GETFILENAME READVICE (NIL (BEFORE NIL (COND ((EQ (PEEKC T) (QUOTE {)) (RETURN (PROG ((NM (
READ T))) (RETURN (COND ((FILENAMEFIELD NM (QUOTE DEVICE)) NM) (T (PACKFILENAME (QUOTE BODY) NM (QUOTE
 NAME) NAME (QUOTE EXTENSION) EXT (QUOTE DIRECTORY) USERNAME)))))))))))
(ADDTOVAR REMOTEINFOLST)
(FILESLOAD NET PASSWORDS)
NIL