(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-Oct-2022 18:10:57" ("compiled on " {DSK}c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;76) " 7-Oct-2022 18:44:23" brecompiled changes%: SYSTEM-EXTERNALFORMAT in "Welcome to Fuller sysout 7-Oct-2022 ..." dated " 7-Oct-2022 18:54:38") (FILECREATED "10-Oct-2022 18:10:56" {DSK}c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;76 37395 :CHANGES-TO (FNS SYSTEM-EXTERNALFORMAT) :PREVIOUS-DATE "24-Jul-2022 14:56:07" {DSK}c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;75) \EXTERNALFORMAT :D8 (P 1 \INTERRUPTABLE P 0 EXTFORMAT I 1 NEWFORMAT/NAME I 0 STREAM) @A @>HsAAbAAXDAhi A>X5Adg@ hbh@ XAo HoH @H>Hj@H @H(@H8@H:@H<D(142 ERROR 123 ERROR 109 FIND-FORMAT 67 \GETSTREAM) (130 EXTERNALFORMAT 98 FDEV 91 STREAM 81 :DEFAULT 54 EXTERNALFORMAT 43 READER-ENVIRONMENT 36 READER-ENVIRONMENT 28 EXTERNALFORMAT 14 STREAM 5 STREAM) ( 136 "INVALID EXTERNALFORMAT " 118 "is not a registered external format name") MAKE-EXTERNALFORMAT :D8 (P 0 DEF I 9 DEFAULT I 8 FORMATBYTESTRINGFN I 7 UNSTABLE I 6 EOL I 5 FORMATBYTESTREAMFN I 4 OUTCHARFN I 3 BACKCCODEFN I 2 PEEKCCODEFN I 1 INCCODEFN I 0 NAME F 3 *DEFAULT-EXTERNALFORMAT*)  GFgFdkLkqiSG AHbBHbCHbDHbgFdjjgFdllhb `d@dAdBdCdDdE dFkjIJJFkIdJdGkjIJ0JdG (233 \INSTALL.EXTERNALFORMAT 132 SHOULDNT 33 FIND-FORMAT) (139 |EXTERNALFORMATTYPE#| 112 CRLF 96 CR 83 EXTERNALFORMAT 70 EXTERNALFORMAT 57 EXTERNALFORMAT 44 EXTERNALFORMAT 9 LF) () \EXTERNALFORMAT.DEFPRINT :D8 (I 1 STREAM I 0 EXTERNALFORMAT) @A@o (19 \DEFPRINT.BY.NAME) (7 EXTERNALFORMAT) ( 14 "EXTERNALFORMAT") \INSTALL.EXTERNALFORMAT :D8 (P 0 NAME I 1 EXTERNALFORMAT I 0 EXTFORMAT/NAME) mA3@ XA-Ao AH@bXAH A`oA A(105 ERROR 80 \REMOVE.EXTERNALFORMAT 42 ERROR 11 MKATOM) (93 *EXTERNALFORMATS* 87 *EXTERNALFORMATS* 72 EXTERNALFORMAT 62 EXTERNALFORMAT 50 EXTERNALFORMAT 29 EXTERNALFORMAT 18 EXTERNALFORMAT) ( 99 "INVALID EXTERNALFORMAT " 37 "Mismatch of specified name and name of the external format") \REMOVE.EXTERNALFORMAT :D8 (P 1 EF I 0 NAME/EXTFORMAT) O@@@ b`Hh` @IIiHX(47 DREMOVE 21 MKATOM) (62 EXTERNALFORMAT 52 *EXTERNALFORMATS* 42 *EXTERNALFORMATS* 28 *EXTERNALFORMATS* 12 EXTERNALFORMAT 5 EXTERNALFORMAT) () FIND-FORMAT :D8 (P 1 EF I 1 NOERROR I 0 NAME) K@@@ b`Hh*A&@o @IIiHXh(46 ERROR 14 MKATOM) (56 EXTERNALFORMAT 21 *EXTERNALFORMATS* 5 EXTERNALFORMAT) ( 41 "is not an external format") SYSTEM-EXTERNALFORMAT :D8 (P 1 X) 1oHgoI gHX(35 STRPOS 30 UNIX-GETENV) (41 :UTF-8 16 :THROUGH) ( 24 ".UTF-8" 4 ("LC_CTYPE" "LC_ALL" "LANG")) \OUTCHAR :D8 (P 0 A0610 I 1 CODE I 0 STREAM) @(@AlHANIL NIL () \INCCODE :D8 (P 2 A0612 P 1 A0611 P 0 *BYTECOUNTER* I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) 7A*j@8@glIABd H @8@kJ(40 SET 33 \EVALV1) (18 *BYTECOUNTER*) () \BACKCCODE :D8 (P 4 A0139 P 3 A0138 P 2 A0137 P 1 *BYTECOUNTER* P 0 CODE I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) YA7j@<@ilJXABd I Hd,3 (@:@ @<@kKXd3 @:@kL(57 CLFUNCALL 40 SET 33 \EVALV1) NIL () \BACKCCODE.EOLC :D8 (P 4 A0137 P 3 A0136 P 2 A0135 P 1 CODE P 0 *BYTECOUNTER* I 3 BYTECOUNTVAL I 2 BYTECOUNTVAR I 1 EOLC I 0 STREAM) A@ bj@<@BlJYdl TAk^Adg𒿰RlAlAgAg9l @<@BlKl $@8@BlLl Ao l BIC dH h (155 SET 148 \EVALV1 129 MEMB) (75 ANY 67 CRLF 45 LF) ( 124 (0 3 CR ANY)) \PEEKCCODE :D8 (P 0 A0123 I 1 NOERROR I 0 STREAM) @:@AlHNIL NIL () \PEEKCCODE.EOLC :D8 (P 0 A0131 I 2 EOL I 1 NOERROR I 0 STREAM) @:@AlHBgIIdl *B@ dkdldgdgl l l B@ djdgdldldgdgſ@ih (136 \CHECKEOLC.CRLF) (124 ANY 116 CRLF 95 ANY 64 ANY 56 LF 21 NOEOLC) () \INCCODE.EOLC :D8 (P 4 A0252 P 3 A0251 P 1 CODE P 0 *BYTECOUNTER* I 3 BYTECOUNTVAL I 2 BYTECOUNTVAR I 1 EOLC I 0 STREAM) ?A@ bB0@8@ilKAg{Jdl .A@ dkdldgdgl Nl Il CA@ djdgl ,dldldgdg@hi l JYBCd H I@8@kLAgJJdl *A@ dkdldgdgl l l A@ djdgdldldgdgſ@hd (316 \CHECKEOLC.CRLF 179 SET 172 \EVALV1 155 \CHECKEOLC.CRLF) (304 ANY 296 CRLF 275 ANY 244 ANY 236 LF 201 NOEOLC 144 ANY 136 CRLF 112 ANY 78 ANY 70 LF 36 NOEOLC) () \FORMATBYTESTREAM :D8 (P 1 EOLC P 0 FORMAT I 1 BYTESTREAM I 0 STREAM) A Ag gg b0@@>@ YlHk@@XAH AI Aj Ag*H H @AlJA(107 \SETFILEPTR 90 \EXTERNALFORMAT 34 OPENSTREAM 17 \IOMODEP 5 STREAMP) (113 NILL 96 STREAM 76 EXTERNALFORMAT 46 STREAM 29 BOTH 24 {NODIRCORE} 12 BOTH) () \FORMATBYTESTRING :D8 (P 12 I P 10 A0185 P 6 C P 3 NBYTES P 2 FSTRING P 1 BYTESTRINGFN P 0 \FORMATBYTESTRING.STREAM I 1 STRING I 0 STREAM) K `!I@AHlIh@H kAB Md LMdj _Mdj \mMl _Mdj lDd3@bM__M jh_LOLH N HkOHj K Kk OO4JHM ]AOOLOL¾HN Lk\JOH Ok_(320 RPLCHARCODE 303 \OUTCHAR 277 MKSTRING 247 ALLOCSTRING 240 \SETFILEPTR 160 %%ARRAY-TYPE-NUMBER 143 \GETBASEFIXP 128 %%ARRAY-OFFSET 109 %%ARRAY-BASE 93 STRINGP 80 \FORMATBYTESTREAM 31 \SETFILEPTR 21 OPENSTREAM) (269 \\FORMATBYTESTRING.STREAM.GLOBALRESOURCE 221 FDEV 214 STREAM 70 \\FORMATBYTESTRING.STREAM.GLOBALRESOURCE 45 EXTERNALFORMAT 38 STREAM 16 BOTH 11 {NODIRCORE} 4 \\FORMATBYTESTRING.STREAM.GLOBALRESOURCE) () \CHECKEOLC.CRLF :D8 (P 2 NUMLFBYTES P 1 \INTERRUPTABLE P 0 CH I 2 COUNTP I 1 PEEKBINFLG I 0 STREAM F 3 *BYTECOUNTER*) ^A%@ @ig @ l 3@ig l "B@gj SJc@ l (89 \INCCODE 75 \INCCODE 52 \PEEKCCODE 33 \BACKCCODE 27 \PEEKCCODE 14 \INCCODE) (69 NUMLFBYTES 47 NOEOLC 22 NOEOLC) () \NULLDEVICEA0014 :D8 (I 1 NOERRORFLG I 0 STREAM) Ah@ NIL NIL () \NULLDEVICE :D8 NIL >g`dgdkdk dgdgdgdgdg,dg.dg0dg:dgTdgdg@dgdgNdgPdgRdgDdgFdgVd`hdgHdgBdg*dg dgdgdg dg (315 \DEFINEDEVICE) (307 NILL 298 NILL 289 NILL 280 NILL 271 NILL 262 NILL 253 NILL 244 \GENERIC.CHARSET 235 *DEFAULT-EXTERNALFORMAT* 226 NILL 217 NILL 208 NILL 199 NILL 190 ZERO 181 ZERO 172 \NULLFILEGENERATOR 163 NILL 154 \EOF.ACTION 145 NILL 136 NILL 127 NILL 118 TRUE 109 NILL 100 NILL 91 \NULLDEVICEA0014 82 NILL 73 \EOF.ACTION 64 \NULL.OPENFILE 55 \NULL.OPENFILE 46 NILL 37 NILL 16 NULL 9 |FDEVTYPE#| 4 NULL) () \NULL.OPENFILE :D8 (I 5 OLDSTREAM I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) El dk0dhdD dn5`HdI4dh2d`.dg*dg&dg$`HdIdjdjdk dk djdldhdjHd hg HdA (184 \SETACCESS 174 \EXTERNALFORMAT) (169 :DEFAULT 160 FDEV 93 FILELINELENGTH 85 \STREAM.NOT.OPEN 76 \STREAM.NOT.OPEN 67 \EOSERROR 58 \NOIMAGEOPS 37 \STREAM.DEFAULT.MAXBUFFERS) () \CREATE.THROUGH.EXTERNALFORMATA0001 :D8 (I 1 STRING I 0 STREAM) A (5 MKSTRING) NIL () \CREATE.THROUGH.EXTERNALFORMAT :D8 NIL )ggggghjhg (38 MAKE-EXTERNALFORMAT) (32 \CREATE.THROUGH.EXTERNALFORMATA0001 24 \THROUGHOUTCHARFN 19 \THROUGHBACKCCODE 14 \PEEKBIN 9 \THROUGHIN 4 :THROUGH) () \THROUGHIN :D8 (I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*) Akc@ NIL NIL () \THROUGHBACKCCODE :D8 (I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*) @ Amci(5 \BACKFILEPTR) NIL () \THROUGHOUTCHARFN :D8 (I 1 CHARCODE I 0 OUTSTREAM) "Al@A @Al @A (31 \BOUT 23 \BOUT 13 \BOUT) NIL () (PRETTYCOMPRINT EXTERNALFORMATCOMS) (RPAQQ EXTERNALFORMATCOMS ((COMS (* ; "EXTERNALFORMAT declaration and related functions (originally on FILEIO)") (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT))) (INITRECORDS EXTERNALFORMAT) (SYSRECORDS EXTERNALFORMAT) ( FNS \EXTERNALFORMAT MAKE-EXTERNALFORMAT \EXTERNALFORMAT.DEFPRINT) (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT) (FNS SYSTEM-EXTERNALFORMAT) (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) (INITVARS (*EXTERNALFORMATS* NIL) (*DEFAULT-EXTERNALFORMAT* :XCCS)) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE EXTERNALFORMAT) (FUNCTION \EXTERNALFORMAT.DEFPRINT) )))) (COMS (* ;; "Generic functions not compiled open (originally on LLREAD)") (FNS \OUTCHAR \INCCODE \BACKCCODE \BACKCCODE.EOLC \PEEKCCODE \PEEKCCODE.EOLC \INCCODE.EOLC \FORMATBYTESTREAM \FORMATBYTESTRING \CHECKEOLC.CRLF) (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CHECKEOLC)) ( RESOURCES \FORMATBYTESTRING.STREAM)) (INITRESOURCES \FORMATBYTESTRING.STREAM)) (COMS (* ; "NULL device, from FILEIO") (FNS \NULLDEVICE \NULL.OPENFILE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( \NULLDEVICE)))) (COMS (* ;; "Also from FILEIO, but not clear that this is or ever has been used.") ( FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE \THROUGHOUTCHARFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT)))))) (/DECLAREDATATYPE (QUOTE EXTERNALFORMAT) (QUOTE (FLAG (BITS 2) FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((EXTERNALFORMAT 0 (FLAGBITS . 0)) (EXTERNALFORMAT 0 (BITS . 17)) (EXTERNALFORMAT 0 (FLAGBITS . 48)) (EXTERNALFORMAT 0 POINTER) (EXTERNALFORMAT 2 POINTER) (EXTERNALFORMAT 4 POINTER) (EXTERNALFORMAT 6 POINTER) (EXTERNALFORMAT 8 POINTER) (EXTERNALFORMAT 10 POINTER) (EXTERNALFORMAT 12 POINTER) (EXTERNALFORMAT 14 POINTER) (EXTERNALFORMAT 16 POINTER))) (QUOTE 18)) (ADDTOVAR SYSTEMRECLST (DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (EOL BITS 2) (UNSTABLE FLAG) ( INCCODEFN POINTER) (PEEKCCODEFN POINTER) (BACKCCODEFN POINTER) (OUTCHARFN POINTER) (NAME POINTER) ( FORMATBYTESTREAMFN POINTER) (EF1 POINTER) (EF2 POINTER) (FORMATBYTESTRINGFN POINTER)))) (RPAQ? *EXTERNALFORMATS* NIL) (RPAQ? *DEFAULT-EXTERNALFORMAT* :XCCS) (DEFPRINT (QUOTE EXTERNALFORMAT) (FUNCTION \EXTERNALFORMAT.DEFPRINT)) (/SETTOPVAL (QUOTE \\FORMATBYTESTRING.STREAM.GLOBALRESOURCE) NIL) (\NULLDEVICE) (\CREATE.THROUGH.EXTERNALFORMAT) NIL