From 3de2ebb719aca06f217606665a2ef8299a415b5d Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Fri, 6 Aug 2021 10:36:05 -0700 Subject: [PATCH] FILEIO UNICODE: Fix THROUGHIN, cleanup UTF8-16 back --- library/UNICODE | 50 +++++++++++----------- library/UNICODE.LCOM | Bin 22521 -> 22362 bytes sources/FILEIO | 100 ++++++++++++++++++++++--------------------- sources/FILEIO.LCOM | Bin 49860 -> 49849 bytes 4 files changed, 75 insertions(+), 75 deletions(-) diff --git a/library/UNICODE b/library/UNICODE index 76fbbda0..3e9de649 100644 --- a/library/UNICODE +++ b/library/UNICODE @@ -1,12 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 1-Aug-2021 23:18:29"  -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;181 64649 +(FILECREATED " 6-Aug-2021 10:30:15"  +{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;185 64537 - changes to%: (VARS UNICODECOMS) - (FNS MAKE-UNICODE-FORMATS) + changes to%: (FNS \UTF16.BACKCCODEFN) - previous date%: " 1-Aug-2021 10:01:35" -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;180) + previous date%: " 5-Aug-2021 22:34:22" +{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;184) (PRETTYCOMPRINT UNICODECOMS) @@ -79,17 +78,16 @@ (DEFINEQ (UTF8.OUTCHARFN - [LAMBDA (STREAM CHARCODE RAW) (* ; "Edited 1-Aug-2021 10:00 by rmk:") + [LAMBDA (STREAM CHARCODE RAW) (* ; "Edited 5-Aug-2021 22:34 by rmk:") (* ; "Edited 17-Aug-2020 08:45 by rmk:") (* ; "Edited 30-Jan-2020 23:08 by rmk:") (* ;; "Perhaps the translation table should already do the mapping for EOL to LF, but that seems to be a separate property of the stream") - (* ;; "PRINT UTF8 sequence for CHARCODE. Do not do XCCS to Unicode translation if RAW.") + (* ;; "Print UTF8 sequence for CHARCODE. Do not do XCCS to Unicode translation if RAW.") (IF (EQ CHARCODE (CHARCODE EOL)) - THEN (REPLACE (STREAM CHARPOSITION) OF STREAM WITH 0) - (\BOUTEOL STREAM) + THEN (\BOUTEOL STREAM) ELSE (CHANGE (FETCH (STREAM CHARPOSITION) OF STREAM) (IPLUS DATUM 1)) (* ; "Avoid overflow") (FOR C INSIDE (CL:IF RAW @@ -162,16 +160,16 @@ (UTF16BE.PEEKCCODEFN [LAMBDA (STREAM NOERROR RAW) (* ; "Edited 14-Jun-2021 22:58 by rmk:") (* ;; "Could be that the caller takes care of backing up the file position if the number of binned-bytes is returned.") (* ;; "Do not do UNICODE to XCCS translation if RAW") (LET (BYTE1 BYTE2 CODE) (SETQ BYTE1 (\PEEKBIN STREAM NOERROR)) (IF BYTE1 THEN (\BIN STREAM) (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM) (IF BYTE2 THEN (SETQ CODE (LOGOR (LLSH BYTE1 8) BYTE2)) (CL:IF RAW CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*)) ELSEIF NOERROR THEN NIL) ELSEIF NOERROR THEN NIL ELSE (ERROR "INVALID UTF16 CHARACTER" (LIST BYTE1 BYTE2]) (\UTF16.BACKCCODEFN - [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:35 by rmk:") + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 6-Aug-2021 10:15 by rmk:") (* ;; "\BACKFILEPTR is NIL at beginning of FILE, do nothing.") (* ;; "Common for big-ending and little-ending") - (IF (NOT (\BACKFILEPTR STREAM)) - ELSEIF (\BACKFILEPTR STREAM) - THEN (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2))) - ELSE (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL]) + (CL:WHEN (\BACKFILEPTR STREAM) + [IF (\BACKFILEPTR STREAM) + THEN (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2))) + ELSE (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL])]) ) (RPAQ? EXTERNALEOL 'LF) @@ -995,15 +993,15 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4146 17481 (UTF8.OUTCHARFN 4156 . 7011) (UTF8.INCCODEFN 7013 . 12129) (UTF8.PEEKCCODEFN - 12131 . 16905) (\UTF8.BACKCCODEFN 16907 . 17479)) (17482 20675 (UTF16BE.OUTCHARFN 17492 . 18225) ( -UTF16BE.INCCODEFN 18227 . 19110) (UTF16BE.PEEKCCODEFN 19112 . 20183) (\UTF16.BACKCCODEFN 20185 . 20673 -)) (20705 22703 (MAKE-UNICODE-FORMATS 20715 . 22701)) (22799 24105 (UNICODE.UNMAPPED 22809 . 24103)) ( -24106 24642 (XCCS-UTF8-AFTER-OPEN 24116 . 24640)) (25712 26061 (XTOUCODE 25722 . 25890) (UTOXCODE -25892 . 26059)) (26101 42284 (READ-UNICODE-MAPPING-FILENAMES 26111 . 27273) (READ-UNICODE-MAPPING -27275 . 30573) (WRITE-UNICODE-MAPPING 30575 . 34792) (WRITE-UNICODE-INCLUDED 34794 . 39516) ( -WRITE-UNICODE-MAPPING-HEADER 39518 . 40750) (WRITE-UNICODE-MAPPING-FILENAME 40752 . 42282)) (45621 -54094 (MAKE-UNICODE-TRANSLATION-TABLES 45631 . 54092)) (54515 62419 (HEXSTRING 54525 . 55686) ( -UTF8HEXSTRING 55688 . 57893) (NUTF8CODEBYTES 57895 . 58558) (NUTF8STRINGBYTES 58560 . 59041) ( -XTOUSTRING 59043 . 62054) (XCCSSTRING 62056 . 62417)) (62420 63889 (SHOWCHARS 62430 . 63887))))) + (FILEMAP (NIL (4105 17365 (UTF8.OUTCHARFN 4115 . 6895) (UTF8.INCCODEFN 6897 . 12013) (UTF8.PEEKCCODEFN + 12015 . 16789) (\UTF8.BACKCCODEFN 16791 . 17363)) (17366 20563 (UTF16BE.OUTCHARFN 17376 . 18109) ( +UTF16BE.INCCODEFN 18111 . 18994) (UTF16BE.PEEKCCODEFN 18996 . 20067) (\UTF16.BACKCCODEFN 20069 . 20561 +)) (20593 22591 (MAKE-UNICODE-FORMATS 20603 . 22589)) (22687 23993 (UNICODE.UNMAPPED 22697 . 23991)) ( +23994 24530 (XCCS-UTF8-AFTER-OPEN 24004 . 24528)) (25600 25949 (XTOUCODE 25610 . 25778) (UTOXCODE +25780 . 25947)) (25989 42172 (READ-UNICODE-MAPPING-FILENAMES 25999 . 27161) (READ-UNICODE-MAPPING +27163 . 30461) (WRITE-UNICODE-MAPPING 30463 . 34680) (WRITE-UNICODE-INCLUDED 34682 . 39404) ( +WRITE-UNICODE-MAPPING-HEADER 39406 . 40638) (WRITE-UNICODE-MAPPING-FILENAME 40640 . 42170)) (45509 +53982 (MAKE-UNICODE-TRANSLATION-TABLES 45519 . 53980)) (54403 62307 (HEXSTRING 54413 . 55574) ( +UTF8HEXSTRING 55576 . 57781) (NUTF8CODEBYTES 57783 . 58446) (NUTF8STRINGBYTES 58448 . 58929) ( +XTOUSTRING 58931 . 61942) (XCCSSTRING 61944 . 62305)) (62308 63777 (SHOWCHARS 62318 . 63775))))) STOP diff --git a/library/UNICODE.LCOM b/library/UNICODE.LCOM index c3a00f965764a991d8cc5d5312315a448a28002c..bf542ebdf04686a5078a8d37fc6d75947a498cb2 100644 GIT binary patch delta 1053 zcmZvZNoW&c6vsO$MLRSqwYDf&9;0F!OqeAznWk>j$)rg-OENP_Efs3oCbb%y&{iq+ zP!EEjD7Bx8;6YDCY$%m6jorFyXugretPK_< zrx<-iWsV4{ zG$uyI0?7`wwWXz1s|MF@9c^!X4M@x~uYlpYjtgSH0LKTNf)8Rm-n10HX~m?bCH#)^ zO`o7D>rp}OZ(1?AX$eiAszSleP&K0k+tPA5V>yX$^efMBOq5EMAbd>MJ>OZ+41?7F zpG%a$^HEO=aGPHi)`G|A~z=5 zLcxx33(9h|9oh1P-0s}F4M%zgDxv)R2vXy9=Y4@;$$WAI`6^jLMvM`%*13aJtsuE? zB+&EGC?eGq%~?s6$ksjGq`rR>*)ntpJ?2ma*%+EYmiG6MNZLeeDXk%2q$@!dLK!>b z7d6*|5Mi?2#K;`R*u_jGz=p^Lu4^@G3`KU97yzIEh_f8nOIhRJ}b9D5* zoQ3?H8$gEhCy-b2^zfH?+VfkUo~gJw}i)^dxf4 zKY)(sKGkA#fhL|V&{59{2E(ov>7;{2T63Y;i@aMbZel}jPRk!z&Gt}*SZ~xCbWAUX aB3#Y%&|^QufZQ0tdctRSwXt@_WPbpm@fM%} delta 1145 zcmZvaJ8aWX6o#7=C|HzahkM_o%oSb0fNw^G!STMDMBm^ zupt5EB2Wj`GVxFg0}~P>f&qyMSQwCyKoACykQg{OjVlmj`10R#j?ek;vESVH{e0lN zUS3N&)XC!=k|+_73yO9D(? zQA31-NH`LX!O%$Y^zrfpoE^p4!Gdbp;2N2PnbZ^3|o2wdtqbRgPnc zRizX46W=&h{k7QuX6MffRn_L&qn4#}H~q5jVw8YpS*8VYBm#$eOxFQfkvt_Uo+8nP zl44#~>RgCLh?kYao|43dA~7#UBC@xbkZWYsT<#)nII4i1HeEewIMC^pF1S&=Hgdxs zz8|7Qq3u8-VLN7H&uu_R_@7uT3bupqF$-wAq0m-C5d!w|dKz1T+^NvJd$z2UMG+)1 z)=6*+QdpXMwrCf>q8*pp+`WwLc%=52{#?C%RT!Vv9FTAX{t;!aW6ccl@$_|K0NI`_ zBCjTy#&40n)Op&X#qrdm6_C>!%Y4&V)fr(O9Z4lo-AfH41HH$Phs6!_T5mt9x4kNI zOPb{_r;j2(q=)@{kiOp*pxl5+r!reH_%Jhwovyr}eF@MZ+5g-s;RfpFM&+l^sI9%ChpP!Teq`4kAAp7IL52hOC%r99HGkZkY8dGE0&6gp*|?ZDGCKbo-VHIX diff --git a/sources/FILEIO b/sources/FILEIO index 7c938e72..ab1212d4 100644 --- a/sources/FILEIO +++ b/sources/FILEIO @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 5-Aug-2021 20:39:21"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;73 181010 +(FILECREATED " 6-Aug-2021 10:31:59"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;75 181074 - changes to%: (FNS \EXTERNALFORMAT) + changes to%: (FNS \THROUGHIN) - previous date%: " 5-Aug-2021 14:42:41" -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;72) + previous date%: " 5-Aug-2021 22:31:41" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;74) (* ; " @@ -1415,13 +1415,14 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. EOL _ CR.EOLC]) (\THROUGHIN - [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:49 by rmk:") + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 6-Aug-2021 10:31 by rmk:") (* ;;; "Read in a single byte from STREAM and returns it without any character conversion, just through as if.") (* ;;; "If COUNP is non-NIL, always -1 is returned as the second value.") - [CL:WHEN (BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL] + (CL:WHEN BYTECOUNTVAR + (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) (\BIN STREAM]) (\THROUGHBACKCCODE @@ -3081,10 +3082,11 @@ update the map") (DEFINEQ (\BOUTEOL - [LAMBDA (STREAM) (* ; "Edited 1-Aug-2021 10:08 by rmk:") + [LAMBDA (STREAM) (* ; "Edited 5-Aug-2021 22:31 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.") + (* ;; "Convenient closed function to put out EOL characters without depending on EXPORTS.ALL for constants. This also sets the position back to 0.") + (REPLACE (STREAM CHARPOSITION) OF STREAM WITH 0) (SELECTC (FETCH (STREAM EOLCONVENTION) OF STREAM) (LF.EOLC (\BOUT STREAM (CHARCODE LF))) (CR.EOLC (\BOUT STREAM (CHARCODE CR))) @@ -3418,44 +3420,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 (28417 31907 (STREAMPROP 28427 . 28861) (GETSTREAMPROP 28863 . 29336) (PUTSTREAMPROP -29338 . 31755) (STREAMP 31757 . 31905)) (31950 34469 (\DEFPRINT.BY.NAME 31960 . 33112) ( -\STREAM.DEFPRINT 33114 . 34162) (\FDEV.DEFPRINT 34164 . 34467)) (34727 39768 (\GETACCESS 34737 . 35191 -) (\SETACCESS 35193 . 39766)) (62772 64025 (MAKE-EXTERNALFORMAT 62782 . 64023)) (65211 72782 ( -\INSTALL.EXTERNALFORMAT 65221 . 66670) (\REMOVE.EXTERNALFORMAT 66672 . 67503) (FIND-FORMAT 67505 . -68056) (\EXTERNALFORMAT 68058 . 72780)) (73105 74924 (\CREATE.THROUGH.EXTERNALFORMAT 73115 . 73917) ( -\THROUGHIN 73919 . 74325) (\THROUGHBACKCCODE 74327 . 74572) (\THROUGHOUTCHARFN 74574 . 74922)) (75032 -81001 (\DEFINEDEVICE 75042 . 77358) (\GETDEVICEFROMNAME 77360 . 77833) (\GETDEVICEFROMHOSTNAME 77835 - . 78879) (\REMOVEDEVICE 78881 . 80004) (\REMOVEDEVICE.NAMES 80006 . 80999)) (81041 105701 (\CLOSEFILE - 81051 . 81876) (\DELETEFILE 81878 . 82172) (\DEVICEEVENT 82174 . 83944) (\GENERATEFILES 83946 . 84424 -) (\GENERATENEXTFILE 84426 . 85077) (\GENERATEFILEINFO 85079 . 85540) (\GETFILENAME 85542 . 85931) ( -\GENERIC.OUTFILEP 85933 . 86403) (\OPENFILE 86405 . 88983) (\DO.PARAMS.AT.OPEN 88985 . 91538) ( -\RENAMEFILE 91540 . 91964) (\REVALIDATEFILE 91966 . 94568) (\PAGED.REVALIDATEFILELST 94570 . 96128) ( -\PAGED.REVALIDATEFILES 96130 . 97849) (\PAGED.REVALIDATEFILE 97851 . 100134) (\BUFFERED.REVALIDATEFILE - 100136 . 102422) (\BUFFERED.REVALIDATEFILELST 102424 . 103608) (\PRINT-REVALIDATION-RESULT 103610 . -104025) (\TRUNCATEFILE 104027 . 104418) (\FILE-CONFLICT 104420 . 105699)) (105737 110400 ( -\GENERATENOFILES 105747 . 107843) (\NULLFILEGENERATOR 107845 . 108089) (\NOFILESNEXTFILEFN 108091 . -110082) (\NOFILESINFOFN 110084 . 110398)) (110519 112427 (\FILE.NOT.OPEN 110529 . 111042) ( -\FILE.WONT.OPEN 111044 . 111372) (\ILLEGAL.DEVICEOP 111374 . 111656) (\IS.NOT.RANDACCESSP 111658 . -112104) (\STREAM.NOT.OPEN 112106 . 112425)) (112562 114860 (\FDEVINSTANCE 112572 . 114858)) (116410 -123784 (CNDIR 116420 . 117725) (DIRECTORYNAME 117727 . 121910) (DIRECTORYNAMEP 121912 . 122528) ( -HOSTNAMEP 122530 . 123337) (\ADD.CONNECTED.DIR 123339 . 123782)) (123829 154472 (\BACKFILEPTR 123839 - . 124027) (\BACKPEEKBIN 124029 . 124390) (\BACKBIN 124392 . 124743) (BIN 124745 . 124962) (\BIN -124964 . 125241) (\BINS 125243 . 125529) (BOUT 125531 . 125893) (\BOUT 125895 . 126210) (\BOUTS 126212 - . 126523) (COPYBYTES 126525 . 129857) (COPYCHARS 129859 . 136781) (COPYFILE 136783 . 137580) ( -\COPYOPENFILE 137582 . 140655) (\INFER.FILE.TYPE 140657 . 141611) (EOFP 141613 . 141910) (FORCEOUTPUT -141912 . 142159) (\FLUSH.OPEN.STREAMS 142161 . 142517) (CHARSET 142519 . 144183) (ACCESS-CHARSET -144185 . 144402) (GETEOFPTR 144404 . 144654) (GETFILEINFO 144656 . 147849) (\TYPE.FROM.FILETYPE 147851 - . 148321) (\FILETYPE.FROM.TYPE 148323 . 148502) (GETFILEPTR 148504 . 148756) (SETFILEINFO 148758 . -152371) (SETFILEPTR 152373 . 154092) (BOUT16 154094 . 154279) (BIN16 154281 . 154470)) (154575 159780 -(\GENERIC.BINS 154585 . 154865) (\GENERIC.BOUTS 154867 . 155132) (\GENERIC.RENAMEFILE 155134 . 156965) - (\GENERIC.OPENP 156967 . 158282) (\GENERIC.READP 158284 . 159325) (\GENERIC.CHARSET 159327 . 159778)) - (159781 160120 (\MAP-OPEN-STREAMS 159791 . 160118)) (161990 164070 (\EOF.ACTION 162000 . 162251) ( -\EOSERROR 162253 . 162446) (\GETEOFPTR 162448 . 162630) (\INCFILEPTR 162632 . 162982) (\PEEKBIN 162984 - . 163175) (\SETCLOSEDFILELENGTH 163177 . 163511) (\SETEOFPTR 163513 . 163701) (\SETFILEPTR 163703 . -164068)) (164071 164613 (\FIXPOUT 164081 . 164381) (\FIXPIN 164383 . 164611)) (164614 165222 (\BOUTEOL - 164624 . 165220)) (168314 178178 (\BUFFERED.BIN 168324 . 169176) (\BUFFERED.PEEKBIN 169178 . 169960) -(\BUFFERED.BOUT 169962 . 170822) (\BUFFERED.BINS 170824 . 174509) (\BUFFERED.BOUTS 174511 . 176312) ( -\BUFFERED.COPYBYTES 176314 . 178176)) (178207 180559 (\NULLDEVICE 178217 . 180235) (\NULL.OPENFILE -180237 . 180557))))) + (FILEMAP (NIL (28412 31902 (STREAMPROP 28422 . 28856) (GETSTREAMPROP 28858 . 29331) (PUTSTREAMPROP +29333 . 31750) (STREAMP 31752 . 31900)) (31945 34464 (\DEFPRINT.BY.NAME 31955 . 33107) ( +\STREAM.DEFPRINT 33109 . 34157) (\FDEV.DEFPRINT 34159 . 34462)) (34722 39763 (\GETACCESS 34732 . 35186 +) (\SETACCESS 35188 . 39761)) (62767 64020 (MAKE-EXTERNALFORMAT 62777 . 64018)) (65206 72777 ( +\INSTALL.EXTERNALFORMAT 65216 . 66665) (\REMOVE.EXTERNALFORMAT 66667 . 67498) (FIND-FORMAT 67500 . +68051) (\EXTERNALFORMAT 68053 . 72775)) (73100 74928 (\CREATE.THROUGH.EXTERNALFORMAT 73110 . 73912) ( +\THROUGHIN 73914 . 74329) (\THROUGHBACKCCODE 74331 . 74576) (\THROUGHOUTCHARFN 74578 . 74926)) (75036 +81005 (\DEFINEDEVICE 75046 . 77362) (\GETDEVICEFROMNAME 77364 . 77837) (\GETDEVICEFROMHOSTNAME 77839 + . 78883) (\REMOVEDEVICE 78885 . 80008) (\REMOVEDEVICE.NAMES 80010 . 81003)) (81045 105705 (\CLOSEFILE + 81055 . 81880) (\DELETEFILE 81882 . 82176) (\DEVICEEVENT 82178 . 83948) (\GENERATEFILES 83950 . 84428 +) (\GENERATENEXTFILE 84430 . 85081) (\GENERATEFILEINFO 85083 . 85544) (\GETFILENAME 85546 . 85935) ( +\GENERIC.OUTFILEP 85937 . 86407) (\OPENFILE 86409 . 88987) (\DO.PARAMS.AT.OPEN 88989 . 91542) ( +\RENAMEFILE 91544 . 91968) (\REVALIDATEFILE 91970 . 94572) (\PAGED.REVALIDATEFILELST 94574 . 96132) ( +\PAGED.REVALIDATEFILES 96134 . 97853) (\PAGED.REVALIDATEFILE 97855 . 100138) (\BUFFERED.REVALIDATEFILE + 100140 . 102426) (\BUFFERED.REVALIDATEFILELST 102428 . 103612) (\PRINT-REVALIDATION-RESULT 103614 . +104029) (\TRUNCATEFILE 104031 . 104422) (\FILE-CONFLICT 104424 . 105703)) (105741 110404 ( +\GENERATENOFILES 105751 . 107847) (\NULLFILEGENERATOR 107849 . 108093) (\NOFILESNEXTFILEFN 108095 . +110086) (\NOFILESINFOFN 110088 . 110402)) (110523 112431 (\FILE.NOT.OPEN 110533 . 111046) ( +\FILE.WONT.OPEN 111048 . 111376) (\ILLEGAL.DEVICEOP 111378 . 111660) (\IS.NOT.RANDACCESSP 111662 . +112108) (\STREAM.NOT.OPEN 112110 . 112429)) (112566 114864 (\FDEVINSTANCE 112576 . 114862)) (116414 +123788 (CNDIR 116424 . 117729) (DIRECTORYNAME 117731 . 121914) (DIRECTORYNAMEP 121916 . 122532) ( +HOSTNAMEP 122534 . 123341) (\ADD.CONNECTED.DIR 123343 . 123786)) (123833 154476 (\BACKFILEPTR 123843 + . 124031) (\BACKPEEKBIN 124033 . 124394) (\BACKBIN 124396 . 124747) (BIN 124749 . 124966) (\BIN +124968 . 125245) (\BINS 125247 . 125533) (BOUT 125535 . 125897) (\BOUT 125899 . 126214) (\BOUTS 126216 + . 126527) (COPYBYTES 126529 . 129861) (COPYCHARS 129863 . 136785) (COPYFILE 136787 . 137584) ( +\COPYOPENFILE 137586 . 140659) (\INFER.FILE.TYPE 140661 . 141615) (EOFP 141617 . 141914) (FORCEOUTPUT +141916 . 142163) (\FLUSH.OPEN.STREAMS 142165 . 142521) (CHARSET 142523 . 144187) (ACCESS-CHARSET +144189 . 144406) (GETEOFPTR 144408 . 144658) (GETFILEINFO 144660 . 147853) (\TYPE.FROM.FILETYPE 147855 + . 148325) (\FILETYPE.FROM.TYPE 148327 . 148506) (GETFILEPTR 148508 . 148760) (SETFILEINFO 148762 . +152375) (SETFILEPTR 152377 . 154096) (BOUT16 154098 . 154283) (BIN16 154285 . 154474)) (154579 159784 +(\GENERIC.BINS 154589 . 154869) (\GENERIC.BOUTS 154871 . 155136) (\GENERIC.RENAMEFILE 155138 . 156969) + (\GENERIC.OPENP 156971 . 158286) (\GENERIC.READP 158288 . 159329) (\GENERIC.CHARSET 159331 . 159782)) + (159785 160124 (\MAP-OPEN-STREAMS 159795 . 160122)) (161994 164074 (\EOF.ACTION 162004 . 162255) ( +\EOSERROR 162257 . 162450) (\GETEOFPTR 162452 . 162634) (\INCFILEPTR 162636 . 162986) (\PEEKBIN 162988 + . 163179) (\SETCLOSEDFILELENGTH 163181 . 163515) (\SETEOFPTR 163517 . 163705) (\SETFILEPTR 163707 . +164072)) (164075 164617 (\FIXPOUT 164085 . 164385) (\FIXPIN 164387 . 164615)) (164618 165286 (\BOUTEOL + 164628 . 165284)) (168378 178242 (\BUFFERED.BIN 168388 . 169240) (\BUFFERED.PEEKBIN 169242 . 170024) +(\BUFFERED.BOUT 170026 . 170886) (\BUFFERED.BINS 170888 . 174573) (\BUFFERED.BOUTS 174575 . 176376) ( +\BUFFERED.COPYBYTES 176378 . 178240)) (178271 180623 (\NULLDEVICE 178281 . 180299) (\NULL.OPENFILE +180301 . 180621))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index db526598a93322454e92100789862feebcc9444a..b8253988c4ede6cad4619d6fa69a00246518b4cc 100644 GIT binary patch delta 356 zcmX@o%Dl6cc|xkNnXY4Lx~`Fdk)eX2ft9hLm8s>#iXdxKO$8+dQ-qw6p_PG&m7$T6 zLQ+v`a(-?>W=?8~0#|ZIVqSV`v8t6qOo&I2f2g~Mr{82=Mm>F~dJ82@E)6$NA6Mrf zSH}=n7oee7EL2jM{EyMz%T$5O(8AEb+(ZFttU^gX&}0oazhETeH5CeqQp+;)ON$j! z5=&Bn3Q!$t1oXt@AB?VyCY$Y;TBTJ57#J9s9cMZ^W#8liG8y(eC@foYWKruGETxoXq6RlAKCaD}@->h!EExKSv)o{~%w-kjbo!db&`3W=fh| z8g8CGuFgTOjv=ltsD=YAHns#BJ~@HWQQKI7%h1Bmz|cS;IU_MIJ+)Y&Bp+zFhMQk7 zh7HFV&))GBQz#K6G7?C6wzlMBdT-~qbv$S{O5j7^~oV5otmfW9-G{GeNGvtD<%IRN)%S`GjJ