From b76528393ad45d4792fa9d4e9712e4caf36e9ffe Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 15 Jul 2024 22:30:37 -0700 Subject: [PATCH] FILEIO: Fix comment --- sources/FILEIO | 63 ++++++++++++++++++++++---------------------- sources/FILEIO.LCOM | Bin 45148 -> 45148 bytes 2 files changed, 31 insertions(+), 32 deletions(-) diff --git a/sources/FILEIO b/sources/FILEIO index 6c0317ac..f4adfcdb 100644 --- a/sources/FILEIO +++ b/sources/FILEIO @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "15-Jul-2024 21:39:13" {WMEDLEY}FILEIO.;130 164736 +(FILECREATED "15-Jul-2024 22:29:54" {WMEDLEY}FILEIO.;131 164656 :EDIT-BY rmk @@ -1446,7 +1446,7 @@ (GO RETRY]) (\DO.PARAMS.AT.OPEN - [LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 15-Jul-2024 21:39 by rmk") + [LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 15-Jul-2024 22:29 by rmk") (* ; "Edited 25-Aug-2023 08:43 by rmk") (* ; "Edited 6-Jul-2022 00:00 by rmk") (* ; "Edited 19-Dec-2021 09:30 by rmk") @@ -1485,8 +1485,7 @@ (SETQ EOLFLAG T) (if (LISTP VAL) - then (* ; - "VAL could be (:UTF-8 CR), either can be NIL") + then (* ; "VAL could be (:UTF-8 CR)") (\EXTERNALFORMAT STREAM (CAR VAL)) (* ;  "Can override the EOL of the format") @@ -3142,34 +3141,34 @@ update the map") \STREAM.DEFPRINT 33034 . 34942) (\FDEV.DEFPRINT 34944 . 35247)) (35507 40548 (\GETACCESS 35517 . 35971 ) (\SETACCESS 35973 . 40546)) (60774 66743 (\DEFINEDEVICE 60784 . 63100) (\GETDEVICEFROMNAME 63102 . 63575) (\GETDEVICEFROMHOSTNAME 63577 . 64621) (\REMOVEDEVICE 64623 . 65746) (\REMOVEDEVICE.NAMES 65748 - . 66741)) (66783 93517 (\CLOSEFILE 66793 . 67618) (\DELETEFILE 67620 . 67914) (\DEVICEEVENT 67916 . + . 66741)) (66783 93437 (\CLOSEFILE 66793 . 67618) (\DELETEFILE 67620 . 67914) (\DEVICEEVENT 67916 . 69686) (\GENERATEFILES 69688 . 70635) (\GENERATENEXTFILE 70637 . 71288) (\GENERATEFILEINFO 71290 . 71751) (\GETFILENAME 71753 . 72142) (\GENERIC.OUTFILEP 72144 . 72614) (\OPENFILE 72616 . 75194) ( -\DO.PARAMS.AT.OPEN 75196 . 78927) (\RENAMEFILE 78929 . 79353) (\REVALIDATEFILE 79355 . 81957) ( -\PAGED.REVALIDATEFILELST 81959 . 83517) (\PAGED.REVALIDATEFILES 83519 . 85238) (\PAGED.REVALIDATEFILE -85240 . 87523) (\BUFFERED.REVALIDATEFILE 87525 . 89811) (\BUFFERED.REVALIDATEFILELST 89813 . 90997) ( -\PRINT-REVALIDATION-RESULT 90999 . 91841) (\TRUNCATEFILE 91843 . 92234) (\FILE-CONFLICT 92236 . 93515) -) (93553 98216 (\GENERATENOFILES 93563 . 95659) (\NULLFILEGENERATOR 95661 . 95905) (\NOFILESNEXTFILEFN - 95907 . 97898) (\NOFILESINFOFN 97900 . 98214)) (98335 100243 (\FILE.NOT.OPEN 98345 . 98858) ( -\FILE.WONT.OPEN 98860 . 99188) (\ILLEGAL.DEVICEOP 99190 . 99472) (\IS.NOT.RANDACCESSP 99474 . 99920) ( -\STREAM.NOT.OPEN 99922 . 100241)) (100378 102676 (\FDEVINSTANCE 100388 . 102674)) (103878 111252 ( -CNDIR 103888 . 105193) (DIRECTORYNAME 105195 . 109378) (DIRECTORYNAMEP 109380 . 109996) (HOSTNAMEP -109998 . 110805) (\ADD.CONNECTED.DIR 110807 . 111250)) (111297 139576 (\BACKFILEPTR 111307 . 111495) ( -\BACKPEEKBIN 111497 . 111858) (\BACKBIN 111860 . 112211) (BIN 112213 . 112430) (\BIN 112432 . 112709) -(\BINS 112711 . 112997) (BOUT 112999 . 113361) (\BOUT 113363 . 113678) (\BOUTS 113680 . 113991) ( -COPYBYTES 113993 . 117325) (COPYCHARS 117327 . 120993) (COPYFILE 120995 . 122059) (\COPYOPENFILE -122061 . 125260) (\INFER.FILE.TYPE 125262 . 126216) (EOFP 126218 . 126515) (FORCEOUTPUT 126517 . -126764) (\FLUSH.OPEN.STREAMS 126766 . 127122) (CHARSET 127124 . 128483) (ACCESS-CHARSET 128485 . -129013) (GETEOFPTR 129015 . 129265) (GETFILEINFO 129267 . 132460) (\TYPE.FROM.FILETYPE 132462 . 132932 -) (\FILETYPE.FROM.TYPE 132934 . 133113) (GETFILEPTR 133115 . 133367) (SETFILEINFO 133369 . 137475) ( -SETFILEPTR 137477 . 139196) (BOUT16 139198 . 139383) (BIN16 139385 . 139574)) (139679 146333 ( -\GENERIC.BINS 139689 . 139969) (\GENERIC.BOUTS 139971 . 140236) (\GENERIC.RENAMEFILE 140238 . 142069) -(\GENERIC.OPENP 142071 . 143386) (\GENERIC.READP 143388 . 144540) (\GENERIC.CHARSET 144542 . 146331)) -(146334 146673 (\MAP-OPEN-STREAMS 146344 . 146671)) (148528 150608 (\EOF.ACTION 148538 . 148789) ( -\EOSERROR 148791 . 148984) (\GETEOFPTR 148986 . 149168) (\INCFILEPTR 149170 . 149520) (\PEEKBIN 149522 - . 149713) (\SETCLOSEDFILELENGTH 149715 . 150049) (\SETEOFPTR 150051 . 150239) (\SETFILEPTR 150241 . -150606)) (150609 151151 (\FIXPOUT 150619 . 150919) (\FIXPIN 150921 . 151149)) (151152 151718 (\BOUTEOL - 151162 . 151716)) (154614 164478 (\BUFFERED.BIN 154624 . 155476) (\BUFFERED.PEEKBIN 155478 . 156260) -(\BUFFERED.BOUT 156262 . 157122) (\BUFFERED.BINS 157124 . 160809) (\BUFFERED.BOUTS 160811 . 162612) ( -\BUFFERED.COPYBYTES 162614 . 164476))))) +\DO.PARAMS.AT.OPEN 75196 . 78847) (\RENAMEFILE 78849 . 79273) (\REVALIDATEFILE 79275 . 81877) ( +\PAGED.REVALIDATEFILELST 81879 . 83437) (\PAGED.REVALIDATEFILES 83439 . 85158) (\PAGED.REVALIDATEFILE +85160 . 87443) (\BUFFERED.REVALIDATEFILE 87445 . 89731) (\BUFFERED.REVALIDATEFILELST 89733 . 90917) ( +\PRINT-REVALIDATION-RESULT 90919 . 91761) (\TRUNCATEFILE 91763 . 92154) (\FILE-CONFLICT 92156 . 93435) +) (93473 98136 (\GENERATENOFILES 93483 . 95579) (\NULLFILEGENERATOR 95581 . 95825) (\NOFILESNEXTFILEFN + 95827 . 97818) (\NOFILESINFOFN 97820 . 98134)) (98255 100163 (\FILE.NOT.OPEN 98265 . 98778) ( +\FILE.WONT.OPEN 98780 . 99108) (\ILLEGAL.DEVICEOP 99110 . 99392) (\IS.NOT.RANDACCESSP 99394 . 99840) ( +\STREAM.NOT.OPEN 99842 . 100161)) (100298 102596 (\FDEVINSTANCE 100308 . 102594)) (103798 111172 ( +CNDIR 103808 . 105113) (DIRECTORYNAME 105115 . 109298) (DIRECTORYNAMEP 109300 . 109916) (HOSTNAMEP +109918 . 110725) (\ADD.CONNECTED.DIR 110727 . 111170)) (111217 139496 (\BACKFILEPTR 111227 . 111415) ( +\BACKPEEKBIN 111417 . 111778) (\BACKBIN 111780 . 112131) (BIN 112133 . 112350) (\BIN 112352 . 112629) +(\BINS 112631 . 112917) (BOUT 112919 . 113281) (\BOUT 113283 . 113598) (\BOUTS 113600 . 113911) ( +COPYBYTES 113913 . 117245) (COPYCHARS 117247 . 120913) (COPYFILE 120915 . 121979) (\COPYOPENFILE +121981 . 125180) (\INFER.FILE.TYPE 125182 . 126136) (EOFP 126138 . 126435) (FORCEOUTPUT 126437 . +126684) (\FLUSH.OPEN.STREAMS 126686 . 127042) (CHARSET 127044 . 128403) (ACCESS-CHARSET 128405 . +128933) (GETEOFPTR 128935 . 129185) (GETFILEINFO 129187 . 132380) (\TYPE.FROM.FILETYPE 132382 . 132852 +) (\FILETYPE.FROM.TYPE 132854 . 133033) (GETFILEPTR 133035 . 133287) (SETFILEINFO 133289 . 137395) ( +SETFILEPTR 137397 . 139116) (BOUT16 139118 . 139303) (BIN16 139305 . 139494)) (139599 146253 ( +\GENERIC.BINS 139609 . 139889) (\GENERIC.BOUTS 139891 . 140156) (\GENERIC.RENAMEFILE 140158 . 141989) +(\GENERIC.OPENP 141991 . 143306) (\GENERIC.READP 143308 . 144460) (\GENERIC.CHARSET 144462 . 146251)) +(146254 146593 (\MAP-OPEN-STREAMS 146264 . 146591)) (148448 150528 (\EOF.ACTION 148458 . 148709) ( +\EOSERROR 148711 . 148904) (\GETEOFPTR 148906 . 149088) (\INCFILEPTR 149090 . 149440) (\PEEKBIN 149442 + . 149633) (\SETCLOSEDFILELENGTH 149635 . 149969) (\SETEOFPTR 149971 . 150159) (\SETFILEPTR 150161 . +150526)) (150529 151071 (\FIXPOUT 150539 . 150839) (\FIXPIN 150841 . 151069)) (151072 151638 (\BOUTEOL + 151082 . 151636)) (154534 164398 (\BUFFERED.BIN 154544 . 155396) (\BUFFERED.PEEKBIN 155398 . 156180) +(\BUFFERED.BOUT 156182 . 157042) (\BUFFERED.BINS 157044 . 160729) (\BUFFERED.BOUTS 160731 . 162532) ( +\BUFFERED.COPYBYTES 162534 . 164396))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index 3e8dc6d0696f5ac857a6e6db3fd8c7ba68ca8c49..24abf45ec13fe3fc2a85ad9d9a9a9aaf8675e366 100644 GIT binary patch delta 48 xcmccffa%TyrU@zRMpj0aR;DHsv-KDaC(fD*=U2l>nV1`Ij%H+B4*-^X4#@xj