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

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

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

(FILECREATED "24-SEP-81 20:50:36" ("compiled on " <LISPUSERS>STRINGFNS.;13) (2 
. 3) bcompl'd in WORK dated NOBIND)
(FILECREATED " 8-SEP-81 23:33:48" <LISPUSERS>STRINGFNS.;13 6668 changes to: 
STRINGFNSCOMS previous date: " 2-FEB-81 14:32:29" <LISPUSERS>STRINGFNS.;12)

DUMMYSTRING BINARY
-.Z,<@ ,~Z,< ,>,>^",>,>,<,<$$Bx,^/.Bx,^/,\ BZ,~

\""
(VARIABLE-VALUE-CELL X . 27)
-1
262143
MAPPAGE
(BHCENTER0)

EOFP BINARY
-.Z2B+ XB3B+Z,<,<$,  2 ,>,> (B~ABx,^/1B+7Z,~Z,~@2A(VARIABLE-VALUE-CELL FILE . 10)
INPUT
OPNJFN
(BHC IUNBOX KT KNIL ENTERF)Xpx

STRINGFROMFILE BINARY
3+1-.+ZB,B,,<@- +*Z2B+ZB.,<@. + ,>+,>  ,^/2b+Z,<Z	,<ZB/F/XB .",XB+	,~,~Z,Z-,+ZB0XB, ""+^@4$D<h)Z@ "& + 4F) ,XBZ,<,<0,<".,,>+,> !.Bx,^/,F1XB",~Z),~RU AP(VARIABLE-VALUE-CELL FILE . 43)
(VARIABLE-VALUE-CELL STRING . 84)
INPUT
(VARIABLE-VALUE-CELL FILE . 0)
(1 VARIABLE-VALUE-CELL I . 76)
NCHARS
(VARIABLE-VALUE-CELL N . 22)
READC
RPLSTRING
CONCAT
1
SUBSTRING
(IUNBOXFILEN FCHAR PNAMT UPATM SKNSTP IFSET MKN BHC KT ENTERF)XhH8(p"@

STRINGTOFILE BINARY
-.ZBB,<@ +Z2B+Z,<D,~ZB,,>,>Z-,+ZBXB

,,^/ "& ,~Z
(VARIABLE-VALUE-CELL FILE . 17)
(VARIABLE-VALUE-CELL STRING . 35)
OUTPUT
PRIN3
OPNJFN
MKSTRING
(BHC UPATM SKNSTP GUNBOX KT ENTERF)




UNBUFFER BINARY
@8>-.8ZB9B9,<@8+6Z2B+ZB9,<@:+ZB;3B+,>7,>,^/2"+Z,< .",XB,<Z	B;F<XB+	ZZ
`d+1 $+.1D+,5h. D@+6 $d+04D&D/(1D+)!5h-4H6/*  "(XBZ ,<,<<F=XB3,~Z5,~RU(D`E,S%(VARIABLE-VALUE-CELL FILE . 102)
(VARIABLE-VALUE-CELL STRING . 109)
INPUT
NCHARS
(VARIABLE-VALUE-CELL N . 45)
(0 VARIABLE-VALUE-CELL I . 44)
READP
READC
RPLSTRING
1
SUBSTRING
CONCAT
(ASZ FCHAR FILEN PNAMT UPATM SKNSTP FX IFSET MKN BHC KNIL KT ENTERF)3,`H(p8$x8h

UCASESTRING BINARY


-.
Z-,+Z,~Z,+0"00b=+/"b=(Z,~H(VARIABLE-VALUE-CELL STRING . 18)
(UPATM KNIL SKNSTP ENTERF)
(PRETTYCOMPRINT STRINGFNSCOMS)
(RPAQQ STRINGFNSCOMS ((FNS DUMMYSTRING EOFP STRINGFROMFILE STRINGTOFILE 
UNBUFFER UCASESTRING) (DECLARE: DONTCOPY EVAL@COMPILE DONTEVAL@LOAD (FILES (
SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) CJSYS))))
NIL