github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-05 00:05:16 +00:00
Code Issues Projects Releases Wiki Activity

DEFINE-FILE-INFO with its own reader environment (#381)

Browse Source 
* DEFINE-FILE-INFO with its own reader environment

Including format.  That reader environment also allows colon as a package delimiter, in addition to the funky control and upper panel character.

"Function" is now a synonym for character set 2.  WITH-READER-ENVIRONMENT doesn't bind EXTERNALFORMAT.

* Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl

* Store FDEV's default externalformat in the FDEV

And related adjustments so that the display output stream (which is created in various places) is always created with the right (CR) EOL convention.  Also a little simpler interface for creating external formats.
This commit is contained in:
rmkaplan
2021-08-05 13:43:08 -07:00
committed by GitHub
parent 3fc26567c0
commit d64e9282bf
33 changed files with 32623 additions and 30396 deletions
Download Patch File Download Diff File Expand all files Collapse all files

192
sources/FILEIO
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 17:43:09" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;58 179154
(FILECREATED " 2-Aug-2021 10:13:47" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;68 180948
changes to%: (VARS FILEIOCOMS)
(FNS \EXTERNALFORMAT)
changes to%: (FNS \INSTALL.EXTERNALFORMAT \EXTERNALFORMAT)
(RECORDS FDEV STREAM)
previous date%: " 9-Jul-2021 09:35:10"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;57)
previous date%: " 1-Aug-2021 23:16:14"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;64)
(* ; "
@@ -55,6 +55,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
[COMS (* ;
 "EXTERNALFORMAT declaration and related functions")
(DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT)))
(FNS MAKE-EXTERNALFORMAT)
(INITRECORDS EXTERNALFORMAT)
(SYSRECORDS EXTERNALFORMAT)
(FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT \EXTERNALFORMAT)
@@ -120,15 +121,15 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH
\SETEOFPTR \SETFILEPTR)
(FNS \FIXPOUT \FIXPIN)
(DECLARE%: DONTCOPY
(EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS
\BOUTS \BOUTEOL \EOFP SIZE.FROM.LENGTH)
(CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE)
(VAX 10)
9))
WordsPerPage)
[CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
(RECORDS BYTEPTR))
(FNS \BOUTEOL)
(DECLARE%: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN
\WOUT \BINS \BOUTS \EOFP SIZE.FROM.LENGTH)
(CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE)
(VAX 10)
9))
WordsPerPage)
[CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
(RECORDS BYTEPTR))
(CONSTANTS MaxChar)))
(COMS (* ; "Buffered IO")
(FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS
@@ -245,7 +246,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(DEVICE POINTER)
(USERVISIBLE FLAG)
(EOLCONVENTION BITS 2)
(NOTXCCS FLAG)
(NIL FLAG)
(VALIDATION POINTER)
(CPAGE POINTER)
(EPAGE POINTER)
@@ -321,8 +322,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(USERVISIBLE FLAG) (* ;
 "Listed by OPENP; NIL for terminal, dribble ...")
(EOLCONVENTION BITS 2) (* ; "End-of-line convention")
(NOTXCCS FLAG) (* ;
 "True if the character encoding format is not XCCS.")
(NIL FLAG) (* ; "Was NOTXCCS.")
(VALIDATION POINTER) (* ;
 "A number somehow identifying file, used to determine if file has changed in our absence")
(CPAGE POINTER) (* ;
@@ -412,7 +412,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
ENDOFSTREAMOP _ (FUNCTION \EOSERROR)
IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (FUNCTION \STREAM.NOT.OPEN)
STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN)
LASTCCODE _ 65535 NOTXCCS _ NIL)
LASTCCODE _ 65535)
)
(/DECLAREDATATYPE 'STREAM
@@ -940,7 +940,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(* ;; "-----For any stream (here to not recompile everything)-----")
(NIL POINTER) (* ;
(DEFAULTEXTERNALFORMAT POINTER) (* ;
 "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")
)
DIRECTORYNAMEP _ (FUNCTION NILL)
@@ -1177,7 +1177,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(TRUNCATEFILE POINTER)
(WINDOWOPS POINTER)
(WINDOWDATA POINTER)
(NIL POINTER)))
(DEFAULTEXTERNALFORMAT POINTER)))
)
@@ -1221,6 +1221,33 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(* "END EXPORTED DEFINITIONS")
)
(DEFINEQ
(MAKE-EXTERNALFORMAT
[LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL)
(* ; "Edited 1-Aug-2021 23:13 by rmk:")
(* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed. If EOL is not specified, then EOLVALID is also NIL")
(SETQ EOL (SELECTC EOL
((LIST 'LF LF.EOLC)
LF.EOLC)
((LIST 'CR CR.EOLC)
CR.EOLC)
((LIST 'CRLF CRLF.EOLC)
CRLF.EOLC)
(NIL)
(SHOULDNT)))
(\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT
NAME _ NAME
INCCODEFN _ INCCODEFN
PEEKCCODEFN _ PEEKCCODEFN
BACKCCODEFN _ BACKCCODEFN
OUTCHARFN _ OUTCHARFN
FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN
EOLVALID _ EOL
EOL _ (OR EOL LF.EOLC])
)
(/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2)
(BITS 1)
@@ -1251,7 +1278,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(DEFINEQ
(\INSTALL.EXTERNALFORMAT
[LAMBDA (EXTFORMAT/NAME EXTERNALFORMAT) (* ; "Edited 5-May-2021 12:55 by rmk:")
[LAMBDA (EXTFORMAT/NAME EXTERNALFORMAT) (* ; "Edited 2-Aug-2021 10:13 by rmk:")
(* ;;; "Register an instance of the datatype EXTERNALFORMAT.")
@@ -1271,12 +1298,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
NAME))
ELSE (SETQ EXTERNALFORMAT EXTFORMAT/NAME)
(SETQ NAME (FETCH (EXTERNALFORMAT NAME) OF EXTERNALFORMAT)))
(COND
((type? EXTERNALFORMAT EXTERNALFORMAT)
(\REMOVE.EXTERNALFORMAT NAME)
(push *EXTERNALFORMATS* EXTERNALFORMAT)
NAME)
(T (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT])
(IF (type? EXTERNALFORMAT EXTERNALFORMAT)
(\REMOVE.EXTERNALFORMAT NAME)
(push *EXTERNALFORMATS* EXTERNALFORMAT)
NAME
ELSE (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT))
EXTERNALFORMAT])
(\REMOVE.EXTERNALFORMAT
[LAMBDA (NAME/EXTFORMAT) (* ; "Edited 5-May-2021 15:42 by rmk:")
@@ -1301,7 +1328,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(CL:UNLESS NOERROR (ERROR NAME "is not an external format"])
(\EXTERNALFORMAT
[LAMBDA (STREAM NEWFORMAT/NAME) (* ; "Edited 9-Jul-2021 17:42 by rmk:")
[LAMBDA (STREAM NEWFORMAT/NAME) (* ; "Edited 2-Aug-2021 10:11 by rmk:")
(* ; "Edited 26-Feb-91 13:20 by nm")
(* ;;; ";;; RMK July 2020: Added interface for per-device default external format. \DO.PARAMS.AT.OPEN will make that call even if it is not specified from the open. STREAMPROP is fixed to call \EXTERNALFORMAT to set the property EXTERNALFORMAT, to export a user-level way of manipulating this.")
@@ -1314,7 +1341,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(* ;;; ":DEFAULT means the default external format for STREAM's filedevice")
(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT*.")
(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT* or the DEFAULTEXTERNALFORMAT field of the file device. The list currently has priority since that makes it easier for a user without EXPORTS.ALL to systematically override. That may or may not be a useful capability. ")
(\DTEST STREAM 'STREAM)
(CL:WHEN NEWFORMAT/NAME
@@ -1326,6 +1353,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
of (fetch DEVICE
of STREAM))
*DEFAULT-EXTERNALFORMATS*))
(FETCH (FDEV DEFAULTEXTERNALFORMAT)
OF (fetch DEVICE of STREAM))
*DEFAULT-EXTERNALFORMAT*)))
(SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME))
(CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME
@@ -3048,6 +3077,21 @@ update the map")
16)
(\WIN STRM])
)
(DEFINEQ
(\BOUTEOL
[LAMBDA (STREAM) (* ; "Edited 1-Aug-2021 10:08 by rmk:")
(* ;; "Convenient closed function to put out EOL characters without depending on EXPORTS.ALL for constants. This could also set the position back to 0.")
(SELECTC (FETCH (STREAM EOLCONVENTION) OF STREAM)
(LF.EOLC (\BOUT STREAM (CHARCODE LF)))
(CR.EOLC (\BOUT STREAM (CHARCODE CR)))
(CRLF.EOLC (\BOUT STREAM (CHARCODE CR))
(\BOUT STREAM (CHARCODE LF)))
(ANY.EOLC (SHOULDNT))
NIL])
)
(DECLARE%: DONTCOPY
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
@@ -3082,15 +3126,6 @@ update the map")
(FDEVOP 'BLOCKOUT (fetch (STREAM DEVICE) of STRM)
STRM BASE OFF NBYTES)))
(PUTPROPS \BOUTEOL MACRO (OPENLAMBDA (STRM)
(SELECTC (FETCH (STREAM EOLCONVENTION) OF STRM)
(LF.EOLC (\BOUT STRM (CHARCODE LF)))
(CR.EOLC (\BOUT STRM (CHARCODE CR)))
(CRLF.EOLC (\BOUT STRM (CHARCODE CR))
(\BOUT STRM (CHARCODE LF)))
(ANY.EOLC (SHOULDNT))
NIL)))
(PUTPROPS \EOFP BYTEMACRO (OPENLAMBDA (STRM)
(FDEVOP 'EOFP (fetch (STREAM DEVICE) of STRM)
STRM)))
@@ -3382,43 +3417,44 @@ update the map")
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
1990 1991 1992 1993 1999 2020 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (28433 31923 (STREAMPROP 28443 . 28877) (GETSTREAMPROP 28879 . 29352) (PUTSTREAMPROP
29354 . 31771) (STREAMP 31773 . 31921)) (31966 34485 (\DEFPRINT.BY.NAME 31976 . 33128) (
\STREAM.DEFPRINT 33130 . 34178) (\FDEV.DEFPRINT 34180 . 34483)) (34743 39784 (\GETACCESS 34753 . 35207
) (\SETACCESS 35209 . 39782)) (63955 70961 (\INSTALL.EXTERNALFORMAT 63965 . 65398) (
\REMOVE.EXTERNALFORMAT 65400 . 66231) (FIND-FORMAT 66233 . 66784) (\EXTERNALFORMAT 66786 . 70959)) (
71284 73103 (\CREATE.THROUGH.EXTERNALFORMAT 71294 . 72096) (\THROUGHIN 72098 . 72504) (
\THROUGHBACKCCODE 72506 . 72751) (\THROUGHOUTCHARFN 72753 . 73101)) (73211 79180 (\DEFINEDEVICE 73221
. 75537) (\GETDEVICEFROMNAME 75539 . 76012) (\GETDEVICEFROMHOSTNAME 76014 . 77058) (\REMOVEDEVICE
77060 . 78183) (\REMOVEDEVICE.NAMES 78185 . 79178)) (79220 103880 (\CLOSEFILE 79230 . 80055) (
\DELETEFILE 80057 . 80351) (\DEVICEEVENT 80353 . 82123) (\GENERATEFILES 82125 . 82603) (
\GENERATENEXTFILE 82605 . 83256) (\GENERATEFILEINFO 83258 . 83719) (\GETFILENAME 83721 . 84110) (
\GENERIC.OUTFILEP 84112 . 84582) (\OPENFILE 84584 . 87162) (\DO.PARAMS.AT.OPEN 87164 . 89717) (
\RENAMEFILE 89719 . 90143) (\REVALIDATEFILE 90145 . 92747) (\PAGED.REVALIDATEFILELST 92749 . 94307) (
\PAGED.REVALIDATEFILES 94309 . 96028) (\PAGED.REVALIDATEFILE 96030 . 98313) (\BUFFERED.REVALIDATEFILE
98315 . 100601) (\BUFFERED.REVALIDATEFILELST 100603 . 101787) (\PRINT-REVALIDATION-RESULT 101789 .
102204) (\TRUNCATEFILE 102206 . 102597) (\FILE-CONFLICT 102599 . 103878)) (103916 108579 (
\GENERATENOFILES 103926 . 106022) (\NULLFILEGENERATOR 106024 . 106268) (\NOFILESNEXTFILEFN 106270 .
108261) (\NOFILESINFOFN 108263 . 108577)) (108698 110606 (\FILE.NOT.OPEN 108708 . 109221) (
\FILE.WONT.OPEN 109223 . 109551) (\ILLEGAL.DEVICEOP 109553 . 109835) (\IS.NOT.RANDACCESSP 109837 .
110283) (\STREAM.NOT.OPEN 110285 . 110604)) (110741 113039 (\FDEVINSTANCE 110751 . 113037)) (114589
121963 (CNDIR 114599 . 115904) (DIRECTORYNAME 115906 . 120089) (DIRECTORYNAMEP 120091 . 120707) (
HOSTNAMEP 120709 . 121516) (\ADD.CONNECTED.DIR 121518 . 121961)) (122008 152651 (\BACKFILEPTR 122018
. 122206) (\BACKPEEKBIN 122208 . 122569) (\BACKBIN 122571 . 122922) (BIN 122924 . 123141) (\BIN
123143 . 123420) (\BINS 123422 . 123708) (BOUT 123710 . 124072) (\BOUT 124074 . 124389) (\BOUTS 124391
. 124702) (COPYBYTES 124704 . 128036) (COPYCHARS 128038 . 134960) (COPYFILE 134962 . 135759) (
\COPYOPENFILE 135761 . 138834) (\INFER.FILE.TYPE 138836 . 139790) (EOFP 139792 . 140089) (FORCEOUTPUT
140091 . 140338) (\FLUSH.OPEN.STREAMS 140340 . 140696) (CHARSET 140698 . 142362) (ACCESS-CHARSET
142364 . 142581) (GETEOFPTR 142583 . 142833) (GETFILEINFO 142835 . 146028) (\TYPE.FROM.FILETYPE 146030
. 146500) (\FILETYPE.FROM.TYPE 146502 . 146681) (GETFILEPTR 146683 . 146935) (SETFILEINFO 146937 .
150550) (SETFILEPTR 150552 . 152271) (BOUT16 152273 . 152458) (BIN16 152460 . 152649)) (152754 157959
(\GENERIC.BINS 152764 . 153044) (\GENERIC.BOUTS 153046 . 153311) (\GENERIC.RENAMEFILE 153313 . 155144)
(\GENERIC.OPENP 155146 . 156461) (\GENERIC.READP 156463 . 157504) (\GENERIC.CHARSET 157506 . 157957))
(157960 158299 (\MAP-OPEN-STREAMS 157970 . 158297)) (160169 162249 (\EOF.ACTION 160179 . 160430) (
\EOSERROR 160432 . 160625) (\GETEOFPTR 160627 . 160809) (\INCFILEPTR 160811 . 161161) (\PEEKBIN 161163
. 161354) (\SETCLOSEDFILELENGTH 161356 . 161690) (\SETEOFPTR 161692 . 161880) (\SETFILEPTR 161882 .
162247)) (162250 162792 (\FIXPOUT 162260 . 162560) (\FIXPIN 162562 . 162790)) (166458 176322 (
\BUFFERED.BIN 166468 . 167320) (\BUFFERED.PEEKBIN 167322 . 168104) (\BUFFERED.BOUT 168106 . 168966) (
\BUFFERED.BINS 168968 . 172653) (\BUFFERED.BOUTS 172655 . 174456) (\BUFFERED.COPYBYTES 174458 . 176320
)) (176351 178703 (\NULLDEVICE 176361 . 178379) (\NULL.OPENFILE 178381 . 178701)))))
(FILEMAP (NIL (28483 31973 (STREAMPROP 28493 . 28927) (GETSTREAMPROP 28929 . 29402) (PUTSTREAMPROP
29404 . 31821) (STREAMP 31823 . 31971)) (32016 34535 (\DEFPRINT.BY.NAME 32026 . 33178) (
\STREAM.DEFPRINT 33180 . 34228) (\FDEV.DEFPRINT 34230 . 34533)) (34793 39834 (\GETACCESS 34803 . 35257
) (\SETACCESS 35259 . 39832)) (62838 64091 (MAKE-EXTERNALFORMAT 62848 . 64089)) (65277 72720 (
\INSTALL.EXTERNALFORMAT 65287 . 66748) (\REMOVE.EXTERNALFORMAT 66750 . 67581) (FIND-FORMAT 67583 .
68134) (\EXTERNALFORMAT 68136 . 72718)) (73043 74862 (\CREATE.THROUGH.EXTERNALFORMAT 73053 . 73855) (
\THROUGHIN 73857 . 74263) (\THROUGHBACKCCODE 74265 . 74510) (\THROUGHOUTCHARFN 74512 . 74860)) (74970
80939 (\DEFINEDEVICE 74980 . 77296) (\GETDEVICEFROMNAME 77298 . 77771) (\GETDEVICEFROMHOSTNAME 77773
. 78817) (\REMOVEDEVICE 78819 . 79942) (\REMOVEDEVICE.NAMES 79944 . 80937)) (80979 105639 (\CLOSEFILE
80989 . 81814) (\DELETEFILE 81816 . 82110) (\DEVICEEVENT 82112 . 83882) (\GENERATEFILES 83884 . 84362
) (\GENERATENEXTFILE 84364 . 85015) (\GENERATEFILEINFO 85017 . 85478) (\GETFILENAME 85480 . 85869) (
\GENERIC.OUTFILEP 85871 . 86341) (\OPENFILE 86343 . 88921) (\DO.PARAMS.AT.OPEN 88923 . 91476) (
\RENAMEFILE 91478 . 91902) (\REVALIDATEFILE 91904 . 94506) (\PAGED.REVALIDATEFILELST 94508 . 96066) (
\PAGED.REVALIDATEFILES 96068 . 97787) (\PAGED.REVALIDATEFILE 97789 . 100072) (\BUFFERED.REVALIDATEFILE
100074 . 102360) (\BUFFERED.REVALIDATEFILELST 102362 . 103546) (\PRINT-REVALIDATION-RESULT 103548 .
103963) (\TRUNCATEFILE 103965 . 104356) (\FILE-CONFLICT 104358 . 105637)) (105675 110338 (
\GENERATENOFILES 105685 . 107781) (\NULLFILEGENERATOR 107783 . 108027) (\NOFILESNEXTFILEFN 108029 .
110020) (\NOFILESINFOFN 110022 . 110336)) (110457 112365 (\FILE.NOT.OPEN 110467 . 110980) (
\FILE.WONT.OPEN 110982 . 111310) (\ILLEGAL.DEVICEOP 111312 . 111594) (\IS.NOT.RANDACCESSP 111596 .
112042) (\STREAM.NOT.OPEN 112044 . 112363)) (112500 114798 (\FDEVINSTANCE 112510 . 114796)) (116348
123722 (CNDIR 116358 . 117663) (DIRECTORYNAME 117665 . 121848) (DIRECTORYNAMEP 121850 . 122466) (
HOSTNAMEP 122468 . 123275) (\ADD.CONNECTED.DIR 123277 . 123720)) (123767 154410 (\BACKFILEPTR 123777
. 123965) (\BACKPEEKBIN 123967 . 124328) (\BACKBIN 124330 . 124681) (BIN 124683 . 124900) (\BIN
124902 . 125179) (\BINS 125181 . 125467) (BOUT 125469 . 125831) (\BOUT 125833 . 126148) (\BOUTS 126150
. 126461) (COPYBYTES 126463 . 129795) (COPYCHARS 129797 . 136719) (COPYFILE 136721 . 137518) (
\COPYOPENFILE 137520 . 140593) (\INFER.FILE.TYPE 140595 . 141549) (EOFP 141551 . 141848) (FORCEOUTPUT
141850 . 142097) (\FLUSH.OPEN.STREAMS 142099 . 142455) (CHARSET 142457 . 144121) (ACCESS-CHARSET
144123 . 144340) (GETEOFPTR 144342 . 144592) (GETFILEINFO 144594 . 147787) (\TYPE.FROM.FILETYPE 147789
. 148259) (\FILETYPE.FROM.TYPE 148261 . 148440) (GETFILEPTR 148442 . 148694) (SETFILEINFO 148696 .
152309) (SETFILEPTR 152311 . 154030) (BOUT16 154032 . 154217) (BIN16 154219 . 154408)) (154513 159718
(\GENERIC.BINS 154523 . 154803) (\GENERIC.BOUTS 154805 . 155070) (\GENERIC.RENAMEFILE 155072 . 156903)
(\GENERIC.OPENP 156905 . 158220) (\GENERIC.READP 158222 . 159263) (\GENERIC.CHARSET 159265 . 159716))
(159719 160058 (\MAP-OPEN-STREAMS 159729 . 160056)) (161928 164008 (\EOF.ACTION 161938 . 162189) (
\EOSERROR 162191 . 162384) (\GETEOFPTR 162386 . 162568) (\INCFILEPTR 162570 . 162920) (\PEEKBIN 162922
. 163113) (\SETCLOSEDFILELENGTH 163115 . 163449) (\SETEOFPTR 163451 . 163639) (\SETFILEPTR 163641 .
164006)) (164009 164551 (\FIXPOUT 164019 . 164319) (\FIXPIN 164321 . 164549)) (164552 165160 (\BOUTEOL
164562 . 165158)) (168252 178116 (\BUFFERED.BIN 168262 . 169114) (\BUFFERED.PEEKBIN 169116 . 169898)
(\BUFFERED.BOUT 169900 . 170760) (\BUFFERED.BINS 170762 . 174447) (\BUFFERED.BOUTS 174449 . 176250) (
\BUFFERED.COPYBYTES 176252 . 178114)) (178145 180497 (\NULLDEVICE 178155 . 180173) (\NULL.OPENFILE
180175 . 180495)))))
STOP