(FILECREATED "20-Sep-84 17:34:59" ("compiled on " {ERIS}DFS11>VOLUMEDIRECTORY.;20) "15-Sep-84 03:34:49" tcompl'd in "INTERLISP-D 15-Sep-84 ..." dated "15-Sep-84 03:48:38") (FILECREATED "20-Sep-84 17:27:07" {ERIS}DFS11>VOLUMEDIRECTORY.;20 30513 changes to: (FNS \DFSFileSpec \DFSGenerateFiles \DFSNextFileFn \DFSOpenDirectory \DFSMakeDirEntry \DFSVersions \DFSUnpackName \DFSFullFileName \DFSFileName) (VARS VOLUMEDIRECTORYCOMPILECOMS) previous date: "14-Sep-84 17:32:03" {ERIS}DFS11>VOLUMEDIRECTORY.;14) \DFSMakeVolumeDirectory D1 (P 23Q file P 22Q directoryID P 21Q dirName P 20Q markerPage P 0 \INTERRUPTABLE I 0 vol)  @`lK@dT`@kj2OO(`O(_OOh__Ok_O&_Oj Ohg jKKdl g Kl j\ L g@kj2OOO gggk  @ @l@l_O$ @j@ O laO lMO$ @`lK@d0`@kj2OOHOj O_hg _jOOdl g Ol j_ O O @l_l _dO$ OlOlĿOgOh Oh Oj_&@O&`dj dlj dll2 @O&O" o @kj2OOO o h h_ljJI@JOJhJkZiOJO_Ok_0@lO_OOh__Ok_UO&_`O(_OOh__Ok_O&__ljNM@NONhNk^iO~O_Ok_d@lO_OOh__Ok_O&_(750Q TERPRI 743Q PRIN1 733Q PRIN1 730Q U-CASE 725Q PACKC 674Q PRIN1 665Q \DFSMakeLeaderPage 655Q \DFSNewPages 651Q \PUTSWAPPEDFIXP 637Q \PUTSWAPPEDFIXP 626Q \PUTSWAPPEDFIXP 542Q \PUTSWAPPEDFIXP 532Q \ALLOCBLOCK 516Q \LvPutPage 467Q ERROR 441Q SHOULDNT 343Q \PUTSWAPPEDFIXP 322Q \LvPutPage 314Q \PUTSWAPPEDFIXP 273Q \DFSGenFileID 267Q \DFSUnpackName 264Q PACKFILENAME 246Q U-CASE 243Q PACKC 210Q \LvGetPage 166Q ERROR 144Q SHOULDNT) (1117Q \DFSLogicalVolumes 620Q PageGroupTYPE# 563Q local 464Q indexOutOfRange 436Q cantFindLogicalVolume 366Q \PhysVolumePage 347Q \PhysVolumePage 257Q VERSION 254Q DIRECTORY 251Q NAME 213Q HOST 163Q indexOutOfRange 141Q cantFindLogicalVolume 47Q \DFSLogicalVolumes 25Q \PhysVolumePage 6 \PhysVolumePage) ( 740Q ">." 671Q "Created Lisp file directory {DSK}<") \DFSOpenDirectory D1 (P 10Q stream P 0 \INTERRUPTABLE I 0 vol) ? 0ggg@kj2LK @lL_NOh^Lk\O&M gggk  hh@`@_ g Ol2`@dC`@kj2LK`L(_NOh^Lk\O&MjK@hg O*o @kj2LKKM o h OljJI@JMJhJkZiLKLkؼ@lL_NOh^Lk\O&(356Q TERPRI 351Q PRIN1 341Q PRIN1 336Q U-CASE 333Q PACKC 307Q PRIN1 275Q SHOULDNT 144Q \OPENFILE 136Q \DFSOpenOldFile 120Q \DFSUnpackName 115Q PACKFILENAME 77Q U-CASE 74Q PACKC) (272Q cantFindLogicalVolume 217Q \DFSLogicalVolumes 177Q \PhysVolumePage 163Q \DFSdirectories 154Q STREAM 141Q BOTH 110Q VERSION 105Q DIRECTORY 102Q NAME 13Q DIRECTORY 10Q DSK 5 HOST) ( 346Q ">." 304Q "Opened local file system directory {DSK}<") \DFSMakeDirEntry D1 (P 7 C P 6 SIZE P 5 POS P 4 NC P 0 \INTERRUPTABLE I 2 DirStream I 1 UNAME I 0 stream) @A !Ll ^dB ]B@ YI BL AdBlaOOOl Bl! BAZK JKl BM Bd l @MB Bg h(213Q \DFSUpdateLeaderPage 204Q FORCEOUTPUT 171Q \BOUT 163Q \PEEKBIN 156Q \SETFILEPTR 150Q \BOUT 137Q \BOUT 124Q \BOUT 111Q \BOUT 54Q \BOUT 47Q \DWOUT 25Q \DFSFindDirHole 7 LENGTH) (210Q BOTH 175Q STREAM 33Q STREAM) () \DFSFindDirHole D1 (P 2 C P 1 T1 P 0 PTR I 1 DIRSTREAM I 0 WDS) |Aj1AH A4AkKHA ZlA HIdظ@JA YAH I@!I@ٹAI AIl AHIdX A@ A@l H(170Q \BOUT 157Q \BOUT 150Q \SETFILEPTR 135Q \BOUT 124Q \BOUT 104Q \SETFILEPTR 20Q \SETFILEPTR) (32Q FDEV 25Q STREAM 3 STREAM) () \DFSReadFileID D1 (I 1 position I 0 directory) @Al @ (13Q \DWIN 7 \SETFILEPTR) NIL () \DFSRemoveDirEntry D1 (P 0 \INTERRUPTABLE I 1 dirStream I 0 stream) A@ Ad l A (33Q FORCEOUTPUT 27Q \BOUT 21Q \PEEKBIN 14Q \SETFILEPTR) (7 STREAM) () \DFSDirectorySearch D1 (P 11Q CH P 10Q ENTRYLENGTH P 7 TYP P 6 CHPAIR P 5 L P 4 PTR P 3 TARGETLENGTH P 2 THISNAMELENGTH P 1 CHARPAIRS P 0 NEXT I 2 HMIN I 1 TLIST I 0 STREAM) AA B@hI @H\ @ h@ _l@ _LظOkBBO@Lhb@Ll @ ZKI] AHJK@ _NONM(133Q \SETFILEPTR 40Q EOFP 33Q \SETFILEPTR 24Q LENGTH) (111Q STREAM 14Q STREAM) () \DFSVersions D1 (P 15Q L2 P 14Q OLDESCLIST P 13Q L1 P 12Q CHARLIST P 11Q END P 10Q V P 7 RESULT P 6 NCHARSLEFT P 5 PTR P 4 LASTBANG P 3 FIXEDVERSION P 2 TLIST P 1 ESC P 0 LEN1 I 2 HMIN I 1 STREAM I 0 UNAME) b@ l@j@@dKIKjhBiHlbAJB ^9I3O/@0O dh_$O& O$h_(O$&_&O( OA kN__h_OOA O_Ok_A l!g A A _IOiO_jMHٽKKOK~OMhOO_"_ O O"hO"O dO"dO"l hh_ O"_"OOdOOMO_"_dOOOOOMOBAh(246Q SHOULDNT 165Q GETFILEPTR 156Q \NCONC2 112Q DREVERSE 67Q \DFSDirectorySearch 4 LENGTH) (526Q STREAM 243Q badDirectoryEntry) () \DFSFileSpec D1 (P 4 L P 3 V P 2 DP P 1 UNAME P 0 \INTERRUPTABLE I 2 DIROFD I 1 RECOG I 0 NAME) iBo @ 1IddhBAgAgi \FIAdgdgL #dgL khgLIL [dKGAIdgdgIdh(dkdgdghIdIKIJh(155Q SASSOC 127Q LAST 111Q LAST 57Q \DFSVersions 22Q \DFSUnpackName 14Q SHOULDNT) (254Q OLDEST 246Q OLD 207Q OLD/NEW 201Q NEW 141Q OLDEST 120Q NEW 102Q OLD/NEW 74Q OLD 50Q OLD/NEW 42Q NEW) ( 11Q (Assert-failure: DIROFD)) \DFSUnpackName D1 (P 7 directoryInfo P 6 VOLNUM P 5 RESULT P 4 VERSION P 3 NEGATEDVERSION P 2 END P 1 C P 0 J I 0 NAME) @ _ ^hhNhh]O@H)YJlAIIlZIdl hlaIIlzIdl h}l0IIdl9nIl;Idl!𔿿lRlIdl*Mi@HkX)Yl. @Hk)Pdl;dl!Hkظ[Idl$dl+l-Ih&HkرM9lLIdllglNIdlnBg@HkX)Ydl;Il!@HkX)YlHIdlh𲷿g@HkX)YlT,Ilt&IlS IlsIlAIlaIlPIdlp@HkX)dl;dl!𒿰~l-Lij@HkX)YI}LwjI!l0IIl9Ll Il0ؼ@HkX)YKLdkgl>gLdjgn$IdMLM(14Q \DFSVolumeNameToNumber 6 \DFSFirstDirectory) (743Q OLD 727Q OLDEST 712Q NEW 447Q OLD 366Q NEW 346Q OLDEST) () \DFSFullFileName D1 (I 0 UNAME) W@Rggg`@(Hkj2JIHlJ½L Mh\JkZM&K g@ (124Q PACKFILENAME 120Q \DFSFileName 110Q U-CASE 105Q PACKC) (114Q NAME 20Q \DFSLogicalVolumes 15Q DIRECTORY 12Q DSK 7 HOST) () \DFSFileName D1 (I 0 uname) K@@dlaKKKl ٸIHhZH&Jl.@ oo@ (110Q PACKC 105Q \NCONC2 102Q \APPEND2 77Q CHCON 57Q FASSOC) NIL ( 71Q (56Q 73Q) 64Q (73Q)) \DWIN D1 (I 0 FILE) @ @ @ @ NIL NIL () \DWOUT D1 (I 1 NUMBER I 0 FILE) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () \DFSGenerateFiles D1 (P 20Q C P 14Q I P 5 CHARLIST P 4 HOSTNAME P 3 directoryInfo P 2 DIROFD P 0 \INTERRUPTABLE I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV) R A A "JghhgAg gJYkj2 ON)IlO_OOh__Ok_O&_O \AK bd kBOO]ggJLhdjM_ _ laO O lzO dlalAhjlAO O dlZdlAlahPO lO l*O l;O dl?𒿰l.(AOk)dldl*dl?dl;dihcO h_OOh__O_Ok_:O&_(242Q CHCON1 173Q UNPACK 165Q SUBATOM 154Q PACKFILENAME 151Q U-CASE 146Q PACKC 41Q FILENAMEFIELD 12Q \DFSFirstDirectory 6 \DFSFileNameToDirectory) (216Q \DFSFileInfoFn 213Q \DFSNextFileFn 50Q STREAM 44Q DIRECTORY 36Q HOST 32Q HOST 22Q NILL) () (FILECREATED "20-Sep-84 19:35:16" ("compiled on " {ERIS}DFS11>VOLUMEDIRECTORY.;20) "15-Sep-84 03:34:49" tcompl'd in "INTERLISP-D 15-Sep-84 ..." dated "15-Sep-84 03:48:38") (FILECREATED "20-Sep-84 17:27:07" {ERIS}DFS11>VOLUMEDIRECTORY.;20 30513 changes to: (FNS \DFSFileSpec \DFSGenerateFiles \DFSNextFileFn \DFSOpenDirectory \DFSMakeDirEntry \DFSVersions \DFSUnpackName \DFSFullFileName \DFSFileName) (VARS VOLUMEDIRECTORYCOMPILECOMS) previous date: "14-Sep-84 17:32:03" {ERIS}DFS11>VOLUMEDIRECTORY.;14) \DFSMakeVolumeDirectory D1 (P 23Q file P 22Q directoryID P 21Q dirName P 20Q markerPage P 0 \INTERRUPTABLE I 0 vol)  @`lK@dT`@kj2OO(`O(_OOh__Ok_O&_Oj Ohg jKKdl g Kl j\ L g@kj2OOO gggk  @ @l@l_O$ @j@ O laO lMO$ @`lK@d0`@kj2OOHOj O_hg _jOOdl g Ol j_ O O @l_l _dO$ OlOlĿOgOh Oh Oj_&@O&`dj dlj dll2 @O&O" o @kj2OOO o h h_ljJI@JOJhJkZiOJO_Ok_0@lO_OOh__Ok_UO&_`O(_OOh__Ok_O&__ljNM@NONhNk^iO~O_Ok_d@lO_OOh__Ok_O&_(750Q TERPRI 743Q PRIN1 733Q PRIN1 730Q U-CASE 725Q PACKC 674Q PRIN1 665Q \DFSMakeLeaderPage 655Q \DFSNewPages 651Q \PUTSWAPPEDFIXP 637Q \PUTSWAPPEDFIXP 626Q \PUTSWAPPEDFIXP 542Q \PUTSWAPPEDFIXP 532Q \ALLOCBLOCK 516Q \LvPutPage 467Q ERROR 441Q SHOULDNT 343Q \PUTSWAPPEDFIXP 322Q \LvPutPage 314Q \PUTSWAPPEDFIXP 273Q \DFSGenFileID 267Q \DFSUnpackName 264Q PACKFILENAME 246Q U-CASE 243Q PACKC 210Q \LvGetPage 166Q ERROR 144Q SHOULDNT) (1117Q \DFSLogicalVolumes 620Q PageGroupTYPE# 563Q local 464Q indexOutOfRange 436Q cantFindLogicalVolume 366Q \PhysVolumePage 347Q \PhysVolumePage 257Q VERSION 254Q DIRECTORY 251Q NAME 213Q HOST 163Q indexOutOfRange 141Q cantFindLogicalVolume 47Q \DFSLogicalVolumes 25Q \PhysVolumePage 6 \PhysVolumePage) ( 740Q ">." 671Q "Created Lisp file directory {DSK}<") \DFSOpenDirectory D1 (P 10Q stream P 0 \INTERRUPTABLE I 0 vol) ? 0ggg@kj2LK @lL_NOh^Lk\O&M gggk  hh@`@_ g Ol2`@dC`@kj2LK`L(_NOh^Lk\O&MjK@hg O*o @kj2LKKM o h OljJI@JMJhJkZiLKLkؼ@lL_NOh^Lk\O&(356Q TERPRI 351Q PRIN1 341Q PRIN1 336Q U-CASE 333Q PACKC 307Q PRIN1 275Q SHOULDNT 144Q \OPENFILE 136Q \DFSOpenOldFile 120Q \DFSUnpackName 115Q PACKFILENAME 77Q U-CASE 74Q PACKC) (272Q cantFindLogicalVolume 217Q \DFSLogicalVolumes 177Q \PhysVolumePage 163Q \DFSdirectories 154Q STREAM 141Q BOTH 110Q VERSION 105Q DIRECTORY 102Q NAME 13Q DIRECTORY 10Q DSK 5 HOST) ( 346Q ">." 304Q "Opened local file system directory {DSK}<") \DFSMakeDirEntry D1 (P 7 C P 6 SIZE P 5 POS P 4 NC P 0 \INTERRUPTABLE I 2 DirStream I 1 UNAME I 0 stream) @A !Ll ^dB ]B@ YI BL AdBlaOOOl Bl! BAZK JKl BM Bd l @MB Bg h(213Q \DFSUpdateLeaderPage 204Q FORCEOUTPUT 171Q \BOUT 163Q \PEEKBIN 156Q \SETFILEPTR 150Q \BOUT 137Q \BOUT 124Q \BOUT 111Q \BOUT 54Q \BOUT 47Q \DWOUT 25Q \DFSFindDirHole 7 LENGTH) (210Q BOTH 175Q STREAM 33Q STREAM) () \DFSFindDirHole D1 (P 2 C P 1 T1 P 0 PTR I 1 DIRSTREAM I 0 WDS) |Aj1AH A4AkKHA ZlA HIdظ@JA YAH I@!I@ٹAI AIl AHIdX A@ A@l H(170Q \BOUT 157Q \BOUT 150Q \SETFILEPTR 135Q \BOUT 124Q \BOUT 104Q \SETFILEPTR 20Q \SETFILEPTR) (32Q FDEV 25Q STREAM 3 STREAM) () \DFSReadFileID D1 (I 1 position I 0 directory) @Al @ (13Q \DWIN 7 \SETFILEPTR) NIL () \DFSRemoveDirEntry D1 (P 0 \INTERRUPTABLE I 1 dirStream I 0 stream) A@ Ad l A (33Q FORCEOUTPUT 27Q \BOUT 21Q \PEEKBIN 14Q \SETFILEPTR) (7 STREAM) () \DFSDirectorySearch D1 (P 11Q CH P 10Q ENTRYLENGTH P 7 TYP P 6 CHPAIR P 5 L P 4 PTR P 3 TARGETLENGTH P 2 THISNAMELENGTH P 1 CHARPAIRS P 0 NEXT I 2 HMIN I 1 TLIST I 0 STREAM) AA B@hI @H\ @ h@ _l@ _LظOkBBO@Lhb@Ll @ ZKI] AHJK@ _NONM(133Q \SETFILEPTR 40Q EOFP 33Q \SETFILEPTR 24Q LENGTH) (111Q STREAM 14Q STREAM) () \DFSVersions D1 (P 15Q L2 P 14Q OLDESCLIST P 13Q L1 P 12Q CHARLIST P 11Q END P 10Q V P 7 RESULT P 6 NCHARSLEFT P 5 PTR P 4 LASTBANG P 3 FIXEDVERSION P 2 TLIST P 1 ESC P 0 LEN1 I 2 HMIN I 1 STREAM I 0 UNAME) b@ l@j@@dKIKjhBiHlbAJB ^9I3O/@0O dh_$O& O$h_(O$&_&O( OA kN__h_OOA O_Ok_A l!g A A _IOiO_jMHٽKKOK~OMhOO_"_ O O"hO"O dO"dO"l hh_ O"_"OOdOOMO_"_dOOOOOMOBAh(246Q SHOULDNT 165Q GETFILEPTR 156Q \NCONC2 112Q DREVERSE 67Q \DFSDirectorySearch 4 LENGTH) (526Q STREAM 243Q badDirectoryEntry) () \DFSFileSpec D1 (P 4 L P 3 V P 2 DP P 1 UNAME P 0 \INTERRUPTABLE I 2 DIROFD I 1 RECOG I 0 NAME) iBo @ 1IddhBAgAgi \FIAdgdgL #dgL khgLIL [dKGAIdgdgIdh(dkdgdghIdIKIJh(155Q SASSOC 127Q LAST 111Q LAST 57Q \DFSVersions 22Q \DFSUnpackName 14Q SHOULDNT) (254Q OLDEST 246Q OLD 207Q OLD/NEW 201Q NEW 141Q OLDEST 120Q NEW 102Q OLD/NEW 74Q OLD 50Q OLD/NEW 42Q NEW) ( 11Q (Assert-failure: DIROFD)) \DFSUnpackName D1 (P 7 directoryInfo P 6 VOLNUM P 5 RESULT P 4 VERSION P 3 NEGATEDVERSION P 2 END P 1 C P 0 J I 0 NAME) @ _ ^hhNhh]O@H)YJlAIIlZIdl hlaIIlzIdl h}l0IIdl9nIl;Idl!𔿿lRlIdl*Mi@HkX)Yl. @Hk)Pdl;dl!Hkظ[Idl$dl+l-Ih&HkرM9lLIdllglNIdlnBg@HkX)Ydl;Il!@HkX)YlHIdlh𲷿g@HkX)YlT,Ilt&IlS IlsIlAIlaIlPIdlp@HkX)dl;dl!𒿰~l-Lij@HkX)YI}LwjI!l0IIl9Ll Il0ؼ@HkX)YKLdkgl>gLdjgn$IdMLM(14Q \DFSVolumeNameToNumber 6 \DFSFirstDirectory) (743Q OLD 727Q OLDEST 712Q NEW 447Q OLD 366Q NEW 346Q OLDEST) () \DFSFullFileName D1 (I 0 UNAME) W@Rggg`@(Hkj2JIHlJ½L Mh\JkZM&K g@ (124Q PACKFILENAME 120Q \DFSFileName 110Q U-CASE 105Q PACKC) (114Q NAME 20Q \DFSLogicalVolumes 15Q DIRECTORY 12Q DSK 7 HOST) () \DFSFileName D1 (I 0 uname) K@@dlaKKKl ٸIHhZH&Jl.@ oo@ (110Q PACKC 105Q \NCONC2 102Q \APPEND2 77Q CHCON 57Q FASSOC) NIL ( 71Q (56Q 73Q) 64Q (73Q)) \DWIN D1 (I 0 FILE) @ @ @ @ NIL NIL () \DWOUT D1 (I 1 NUMBER I 0 FILE) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () \DFSGenerateFiles D1 (P 20Q C P 14Q I P 5 CHARLIST P 4 HOSTNAME P 3 directoryInfo P 2 DIROFD P 0 \INTERRUPTABLE I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV) R A A "JghhgAg gJYkj2 ON)IlO_OOh__Ok_O&_O \AK bd kBOO]ggJLhdjM_ _ laO O lzO dlalAhjlAO O dlZdlAlahPO lO l*O l;O dl?𒿰l.(AOk)dldl*dl?dl;dihcO h_OOh__O_Ok_:O&_(242Q CHCON1 173Q UNPACK 165Q SUBATOM 154Q PACKFILENAME 151Q U-CASE 146Q PACKC 41Q FILENAMEFIELD 12Q \DFSFirstDirectory 6 \DFSFileNameToDirectory) (216Q \DFSFileInfoFn 213Q \DFSNextFileFn 50Q STREAM 44Q DIRECTORY 36Q HOST 32Q HOST 22Q NILL) () \DFSNextFileFn D1 (P 16Q L2 P 15Q I P 13Q !SCRATCHTAIL P 12Q !SCRATCHLIST P 6 NAMESTART P 5 SAWVERSION P 4 SAWDOT P 3 GETVERSION P 2 LEN P 1 TEMP P 0 DIROFD I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) @dgbBAbb@ H@ YBhh O_A&@ _O Odhh_OHd @ Z^ IJkk OOH Yl!&iALO Odhh_l.l;YlaIIdlzlalAYIl.iI#I_O Odhh_OO Odhh_IOk_tH H _O Odhh_OAGMDLO Odhh_l.O Odhh_l;O Odhh_l1OOh OOOOhO OO@I I(656Q PACKC 635Q FLAST 426Q CHCON 162Q \SETFILEPTR 154Q LENGTH 143Q GETFILEPTR 100Q CHCON 41Q \DFSDirectorySearch) (5 \DFSFileInfoFn) () \DFSFileInfoFn D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) 7@d`"@hg@g @A (64Q \DFSGetFileInfo 51Q \DFSGetStreamForFile 46Q \DFSDEVICEP 43Q FILENAMEFIELD) (40Q HOST 30Q INPUT 11Q STREAMTYPE#) () (PRETTYCOMPRINT VOLUMEDIRECTORYCOMS) (RPAQQ VOLUMEDIRECTORYCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (COMS * VOLUMEDIRECTORYCOMPILECOMS)) (* * Functions for creating directories and making entries in them and deleting entries from them) (FNS \DFSMakeVolumeDirectory \DFSOpenDirectory \DFSMakeDirEntry \DFSFindDirHole \DFSReadFileID \DFSRemoveDirEntry \DFSDirectorySearch \DFSVersions \DFSFileSpec \DFSUnpackName \DFSFullFileName \DFSFileName) (FNS \DWIN \DWOUT) (* * Directory enumeration) (FNS \DFSGenerateFiles \DFSNextFileFn \DFSFileInfoFn))) (PUTPROPS VOLUMEDIRECTORY COPYRIGHT ("Xerox Corporation" 1984)) NIL