(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-May-2023 21:40:09" ("compiled on " {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LOCALFILE.;2) "10-May-2023 09:23:17" brecompiled changes%: \LFDeleteFile in "FULL 10-May-2023 ..." dated "10-May-2023 09:23:21") (FILECREATED "11-May-2023 21:39:23" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LOCALFILE.;2 277722 :EDIT-BY "lmm" :CHANGES-TO (FNS \LFDeleteFile) :PREVIOUS-DATE "19-Jan-93 10:55:28" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LOCALFILE.;1) \PFFetchString :D8 (L (2 maxLength 1 lengthLoc 0 startLoc)) :AÈBdHó‘¿H !H kº¹JIó³HJ@JkÙÂ¿JkÔZ°ëH(47 RPLCHARCODE 27 NCHARS 18 ALLOCSTRING) NIL () \PFReplaceString :D8 (L (3 newString 2 maxLength 1 lengthLoc 0 startLoc)) š C bd BdHó‘¿HHkÙjCSKdÊjð¥ ÈkÙ¾KdÊjð¥ É_¿NKl Ø½KdÊjð¥ ‚Ê‡lDð_¿NkØ^Mñ³ O–ONÐÈƒONÂ¼JIóª@JLÇ¿JkÔº°ÜAHÍC(97 %%ARRAY-TYPE-NUMBER 82 \GETBASEFIXP 67 %%ARRAY-BASE 48 %%ARRAY-OFFSET 13 NCHARS 5 MKSTRING) NIL () CREATEDSKDIRECTORYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 4 volName F 5 smashDirectory) é`hgThi!H ªo ¿U–H ¿H šo ¿g YÃ² IÉgðžIÉgð¥¿g ZÃ²(JÉgð²JÉgð–H ŒHi ¿gggT (230 PACKFILENAME.STRING 225 U-CASE 203 \PFDsplyVolumes 197 \LFOpenDevice 191 \LFMakeVolumeDirectory 183 \LFMakeVolumeDirectory 138 \GETDEVICEFROMNAME 127 \LFCreateDevice 84 \GETDEVICEFROMNAME 70 ERROR 59 \LFDirectoryP 52 \LFPurgeDirectory 43 ERROR 32 \PFPilotVolumeP 23 \LFEntryPoint 15 OBTAIN.MONITORLOCK) (219 DIRECTORY 214 DSK 209 HOST 175 NILL 168 FDEV 159 \LFCloseFile 152 FDEV 144 FDEV 133 DSK 120 NILL 113 FDEV 105 \LFCloseFile 98 FDEV 90 FDEV 79 DSK 10 WITH.MONITOR 4 \LFtopMonitor) ( 65 "Directory already created" 38 "Non-pilot volume") CREATEDSKDIRECTORY :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 smashDirectory I 0 volName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 CREATEDSKDIRECTORYA0001) (7 SI::MONITOR-UNWIND) () PURGEDSKDIRECTORYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 7 volName F 8 dontDeleteFiles) 0`hgWhig BH ªo ¿IÉºhdIlJh¼[µ3W’±ÇgggHlÐHlÐl( ±™\Ã²ZLÉÃ²KLÉl Hð².` ¿o` ¿L ` ¿K±ÿhd½` ¿o` ¿M ` ¿µÏH ¿¤h(300 \LFCloseDevice 294 \LFFindDirectoryVol 288 \LFPurgeDirectory 277 PRIN1 267 DELFILE 260 PRIN1 244 TERPRI 225 PRIN1 215 CLOSEF 208 PRIN1 192 TERPRI 178 \PFGetVol 173 \GETBASEFIXP 126 FILDIR 121 PACKFILENAME 116 \PFFetchString 54 ERROR 43 \PFPilotVolumeP 34 \GETDEVICEFROMHOSTNAME 24 \LFEntryPoint 15 OBTAIN.MONITORLOCK) (272 PROMPTWINDOW 255 PROMPTWINDOW 239 PROMPTWINDOW 220 PROMPTWINDOW 203 PROMPTWINDOW 187 PROMPTWINDOW 166 FileDescriptor 159 STREAM 151 FileDescriptor 144 STREAM 136 STREAM 101 DIRECTORY 96 DSK 91 HOST 64 FDEV 29 DSK 10 WITH.MONITOR 4 \LFtopMonitor) ( 250 "Deleting " 198 "Closing " 49 "Non-pilot volume") PURGEDSKDIRECTORY :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 dontDeleteFiles I 0 volName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 PURGEDSKDIRECTORYA0001) (7 SI::MONITOR-UNWIND) () LISPDIRECTORYPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 volumeName) <`hgdgð¨dgð´¿Phid” hðhð(53 \LFDirectoryP 46 \LFEntryPoint 20 MACHINETYPE 15 OBTAIN.MONITORLOCK) (34 DOVE 26 DANDELION 10 WITH.MONITOR 4 \LFtopMonitor) () LISPDIRECTORYP :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 volumeName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 LISPDIRECTORYPA0001) (7 SI::MONITOR-UNWIND) () VOLUMES :D8 NIL Vdgð¨dgð´@¿hi @°*d[lÐKlÐl( ¸IµHhZH&¹µ×J(66 MKATOM 61 U-CASE 56 \PFFetchString 37 \PFGetVols 29 \LFEntryPoint 4 MACHINETYPE) (18 DOVE 10 DANDELION) () VOLUMESIZE :D8 (L (1 recompute 0 volName)) @ HÈHÈõ(5 \LFEntryPoint) NIL () \DFSCurrentVolume :D8 NIL +hi HlÐHlÐl( (40 MKATOM 35 U-CASE 29 \PFFetchString 11 \PFCurrentVol 6 \LFEntryPoint) NIL () \DFSFreeDiskPagesA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 volName F 1 recompute) `hgP Q (27 \PFFreeDiskPages 21 \LFEntryPoint 15 OBTAIN.MONITORLOCK) (10 WITH.MONITOR 4 \LFtopMonitor) () \DFSFreeDiskPages :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 recompute I 0 volName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \DFSFreeDiskPagesA0001) (7 SI::MONITOR-UNWIND) () \LFEntryPoint :D8 (L (2 dontDefault 1 noVolName 0 volName)) ‚@²@d3« ¦@ ¿dgð³dgðª¿o ¿ªo ¿A³1@ µ@hð´ Bhð´h Hµ o Hh(124 ERROR 108 \LFFindDirectoryVol 90 \PFGetLVPage 85 \LFNormalizeVolumeName 75 ERROR 64 \PFVersionOK 59 \PFEnsureInitialized 53 ERROR 25 MACHINETYPE 19 \ILLEGAL.ARG 12 STRINGP) (40 DOVE 31 DANDELION) ( 119 "Volume not on local disk" 70 "Wrong Pilot version on disk" 48 "Wrong machinetype") \LFNormalizeVolumeName :D8 (L (0 volName)) o@ ˜@ @(17 \LFParseFileName 10 STRPOS) NIL ( 4 "{") \LFCreateDevice :D8 NIL bg ²;`Ã²/`Égð²`Égð•``dkÏ ¿dg¿dg¿dg¿dg¿dgb¿dgD¿dg¿dg¿dg^¿dgF¿dg`¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg ¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿ (346 \MAKE.PMAP.DEVICE 9 BOUNDP) (351 \LFdevice 338 NILL 329 \GENERIC.READP 320 \ILLEGAL.DEVICEOP 311 \GENERIC.BINS 302 \GENERIC.BOUTS 293 NILL 284 \GENERIC.CHARSET 275 \ILLEGAL.DEVICEOP 266 \IS.NOT.RANDACCESSP 257 \IS.NO.RANDACCESSP 248 \GENERIC-UNREGISTER-STREAM 239 \ADD-OPEN-STREAM 230 \GENERIC.OPENP 221 NILL 212 \LFDirectoryNameP 203 \LFEventFn 194 \LFGenerateFiles 185 \LFOpenFile 176 \LFWritePages 167 \LFSetFileInfo 158 \LFReadPages 149 \LFOpenFile 140 \LFGetFileName 131 \LFGetFileInfo 122 \LFTruncateFile 113 \LFRenameFile 104 \LFDeleteFile 95 \LFCloseFile 86 DSK 73 |FDEVTYPE#| 67 \LFdevice 60 NILL 53 FDEV 48 \LFdevice 40 \LFCloseFile 33 FDEV 28 \LFdevice 21 FDEV 16 \LFdevice 4 \LFdevice) () \LFOpenDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) s`hgdgð¨dgð´3¿´&Hµh´g` Y ¿I •IµØi°ÕHX°Ì(101 \LFDirectoryP 94 \LFCloseDirectory 86 \GETDEVICEFROMNAME 81 \DEFINEDEVICE 55 \PFGetVols 48 \PFVersionOK 43 \PFEnsureInitialized 20 MACHINETYPE 15 OBTAIN.MONITORLOCK) (76 \LFdevice 71 DSK 34 DOVE 26 DANDELION 10 WITH.MONITOR 4 \LFtopMonitor) () \LFOpenDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFOpenDeviceA0001) (7 SI::MONITOR-UNWIND) () \LFCloseDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) <`hgi ` ´ˆd ¿µöh(51 \LFCloseDirectory 43 \PFGetVols 36 \PFVersionOK 31 \REMOVEDEVICE 21 \PFEnsureInitialized 15 OBTAIN.MONITORLOCK) (26 \LFdevice 10 WITH.MONITOR 4 \LFtopMonitor) () \LFCloseDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFCloseDeviceA0001) (7 SI::MONITOR-UNWIND) () \LFOpenFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 OTHERINFO F 4 FILE F 5 ACCESS F 6 OLDSTREAM F 7 RECOG) `hg0gSµ gSX²4gHdgð— ƒ3 Zµ H HS c¿TÃ²TÉÃšTÉc€TWUdgðhðSV YddÃŸ¿IÉÃ¡IV³@Ugð²IIjÍ¿j¿IgShð´UJ¿JšIkÏ¿IIÉl I(253 \GETBASEFIXP 218 \LFUpdateLeaderPage 141 \LFGetStreamForFile 83 REMOVE 75 \ILLEGAL.ARG 59 IDATE 15 OBTAIN.MONITORLOCK) (244 STREAM 238 STREAM 227 STREAM 205 DON'T.CHANGE.DATE 191 STREAM 185 STREAM 176 OUTPUT 164 FileDescriptor 157 STREAM 149 STREAM 130 INPUT 115 STREAM 108 FileDescriptor 101 STREAM 93 STREAM 50 CREATIONDATE 42 CREATIONDATE 32 ICREATIONDATE 23 CREATIONDATE 10 WITH.MONITOR 4 \LFtopMonitor) () \LFOpenFile :D8 (L (4 FDEV) P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 5 OLDSTREAM I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) Z g ¿$JdÃ²¿JdÉÃ‘J¡hJdÃ—¿J g@(87 CL:ERROR 75 CL:ERROR 22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFOpenFileA0001) (81 :PATHNAME 67 CONDITION 54 FileDescriptor 47 STREAM 37 STREAM 7 SI::MONITOR-UNWIND) () \LFGetStreamForFile :D8 (L (5 OLDSTREAM 4 OTHERINFO 3 CREATEFLG 2 ACCESS 1 RECOG 0 NAME)) »@A AHd¢±¬Z²cH »E³!KB`²ggK`HY J ¼dL¿dlI¿dn'AÍ¿KJHd´:nÿÿñ²"` ¿o` gC´HD (184 \LFCreateFile 166 PRIN1 150 TERPRI 117 \LFOpenOldFile 102 \PUTBASEFIXP 87 \LFReadFileID 81 \LFGetDirectory 63 MAKE-CONDITION 45 \FILE-CONFLICT 29 \LFFullFileName 6 \LFFileSpec) (171 XCL:FS-RESOURCES-EXCEEDED 161 PROMPTWINDOW 145 PROMPTWINDOW 69 |FileDescriptorTYPE#| 57 :PATHNAME 52 XCL:FILE-WONT-OPEN 40 \LFdevice) ( 156 "Version number too high") \LFOpenOldFile :D8 (L (2 directoryPointer 1 fullFileName 0 fileDesc)) l HnÔ1Í¿HqldA¿d` ¿dnÿÿÍ5¿`¹dIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`ºdJÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿[d@¿KB¿KH¿¼@ ]@lM@j@j HHl M:œHl ¾HÈ†MkÙ¾n_¿LNLOÍL(242 \GETBASEFIXP 231 \GETBASEFIXP 223 \PFGetPage 217 \PFFindPageAddr 208 \PUTBASEFIXP 193 \PFFindFileSize) (272 STREAM 263 STREAM 200 FileDescriptor 182 STREAM 172 STREAM 162 STREAM 98 FILELINELENGTH 90 \STREAM.NOT.OPEN 81 \STREAM.NOT.OPEN 72 \EOSERROR 63 \NOIMAGEOPS 46 \STREAM.DEFAULT.MAXBUFFERS 31 \LFdevice) () \LFGenFileID :D8 (L (0 vol)) @lsÐ@Èt@ÈsõkÔ (17 \PUTSWAPPEDFIXP) NIL () \LFCreateFile :D8 (L (1 info 0 fileName) P 0 \INTERRUPTABLE) \ p@ ! l@ ¹dI¿`O ºdJ¿O »dlK¿dn'AÍ¿¾d` ¿dnÿÿÍ5¿`¼dLÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`½dMÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿dN¿_d@O _¥gOOÉ`dj ¿dlÐj ¿dlÐ` ¿²ÂOOÉ@ AO@O OO(343 \LFMakeDirEntry 336 \LFGetDirectory 324 \LFMakeLeaderPage 318 \LFFileName 294 \PFNewPages 288 \PUTSWAPPEDFIXP 273 \PUTSWAPPEDFIXP 262 \PUTSWAPPEDFIXP 229 \LFFindDirHole 224 \LFGetDirectory 64 \PUTBASEFIXP 54 \PFVolumeNumber 41 \LFGenFileID 22 \LFFullFileName 10 \PFGetVol) (310 STREAM 303 STREAM 283 \LFrunSize 254 |PageGroupTYPE#| 247 STREAM 237 XCL:FS-RESOURCES-EXCEEDED 209 STREAM 146 FILELINELENGTH 138 \STREAM.NOT.OPEN 129 \STREAM.NOT.OPEN 120 \EOSERROR 111 \NOIMAGEOPS 94 \STREAM.DEFAULT.MAXBUFFERS 79 \LFdevice 33 |FileDescriptorTYPE#|) () \LFMakeLeaderPage :D8 (L (2 Info 1 fileName 0 file)) ÎgBµ`gB3 µgBµl HnÔ1Í¿HKHgð‘j€kÍ±KlIKlIKl@ÉKl @l KljKjÍKlÐKlÐnAKl‘ÐKlÐl@JKlÍ@j@j KK(202 \PFPutPage 196 \PFFindPageAddr 182 \PFReplaceString 166 \PFReplaceString 145 \PUTBASEFIXP 136 \PUTBASEFIXP 131 \GETBASEFIXP 115 \PUTBASEFIXP 99 \PUTBASEFIXP 90 \PUTBASEFIXP 49 USERNAME 33 IDATE) (124 FileDescriptor 108 FileDescriptor 74 TEXT 38 AUTHOR 20 CREATIONDATE 15 DEFAULTFILETYPE 4 TYPE) () \LFUpdateLeaderPage :D8 (L (2 createDate 1 access 0 stream) P 0 \INTERRUPTABLE) 0@ÉA´ºYl@ÉI@ÈÍIl @Él Agð³AgðªAdgð²'¿IlJ¿IlBµJb¿@B¿Agð§Agð™IlJ¿@ h(169 \LFWriteLeaderPage 162 \PUTBASEFIXP 126 \PUTBASEFIXP 111 \PUTBASEFIXP 74 \PUTBASEFIXP 69 \GETBASEFIXP 35 \PUTBASEFIXP 18 DAYTIME) (151 BOTH 143 INPUT 133 STREAM 98 APPEND 89 BOTH 80 OUTPUT 62 FileDescriptor 55 STREAM 42 STREAM 28 STREAM 8 STREAM) () \LFWriteLeaderPage :D8 (L (0 stream)) =@Él @ÉIjIj @Éh(57 \PFPutPage 44 \PFFindPageAddr 24 \PFGetVol 19 \GETBASEFIXP) (50 STREAM 30 STREAM 12 FileDescriptor 5 STREAM) () \LFCloseFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 1 STREAM) ™`hgQ Q gð³VQ ¿QÉl QÉkdÔQÉÔQÈjð’mÿ€jÔ¿Q QÉl Q(149 \PFSaveBuffers 144 \PFGetVol 139 \GETBASEFIXP 118 \LFUpdateLeaderPage 111 \PFTrimHelper 70 \PFGetVol 65 \GETBASEFIXP 44 \LFTruncateFile 27 \GETACCESS 21 \CLEARMAP 15 OBTAIN.MONITORLOCK) (132 FileDescriptor 125 STREAM 96 STREAM 87 STREAM 76 STREAM 58 FileDescriptor 51 STREAM 32 INPUT 10 WITH.MONITOR 4 \LFtopMonitor) () \LFCloseFile :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 STREAM) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFCloseFileA0001) (7 SI::MONITOR-UNWIND) () \LFDeleteFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 3 dev F 4 fileName) Ð`hgTgghd HÃ´*HÉÃ´SÉ¹HÉhSlI‘hHdÉl ¿HÉl HÉj¿HÉl HÉ(196 \PFSaveBuffers 191 \PFGetVol 186 \GETBASEFIXP 165 \PFTrimHelper 151 \PFGetVol 146 \GETBASEFIXP 125 \LFRemoveDirEntry 120 \LFGetDirectory 115 \PFGetVol 110 \GETBASEFIXP 34 \LFGetStreamForFile 15 OBTAIN.MONITORLOCK) (203 STREAM 179 FileDescriptor 172 STREAM 157 STREAM 139 FileDescriptor 132 STREAM 103 FileDescriptor 96 STREAM 75 STREAM 66 FDEV 58 FileDescriptor 51 STREAM 43 STREAM 26 BOTH 21 OLDEST 10 WITH.MONITOR 4 \LFtopMonitor) () \LFDeleteFile :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 dev I 0 fileName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFDeleteFileA0001) (7 SI::MONITOR-UNWIND) () \LFReadPages :D8 (L (2 buffers 1 streamFirstPage 0 stream)) ª@ABBAdkØ@Éj5@ ¿@Éj@Èÿ’mÿ€jÔ¾HµL£H½h„H½H¸LINñ³DKJKJ M¿IN:²+@È_¿jOÿ–n_°#MOnOÕ¿OŽnŠMn ¿jÔ¼IkÔ¹JkÔº°’(154 \CLEARWORDS 137 \CLEARBYTES 94 \PFGetPage 88 \PFFindPageAddr 30 \UPDATEOF 7 \LFExtendFileIfNecessary) (106 STREAM 46 STREAM 37 STREAM 18 STREAM) () \LFWritePages :D8 (L (2 buffers 1 streamFirstPage 0 stream)) d@dÊjð³¿@g ¿@jÏ¿@ABBAkØ@ÉHd £H»h„H»H¸JIJI K¿IkÔ¹°Ü(91 \PFPutPage 85 \PFFindPageAddr 45 \LFExtendFileIfNecessary 25 \LFUpdateLeaderPage) (55 STREAM 32 STREAM 20 OUTPUT 6 STREAM) () \LFExtendFileIfNecessaryA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 minBackingFileSize F 1 stream) 2`hgPQÉl ó—QP i(45 \LFExtendFile 36 \GETBASEFIXP 15 OBTAIN.MONITORLOCK) (29 FileDescriptor 22 STREAM 10 WITH.MONITOR 4 \LFtopMonitor) () \LFExtendFileIfNecessary :D8 (L (2 buffers 1 streamFirstPage) P 3 SI::*RESETFORMS* P 2 SI::*LOCKED-MONITOR* P 1 minBackingFileSize I 0 stream) KBµk„ kdÔAÔHkÙÔY g ¿$³@Él ¿°Òh(68 \LISPERROR 46 SI::MONITOR-UNWIND 41 \MVLIST 36 \LFExtendFileIfNecessaryA0001 10 LENGTH) (59 STREAM 31 SI::MONITOR-UNWIND) () \LFExtendFile :D8 (L (1 minBackingFileSize 0 stream) P 6 \INTERRUPTABLE) @Él @ÉBHI`Il ºdJ ¿dlÐj ¿AIl `Ø¼[Ló‘K€L½dlÐM ¿¡h@ ¿@ @(140 \LFUpdateLeaderPage 133 \UPDATEOF 124 \PFNewPages 118 \PUTSWAPPEDFIXP 93 \GETBASEFIXP 78 \PUTSWAPPEDFIXP 67 \PUTSWAPPEDFIXP 59 \GETBASEFIXP 24 \PFGetVol 19 \GETBASEFIXP) (98 \LFrunSize 86 FileDescriptor 52 FileDescriptor 45 |PageGroupTYPE#| 30 STREAM 12 FileDescriptor 5 STREAM) () \LFGetFileInfoA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 stream F 2 attribute) d`hgQÃžQÉÃ³6Qgghd cHÃ´HÉÃ´‚±QÉRdgð²¿Q QÉnÚQÈØdgð²!¿Q QÉQÈnÿØãâØdgð²¿HÈ±jð•ggdgðž¿Hl dgðž¿Hl dgðž¿Hl dgð™¿Hl dgð™¿Hl dgð™¿Hl gð´Hl‘ÐHlÐl@(353 \PFFetchString 329 \GETBASEFIXP 311 \GETBASEFIXP 293 \GETBASEFIXP 275 GDATE 270 \GETBASEFIXP 252 GDATE 247 \GETBASEFIXP 229 GDATE 224 \GETBASEFIXP 155 \UPDATEOF 117 \UPDATEOF 56 \LFGetStreamForFile 15 OBTAIN.MONITORLOCK) (335 AUTHOR 318 ICREATIONDATE 300 IREADDATE 282 IWRITEDATE 259 CREATIONDATE 236 READDATE 213 WRITEDATE 206 BINARY 200 TEXT 185 TYPE 169 STREAM 161 STREAM 145 SIZE 135 STREAM 123 STREAM 107 LENGTH 95 STREAM 82 FileDescriptor 75 STREAM 67 STREAM 48 INPUT 43 OLD 35 FileDescriptor 28 STREAM 21 STREAM 10 WITH.MONITOR 4 \LFtopMonitor) () \LFGetFileInfo :D8 (L (2 device) P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 attribute I 0 stream) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFGetFileInfoA0001) (7 SI::MONITOR-UNWIND) () \LFSetFileInfoA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 stream F 2 value F 3 attribute) ¶`hgQÃžQÉÃ³2Qgghd cHÃ´HÉÃ´`QÉSdgð²¿HRgð‘j€kÍ±¿R°/dgð²¿HlR µR ‹gð´HlR´ Q i(178 \LFUpdateLeaderPage 170 \PUTBASEFIXP 152 \ILLEGAL.ARG 144 IDATE 56 \LFGetStreamForFile 15 OBTAIN.MONITORLOCK) (158 ICREATIONDATE 131 CREATIONDATE 114 TEXT 103 TYPE 91 STREAM 82 FileDescriptor 75 STREAM 67 STREAM 48 INPUT 43 OLD 35 FileDescriptor 28 STREAM 21 STREAM 10 WITH.MONITOR 4 \LFtopMonitor) () \LFSetFileInfo :D8 (L (3 dev) P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 value I 1 attribute I 0 stream) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFSetFileInfoA0001) (7 SI::MONITOR-UNWIND) () \LFGetFileNameA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FileName F 1 Recog) "`hgPQ d– (31 \LFFullFileName 22 \LFFileSpec 15 OBTAIN.MONITORLOCK) (10 WITH.MONITOR 4 \LFtopMonitor) () \LFGetFileName :D8 (L (2 Dev) P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 Recog I 0 FileName) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFGetFileNameA0001) (7 SI::MONITOR-UNWIND) () \LFEventFnA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 Dev F 2 Event) è`hgRdgð³dgð³dgð¨dgð²b¿i g Ÿg ¿dgð³ dgð³¿Qg¿Q ¿Q dgð³dgð³dgð¨dgð´Rgð–Q ¿Hµhd ” ¿HX°ê(224 \PFSaveBuffers 218 \LFDirectoryP 202 \PFGetVols 196 \FLUSH.OPEN.STREAMS 146 \PAGED.REVALIDATEFILELST 139 \REMOVEDEVICE 100 MACHINETYPE 94 DSKDISPLAY 89 DSKDISPLAY 78 DEFINEDP 68 \LFOpenDevice 63 \PFEnsureInitialized 57 \LFCloseDevice 15 OBTAIN.MONITORLOCK) (188 BEFORELOGOUT 179 BEFORESAVEVM 171 BEFOREMAKESYS 162 BEFORESYSOUT 153 BEFORELOGOUT 130 NILL 125 FDEV 115 DOVE 106 DANDELION 84 CLOSED 73 DSKDISPLAY 48 AFTERSAVEVM 40 AFTERMAKESYS 31 AFTERSYSOUT 22 AFTERLOGOUT 10 WITH.MONITOR 4 \LFtopMonitor) () \LFEventFn :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 Event I 0 Dev) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFEventFnA0001) (7 SI::MONITOR-UNWIND) () \LFDirectoryNamePA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 DirSpec) x`hg0S Xd²[ Y´QgggIlÐIlÐl( gl>Hk3 Z´HkJ (117 PACKFILENAME.STRING 111 U-CASE 106 SUBSTRING 90 LASTCHPOS 73 U-CASE 68 \PFFetchString 35 \LFFindDirectoryVol 24 \LFParseFileName 15 OBTAIN.MONITORLOCK) (78 NAME 53 DIRECTORY 48 DSK 43 HOST 10 WITH.MONITOR 4 \LFtopMonitor) () \LFDirectoryNameP :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 DirSpec) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \LFDirectoryNamePA0001) (7 SI::MONITOR-UNWIND) () \LFTruncateFile :D8 (L (2 OFFSET 1 PAGE# 0 STREAM) P 0 \INTERRUPTABLE) é@ A3 ª@Éb¿B3 ª@Èb¿@@É ÉN¹@kI@ÉnÖ@ÈÔ@Él AkÔnÚBÔnÔkÕnÛONñ˜@O ¿@M ¿AnÖBÔMÕºk[Jó¬@j ¿KkÔ°ñ@L @A@BÍ@ @Él h(229 \PFSaveBuffers 224 \PFGetVol 219 \GETBASEFIXP 199 \LFUpdateLeaderPage 173 \SETFILEPTR 160 \BOUT 137 \SETFILEPTR 129 \LFExtendFile 94 \GETBASEFIXP 5 \UPDATEOF) (212 FileDescriptor 205 STREAM 190 STREAM 181 STREAM 85 STREAM 76 STREAM 64 STREAM 51 FDEV 44 STREAM 30 STREAM 15 STREAM) () \LFRenameFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 FILESPEC F 5 dir F 6 NEW-NAME F 7 OLD-NAME) ´`hgWg 1HÉ¹HTUºT cJ§ocHTUJHIHU HJHVHÉ[lÐKlÐnV ¿HÉlH (177 \LFWriteLeaderPage 171 \PUTBASEFIXP 166 DAYTIME 150 \PFReplaceString 145 \LFFileName 140 \LFUnpackName 97 \LFRemoveDirEntry 81 \LFMakeDirEntry 58 \LFFullFileName 49 \LFFindDirHole 27 \LFGetStreamForFile 15 OBTAIN.MONITORLOCK) (157 STREAM 121 STREAM 112 STREAM 103 STREAM 87 STREAM 36 STREAM 22 OLD 10 WITH.MONITOR 4 \LFtopMonitor) ( 67 "FILE SYSTEM RESOURCES EXCEEDED") \LFRenameFile :D8 (L (2 NEW-DEVICE 0 OLD-DEVICE) P 5 SI::*RESETFORMS* P 4 SI::*LOCKED-MONITOR* P 3 FILESPEC P 2 dir I 3 NEW-NAME I 1 OLD-NAME) ¾@dBð¨ABCÉAÃ’A°@É¹Ag@lIh@lH³rAg ¨Al ¿A Cg JC ð²2 g ¿$Aoô™Cl hC@ABC(187 \GENERIC.RENAMEFILE 174 \LISPERROR 153 SI::MONITOR-UNWIND 148 \MVLIST 143 \LFRenameFileA0001 127 \LFFindDirectory 120 \LFParseFileName 110 \LFFileSpec 99 \LFFindDirectory 92 \LFParseFileName 85 \LISPERROR 73 \LFFileSpec 12 \GENERIC.RENAMEFILE) (138 SI::MONITOR-UNWIND 105 NEW 68 OLD 48 OLD 39 FDEV 29 STREAM 18 FDEV) ( 164 "FILE SYSTEM RESOURCES EXCEEDED") \LFFindDirectory :D8 (L (0 VOL)) @ d´d (14 \LFDirectoryP 5 \LFFindDirectoryVol) NIL () \LFFindDirectoryVol :D8 (L (0 VOL)) Š@µ2HZ³Shd[µ_hÃš@dÈn²Ëð³/¿@d3 ˜ b° œ@d3‘¿… ˜@ b†¿@´@ ´@IJð˜JH °¤J°›\ ”LµiK°(126 \LFDirectoryP 113 \APPEND2 97 \LFDirectoryP 87 SHOULDNT 79 \PFGetLVPage 72 STRINGP 55 \PFGetVol 12 \PFCurrentVol 7 \PFGetVols) (33 VMEMPAGEP) () \LFParseFileName :D8 (L (0 FULLNAME)) æ `@ ]µh²Nhdgð³9dgð–¿MX°*dgð–¿MY°dgð•¿MZŠgð™M[¿M°²i°´oH \gHdškLd‘kÙL´HLkØ L´oIoJh1 NµO jK ÿ²&h°)µ_¿OµOh__¿N^°ÑO&_¿°õK h(222 MKATOM 177 NCHARS 170 CONCATLIST 134 SUBSTRING 122 SUBSTRING 102 STRPOS 8 UNPACKFILENAME.STRING) (108 PARSEDFILENAME 76 VERSION 63 EXTENSION 48 NAME 33 DIRECTORY 24 HOST) ( 148 "." 142 ">" 96 ">") \LFMakeVolumeDirectory :D8 (L (1 DONTOPEN 0 vol) P 4 \INTERRUPTABLE P 0 \INTERRUPTABLE) @@ º`dJ¿@ ¹dlI¿dn'@Í¿dlj¿»@K`dj ¿dlÐj ¿dlÐl2 ¿¬ihl @ ¿Kgggkh¿@n'@J¿A‘h@ (170 \LFDirectoryP 159 \PFInsertDirectoryID 148 \LFMakeLeaderPage 142 PACKFILENAME.STRING 119 \PFSaveBuffers 112 \LISPERROR 99 \PFNewPages 93 \PUTSWAPPEDFIXP 81 \PUTSWAPPEDFIXP 70 \PUTSWAPPEDFIXP 53 \PUTBASEFIXP 36 \PUTBASEFIXP 26 \PFVolumeNumber 8 \LFGenFileID) (136 VERSION 131 DIRECTORY 126 NAME 62 |PageGroupTYPE#| 14 |FileDescriptorTYPE#|) () \LFDirectoryP :D8 (L (0 vol)) Å@@ YÃ²IÉÃ›@ µ‚±›@ ´‚±@n'@ ´‚±€`@n'@ ºdJ¿@ »dlK¿dn'@Í¿gggkhXd²3ÉÈlð´%Hg HnÿÿÍ4H @H (194 \LFPutDirectory 187 \OPENFILE 170 \SETACCESS 141 \LFOpenOldFile 135 PACKFILENAME 106 \PUTBASEFIXP 96 \PFVolumeNumber 84 \PFFindDirectoryID 63 \PFFindDirectoryID 48 \PFPilotVolumeP 36 \LFGetDirectory 8 \LFGetDirectory) (176 STREAM 165 BOTH 150 STREAM 129 VERSION 124 DIRECTORY 119 NAME 74 |FileDescriptorTYPE#| 29 FileDescriptor 22 STREAM 14 STREAM) () \LFPurgeDirectory :D8 (L (0 vol)) a@ @n'@ !H´L@n'@ ¿`dH¿@ ºdlJ¿dn'@Í¿YlI ¿@Ijh(93 \PFTrimHelper 84 \PUTBASEFIXP 79 \PFFindFileSize 57 \PUTBASEFIXP 47 \PFVolumeNumber 29 \PFRemoveDirectoryID 14 \PFFindDirectoryID 5 \LFCloseDirectory) (71 FileDescriptor 35 |FileDescriptorTYPE#|) () \LFCloseDirectory :D8 (L (0 vol)) @ ´@ @h (25 \LFPutDirectory 18 FORGETPAGES 13 \LFGetDirectory 5 \LFGetDirectory) NIL () \LFMakeDirEntry :D8 (L (3 POS 2 DirStream 1 UNAME 0 stream) P 5 \INTERRUPTABLE) «A AHl ØYBC B jB ÿ¦B ¿B Iýñ–B ¿B@ÉÉ ¿BA»ZKã ¿JKlÿå ¿BH ¿A‹d¼BL ¿µóBCkØ ¿Bk @CB h(167 FORCEOUTPUT 151 \BOUT 143 \SETFILEPTR 129 \BOUT 113 \BOUT 105 \BOUT 94 \BOUT 78 \LFDWOUT 53 \LFDirectoryScrambled 40 \LFDirectoryScrambled 29 \LFCheckBang 23 \SETFILEPTR 8 LENGTH) (158 STREAM 71 FileDescriptor 64 STREAM) () \LFRemoveDirEntry :D8 (L (1 dirStream 0 stream) P 0 \INTERRUPTABLE) ‰A@É ¿A ¿Aj @A ºA@ÉJÔ ¿AÉ É<¹AkI³4A ¿jA ÿ²'JA Ô»A@ÉlØ ¿nKñ—AK ¿A (134 FORCEOUTPUT 126 \BOUT 112 \SETFILEPTR 83 \LFCheckBang 54 \SETFILEPTR 31 \BOUT 23 \LFCheckBang 16 \SETFILEPTR) (102 STREAM 68 FDEV 61 STREAM 45 STREAM 9 STREAM) () \LFReadFileID :D8 (L (1 position 0 directory)) $@A @ @d kð§¿¿@ @ (33 \LFDWIN 24 \LFDirectoryScrambled 12 \LFCheckBang 6 \SETFILEPTR) NIL () \LFFindDirHole :D8 (L (2 DIRSTREAM 1 UNAME 0 STREAM) P 5 \INTERRUPTABLE) …l A ØBÉµj2BI ¿BÉ É<¼BdkLœ¿BIH´É ¿LlÐW<YÈIÈõW<ZÈJÈõ[jð’±øKµ‚±ækÙ ¿LW>ÈÍ¿lkØâ W>l W@ O6O4j lÄO6ÈO6ÈõW>É:²'O6lÐ]ÈMÈõW>É:³ O6ÈO6Èõjð²iol W<O4lÐO6ÈO6ÈõW<^ÈNÈõ_¿dOñ¢¿O W<lÐO6dÈO6Èõjð²¿j°1 ¢±ÿj±ÿÈO6ÈõW<_ÈOÈõO6ÈO6ÈõÙØ W<lÐO6lÐ_ÈOÈõW<_ÈOÈõ_¿dOñ’¿O lj_¿_¿OOó³O4OÐÈO6OÐÈð¡hˆOkÔ_°ãi²É ¿O"lÐO4ÈO4ÈõkÙ ¿j _$ÈO$ÈõW>É:™O4jd¿O4lÐW<_&ÈO&Èõ O4dÈO4ÈõO8:›¿O4j ¿O4ÈO4ÈõO6lÐ_(ÈO(Èõ:³lO4ÈO4ÈõO6lÐ_*ÈO*Èõ:´SO4W<_,ÈO,Èõjð’j°4W<_.ÈO.ÈõW<_0ÈO0ÈõW<_2ÈO2ÈõÙØjh(831 \VFMInsert 698 \VFMDelete 675 \PUTSWAPPEDFIXP 648 \VFMInsert 619 \VFMGet 612 \PUTSWAPPEDFIXP 590 \PUTSWAPPEDFIXP 573 \ALLOCBLOCK 561 \FZEROP 533 \VFMDelete 524 \FZEROP 431 \PUTSWAPPEDFIXP 375 \PUTSWAPPEDFIXP 328 \FZEROP 295 \PUTSWAPPEDFIXP 290 \PUTSWAPPEDFIXP 238 \LISPERROR 161 \VFMGet 151 \VFMContextSet 141 \GETBASEFIXP 127 \ALLOCBLOCK 103 \PUTSWAPPEDFIXP 47 \PUTSWAPPEDFIXP 31 \ALLOCBLOCK 15 OBTAIN.MONITORLOCK) (814 PageGroup 798 PageGroup 782 PageGroup 760 PageGroup 661 PageGroup 635 FileDescriptor 583 FileDescriptor 483 PageGroup 406 PageGroup 382 PageGroup 350 PageGroup 302 PageGroup 267 PageGroup 246 PageGroup 204 FileDescriptor 180 FileDescriptor 134 FileDescriptor 112 FileDescriptor 73 PageGroup 59 PageGroup 40 FileDescriptor 10 WITH.MONITOR 4 \VFMmonitor) ( 231 "Page group not found") \VFMDeletePageGroup :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 groupPtr I 1 filePtr I 0 vol) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \VFMDeletePageGroupA0001) (7 SI::MONITOR-UNWIND) () \VFMGetPageGroupA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 9 filePtr F 10 filePage F 11 vol) × `hglkØâ YdWÉ ¿IlÐW ¿IWÈÍ¿lkØâ »ºW KJj lÄKÈKÈõWÉ:´_`KÈKÈõ¼dL ¿KÈKÈõ½dlÐM ¿KlÐ^ÈNÈõWÉ:”KlÐ€K_ÈOÈõ_¿dlÐO ¿(211 \PUTSWAPPEDFIXP 159 \PUTSWAPPEDFIXP 140 \PUTSWAPPEDFIXP 97 \VFMGet 89 \VFMContextSet 80 \ALLOCBLOCK 56 \PUTSWAPPEDFIXP 44 \PUTSWAPPEDFIXP 28 \ALLOCBLOCK 15 OBTAIN.MONITORLOCK) (178 FileDescriptor 124 |PageGroupTYPE#| 114 FileDescriptor 65 FileDescriptor 37 FileDescriptor 10 WITH.MONITOR 4 \VFMmonitor) () \VFMGetPageGroup :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 filePage I 1 filePtr I 0 vol) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \VFMGetPageGroupA0001) (7 SI::MONITOR-UNWIND) () \VFMInsertPageGroupA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 18 groupPtr F 19 filePtr F 20 vol) Ü`hgð0lkØâ ZdW&É ¿JlÐW$YÈIÈõ ¿JW&ÈÍ¿lkØâ ¼»W( LKj lÄlj¾½NMó³LNÐÈKNÐÈð¡h†NkÔ^°êi²Kj ¿LKj lÄ¿KÈKÈõLÈLÈõÙW$_ÈOÈõLÈLÈõÙ:²KÈKÈõLÈLÈõ:³&KW$_ÈOÈõj¿LKj lÄ¿KlÐW$_ÈOÈõ lj_¿_¿OOó³LOÐÈKOÐÈð¡hˆOkÔ_°åi³-W$_ÈOÈõW$_ÈOÈõ:¨Kjd¿lj_¿_¿OOó³LOÐÈKOÐÈð¡hˆOkÔ_°åi´:Kj _ ÈO ÈõLÈLÈõLlÐ_"ÈO"ÈõLÈLÈõÙØ:´ Kj h(472 \VFMDelete 424 \VFMGet 373 \VFMInsert 288 \PUTSWAPPEDFIXP 259 \VFMGet 250 \VFMInsert 164 \VFMGet 155 \VFMDelete 112 \VFMGet 104 \VFMContextSet 95 \ALLOCBLOCK 71 \PUTSWAPPEDFIXP 47 \PUTSWAPPEDFIXP 31 \ALLOCBLOCK 15 OBTAIN.MONITORLOCK) (354 PageGroup 338 PageGroup 274 PageGroup 235 PageGroup 190 PageGroup 80 FileDescriptor 59 PageGroup 40 FileDescriptor 10 WITH.MONITOR 4 \VFMmonitor) () \VFMInsertPageGroup :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 groupPtr I 1 filePtr I 0 vol) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \VFMInsertPageGroupA0001) (7 SI::MONITOR-UNWIND) () \VFMContextSet :D8 (L (0 vol)) @NIL (5 \VFMvolumeHandle) () \VFMCreateVPage :D8 (P 3 \INTERRUPTABLE) i`dj ¿dlÐj ¿dlÐk ¿`` `IH³iol HZÈJÈõ(88 \LISPERROR 70 \VAMAllocPageGroup 55 ELT 50 \PFVolumeNumber 34 \PUTSWAPPEDFIXP 23 \PUTSWAPPEDFIXP 12 \PUTSWAPPEDFIXP) (95 PageGroup 63 \VFMvolumeHandle 45 \VFMvolumeHandle 40 \PFFileMapFileD 4 |PageGroupTYPE#|) ( 81 "File map Btree split failed.") \VFMDelete :D8 (P 3 volumePage P 2 lastFlag P 1 firstFlag P 0 nextKey I 1 deleteLevel I 0 deleteKey) IlkØâ 1@AgI² @AkØ ¿J–K ‰HKAkØ¿@Agh(69 \VFMFind 56 \VFMInsert 45 \VFMFreeVPage 36 \VFMDelete 24 \VFMFind 9 \ALLOCBLOCK) (64 \VFMDelete2 19 \VFMDelete1) () \VFMDelete1 :D8 (F 2 firstFlag F 3 lastFlag F 4 volumePage F 5 nextKey) w`j c``Èü c`È`ÈõcU`lÄR´:S³6`d`Ð`dÈü`ÙHIÍü¿I` h(114 \VFMMarkBufferDirty 104 \VFMSmartBLT 29 EQP 10 EQP) (109 \VFMbuffer 88 \VFMhighPtr 80 \VFMbuffer 74 \VFMhighPtr 68 \VFMbuffer 54 \VFMhigh 43 \VFMinterval 36 \VFMinterval 22 \VFMbuffer 17 \VFMhighPtr 4 \VFMlowPtr) () \VFMDelete2 :D8 (F 0 nextKey F 1 deleteLevel) £`PlÄ`lÐ`È`Èõ ``lÄ```lØÐ``Ð`Èü`Ù`dÈ`ÈõQ```ÈüØ`ÙÍü` (160 \VFMMarkBufferDirty 124 \VFMPutNext 102 \VFMSmartBLT 36 \PUTSWAPPEDFIXP) (155 \VFMbuffer 147 \VFMhighPtr 139 \VFMbuffer 134 \VFMlowPtr 129 \VFMbuffer 115 \VFMhigh 107 \VFMhigh 96 \VFMhighPtr 89 \VFMbuffer 83 \VFMhighPtr 78 \VFMbuffer 69 \VFMlowPtr 64 \VFMbuffer 59 \VFMlowPtr 54 \VFMoldPtr 46 \VFMold 41 \VFMlow 28 \VFMlow 21 \VFMlow 13 \VFMhigh 4 \VFMhigh) () \VFMFind :D8 (L (2 proc 1 level 0 key)) Í`@AkØ lÄ`È`Èõ ``HlÄ`lÐj ```lÄlÄj¿@` ²ïB `ÈülTñ³8ljIHó³`IÐÈ`IÐÈð¡h†IkÔY°âi«`A h(200 \VFMMerge 135 APPLY 127 \VFMLower 115 \VFMReadNext 73 \PUTSWAPPEDFIXP 36 \VFMGetBufferFor 13 \VFMGet) (194 \VFMold 172 \VFMmaxKey 163 \VFMinterval 140 \VFMbuffer 122 \VFMhigh 110 \VFMoldPtr 105 \VFMlowPtr 100 \VFMhighPtr 88 \VFMhigh 83 \VFMlow 78 \VFMold 64 \VFMhigh 54 \VFMhigh 46 \VFMinterval 41 \VFMbuffer 28 \VFMinterval 21 \VFMinterval 4 \VFMinterval) () \VFMFreeVPage :D8 (L (0 volumePage)) X`d@ ¿dlÐ@ ¿@kØHdlÐI ¿`` `IH@ (85 \VFMKillBuffer 78 \VAMFreePageGroup 63 ELT 58 \PFVolumeNumber 41 \PUTSWAPPEDFIXP 23 \PUTSWAPPEDFIXP 12 \PUTSWAPPEDFIXP) (71 \VFMvolumeHandle 53 \VFMvolumeHandle 48 \PFFileMapFileD 4 |PageGroupTYPE#|) () \VFMGet :D8 (P 0 \INTERRUPTABLE I 1 getLevel I 0 getKey) ¦Adló²¿iol Alð²AlkØâ Yd`lÄ¿IlÐ`È\`È[õ ¿IlÐ`lÄ¿`A lÄ@` ®@`lÐ ¬@Ag¿A (163 ELT 157 \VFMGetInterval 151 \VFMFind 138 \VFMLower 123 \VFMLower 109 ELT 103 \VFMGetInterval 78 \PUTSWAPPEDFIXP 43 \ALLOCBLOCK 23 \LISPERROR) (146 \VFMGet1 130 \VFMinterval 118 \VFMinterval 98 \VFMinterval 88 \VFMmaxKey 70 \VFMvolumeHandle 63 \VFMvolumeHandle 50 \VFMnullKey) ( 16 "Can't find BTree entry") \VFMGet1 :D8 (F 3 getLevel) GS !H´6`¹HIlÄ¿HlÐ`È`Èõ ¿`ºHlÐJlÄh(52 \PUTSWAPPEDFIXP 10 ELT 4 \VFMGetInterval) (58 \VFMhigh 44 \VFMhigh 37 \VFMhigh 21 \VFMlow) () \VFMInsert :D8 (P 0 splitFlag I 2 insertLevel I 1 insertVolumePage I 0 insertKey) )@BgH´@B ¿@Bgh(37 \VFMFind 24 \VFMSplit 14 \VFMFind) (32 \VFMInsert1 9 \VFMInsert1) () \VFMInsert1 :D8 (F 0 insertLevel F 1 splitFlag F 2 insertKey F 3 insertVolumePage) Å`Èülöñc‘h``Èüýñ²I``llÖØÐ``Ð`Èü`Ù¿R`È`ÈõP°-``lØÐ``Ð`Èü`Ù¿`SP```ÈüØ`ÙÍü` h(193 \VFMMarkBufferDirty 157 \VFMPutNext 144 \VFMSmartBLT 99 \VFMPutNext 76 \VFMSmartBLT) (188 \VFMbuffer 180 \VFMhighPtr 172 \VFMbuffer 167 \VFMlowPtr 162 \VFMbuffer 150 \VFMhigh 138 \VFMhighPtr 131 \VFMbuffer 125 \VFMhighPtr 120 \VFMbuffer 111 \VFMlowPtr 106 \VFMbuffer 90 \VFMhigh 83 \VFMhigh 70 \VFMhighPtr 63 \VFMbuffer 57 \VFMhighPtr 52 \VFMbuffer 40 \VFMlowPtr 35 \VFMbuffer 24 \VFMbuffer 19 \VFMlowPtr 4 \VFMbuffer) () \VFMLower :D8 (L (1 B 0 A)) e@È@ÈõAÈAÈõ@È@ÈõAÈAÈõ$jdHó§Ió‘iŠIH†Ió¡h‚HIóµ/HI:´*KJñµ%lj½¼MLó³AMÐÈ`MÐÈð¡hMkÔ]°æiNIL (83 \VFMmaxKey) () \VFMMerge :D8 (P 2 mergeFlag P 1 rightInterval P 0 leftInterval I 1 mergeLevel I 0 mergeKey) alkØâ lkØâ H@AkØ lÄHlÐAgHlÐAkØ JœIÈIÈõ IdÈIÈõAkØh(93 \VFMInsert 76 \VFMFreeVPage 62 \VFMDelete 50 \VFMFind 32 \VFMGet 19 \ALLOCBLOCK 9 \ALLOCBLOCK) (45 \VFMMerge1) () \VFMMerge1 :D8 (F 2 rightInterval F 3 leftInterval F 4 mergeLevel F 5 mergeFlag) R`lÄSÈSÈõ dÈüXTl:˜`jÍü¿lý`Èü`ÈüØñc ²2`HÐ`dÈü¿`dÈü`ÈüØÍü±‡¿``Èü`ÈüÙlÛýñ³á`HÐ``¿`d`Ð`Èü`Ù¿`dÈü`ØÍü¿`dÈü`ÙÍü¿`¹RIlÄ¿` ` h(263 \VFMMarkBufferDirty 253 \VFMMarkBufferDirty 196 \VFMSmartBLT 165 \VFMSmartBLT 115 \VFMReadNext 88 \VFMSmartBLT 23 \VFMGetBufferFor) (269 \VFMxtraBuffer 258 \VFMxtraBuffer 248 \VFMbuffer 236 \VFMlow 227 \VFMlowPtr 219 \VFMbuffer 210 \VFMlowPtr 202 \VFMxtraBuffer 190 \VFMlowPtr 183 \VFMbuffer 177 \VFMlowPtr 171 \VFMbuffer 160 \VFMlowPtr 155 \VFMbuffer 148 \VFMxtraBuffer 133 \VFMxtraBuffer 126 \VFMbuffer 121 \VFMlowPtr 102 \VFMbuffer 94 \VFMxtraBuffer 80 \VFMbuffer 73 \VFMxtraBuffer 60 \VFMxtraBuffer 53 \VFMbuffer 42 \VFMxtraBuffer 28 \VFMxtraBuffer 8 \VFMinterval) () \VFMPutNext :D8 (L (2 level 1 volumePage 0 key)) ¦``lÄ``@lÄ`lÐA ``Ð`lÄ`lØB``lkØâ ZdHlÄ¿JlÐ`È`Èõ ¿JlÐIlÄ¿` (163 \VFMMarkBufferDirty 153 SETA 137 \PUTSWAPPEDFIXP 106 \ALLOCBLOCK 82 \VFMGetInterval 45 \PUTSWAPPEDFIXP) (158 \VFMbuffer 129 \VFMlow 122 \VFMlow 93 \VFMlow 88 \VFMold 77 \VFMlowPtr 69 \VFMoldPtr 61 \VFMlow 55 \VFMlowPtr 50 \VFMbuffer 36 \VFMlow 27 \VFMlow 22 \VFMoldPtr 17 \VFMlowPtr 9 \VFMlow 4 \VFMold) () \VFMReadNext :D8 (P 0 \INTERRUPTABLE) ˜``Èüñ²iol ``lÄ```lÄ`d`Èüýñ²#```ÐlÄ`lØ``lÄ`lÐj (149 \PUTSWAPPEDFIXP 30 \LISPERROR) (140 \VFMhigh 132 \VFMmaxKey 127 \VFMhigh 121 \VFMhighPtr 113 \VFMhighPtr 104 \VFMhighPtr 99 \VFMbuffer 94 \VFMhigh 83 \VFMbuffer 77 \VFMlowPtr 72 \VFMhighPtr 64 \VFMhigh 59 \VFMlow 54 \VFMoldPtr 49 \VFMlowPtr 41 \VFMlow 36 \VFMold 9 \VFMbuffer 4 \VFMhighPtr) ( 23 "Read too far in ReadNext") \VFMSplit :D8 (P 1 page P 0 keyStone I 1 splitLevel I 0 splitKey) +lkØâ @AgHIAkØh(39 \VFMInsert 29 \VFMFind 14 \VFMCreateVPage 9 \ALLOCBLOCK) (24 \VFMSplit1) () \VFMSplit1 :D8 (F 2 page F 3 keyStone) §R j``HlÄ`lÐj ¿``ÈülÛñ²ê```Ð``Èü`ÙHIÍü¿IÄ``ÍüS`lÄ` ` h(158 \VFMMarkBufferDirty 148 \VFMMarkBufferDirty 53 \VFMReadNext 48 \PUTSWAPPEDFIXP 5 \VFMGetBufferFor) (164 \VFMxtraBuffer 153 \VFMxtraBuffer 143 \VFMbuffer 135 \VFMlow 127 \VFMlowPtr 122 \VFMbuffer 105 \VFMlowPtr 98 \VFMbuffer 93 \VFMxtraBuffer 87 \VFMlowPtr 82 \VFMbuffer 77 \VFMxtraBuffer 64 \VFMbuffer 59 \VFMhighPtr 39 \VFMhigh 29 \VFMhigh 21 \VFMinterval 16 \VFMhighPtr 10 \VFMxtraBuffer) () \VFMGetBufferFor :D8 (L (0 VOLPAGENUM)) ‹@ 1Hµs`d`¿dl@¿l »dK¿djÏ¿X`¿`@HÉ¿`` YZ›Ih¿iJ ¿HÉ`°ë(114 \VFMSaveBuffer 99 FNTH 83 \PFGetFileMapPage 35 \PUTBASEFIXP 5 \VFMKillBuffer) (135 \VFMbufferPool 129 \VFMbufferPool 121 \BTREEBUF 94 \VFMbufferSize 89 \VFMbufferPool 76 \BTREEBUF 69 \VFMvolumeHandle 63 \VFMbufferPool 57 \VFMbufferPool 23 \VFMvolumeHandle 16 |\BTREEBUFTYPE#|) () \VFMSaveBuffer :D8 (L (2 evenIfNotDirty 1 whichBuffers 0 notAll)) `@§`b¿AHd £H¹h„H¹H¸IdÊjð”¿B²áIÉIl IÉ¿IjÏ¿°±(80 \PFPutFileMapPage 67 \GETBASEFIXP) (87 \BTREEBUF 73 \BTREEBUF 60 \BTREEBUF 52 \BTREEBUF 36 \BTREEBUF 6 \VFMbufferPool) () \VFMClearBuffers :D8 NIL hNIL (5 \VFMbufferPool) () \VFMKillBuffer :D8 (L (0 VOLPAGENUM)) O`d²#@ ²``¿`!HYµhZµI°ó@ ²õJIJ¿(67 \VFMCorrectBufferP 15 \VFMCorrectBufferP) (41 \VFMbufferPool 34 \VFMbufferPool 28 \VFMbufferPool 22 \VFMbufferPool 4 \VFMbufferPool) () \VFMCorrectBufferP :D8 (L (1 VOLPAGENUM 0 BUFFER)) !@É`:´@l A:(28 \GETBASEFIXP) (21 \BTREEBUF 12 \VFMvolumeHandle 5 \BTREEBUF) () \VFMMarkBufferDirty :D8 (L (0 BUFFERPAGE)) 8`HµhkÏ¿kjðhðh¹@IÉ:•Iµài°ÝHX°ÔNIL (39 \BTREEBUF 18 \BTREEBUF 4 \VFMbufferPool) () \VFMCreateIntervals :D8 NIL Xg ²;`Ã²/` Hjðµ H´H ` l ð¯l hdjh(78 ARRAY 64 ARRAYSIZE 52 \FZEROP 33 ARRAYORIG 9 BOUNDP) (83 \VFMintervals 59 \VFMintervals 28 \VFMintervals 21 ARRAYP 16 \VFMintervals 4 \VFMintervals) () \VFMClearIntervals :D8 NIL l jIHó‘h`Ih¿IkÔY°ê(23 SETA) (16 \VFMintervals) () \VFMGetInterval :D8 NIL ®` 1`H µ2`Hjllhdj`È\`È[õLMó—NO ¿NM`¹lkØâ Zd`lÄ¿JlÐ`È`Èõ ¿JlÐIlÄ¿[ÈKÈõ_¿MmÿÔ½°”(155 SETA 140 \PUTSWAPPEDFIXP 105 \ALLOCBLOCK 81 \VFMGetBufferFor 73 SETA 44 ARRAY 23 ELT 9 \PFVolumeNumber) (132 \VFMbuffer 125 \VFMbuffer 112 \VFMnullKey 94 \VFMbuffer 86 \VFMbuffer 56 \VFMvolumeHandle 49 \VFMvolumeHandle 30 \VFMintervals 17 \VFMintervals 4 \VFMvolumeHandle) () \VFMBlankInterval :D8 NIL T` 1`H µ"`Hlhdj»ljº¹JIó–KKJlkØâ ¿JkÔZ°à(75 SETA 70 \ALLOCBLOCK 57 SETA 41 ARRAY 23 ELT 9 \PFVolumeNumber) (30 \VFMintervals 17 \VFMintervals 4 \VFMvolumeHandle) () \VFMSmartBLT :D8 (L (2 NWORDS 1 SBASE 0 DBASE)) UAÒ@ÒñAÒ@Òð²DAÓ@Óñ²=@BÐHÒAÒñµHÒAÒð´HÓAÓñ²!BkÙjIHó³@IÐAIÐÈÍ¿IkÔY°í@@ABÄNIL NIL () \VFMAtLoad :D8 NIL ¯mÿlkØâ Xd` ¿HlÐo ¿lkØâ hlkØâ lkØâ lkØâ lkØâ jddg (167 CREATE.MONITORLOCK 157 \VFMCreateIntervals 129 \ALLOCBLOCK 114 \ALLOCBLOCK 99 \ALLOCBLOCK 84 \ALLOCBLOCK 63 \ALLOCBLOCK 46 \PUTSWAPPEDFIXP 31 \PUTSWAPPEDFIXP 19 \ALLOCBLOCK) (172 \VFMmonitor 162 \VFMmonitor 152 \VFMhighPtr 146 \VFMlowPtr 140 \VFMoldPtr 134 \VFMhigh 119 \VFMlow 104 \VFMold 89 \VFMinterval 74 \VFMvolumeHandle 68 \VFMnullKey 53 \VFMmaxKey 26 \VFMmaxID 6 \VFMmaxID) ( 41 8388606) (PRETTYCOMPRINT LOCALFILECOMS) (RPAQQ LOCALFILECOMS ((* ;;; "This is the Dandelion/Dove local hard disk file system.") (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) DISKVMEMDECLS) (FILES MESATYPES) (LOCALVARS . T)) (* ;;; "Declare low-level data types on which all file system modules depend.") (FNS \PFFetchString \PFReplaceString) (DECLARE%: EVAL@COMPILE DONTCOPY (COMS * PILOTFILECOMPILECOMS)) (INITRECORDS PageGroup FileDescriptor) (* ;;; "Define the various modules of the file system.") (COMS * LFCOMS) ( COMS * LFDIRECTORYCOMS) (COMS * SCAVENGEDSKDIRECTORYCOMS) (COMS * LFPILOTFILECOMS) (COMS * LFALLOCATIONMAPCOMS) (COMS * LFFILEMAPCOMS) (PROP MAKEFILE-ENVIRONMENT LOCALFILE))) (/DECLAREDATATYPE (QUOTE PageGroup) (QUOTE (SWAPPEDFIXP SWAPPEDFIXP SWAPPEDFIXP)) (QUOTE ((PageGroup 0 SWAPPEDFIXP) (PageGroup 2 SWAPPEDFIXP) (PageGroup 4 SWAPPEDFIXP))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE FileDescriptor) (QUOTE (POINTER FIXP WORD FIXP POINTER)) (QUOTE (( FileDescriptor 0 POINTER) (FileDescriptor 2 FIXP) (FileDescriptor 4 (BITS . 15)) (FileDescriptor 5 FIXP) (FileDescriptor 8 POINTER))) (QUOTE 10)) (RPAQQ LFCOMS ((* ;;; "This module handles the interface to the device-independent part of the file system: it provides a vector of standard device-specific file system operations. This used to be the sole contents of the file LOCALFILE." ) (DECLARE%: EVAL@COMPILE DONTCOPY (* ;; "File system datatypes") (CONSTANTS (lispFileVersion 2) ( leaderPageSeal 54321)) (RECORDS LFDEV DLIONSTREAM LeaderPage) (* ;; "Error mechanism") (MACROS DiskError)) (* ;; "Public entry") (FNS CREATEDSKDIRECTORY PURGEDSKDIRECTORY LISPDIRECTORYP VOLUMES VOLUMESIZE) (FNS \DFSCurrentVolume \DFSFreeDiskPages) (FNS \LFEntryPoint \LFNormalizeVolumeName) (* ;; "Device management") (FNS \LFCreateDevice \LFOpenDevice \LFCloseDevice) (GLOBALVARS \LFdevice \LFtopMonitor \LFrunSize) (P (\LFCreateDevice)) (INITVARS (\LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (\LFrunSize 20)) (* ;; "Device methods") (FNS \LFOpenFile \LFGetStreamForFile \LFOpenOldFile \LFGenFileID \LFCreateFile \LFMakeLeaderPage \LFUpdateLeaderPage \LFWriteLeaderPage) ( FNS \LFCloseFile) (FNS \LFDeleteFile) (FNS \LFReadPages) (FNS \LFWritePages \LFExtendFileIfNecessary \LFExtendFile) (FNS \LFGetFileInfo \LFSetFileInfo) (FNS \LFGetFileName) (FNS \LFEventFn) (FNS \LFDirectoryNameP) (FNS \LFTruncateFile) (FNS \LFRenameFile))) (\LFCreateDevice) (RPAQ? \LFtopMonitor (CREATE.MONITORLOCK (QUOTE topMonitor))) (RPAQ? \LFrunSize 20) (RPAQQ LFDIRECTORYCOMS ((* ;;; "This module handles the Lisp directory part of the file system. The Lisp directory maps literal file names onto Pilot file ID numbers (which can then be looked up in the volume file map). This module used to be in the file LFDIRECTORY." ) (* ;; "Known problem: the directory is currently stored as a list rather than a tree, so searches in a large directory take quite some time." ) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (directorySize 50)) (RECORDS GenerateFileState GeneratedFile DIRSEARCHSTATE PARSEDFILENAME ExpandedName DFSFileSpec) (MACROS CONDCONCAT) (MACROS PRINTDIRECTORY)) (* ;; "Format of a directory entry is : ") (* ;; "bang (check ; should always contain !) ") (* ;; "type (0 = hole, 1 = file) ") (* ;; "entryLength ") (* ;; "fileID (4 bytes) ") (* ;; "version# (2 bytes) ") (* ;; "filenameLength ") (* ;; "filename (filenameLength bytes)") (* ;; "Routines for mapping file names onto volumes and directories") (FNS \LFFindDirectory \LFFindDirectoryVol \LFParseFileName) (* ;; "Creating and opening directories") (FNS \LFMakeVolumeDirectory \LFDirectoryP \LFPurgeDirectory \LFCloseDirectory) (* ;; "Functions for making, deleting, and finding entries in a directory.") (FNS \LFMakeDirEntry \LFRemoveDirEntry \LFReadFileID \LFFindDirHole \LFMakeDirHole \LFCheckBang) (FNS \LFDirectorySearch \LFVersions) (FNS \LFFileSpec \LFUnpackName \LFFullFileName \LFFileName) (FNS \LFDirectoryScrambled) ( FNS \LFDWIN \LFDWOUT) (* ;; "Directory enumeration") (FNS \LFGenerateFiles \LFFindNextFile \LFSortFiles \LFHighestVersions \LFFindInfo \LFReturnNextFile \LFReturnInfo) (GLOBALVARS \LFtopMonitor ) (* ;; "Holding onto directory streams") (FNS \LFGetDirectory \LFPutDirectory \LFCreateDirectories) ( GLOBALVARS \LFdirectories) (P (\LFCreateDirectories)) (* ;; "Case array manipulation") (FNS \LFINITCASEARRAY \LFCASEARRAYFETCH) (GLOBALVARS \LFCASEARRAY \DISKNAMECASEARRAY) (INITVARS ( \LFCASEARRAY (\LFINITCASEARRAY))))) (\LFCreateDirectories) (RPAQ? \LFCASEARRAY (\LFINITCASEARRAY)) (RPAQQ SCAVENGEDSKDIRECTORYCOMS ((* ;;; "This module contains routines for scavenging the Lisp directory in the event that it should become smashed. It used to be in the file SCAVENGEDSKDIRECTORY." ) (* ;; "Directory (LFDIRECTORY) level stuff") (FNS FILENAMEFROMID SCAVENGEDSKDIRECTORY SCAVENGEVOLUME \LFScavFileName \LFScavVersion) (GLOBALVARS \LFtopMonitor) (* ;; "Volume file map (LFFILEMAP) level stuff") (FNS \VFMGenerateFileIDs))) (RPAQQ LFPILOTFILECOMS ((* ;;; "This module (together with its two sub-modules, FILEMAP and ALLOCATIONMAP) define the necessary subset of the Pilot file system. This used to be contained in the file LFPILOTFILE." ) (* ;; "These functions transfer pages to and from the disk") (FNS \PFGetPhysicalVolumePage) (FNS \PFGetLogicalVolumePage \PFPutLogicalVolumePage) (FNS \PFGetMarkerPage \PFPutMarkerPage) (FNS \PFGetFreePage \PFCreateFreePage) (FNS \PFGetAllocationMapPage \PFPutAllocationMapPage) (FNS \PFGetFileMapPage \PFPutFileMapPage) (FNS \PFGetPage \PFPutPage \PFCreatePage) (FNS \PFTransferFilePage) (FNS \PFTransferPage) (DECLARE%: DONTEVAL@LOAD (P (\LOCKFN (QUOTE \PFTransferPage )))) (RESOURCES label) (* ;; "File Descriptor pool for system files") (FNS \PFCreateFileDescriptors \PFInitFileDescriptors) (GLOBALVARS \PFLogicalVolumeFileD \PFMarkerFileD \PFFreeFileD \PFAllocationMapFileD \PFFileMapFileD) (P (\PFCreateFileDescriptors)) (* ;; "Physical volume interface") (FNS \PFCreatePhysicalVolume) (GLOBALVARS \PhysVolumePage) (P ( \PFCreatePhysicalVolume)) (* ;; "Interface to logical volumes,") (FNS \PFCreateVols \PFInitializeVols \PFGetVols \PFGetVol \PFVolumeNumber) (GLOBALVARS \DFSLogicalVolumes \DFSLogicalVolumeHash) (P ( \PFCreateVols)) (FNS \PFGetLVPage) (* ;; "Pilot integrity") (FNS \PFVersionOK \PFPilotVolumeP) (* ;; "Pilot initialization") (FNS \PFEnsureInitialized) (GLOBALVARS \PFInitialized) (INITVARS ( \PFInitialized NIL) \PFDebugFlag) (P (ADDTOVAR \SYSTEMCACHEVARS \PFInitialized)) (P ( \PFEnsureInitialized)) (* ;; "Root directory management") (FNS \PFFindDirectoryID \PFInsertDirectoryID \PFRemoveDirectoryID) (FNS \PFFindRootDirEntry \PFAddRootDirEntry \PFRemoveRootDirEntry \PFFindRootDirEntryNum \PFPatchRootDirEntries) (FNS \PFGetRootDirectory \PFPutRootDirectory \PFCreateRootDirectory \PFPurgeRootDirectory) (FNS \GetRootDirectoryType \PFPutRootDirectoryType) (* ;; "Pilot file management") (FNS \PFNewPages \PFTrimHelper \PFFindPageAddr \PFFindFileSize \PFFreeDiskPages \PFRoomForFile \PFSaveBuffers) (* ;; "Lisp vmem") (FNS \PFCurrentVol) (* ;; "Display stub; real volume display stuff is implemented on a library package called VOLUMEDISPLAY.") (FNS \PFDsplyVolumes))) (\LOCKFN (QUOTE \PFTransferPage)) (PUTDEF (QUOTE label) (QUOTE RESOURCES) (QUOTE (NEW (create Label) GET (CL:LOCALLY (DECLARE ( GLOBALVARS \label.GLOBALRESOURCE)) (if \label.GLOBALRESOURCE then (PROG1 \label.GLOBALRESOURCE ( \CLEARWORDS \label.GLOBALRESOURCE (MESASIZE Label)) (SETQ \label.GLOBALRESOURCE NIL)) else ( NEWRESOURCE label)))))) (\PFCreateFileDescriptors) (\PFCreatePhysicalVolume) (\PFCreateVols) (RPAQ? \PFInitialized NIL) (RPAQ? \PFDebugFlag NIL) (ADDTOVAR \SYSTEMCACHEVARS \PFInitialized) (\PFEnsureInitialized) (RPAQQ LFALLOCATIONMAPCOMS ((* ;;; "Implements the 1108 file system volume file map. Very roughly translates the Pilot file VolAllocMapImpl.mesa. Used to be contained in the separate file LFALLOCATIONMAP. Must be loaded after the PILOTFILE module." ) (* ;; "Needed improvement : Restructure interface with FILEIO so that a page can be allocated and written in one fell swoop. MFile/Pilot have a special interface for this." ) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BITSPERPAGE 4096))) (* ;; "Public routines") (FNS \VAMAllocPageGroup \VAMFreePageGroup \VAMInit \VAMRecomputeFreePageCount) (* ;; "Private routines:") ( FNS \VAMFilePageNumber \VAMEnoughSpace \VAMFindFreePages \VAMCheckEndOfVol \VAMUpdateVAM \VAMAdjustGroup) (RESOURCES \DFSVAMpage \DFSVAMjunkPage) (GLOBALVARS \VAMmonitor) (INITVARS ( \VAMmonitor (CREATE.MONITORLOCK (QUOTE VAMmonitor)))) (* ;; "buffer management") (FNS \VAMGetVAMPageFor \VAMBufferInit \VAMBufferSave \VAMMarkBufferDirty) (GLOBALVARS \VAMbuffer \VAMbufferVolume \VAMbufferVolumePage \VAMbufferDirty) (* ;; "Initialize VAM") (P (\VAMInit)))) (PUTDEF (QUOTE \DFSVAMpage) (QUOTE RESOURCES) (QUOTE (NEW (create Page)))) (PUTDEF (QUOTE \DFSVAMjunkPage) (QUOTE RESOURCES) (QUOTE (NEW (create Page)))) (RPAQ? \VAMmonitor (CREATE.MONITORLOCK (QUOTE VAMmonitor))) (\VAMInit) (RPAQQ LFFILEMAPCOMS ((* ;;; "Implements the volume file map, which maps Pilot file ID numbers onto runs of disk pages. Roughly equivalent to the Pilot file VolFileMapImpl.mesa. Must be loaded after the PILOTFILE module. Used to be contained in a separate file called LFFILEMAP." ) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS Key Interval Index BufferArray Buffer) (RECORDS \BTREEBUF) (CONSTANTS (maxReadPtr (DIFFERENCE (MESASIZE Buffer) (MESASIZE Index))) (treeDepth 5)) (FNS ShowIntervals)) (INITRECORDS \BTREEBUF) (* ;; "Initialization routines") (FNS \VFMInit) (* ;; "The following are public entry points to the volume file map module") (FNS \VFMDeletePageGroup \VFMGetPageGroup \VFMInsertPageGroup) (* ;; "The following are routines internal to the volume file map module.") (FNS \VFMContextSet \VFMCreateVPage \VFMDelete \VFMDelete1 \VFMDelete2 \VFMFind \VFMFreeVPage \VFMGet \VFMGet1 \VFMInsert \VFMInsert1 \VFMLower \VFMMerge \VFMMerge1 \VFMPutNext \VFMReadNext \VFMSplit \VFMSplit1) (GLOBALVARS \VFMmaxID \VFMmaxKey \VFMnullKey \VFMvolumeHandle \VFMinterval \VFMold \VFMlow \VFMhigh \VFMoldPtr \VFMlowPtr \VFMhighPtr \VFMmonitor) (* ;; "Buffer management") (FNS \VFMGetBufferFor \VFMSaveBuffer \VFMClearBuffers \VFMKillBuffer \VFMCorrectBufferP \VFMMarkBufferDirty) (GLOBALVARS \VFMbufferPool \VFMbufferSize \VFMbuffer \VFMxtraBuffer) (INITVARS (\VFMbufferSize 10)) (* ;; "Interval cache interface") (FNS \VFMCreateIntervals \VFMClearIntervals \VFMGetInterval \VFMBlankInterval) (GLOBALVARS \VFMintervals) (* ;; "BLT routine that doesn't stomp on itself for overlapping intervals") (FNS \VFMSmartBLT) (* ;; "Loading initialization") (FNS \VFMAtLoad) (P (\VFMAtLoad)))) (/DECLAREDATATYPE (QUOTE \BTREEBUF) (QUOTE (POINTER FIXP POINTER FLAG)) (QUOTE ((\BTREEBUF 0 POINTER) (\BTREEBUF 2 FIXP) (\BTREEBUF 4 POINTER) (\BTREEBUF 4 (FLAGBITS . 0)))) (QUOTE 6)) (RPAQ? \VFMbufferSize 10) (\VFMAtLoad) (PUTPROPS LOCALFILE MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) NIL