(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "17-May-2023 08:31:32" ("compiled on " {DSK}larry>il>medley>sources>AOFD.;5) "17-May-2023 08:23:46" brecompiled ALL in "FULL 17-May-2023 ..." dated "17-May-2023 08:23:49") (FILECREATED "17-May-2023 08:29:55" {DSK}larry>il>medley>sources>AOFD.;5 36263 :EDIT-BY "lmm" :PREVIOUS-DATE "17-May-2023 08:05:56" {DSK}larry>il>medley>sources>AOFD.;4) \ADD-OPEN-STREAM :D8 (L (1 STREAM 0 DEVICE)) -A A @AdH@AHA(12 \ILLEGAL.ARG 5 STREAMP) (36 FDEV 19 FDEV) () \GENERIC-UNREGISTER-STREAM :D8 (L (1 STREAM 0 DEVICE)) AA A @`AHoA @AH A(59 DREMOVE 45 ERROR 12 \ILLEGAL.ARG 5 STREAMP) (52 FDEV 29 *ISSUE-CLOSE-WARNINGS* 19 FDEV) ( 39 "Closing a stream that's not open!") CLOSEALL :D8 (L (0 ALLFLG)) ^AHI\ j9L0j,Lhi "@Ldg L J KhZYHXK&Z(72 CLOSEF 64 STREAMPROP 48 \IOMODEP 4 OPENP) (59 CLOSEALL 33 STREAM 20 STREAM) () CLOSEF :D8 (L (0 FILE) F 3 \TERM.OFD F 4 *STANDARD-INPUT* F 5 *STANDARD-OUTPUT* F 6 \LINEBUF.OFD) w@ !HSHd0jhg dHkIHdTVcHUSc H Hg dHkJHH(91 STREAMPROP 80 \CLOSEFILE 56 \CLEAROFD 37 STREAMPROP 5 \GETSTREAM) (111 STREAM 86 AFTERCLOSE 32 BEFORECLOSE 19 STREAM) () EOFCLOSEF :D8 (L (0 FILE)) $@ Hg `HkIh(19 STREAMPROP 5 GETSTREAM) (26 DEFAULTEOFCLOSE 14 EOFCLOSE) () INPUT :D8 (L (0 FILE) F 0 *STANDARD-INPUT* F 1 \LINEBUF.OFD) !PdQi@@diQg c(27 \GETSTREAM) (22 INPUT) () OPENP :D8 (L (1 ACCESS 0 FILE)) *@g`h d@Ai h(35 \GETSTREAM 18 \MAP-OPEN-STREAMS) (25 STREAM 12 \FILEDEVICES 7 EVQ) () OUTPUT :D8 (L (0 FILE) F 0 *STANDARD-OUTPUT* F 1 \TERM.OFD) !PdQi@@diQg c(27 \GETSTREAM) (22 OUTPUT) () POSITION :D8 (L (1 N 0 FILE) F 1 *STANDARD-OUTPUT*) +@QHAHAjA j(34 \GETSTREAM) (23 STREAM 12 STREAM) () RANDACCESSP :D8 (L (0 FILE) F 1 \LINEBUF.OFD) 3@ H jhHQh HH(5 \GETSTREAM) (43 STREAM 21 FDEV 14 STREAM) () \IOMODEP :D8 (L (2 NOERROR 1 ACCESS 0 STREAM)) KA @ 6@ .@d gAo gAg@@B (72 \FILE.NOT.OPEN 48 \GETACCESS 26 \GETACCESS 16 \GETACCESS 8 \GETACCESS) (61 OUTPUT 53 APPEND 31 BOTH) ( 40 (INPUT OUTPUT)) WHENCLOSE :D8 (L (0 NARGS)) eHj ka HlKJHKKkaKadg1IgLdgighlLh odgLcIgL TdgLHIgL 9dgIgL "gIgL lKah Kl[CI(208 ERRORX 195 STREAMPROP 174 STREAMPROP 151 STREAMADDPROP 124 STREAMADDPROP 97 STREAMPROP 92 ERRORX 15 GETSTREAM) (189 EOFCLOSE 181 EOF 168 STATUSFN 159 STATUS 145 AFTERCLOSE 132 AFTER 118 BEFORECLOSE 105 BEFORE 77 YES 66 NO 59 CLOSEALL 49 CLOSEALL) () STREAMADDPROP :D8 (L (2 VAL 1 PROP 0 STREAM)) @AB@A  (15 STREAMPROP 9 STREAMPROP) NIL () \BASEBYTES.IO.INITA0030 :D8 (L (5 STREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 FILE)) ENIL NIL () \BASEBYTES.IO.INITA0033 :D8 (L (1 I 0 STREAM)) hNIL NIL () \BASEBYTES.IO.INITA0040 :D8 (L (0 STREAM)) :@@@ @@@HII(23 \PAGEDBACKFILEPTR) (44 STREAM 36 STREAM 30 STREAM 13 STREAM 5 STREAM) () \BASEBYTES.IO.INITA0045 :D8 (L (0 STREAM)) @@NIL (13 STREAM 5 STREAM) () \BASEBYTES.IO.INITA0047 :D8 (L (0 STREAM)) @@NIL (13 STREAM 5 STREAM) () \BASEBYTES.IO.INITA0049 :D8 (L (0 STREAM)) @@hNIL (13 STREAM 5 STREAM) () \BASEBYTES.IO.INITA0051 :D8 (L (3 N 2 OFFST 1 BASE 0 STREAM)) @ABCg (14 \BASEBYTES.BLOCKIO) (8 INPUT) () \BASEBYTES.IO.INITA0053 :D8 (L (3 N 2 OFFST 1 BASE 0 STREAM)) @ABCg (14 \BASEBYTES.BLOCKIO) (8 OUTPUT) () \BASEBYTES.IO.INIT :D8 (F 0 *DEFAULT-EXTERNALFORMAT*) j`dgdkdkdj0dk@dkPdj`dgdgdg dg dgdgDdgdgdgdg^dgdgFdgbdg`dg,dg.dg0dg:dgTdgRdgNdgPdgdg@dgdPhdgHdgBdg*dg dgdgh` (359 \DEFINEDEVICE) (354 \BASEBYTESDEVICE 348 \BASEBYTESDEVICE 340 NILL 331 NILL 322 NILL 313 NILL 304 NILL 295 \GENERIC.CHARSET 281 \ILLEGAL.DEVICEOP 272 \BASEBYTES.IO.INITA0053 263 \BASEBYTES.IO.INITA0051 254 \BASEBYTES.IO.INITA0049 245 \BASEBYTES.IO.INITA0047 236 \BASEBYTES.IO.INITA0045 227 \BASEBYTES.SETFILEPTR 218 \BASEBYTES.IO.INITA0040 209 \BASEBYTES.READP 200 \BASEBYTES.PEEKBIN 191 \BASEBYTES.BOUT 182 \BASEBYTES.BIN 173 \ILLEGAL.DEVICEOP 164 \BASEBYTES.IO.INITA0033 155 NILL 146 \BASEBYTES.IO.INITA0030 137 NILL 128 \BASEBYTES.OPENFN 119 NILL 110 \BASEBYTES.NAME.FROM.STREAM 101 NILL 92 \GENERATENOFILES 83 NILL 74 NILL 65 NILL 56 NILL 11 BASEBYTES 4 |FDEVTYPE#|) () \MAKEBASEBYTESTREAM :D8 (L (5 OSTREAM 4 WRITEXTENSIONFN 3 ACCESS 2 LEN 1 OFFST 0 BASE) P 2 \INTERRUPTABLE) @BjABBAbo C gb gCgCdg E[Ed `h  EhEhEjEjEhElEhEhEjEhEjEjEj Ek0EhEj Ej Ej Ej 0E` Ek Ek Ej 0Eh EjEjEhE`EhEhEhEhEhEhEhEh Eh!Eh"Eg$Eg&Eh(Eg*Eh,E`.Eh0Eh2E`4En5Eh6Eh8Eh:Ehl d` dn5`HdI4dh2d`.dg*dg&dg$`HdIdjdjdk dk dk0djdldhdjHd hg Hb Ej0Ej ElEdjjE@EdAAEdBBEC EhEg(EjEjECgCgDEjE(677 \SETACCESS 602 \EXTERNALFORMAT 116 CLOSEF 108 \SETACCESS 80 \ILLEGAL.ARG 37 SHOULDNT 10 SHOULDNT) (735 STREAM 722 BOTH 714 OUTPUT 708 STREAM 689 \MBS.OUTCHARFN 652 STREAM 597 :DEFAULT 588 FDEV 515 FILELINELENGTH 507 \STREAM.NOT.OPEN 498 \STREAM.NOT.OPEN 489 \EOSERROR 480 \NOIMAGEOPS 459 \STREAM.DEFAULT.MAXBUFFERS 444 \BASEBYTESDEVICE 429 STREAM 393 \STREAM.DEFAULT.MAXBUFFERS 374 \NOIMAGEOPS 360 \EOSERROR 346 \STREAM.NOT.OPEN 337 \STREAM.NOT.OPEN 278 FILELINELENGTH 231 \BASEBYTESDEVICE 100 \BASEBYTESDEVICE 87 STREAM 73 BOTH 64 OUTPUT 55 INPUT 46 INPUT) ( 32 "Currently can't support fixp-sized offsets") \MBS.OUTCHARFN :D8 (L (1 CHAR 0 STREAM)) (@bA @@kHII(13 BOUT) (25 STREAM 19 STREAM 5 STREAM) () \BASEBYTES.NAME.FROM.STREAM :D8 (L (0 STREAM)) &@@@@ h(31 GETEOFPTR) (23 STREAM 15 STREAM 5 STREAM) () \BASEBYTES.BOUT :D8 (L (1 BYTE 0 STREAM)) I@X@@X@kHo @H@HkA(51 ERROR) (58 STREAM 29 STREAM 17 STREAM 8 STREAM) ( 46 "Attempt to write past end of bytes block") \BASEBYTES.SETFILEPTR :D8 (L (1 I 0 STREAM)) =AH@Xd@oA @H@Hh(36 ERROR) (54 STREAM 44 STREAM 21 STREAM 10 STREAM) ( 30 "Beyond end of byte range") \BASEBYTES.READP :D8 (L (1 FLG 0 STREAM)) B@@IjHYlIh!djhA@@l hNIL (55 STREAM 47 STREAM 13 STREAM 5 STREAM) () \BASEBYTES.BIN :D8 (L (0 STREAM)) @ @@k(5 \BASEBYTES.PEEKBIN) (17 STREAM 11 STREAM) () \BASEBYTES.PEEKBIN :D8 (L (1 NOERRORFLG 0 STREAM)) 6@H@A@*@kIh@HNIL (47 STREAM 31 STREAM 17 STREAM 5 STREAM) () \BASEBYTES.TRUNCATEFN :D8 (L (1 I 0 STREAM)) @A@@HIXjAdJԸIAHJoA @HH(50 ERROR) (57 STREAM 14 STREAM 6 STREAM) ( 44 "Beyond end of byte range") \BASEBYTES.OPENFN :D8 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) ^@d @dAi @A @j @@A @@@ A@@ (91 \MAKEBASEBYTESTREAM 75 GETEOFPTR 52 OPENSTRINGSTREAM 35 \SETFILEPTR 27 \SETACCESS 18 \IOMODEP 6 STREAMP) (82 STREAM 67 STREAM 59 STREAM 42 STREAM) () \BASEBYTES.BLOCKIO :D8 (L (4 DIRECTION 3 N 2 OFFST 1 BASE 0 STREAM)) @Cji@@@CJIkDg=@*@kK@ICDgAHbBIbHIABC h@AB BkbCmb~(120 BOUT 109 \MOVEBYTES) (84 OUTPUT 72 STREAM 58 STREAM 49 INPUT 31 STREAM 22 STREAM 13 STREAM) () OPENSTRINGSTREAM :D8 (L (1 ACCESS 0 STR)) Ag$AgAdg gb @ @ Ag@dj lD@ @i @dj i@dj @l A Xdg Hk0kjhHk kjhH(167 \EXTERNALFORMAT 155 \MAKEBASEBYTESTREAM 148 \GETBASEFIXP 136 %%ARRAY-OFFSET 117 %%ARRAY-BASE 103 \SMASHABLESTRING 95 \FATTENSTRING 81 %%ARRAY-TYPE-NUMBER 55 \ILLEGAL.ARG 48 STRINGP 41 \ILLEGAL.ARG) (162 :STRING 65 INPUT 33 INPUT 24 BOTH 14 OUTPUT 5 INPUT) () MAKE-STRING-FORMATA0001 :D8 (L (1 COUNTP 0 STRM) F 0 *BYTECOUNTER*) Alc@ @ NIL NIL () MAKE-STRING-FORMATA0002 :D8 (L (1 NOERROR 0 STRM)) @A @ @A @ (25 \BACKFILEPTR 18 \PEEKBIN 6 \PEEKBIN) NIL () MAKE-STRING-FORMATA0003 :D8 (L (1 COUNTP 0 STRM) F 0 *BYTECOUNTER*) @ @ AlciAkc(13 \BACKFILEPTR 5 \BACKFILEPTR) NIL () MAKE-STRING-FORMATA0004 :D8 (L (1 CODE 0 STRM)) @A @Al A(18 \BOUT 7 \BOUT) NIL () MAKE-STRING-FORMAT :D8 NIL 'ggggghg (36 MAKE-EXTERNALFORMAT) (30 CR 24 MAKE-STRING-FORMATA0004 19 MAKE-STRING-FORMATA0003 14 MAKE-STRING-FORMATA0002 9 MAKE-STRING-FORMATA0001 4 :STRING) () \STRINGSTREAM.INITA0012 :D8 (L (5 STREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 FILE)) ENIL NIL () \STRINGSTREAM.INITA0017 :D8 (L (0 STREAM)) D@@d@@h @ HII(57 \EOF.ACTION 49 GNCCODE) (42 STREAM 31 STREAM 23 STREAM 12 STREAM 5 STREAM) () \STRINGSTREAM.INITA0021 :D8 (L (1 NOERRORFLG 0 STREAM)) &@@ Ah@ (35 \EOF.ACTION 22 CHCON1) (15 STREAM 5 STREAM) () \STRINGSTREAM.INITA0023 :D8 (L (0 STREAM)) @ h(5 EOFP) NIL () \STRINGSTREAM.INITA0025 :D8 (L (0 STREAM)) @@HIINIL (11 STREAM 5 STREAM) () \STRINGSTREAM.INITA0029 :D8 (L (0 STREAM)) @h@ j(24 NCHARS) (17 STREAM 5 STREAM) () \STRINGSTREAM.INIT :D8 (F 0 *DEFAULT-EXTERNALFORMAT* F 1 \STRINGSTREAM.FDEV) /`dgdgdgdg dg dgdgDdgdgdgdg^dgdgFdgbdg`dg,dg0dg:dgTdgdg*dg dgdgdgcNIL (295 \GENERIC.RENAMEFILE 286 NILL 277 NILL 268 NILL 259 NILL 250 \GENERIC.BINS 241 \GENERIC.BOUTS 232 NILL 223 \GENERIC.CHARSET 214 \ILLEGAL.DEVICEOP 205 \IS.NOT.RANDACCESSP 196 \IS.NOT.RANDACCESSP 182 \STRINGSTREAM.INITA0029 173 \STRINGSTREAM.INITA0025 164 \STRINGSTREAM.INITA0023 155 \STRINGSTREAM.INITA0021 146 \STRINGSTREAM.INITA0017 137 \ILLEGAL.DEVICEOP 128 NILL 119 NILL 110 \STRINGSTREAM.INITA0012 101 \ILLEGAL.DEVICEOP 92 NILL 83 NILL 74 NILL 65 NILL 56 \NULLFILEGENERATOR 47 NILL 38 NILL 29 NILL 20 NILL 11 STRING 4 |FDEVTYPE#|) () GETSTREAM :D8 (L (2 NOERROR 1 ACCESS 0 FILE)) @AB (7 \GETSTREAM) NIL () \CLEAROFD :D8 NIL hNIL NIL () \GETSTREAM :D8 (L (2 NOERROR 1 ACCESS 0 X) F 0 *STANDARD-INPUT* F 1 \LINEBUF.OFD F 2 *STANDARD-OUTPUT* F 3 \TERM.OFD) @\Adg$Pd``QPg`Rd`RPQPRAB iGAdgQd`QgA`Sd`S@B @d@AB d3@Bh+o@ AgA@d@(205 ERROR 182 \IOMODEP 164 \FILE.NOT.OPEN 155 \CREATE.TTYDISPLAYSTREAM 122 \CREATE.TTYDISPLAYSTREAM 91 \IOMODEP 75 \CREATE.TTYDISPLAYSTREAM 44 \CREATE.TTYDISPLAYSTREAM) (233 WINDOW 224 WINDOW 212 OUTPUT 172 STREAM 147 \DEFAULTTTYDISPLAYSTREAM 139 \DEFAULTTTYDISPLAYSTREAM 129 OUTPUT 114 \DEFAULTLINEBUF 103 INPUT 67 \DEFAULTTTYDISPLAYSTREAM 59 \DEFAULTTTYDISPLAYSTREAM 51 OUTPUT 35 STREAM 29 \KEYBOARD.STREAM 20 \DEFAULTLINEBUF 9 INPUT) ( 199 "LITATOM 'streams' no longer supported") (PRETTYCOMPRINT AOFDCOMS) (RPAQQ AOFDCOMS ((* ;;; "streams (= OpenFileDescriptors)") (COMS (FNS \ADD-OPEN-STREAM \GENERIC-UNREGISTER-STREAM) (INITVARS (*ISSUE-CLOSE-WARNINGS* NIL)) (FNS CLOSEALL CLOSEF EOFCLOSEF INPUT OPENP OUTPUT POSITION RANDACCESSP \IOMODEP WHENCLOSE) (FNS STREAMADDPROP) (INITVARS ( DEFAULTEOFCLOSE (QUOTE NILL))) (GLOBALVARS DEFAULTEOFCLOSE \STREAMSTRING.FDEV)) (COMS (* ;; "STREAM interface to Read and Write to random memory") (DECLARE%: DONTCOPY (EXPORT (RECORDS BASEBYTESTREAM))) (FNS \BASEBYTES.IO.INIT \MAKEBASEBYTESTREAM \MBS.OUTCHARFN \BASEBYTES.NAME.FROM.STREAM \BASEBYTES.BOUT \BASEBYTES.SETFILEPTR \BASEBYTES.READP \BASEBYTES.BIN \BASEBYTES.PEEKBIN \BASEBYTES.TRUNCATEFN \BASEBYTES.OPENFN \BASEBYTES.BLOCKIO) (GLOBALVARS \BASEBYTESDEVICE) (DECLARE%: DONTEVAL@LOAD (P (\BASEBYTES.IO.INIT))) (FNS OPENSTRINGSTREAM MAKE-STRING-FORMAT) (P (MAKE-STRING-FORMAT))) (COMS (* ;; "STREAM interface for old-style strings. However (RMK), it appears never to be used, and even commonlisp string-streams are created using the Interlisp OPENSTRINGSTREAM above. For now, keep the function, but don't execute it" ) (FNS \STRINGSTREAM.INIT) (* ;; "(DECLARE%%: DONTEVAL@LOAD DOCOPY (P (\STRINGSTREAM.INIT)))")) (COMS (FNS GETSTREAM \CLEAROFD \GETSTREAM) (DECLARE%: DONTCOPY (EXPORT (MACROS \INSTREAMARG \OUTSTREAMARG \STREAMARG))) (MACROS GETOFD \GETOFD)) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WHENCLOSE))))) (RPAQ? *ISSUE-CLOSE-WARNINGS* NIL) (RPAQ? DEFAULTEOFCLOSE (QUOTE NILL)) (\BASEBYTES.IO.INIT) (MAKE-STRING-FORMAT) (PUTPROPS GETOFD MACRO (= . GETSTREAM)) (PUTPROPS \GETOFD MACRO (= . \GETSTREAM)) NIL