1
0
mirror of synced 2026-03-13 22:19:30 +00:00
Files
Interlisp.medley/sources/COREIO.LCOM

223 lines
16 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "28-Feb-2026 12:09:38" ("compiled on " {WMEDLEY}<sources>COREIO.;20)
"26-Feb-2026 12:11:15" brecompiled exprs%: \CORE.DIRECTORYNAMEP in "FULL 26-Feb-2026 ..." dated
"26-Feb-2026 12:11:24")
(FILECREATED "28-Feb-2026 12:09:38" {WMEDLEY}<sources>COREIO.;20 57201 :EDIT-BY rmk :CHANGES-TO (FNS
\CORE.DIRECTORYNAMEP) :PREVIOUS-DATE "11-Sep-2025 16:49:07" {WMEDLEY}<sources>COREIO.;18)
\CORE.CLOSEFILE :D8
(L (0 STREAM) P 0 \INTERRUPTABLE) @ dgð³dgð¨dgð²H¿@ ¿@É@ÉÍ ¿@É@ÈÍ
¿@dÉ
¿@h¿@@(101 \CORE.RELEASEPAGES 38 \CORE.UPDATEOF 5 \GETACCESS)
(121 STREAM 111 STREAM 94 STREAM 82 STREAM 76 COREFILEINFOBLK 69 STREAM 58 STREAM 52 COREFILEINFOBLK 45 STREAM 28 APPEND 20 BOTH 11 OUTPUT)
()
\CORE.DELETEFILE :D8
(L (2 EVENIFOPEN 1 DEV 0 FILENAME)) µ@dò¿B©@ ´@ÉŠgA AH´AɹHÉ
hAlIhAÉ\µ°H[µ h³4L°ïZµ h³K°ê˜Jdd¿°íJ°äK¨Kdd¿°ÎL¥Ld¿HjhhHÉ
(41 \CORE.GETINFOBLOCK 17 \GETACCESS)
(176 COREFILEINFOBLK 163 COREFILEINFOBLK 79 FDEV 62 COREFILEINFOBLK 53 FDEV 35 OLDEST 27 STREAM 6 STREAM)
()
\CORE.DIRECTORYNAMEP :D8
(L (1 DEV 0 DIRNAME) F 3 FILEDIRCASEARRAY) e@d²Jg
µio
AÉo@khddS
Ikð©@I
b¿Hµhº@JkhihS
³³HX°æ(92 STRPOS 67 SUBSTRING 53 STRPOS 27 CONCAT 13 FILENAMEFIELD)
(33 FDEV 8 DIRECTORY)
( 41 "<" 22 ">")
\CORE.FINDPAGE :D8
(L (1 PN 0 STREAM)) w@É"AHµ8jAóA ¿@ÉÉY\dAð²[³8LnkØâ [°'Aó³ÆH°ÝAñ¥IZYµÔJAnkØâ [IY¿@I"K(99 \ALLOCBLOCK 64 \ALLOCBLOCK 23 \ILLEGAL.ARG)
(112 STREAM 37 COREFILEINFOBLK 30 STREAM 5 STREAM)
()
\CORE.GENERATEFILES :D8
(L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) å
A Ag
"0@ɰd[! Oµ2O\L^]¿µåNZgghJh ]L°Þ_²{OI3 µ%HKoO
´UI³-Oh°IO_´AHO_É
´-Oh°'0 O°d_¿Oµ Oh_O&_¿µçO
_¿O_±ÿI(216 \NCONC2 166 DIRECTORY.MATCH 126 DIRECTORY.MATCH 121 CONCAT 87 LAST 16 FILENAMEFIELD 5 DIRECTORY.MATCH.SETUP)
(159 COREFILEINFOBLK 74 \CORE.FILEINFOFN 69 \CORE.NEXTFILEFN 28 FDEV 11 VERSION)
( 113 ".")
\CORE.NEXTFILEFN :D8
(L (2 SCRATCHLIST 1 NAMEONLY 0 GENFILESTATE)) #@d@d É
XA—di
H(30 NAMEFIELD)
(18 COREFILEINFOBLK)
()
\CORE.FILEINFOFN :D8
(L (1 ATTRIBUTE 0 GENFILESTATE)) @A
(8 \CORE.GETFILEINFO.FROM.INFOBLOCK)
NIL
()
\CORE.GETFILEHANDLE :D8
(L (3 ACCESS 2 FD 1 RECOG 0 NAME)) H@ABCgðhð´Agð¨Agð´i qHd¢±É
CB ²ggHÉ
¿Cgð²$H
¿H ¿Hjhh¿l dB
¿HYÉ
ºdJ¿HÈ
»dKÍ¿HÈ ¼dL¿HÊ
½dMÏ ¿dnÍ¿dnÿÿÍ5¿`¾dNÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`_¿dOÍ¿dj¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿dI¿(84 CL:ERROR 59 \FILE-CONFLICT 36 \CORE.GETINFOBLOCK)
(321 STREAM 266 FILELINELENGTH 258 \STREAM.NOT.OPEN 249 \STREAM.NOT.OPEN 240 \EOSERROR 231 \NOIMAGEOPS 214 \STREAM.DEFAULT.MAXBUFFERS 185 COREFILEINFOBLK 171 COREFILEINFOBLK 157 COREFILEINFOBLK 143 COREFILEINFOBLK 120 COREFILEINFOBLK 110 COREFILEINFOBLK 100 COREFILEINFOBLK 91 OUTPUT 77 COREFILEINFOBLK 71 :PATHNAME 66 XCL:FILE-WONT-OPEN 50 COREFILEINFOBLK 27 OLD/NEW 19 NEW 8 INPUT)
()
\CORE.GETFILEINFO :D8
(L (2 DEV 1 ATTRIBUTE 0 STREAM)) ?@dò%¿@dÊjð³¿Agð§Agðh@gB A
(60 \CORE.GETFILEINFO.FROM.INFOBLOCK 54 \CORE.GETINFOBLOCK)
(48 OLD 38 SIZE 30 LENGTH 16 STREAM 6 STREAM)
()
\CORE.GETFILEINFO.FROM.INFOBLOCK :D8
(L (1 ATTRIBUTE 0 INFOBLOCK)) :@´‚±4Adgð²¿@È áà@È
Ødgð²¿@È @È
nÿØãâØgðlAdgð²¿@j
gð²@l
Adgð²¿@l
gðœ@j
Adgðž¿@l
gð<>@l
Agð©Adgð™¿@Égð´.@Ê
djð•gdkð•glð•g(311 SHOULDNT 231 \GETBASEFIXP 210 \GETBASEFIXP 186 \GETBASEFIXP 166 GDATE 161 \GETBASEFIXP 136 GDATE 131 \GETBASEFIXP 109 GDATE 104 \GETBASEFIXP)
(305 CRLF 295 LF 285 CR 273 COREFILEINFOBLK 264 EOL 256 COREFILEINFOBLK 247 FILETYPE 238 TYPE 224 COREFILEINFOBLK 216 IWRITEDATE 203 COREFILEINFOBLK 194 IREADDATE 180 COREFILEINFOBLK 172 ICREATIONDATE 154 COREFILEINFOBLK 144 WRITEDATE 124 COREFILEINFOBLK 115 READDATE 98 COREFILEINFOBLK 88 CREATIONDATE 76 BYTESIZE 61 COREFILEINFOBLK 53 COREFILEINFOBLK 43 SIZE 33 COREFILEINFOBLK 23 COREFILEINFOBLK 13 LENGTH)
()
\CORE.GETFILENAME :D8
(L (2 FD 1 RECOG 0 NAME) P 2 VERS P 1 EXT P 0 ROOT) ®@@ HBÉh H X´‚±†IKh I Y´pJµK»Adgð²$¿KµjkذLK³JAgð³AAgð°6gð”K°)Adgðš¿K °gðKµ k„Z´B (171 \CORE.PACKFILENAME 162 SHOULDNT 139 FLAST 57 \CORE.NAMESEGMENT 48 \CORE.NAMESCAN 32 \CORE.NAMESEGMENT 23 \CORE.NAMESCAN 8 \CORE.UNPACKFILENAME)
(148 OLD/NEW 130 OLDEST 116 OLD 108 NEW 99 OLD/NEW 74 NEW 15 FDEV)
()
\CORE.GETINFOBLOCK :D8
(L (3 CREATEFLG 2 FD 1 RECOG 0 NAME) P 2 VERS P 1 EXT P 0 ROOT) F ˜@ÉÀ @ HBÉC [d²å¸IKC [d²×¹JµAgð³qA°|K‚±ñC¢±ë`B ½dM
¿djÏ
¿jhh¾dN¿_¿djO ¿¼K_µ±¬—JOñ<>OJLO¿±”O°ÝK•g„gdgð²T¿Kµjkغ`B _¿dO
¿djÏ
¿jhh_¿dO¿_¿djO ¿¼KJLK¿°%dgð•¿Kgð˜K L(322 SHOULDNT 314 FLAST 274 \PUTBASEFIXP 262 IDATE 228 \CORE.PACKFILENAME 142 \PUTBASEFIXP 130 IDATE 102 \CORE.PACKFILENAME 53 \CORE.NAMESCAN 39 \CORE.NAMESCAN 24 \CORE.UNPACKFILENAME)
(306 OLDEST 293 OLD 221 |COREFILEINFOBLKTYPE#| 202 NEW 196 NEW 190 OLD 95 |COREFILEINFOBLKTYPE#| 68 OLD/NEW 31 FDEV 12 STREAM 5 STREAM)
()
\CORE.NAMESCAN :D8
(L (2 CREATEFLG 1 NAMELST 0 NAME) F 1 FILEDIRCASEARRAY) @A´<A²"Ad@Q ”¿A@Q •Ab°ßB´@ X´ AHAH(51 \CORE.NAMESEGMENT 35 ALPHORDER 22 STRING.EQUAL)
NIL
()
\CORE.NAMESEGMENT :D8
(L (0 NAME)) @´@hNIL
NIL
()
\CORE.OPENFILE :D8
(L (5 OLDSTREAM 4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) U °
‚±Õ@dâ±Ý¿@d ’±¿¿@ɹAgð²$I
¿I ¿Ijhh¿@dD
¿I_É
»dK¿IÈ
¼dLÍ¿IÈ ½dM¿IÊ
¾dNÏ ¿dnÍ¿@É,_¿dO,¿dh>¿dh<¿dh:¿dh8¿dh6¿dnÿÿÍ5¿`_¿dOÍ4¿dh2¿dh0¿d`.¿dg*¿dh(¿dg&¿dg$¿dh"¿djÍ!¿djÍ ¿djÍ¿djÍ¿dh¿dh¿dh¿dh¿dh¿`_¿dOÍ¿dj¿dh ¿djÏ 0¿dkÏ ¿djÏ
0¿djÏ
¿djÏ
¿djÏ
¿dkÏ0¿djÏ ¿djÏ¿djÏ¿djÍ¿djÍ¿djχ¿dlÏ¿dh¿djÏ¿djÏ¿djÍ¿djÍ¿dO¿X°rAi @@ °]BDA X´îAgð¨HC
°AgCZ²8HJdgð¡d£¿j°dgð¿k<C2BF>gðl…J Ï ¿HA
H(593 \CORE.SETACCESSTIME 582 \ILLEGAL.ARG 520 \COREFILE.SETPARAMETERS 502 \CORE.GETFILEHANDLE 492 \FILE.WONT.OPEN 483 \IOMODEP 28 \GETACCESS)
(571 CRLF 561 LF 547 CR 538 STREAM 527 EOL 511 INPUT 467 STREAM 332 FILELINELENGTH 274 \STREAM.NOT.OPEN 265 \STREAM.NOT.OPEN 251 \EOSERROR 242 \NOIMAGEOPS 217 \STREAM.DEFAULT.MAXBUFFERS 169 STREAM 146 COREFILEINFOBLK 132 COREFILEINFOBLK 118 COREFILEINFOBLK 104 COREFILEINFOBLK 92 STREAM 77 COREFILEINFOBLK 67 COREFILEINFOBLK 57 COREFILEINFOBLK 48 OUTPUT 39 STREAM 16 STREAM)
()
\COREFILE.SETPARAMETERS :D8
(L (1 PARAMETERS 0 STREAM) F 5 DEFAULTFILETYPE) ÝA@É2HµIɪK¨IUhZdgð²F¿@IJdgð¡d£¿j°dgð¿k<C2BF>gðl…J
¿LÏ °`dgð§dgðŸ¿i»IJ°@dgð¨dgð²/¿IjJdgð— <00>3 µ
J ¿HX±ÿ4(212 \PUTBASEFIXP 207 \ILLEGAL.ARG 192 IDATE 107 \ILLEGAL.ARG)
(183 CREATIONDATE 174 COREFILEINFOBLK 164 ICREATIONDATE 156 CREATIONDATE 143 COREFILEINFOBLK 132 FILETYPE 124 TYPE 96 CRLF 86 LF 72 CR 63 COREFILEINFOBLK 57 STREAM 47 EOL 32 COREFILEINFOBLK 21 COREFILEINFOBLK 6 STREAM)
()
\CORE.PACKFILENAME :D8
(L (0 DEVICE) F 1 ROOT F 2 EXT F 3 VERS F 4 *UPPER-CASE-FILE-NAMES*) 9g@ÉgQgRgS
TH H(52 MKATOM 47 U-CASE 36 CONCAT)
(29 ; 23 %. 17 } 10 FDEV 4 {)
()
\CORE.RELEASEPAGES :D8
(L (1 LP 0 STREAM)) 7Aª@Éb¿@ÉÉHµh¹AIýñ“Ih¿HX°ìNIL
(25 COREFILEINFOBLK 18 STREAM 7 STREAM)
()
\CORE.SETFILEPTR :D8
(L (1 INDX 0 STREAM) P 2 \INTERRUPTABLE) g@ AãâAnÿåH@Éð²@dÊlð²/¿I@Èýñ² @¿@h¿@H¿@h(5 \CORE.UPDATEOF)
(96 STREAM 86 STREAM 76 STREAM 66 STREAM 54 STREAM 38 STREAM 26 STREAM)
()
\CORE.UPDATEOF :D8
(L (0 STREAM) P 0 \INTERRUPTABLE) ƒ@É´y@È@Èñ´f @ȹnIñ³0@@ÉIãâÔ¿@InÿåYÍ¿@h¿@@É@@hNIL
(124 STREAM 115 STREAM 105 STREAM 99 STREAM 89 STREAM 74 STREAM 59 STREAM 53 STREAM 37 STREAM 23 STREAM 15 STREAM 5 STREAM)
()
\CORE.BACKFILEPTR :D8
(L (0 STREAM) P 0 \INTERRUPTABLE) ®@dÊlð²¿@ɵ@l
¿@È@Éjð³s@ 0@@dÈjð²/¿@¿@h¿@@ÉmÿÔ¿nÿˆÈkÙÍ@@ÈkÙ¹jIñ¡I€jZÍJh(63 \CORE.UPDATEOF 33 \LISPERROR)
(153 STREAM 147 STREAM 135 STREAM 118 STREAM 112 STREAM 102 STREAM 92 STREAM 79 STREAM 72 STREAM 51 STREAM 40 STREAM 21 STREAM 6 STREAM)
()
\CORE.SETEOFPTR :D8
(L (1 NBYTES 0 STREAM) P 3 \INTERRUPTABLE) Š@ A@ Ù!Hjð³q@Êlåjð³cAãâAnÿ庹@I¿@¿@I@ÉðJŠ@h¿jÍ¿jHñ²@I
Jnÿ ¿@I
ih(132 \CORE.RELEASEPAGES 124 \ZEROBYTES 115 \CORE.FINDPAGE 12 \GETEOFPTR 5 \CORE.UPDATEOF)
(95 STREAM 83 STREAM 76 STREAM 66 STREAM 56 STREAM 27 STREAM)
()
\CORE.SETACCESSTIME :D8
(L (1 ACCESS 0 STREAM)) <00>Adgð²¿@ÉlH °ddgð²0¿@ÉlH ¿@ÉlH °-gð¨Agð²@ÉlH @(139 SHOULDNT 133 \PUTBASEFIXP 94 \PUTBASEFIXP 72 \PUTBASEFIXP 39 \PUTBASEFIXP 4 IDATE)
(125 COREFILEINFOBLK 118 STREAM 109 APPEND 101 OUTPUT 86 COREFILEINFOBLK 79 STREAM 64 COREFILEINFOBLK 57 STREAM 47 BOTH 31 COREFILEINFOBLK 24 STREAM 14 INPUT)
()
\CORE.SETFILEINFO :D8
(L (3 DEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) )@gC H´‚±Agð©Adgð¿HBBgð²9HBdgð“¿j° gðBdgð“¿l†l
IAdgð²¿HjB µB gð²HlB µB Adgð²¿HlB µB gð<>HjB AdgðŸ¿HlB gð´HlB (294 \PUTBASEFIXP 271 \PUTBASEFIXP 246 \PUTBASEFIXP 225 \PUTBASEFIXP 220 \ILLEGAL.ARG 212 IDATE 186 \PUTBASEFIXP 181 \ILLEGAL.ARG 173 IDATE 150 \PUTBASEFIXP 145 \ILLEGAL.ARG 137 IDATE 107 \LISPERROR 11 \CORE.GETINFOBLOCK)
(286 COREFILEINFOBLK 277 IWRITEDATE 263 COREFILEINFOBLK 254 IREADDATE 239 COREFILEINFOBLK 231 ICREATIONDATE 204 COREFILEINFOBLK 194 WRITEDATE 165 COREFILEINFOBLK 156 READDATE 130 COREFILEINFOBLK 120 CREATIONDATE 94 CRLF 82 LF 71 CR 64 COREFILEINFOBLK 55 EOL 45 COREFILEINFOBLK 36 FILETYPE 27 TYPE 5 OLD)
()
\CORE.GETNEXTBUFFER :D8
(L (2 NOERRORFLG 1 WHATFOR 0 STREAM) P 4 \INTERRUPTABLE F 5 \INTERRUPTABLE) .@É@È"@Êjð²@ɵ@l
¿IAgð˜@ÈnýñŸ@Éi@¿@h¿Inð²@jYÍ¿@HkÔX¿H@ÉZýñ³QHJðœI@Èýñ³@Adgðœ¿Bhð´n@ gð²@HZ¿@†A ¿@H
[@JdHñ”¿nŒHð˜@È€jÍ¿@KU”i(298 BLOCK 245 \CORE.FINDPAGE 237 \ILLEGAL.ARG 197 \EOF.ACTION 88 SHOULDNT 49 \LISPERROR)
(287 STREAM 274 STREAM 255 STREAM 226 STREAM 215 STREAM 203 WRITE 183 READ 170 STREAM 152 STREAM 137 STREAM 126 STREAM 109 STREAM 99 STREAM 80 STREAM 65 STREAM 57 READ 37 STREAM 24 STREAM 13 STREAM 5 STREAM)
()
\CORE.UNPACKFILENAME :D8
(L (0 NAME) F 4 ROOT F 5 EXT F 6 VERS) Ö@k
gð²g@hddi
µk@ "o@H Zo@J µI[J Z@HJkÙ µocoT
²&l>l/T cdl>ð”l<¿T c¿JKkÕýóœ@JkØKkÙ „oc
KIkÕýó´@KkØ
3 µgg@ c h(208 CL:ERROR 188 SUBATOM 163 SUBSTRING 141 CONCATCODES 123 DSUBST 118 CHCON 106 STRPOS 86 SUBSTRING 69 STRPOS 56 STRPOS 39 NCHARS 30 STRPOS 6 NTHCHAR)
(202 :PATHNAME 197 XCL:INVALID-PATHNAME 19 } 11 {)
( 169 "" 100 "/" 93 "" 62 ";" 49 ".")
COREDEVICE :D8
(L (1 NODIRFLG 0 NAME)) @dA
(12 \DEFINEDEVICE 7 \CREATECOREDEVICE)
NIL
()
\CREATECOREDEVICEA0038 :D8
(L (5 OLDSTREAM 4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ENIL
NIL
()
\CREATECOREDEVICE :D8
(L (1 NODIRFLG 0 NAME) F 2 *DEFAULT-EXTERNALFORMAT*) ú`dkÏ@¿dkÏP¿dkÏ`¿d@¿dkÏ¿dkÏ¿djÏ0¿dkÏ ¿dkÏp¿dg¿A•g„gHdI¿dgD¿A•g„gHdI¿dg^¿dgF¿dgb¿dg`¿A•g„gHdI¿A•g„gHdI¿A•g„gHdI¿dg
¿Ahð´ ghHdI¿A•g„gHdI ¿dg¿dg:¿dg,¿dg.¿dg0¿dgT¿dgR¿dgN¿dgP¿dgV¿dg<¿dg>¿dg@¿dgB¿dgZ¿dg¿A•g„gHdI¿A•g„gHdI ¿dRh¿dgH¿dg*¿dg¿NIL
(500 \GENERIC.RENAMEFILE 491 NILL 482 \GENERIC.CHARSET 461 \GENERIC-UNREGISTER-STREAM 455 NILL 438 \ADD-OPEN-STREAM 432 NILL 422 \GENERIC.OPENP 413 \CORE.GETNEXTBUFFER 404 NILL 395 \BUFFERED.BOUTS 386 \BUFFERED.BINS 377 \PAGEDEOFP 368 \CORE.SETEOFPTR 359 \PAGEDGETEOFPTR 350 \PAGEDGETFILEPTR 341 \CORE.SETFILEPTR 332 \CORE.BACKFILEPTR 323 \BUFFERED.PEEKBIN 314 \BUFFERED.BOUT 305 \BUFFERED.BIN 296 \GENERIC.READP 287 NILL 271 \CORE.DIRECTORYNAMEP 265 NILL 246 CoreFiles 233 NILL 217 \CORE.GENERATEFILES 211 \NULLFILEGENERATOR 194 \CORE.OPENFILE 188 \CREATECOREDEVICEA0038 171 \CORE.GETFILENAME 165 NILL 155 \ILLEGAL.DEVICEOP 146 \CORE.RELEASEPAGES 137 \CORE.SETFILEINFO 128 \ILLEGAL.DEVICEOP 112 \CORE.OPENFILE 106 \NODIRCORE.OPENFILE 96 \CORE.GETFILEINFO 80 \CORE.DELETEFILE 74 NILL 64 \CORE.CLOSEFILE 4 |FDEVTYPE#|)
()
\NODIRCOREFDEV :D8
(L (1 READPFN 0 NAME)) @i
A™HA:¿@H
H(28 \DEFINEDEVICE 6 \CREATECOREDEVICE)
(17 FDEV)
()
\NODIRCORE.OPENFILE :D8
(L (4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ª ¢±­@d ²¿@dAi ’±ƒ¿@ ±wÉ<11>@dD
¿H_É
¹dI¿HÈ
ºdJÍ¿HÈ »dK¿HÊ
¼dLÏ ¿dnÍ¿@É,½dM,¿dh>¿dh<¿dh:¿dh8¿dh6¿dnÿÿÍ5¿`¾dNÍ4¿dh2¿dh0¿d`.¿dg*¿dh(¿dg&¿dg$¿dh"¿djÍ!¿djÍ ¿djÍ¿djÍ¿dh¿dh¿dh¿dh¿dh¿`_¿dOÍ¿dj¿dh ¿djÏ 0¿dkÏ ¿djÏ
0¿djÏ
¿djÏ
¿djÏ
¿dkÏ0¿djÏ ¿djÏ¿djÏ¿djÍ¿djÍ¿djχ¿dlÏ¿dh¿djÏ¿djÏ¿djÍ¿djÍ¿O±ïBgðªBgð¢±Íl dD
¿dnÍ¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`HdIÍ¿dj¿dj¿dkÏ ¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿d`djÏ
¿jhhHdI¿HdjI ¿¿b‡@ ¿@C
¿@A
@(678 \CORE.SETACCESSTIME 670 \COREFILE.SETPARAMETERS 662 \FILE.WONT.OPEN 648 \PUTBASEFIXP 636 IDATE 39 \FILE.WONT.OPEN 28 \IOMODEP 16 \GETACCESS)
(609 |COREFILEINFOBLKTYPE#| 604 STREAM 537 FILELINELENGTH 529 \STREAM.NOT.OPEN 520 \STREAM.NOT.OPEN 511 \EOSERROR 502 \NOIMAGEOPS 481 \STREAM.DEFAULT.MAXBUFFERS 449 OLD/NEW 441 NEW 427 STREAM 293 FILELINELENGTH 235 \STREAM.NOT.OPEN 226 \STREAM.NOT.OPEN 212 \EOSERROR 203 \NOIMAGEOPS 181 \STREAM.DEFAULT.MAXBUFFERS 136 STREAM 113 COREFILEINFOBLK 99 COREFILEINFOBLK 85 COREFILEINFOBLK 71 COREFILEINFOBLK 59 STREAM 47 STREAM 5 STREAM)
()
(PRETTYCOMPRINT COREIOCOMS)
(RPAQQ COREIOCOMS ((* ;;; "Implementation of Core resident `files'") (FNS \CORE.CLOSEFILE
\CORE.DELETEFILE \CORE.DIRECTORYNAMEP \CORE.FINDPAGE \CORE.GENERATEFILES \CORE.NEXTFILEFN
\CORE.FILEINFOFN \CORE.GETFILEHANDLE \CORE.GETFILEINFO \CORE.GETFILEINFO.FROM.INFOBLOCK
\CORE.GETFILENAME \CORE.GETINFOBLOCK \CORE.NAMESCAN \CORE.NAMESEGMENT \CORE.OPENFILE
\COREFILE.SETPARAMETERS \CORE.PACKFILENAME \CORE.RELEASEPAGES \CORE.SETFILEPTR \CORE.UPDATEOF
\CORE.BACKFILEPTR \CORE.SETEOFPTR \CORE.SETACCESSTIME \CORE.SETFILEINFO \CORE.GETNEXTBUFFER
\CORE.UNPACKFILENAME) (FNS COREDEVICE \CREATECOREDEVICE) (FNS \NODIRCOREFDEV \NODIRCORE.OPENFILE) (
DECLARE%: DONTCOPY (RECORDS CORE.PAGEENTRY COREFILEINFOBLK CORESTREAM COREDEVICE COREGENFILESTATE)) (
INITRECORDS COREFILEINFOBLK) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (COREDEVICE (QUOTE NODIRCORE) T) (
COREDEVICE (QUOTE CORE)) (COREDEVICE (QUOTE SCRATCH) T))) (DECLARE%: DOEVAL@LOAD DONTCOPY (LOCALVARS
. T))))
(/DECLAREDATATYPE (QUOTE COREFILEINFOBLK) (QUOTE (FIXP FIXP FIXP POINTER POINTER POINTER WORD WORD (
BITS 2) WORD)) (QUOTE ((COREFILEINFOBLK 0 FIXP) (COREFILEINFOBLK 2 FIXP) (COREFILEINFOBLK 4 FIXP) (
COREFILEINFOBLK 6 POINTER) (COREFILEINFOBLK 8 POINTER) (COREFILEINFOBLK 10 POINTER) (COREFILEINFOBLK
12 (BITS . 15)) (COREFILEINFOBLK 13 (BITS . 15)) (COREFILEINFOBLK 10 (BITS . 1)) (COREFILEINFOBLK 14 (
BITS . 15)))) (QUOTE 16))
(COREDEVICE (QUOTE NODIRCORE) T)
(COREDEVICE (QUOTE CORE))
(COREDEVICE (QUOTE SCRATCH) T)
NIL