(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:33:48" ("compiled on " {DSK}larry>il>medley>sources>UFS.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "16-Sep-2023 09:22:55" {DSK}briggs>Projects>medley>sources>UFS.;2 78813 :EDIT-BY "briggs" :CHANGES-TO (FNS \UFSCloseFile) :PREVIOUS-DATE "29-Mar-2022 11:29:33" {DSK}briggs>Projects>medley>sources>UFS.;1) \UFSCreateDevice :D8 NIL 3g ²`Ã•`gg (43 \UFS.CREATE.DEVICE 9 BOUNDP) (48 \UFSdevice 38 \UFSEventFn 33 UNIX 27 \UFSdevice 21 FDEV 16 \UFSdevice 4 \UFSdevice) () \UFS.CREATE.DEVICE :D8 (L (1 EVENTFN 0 NAME) F 0 *DEFAULT-EXTERNALFORMAT*) `dkÏ ¿d@¿dg¿dg¿dg¿dgb¿dgD¿dg¿dg¿dg^¿dgF¿dg`¿dg¿dg¿dA ¿dg¿dg¿dg¿dg¿dg ¿dPh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿ (274 \MAKE.PMAP.DEVICE) (266 NILL 257 \GENERIC.READP 248 \ILLEGAL.DEVICEOP 239 \GENERIC.BINS 230 \GENERIC.BOUTS 221 NILL 212 \GENERIC.CHARSET 203 \ILLEGAL.DEVICEOP 194 \IS.NOT.RANDACCESSP 185 \IS.NOT.RANDACCESSP 171 \GENERIC-UNREGISTER-STREAM 162 \ADD-OPEN-STREAM 153 \GENERIC.OPENP 144 NILL 135 \UFSDirectoryNameP 121 \UFSGenerateFiles 112 \UFSOpenFile 103 \UFSWritePages 94 \UFSSetFileInfo 85 \UFSReadPages 76 \UFSOpenFile 67 \UFSGetFileName 58 \UFSGetFileInfo 49 \UFSTruncateFile 40 \UFSRenameFile 31 \UFSDeleteFile 22 \UFSCloseFile 4 |FDEVTYPE#|) () \UFSOpenDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) &`hggH H(34 \DEFINEDEVICE 20 \UFSCreateDevice 15 OBTAIN.MONITORLOCK) (28 UNIX 10 WITH.MONITOR 4 \UFStopMonitor) () \UFSOpenDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSOpenDeviceA0001) (7 SI::MONITOR-UNWIND) () \UFSCloseDeviceA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `hg` h(25 \REMOVEDEVICE 15 OBTAIN.MONITORLOCK) (20 \UFSdevice 10 WITH.MONITOR 4 \UFStopMonitor) () \UFSCloseDevice :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSCloseDeviceA0001) (7 SI::MONITOR-UNWIND) () \UFSOpenFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 19 FDEV F 20 FILE F 21 ACCESS F 22 OTHERINFO F 23 RECOG F 24 \DSKtopMonitor F 25 OLDSTREAM) |W&Édgð“¿W0Œgð´`hgW*dgð“¿j°&dgð“¿k°dgð“¿l‹gð’llW.dgð“¿j°Xdgð“¿k°Ldgð”¿l°?gð“l°4W*dgð“¿j°&dgð”¿l°dgð§dgð“¿l‚¿lglôW(Ã²6W(É’W(W(É_¿W(_¿OoO kØ ŠW(W.W&_d¡hW2³VW&Égð²EOW& \²9W*gð²LÊlåjðhð€i²ggOW& ¿OW& _W&Égð²"O ²o ¿OlW&¿l_l^OIHONK µ OKW&]NjØmÿÿ–gºˆW*gð‘j¾Oµ‚±lOW&i_¿dO¿dW& ¿Nãâ_¿dO¿Nnÿå_¿dOÍ¿OgW, _¿dOÏ¿dO¿dJ*¿dnÿÿÍ5¿`_ ¿dO Í4¿dh2¿d`.¿dg&¿dg$¿`_"¿dO"Í¿dj¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿_$dÉ Éhµg ¿O$_¿OMOgW,µjOOO °éOW&i¿OW& ¿ONãâ¿ONnÿåÍ¿OOgW, Ï¿OO¿OJ*±ÿ`(861 \UFSeol 796 \UFS.FULLNAME 779 IDATE 722 \EXTERNALFORMAT 570 \UFSeol 514 \UFS.FULLNAME 466 \UFSError 454 \UFSOpenFile-C 430 \UFSError 418 PROMPTPRINT 406 DIRECTORYNAMEP 380 \UFS.ADD.HOST.FIELD 370 CL:ERROR 365 \UFS.FULLNAME 313 \UFS.OPENP 277 \UFS.RECOGNIZE.FILE 265 SUBSTRING 258 STRPOS 44 OBTAIN.MONITORLOCK) (884 STREAM 872 STREAM 853 TYPE 846 STREAM 831 STREAM 818 STREAM 806 STREAM 786 STREAM 765 STREAM 750 CREATIONDATE 745 STREAM 735 STREAM 717 :DEFAULT 708 FDEV 649 FILELINELENGTH 641 \STREAM.NOT.OPEN 632 \STREAM.NOT.OPEN 623 \NOIMAGEOPS 603 \STREAM.DEFAULT.MAXBUFFERS 562 TYPE 489 OUTPUT 480 \DEVICEFILE.EOSERROR 396 DSK 389 FDEV 356 :PATHNAME 351 XCL:FILE-WONT-OPEN 332 STREAM 323 INPUT 301 DSK 294 FDEV 234 STREAM 221 STREAM 212 STREAM 199 \EOSERROR 185 APPEND 177 BOTH 164 OUTPUT 152 INPUT 138 OLD/NEW 126 NEW 114 OLDEST 102 OLD 87 APPEND 76 BOTH 64 OUTPUT 52 INPUT 39 WITH.MONITOR 33 \UFStopMonitor 25 UNIX 14 DSK 6 FDEV) ( 413 "{DSK} cannot open a directory file. Use {UNIX} device." 251 "}") \UFSOpenFile :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSOpenFileA0001) (7 SI::MONITOR-UNWIND) () \UFS.OPENP :D8 (L (1 DEV 0 UNIXNAME)) HAÉAÉgð•g„g"HµhºI»@JÉlK”JµiHX°áNIL (53 STREAM 33 STREQUAL 27 STRING-EQUAL 20 DSK 13 FDEV 5 FDEV) () \UFS.RECOGNIZE.FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 DEV F 5 FILENAME F 6 \DSKtopMonitor F 7 RECOG) ÇTÉdgð’¿VŒgð´`hgn l"TÉdgð—¿g°gð•g„g»UT Wdgð“¿j°&dgð“¿k°dgð“¿l‹dgð²¿lHIlKZd3 ²HkJgð²ãl°áUI (196 \UFSError 176 SUBSTRING 106 \UFS.REMOVE.HOST.FIELD 50 ALLOCSTRING 42 OBTAIN.MONITORLOCK) (182 NON 150 OLD/NEW 138 NEW 126 OLDEST 114 OLD 98 SHOULDNT 92 \UFSGetFileName-C 85 UNIX 78 \DSKGetFileName-C 70 DSK 62 FDEV 37 WITH.MONITOR 31 \UFStopMonitor 23 UNIX 13 DSK 5 FDEV) () \UFS.RECOGNIZE.FILE :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 DEV I 1 RECOG I 0 FILENAME) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFS.RECOGNIZE.FILEA0001) (7 SI::MONITOR-UNWIND) () \UFS.DIRECTORY.NAMEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 DEV F 2 \DSKtopMonitor F 3 DIRSTRING F 4 NAMEAREA) cQÉdgð’¿RŒgð´`hgQÉdgð—¿g°gð•g„gSTllH(42 OBTAIN.MONITORLOCK) (84 SHOULDNT 78 \UFSDirectoryNameP-C 71 UNIX 64 \DSKDirectoryNameP-C 56 DSK 48 FDEV 37 WITH.MONITOR 31 \UFStopMonitor 23 UNIX 13 DSK 5 FDEV) () \UFS.DIRECTORY.NAME :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 DEV I 1 NAMEAREA I 0 DIRSTRING) 7@o Akok g ¿$(48 SI::MONITOR-UNWIND 43 \MVLIST 38 \UFS.DIRECTORY.NAMEA0001 23 RPLSTRING 10 STREQUAL) (33 SI::MONITOR-UNWIND) ( 18 "<" 5 "<") \UFSCloseFile :D8 (L (0 STREAMFILE)) †@ @É jl@ÉK´@d ¡hÊlåjð³HÉb¼@kL¿@É¹K@ÉIJ²@h@h@@ÉJ (131 \UFSError 95 \UFSCloseFile-C 38 \GETACCESS 5 \CLEARMAP) (123 STREAM 112 STREAM 103 STREAM 86 STREAM 76 STREAM 62 FDEV 46 STREAM 23 STREAM 11 STREAM) () \UFSGetFileName :D8 (L (2 DEV 1 RECOG 0 FILENAME)) @ABBi(14 \UFS.FULLNAME 7 \UFS.RECOGNIZE.FILE) NIL () \UFSDeleteFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 DEV F 3 \DSKtopMonitor F 4 FILENAME) oRÉdgð’¿SŒgð´`hgTgRHd²1R ³(l¹HdR RI™¿HRiIRh(106 \UFSError 98 \UFS.FULLNAME 88 \UFSDeleteFile-C 81 \UFS.REMOVE.HOST.FIELD 67 \UFS.OPENP 54 \UFS.RECOGNIZE.FILE 42 OBTAIN.MONITORLOCK) (48 OLDEST 37 WITH.MONITOR 31 \UFStopMonitor 23 UNIX 13 DSK 5 FDEV) () \UFSDeleteFile :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 DEV I 0 FILENAME) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSDeleteFileA0001) (7 SI::MONITOR-UNWIND) () \UFSRenameFile :D8 (L (3 NEW-NAME 2 NEW-DEVICE 1 OLD-NAME 0 OLD-DEVICE)) ž@Bð³+@ABCH´`lðž`˜@ABCHAg@!Hd²]@ ³TCgBlº¹H@ IB BJ—IB JjØlð™@ABCHoIJ h(154 \UFSError 148 CONCAT 135 \GENERIC.RENAMEFILE 118 \UFS.FULLNAME 110 \UFSRenameFile-C 103 \UFS.REMOVE.HOST.FIELD 96 \UFS.REMOVE.HOST.FIELD 84 \UFS.RECOGNIZE.FILE 70 \UFS.OPENP 57 \UFS.RECOGNIZE.FILE 43 \UFStoOtherRenameMess 13 \GENERIC.RENAMEFILE) (78 NEW 51 OLD 33 FileTypeConfirmFlg 24 \MACHINETYPE) ( 142 " or ") \UFSReadPages :D8 (L (2 buffers 1 streamFirstPage 0 stream)) °BA@ÉjD@ ¿@É@Èjð’mÿ€jÔ½l_¿HµK£H¼h„H¼H¸KIMó³SJILO³@O ³gg@¿IMð²#@È^jð•n^° LNnNÕ¿NŽnŠLn ¿jÔ»IkÔ¹°‡(164 \CLEARWORDS 148 \CLEARBYTES 112 CL:ERROR 94 \UFSError 84 \UFSReadPages-C 19 \UPDATEOF) (124 STREAM 106 :MESSAGE 101 XCL:SIMPLE-DEVICE-ERROR 34 STREAM 26 STREAM 7 STREAM) () \UFSWritePages :D8 (L (2 buffers 1 streamFirstPage 0 stream)) Ç @É@ÈÚ@ÈØ@É@ÈÚ@ÈØl#IHñ²@É»@È°@É»@È¼BA@É# Md ¥M_¿h†M_¿M½NKð‘L‡@È_¿ONOOJ ³@J ³gg@¿NkÔ¾°(190 CL:ERROR 172 \UFSError 163 \UFSWritePages-C) (184 :MESSAGE 179 XCL:SIMPLE-DEVICE-ERROR 144 STREAM 107 STREAM 96 STREAM 87 STREAM 77 STREAM 68 STREAM 48 STREAM 39 STREAM 31 STREAM 22 STREAM 13 STREAM 5 STREAM) () \UFSTruncateFile :D8 (L (2 OFFSET 1 PAGE# 0 STREAM)) Ö@ A3 ª@Éb¿B3 ª@Èb¿@Éáà@ÈÔAáàBÔlSIHó²u@É ÉN»@kK¾@H ¿IHÕ¼k]Ló¬@j ¿MkÔ°ñ@N ¿@A@BÍl_¿@ÉlOJ´ @Oh@dÉIJ³¹¿@J (211 \UFSError 201 \UFSGetSize-C 171 \UFSGetFileInfo-C 128 \SETFILEPTR 115 \BOUT 98 \SETFILEPTR 5 \UPDATEOF) (192 STREAM 179 STREAM 159 STREAM 144 STREAM 135 STREAM 83 FDEV 76 STREAM 51 STREAM 41 STREAM 30 STREAM 15 STREAM) () \UFSDirectoryNameP :D8 (L (1 DEV 0 DIRSPEC)) “@g µo@ggµ>@ggA µ&AÉdgð–¿`Œgð´` !H´(n YHIAZd3 ´IkJAh(144 \UFS.FULLNAME 137 SUBSTRING 123 \UFS.DIRECTORY.NAME 114 ALLOCSTRING 100 CONCAT 57 \UFS.HANDLE.RELATIVEDIRECTORY 51 UNPACKFILENAME.STRING 33 UNPACKFILENAME.STRING 10 UNPACKFILENAME.STRING) (95 \UFS.DEFAULT.DIRECTORY 87 UNIX 81 \DSK.DEFAULT.DIRECTORY 73 DSK 65 FDEV 46 RETURN 41 RELATIVEDIRECTORY 28 RETURN 23 DIRECTORY 5 DEVICE) ( 17 "") \UFSEventFnA0001A0002 :D8 (L (1 KEY 0 VAL)) @ (5 \UFS.UNREGISTER.GFS) NIL () \UFSEventFnA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 Dev F 1 Event) `hgQdgð³dgð³dgð¨dgð²D¿gð´0¿P ¿P ¿`g ¿` gð´P ¿P (138 \FLUSH.OPEN.STREAMS 131 \UNVISIBLE.FLUSH.OPEN.STREAMS 116 CLRHASH 105 MAPHASH 89 \PAGED.REVALIDATEFILELST 82 \UNVISIBLE.PAGED.REVALIDATEFILELST 75 \UFSOpenDevice 62 MACHINETYPE 57 \UFSCloseDevice 15 OBTAIN.MONITORLOCK) (122 BEFORELOGOUT 111 \UFS.GFS.TABLE 100 \UFSEventFnA0001A0002 95 \UFS.GFS.TABLE 67 MAIKO 48 AFTERSAVEVM 40 AFTERMAKESYS 31 AFTERSYSOUT 22 AFTERLOGOUT 10 WITH.MONITOR 4 \UFStopMonitor) () \UFSEventFn :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 Event I 0 Dev) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSEventFnA0001) (7 SI::MONITOR-UNWIND) () \UFSGetFileInfoA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 DEVICE F 5 STREAM F 6 \DSKtopMonitor F 7 ATTRIBUTE) ÏTÉdgð’¿VŒgð´`hgUÃ™UÉ°UgTThl"H´‚±kWdgð²¿lZHdkJI’±ITdgð²¿lZHdkJI²à¿JnÿØãâdgð—¿H dgð¨dgð²¿lZHdlJI²¤¿J dgð²¿lZHdlJI²¿J dgð¨dgð²¿lZHdlJI¢±ÿUJdgð²¿lZHdlJI¢±ÿ6Jdgð²*¿n ZHlJI[˜JjKHITdgð²¿lZHdlJI²ßJgð´0ºHlJI[²gJdjKJHIT(460 \UFSError 449 CL:SUBSEQ 430 \UFSGetFileInfo-C 419 \UFS.CREATE.PROPS 402 \UFSGetFileInfo-C 376 \UFSError 367 CL:SUBSEQ 357 \UFSGetFileInfo-C 346 ALLOCSTRING 322 \UFSGetFileInfo-C 291 \UFSGetFileInfo-C 257 GDATE 248 \UFSGetFileInfo-C 222 GDATE 213 \UFSGetFileInfo-C 179 \UFSGetFileType 153 \UFSGetFileInfo-C 128 \UFSError 117 \UFSGetFileInfo-C 78 \UFS.FULLNAME 71 \UFS.RECOGNIZE.FILE 42 OBTAIN.MONITORLOCK) (438 AUTHOR 411 ALL 383 PROTECTION 334 AUTHOR 303 IREADDATE 272 IWRITEDATE 264 ICREATIONDATE 229 READDATE 194 WRITEDATE 186 CREATIONDATE 170 TYPE 135 SIZE 99 LENGTH 65 OLD 55 STREAM 48 STREAM 37 WITH.MONITOR 31 \UFStopMonitor 23 UNIX 13 DSK 5 FDEV) () \UFSGetFileInfo :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSGetFileInfoA0001) (7 SI::MONITOR-UNWIND) () \UFS.CREATE.PROPS :D8 NIL :glglglglgn h(48 ALLOCSTRING) (40 AUTHOR 31 PROTECTION 22 RDATE 13 WDATE 4 LENGTH) () \UFSSetFileInfoA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 VALUE F 3 DEVICE F 4 STREAM F 5 \DSKtopMonitor F 6 ATTRIBUTE) SÉdgð’¿UŒgð´`hgTÃ™TÉ°TgSShlH´‚±³Vdgð˜¿HR dgð¨dgð²6¿R ²!R c²HlRIµpHISoR dgð¨dgð²)¿R3 ²HlRIµ8HISoR gð´'R3 ²HlRIµHISoR (279 ERROR 267 \UFSError 257 \UFSSetFileInfo-C 233 ERROR 221 \UFSError 211 \UFSSetFileInfo-C 177 ERROR 165 \UFSError 155 \UFSSetFileInfo-C 141 IDATE 133 STRINGP 108 \UFSSetFileType 78 \UFS.FULLNAME 71 \UFS.RECOGNIZE.FILE 42 OBTAIN.MONITORLOCK) (239 PROTECTION 192 IWRITEDATE 184 ICREATIONDATE 123 WRITEDATE 115 CREATIONDATE 98 TYPE 65 OLD 55 STREAM 48 STREAM 37 WITH.MONITOR 31 \UFStopMonitor 23 UNIX 13 DSK 5 FDEV) ( 273 "Invalid argument" 227 "Invalid argument" 171 "Invalid argument") \UFSSetFileInfo :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSSetFileInfoA0001) (7 SI::MONITOR-UNWIND) () \UFSGenerateFilesA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 13 DEFAULTVERS P 12 DEFAULTEXT I 0 SI::*CLEANUP-FORMS* F 18 FDEV F 19 OPTIONS F 20 PATTERN F 21 SI::*RESETFORMS* F 22 \DSKtopMonitor F 23 FILING.ENUMERATION.DEPTH F 24 DEFAULTEXT F 25 DEFAULTVERS F 26 DESIREDPROPS) ò W$Édgð“¿W,Œgð´`hgW( ±Hg'µ7Hg'W$ µ'W$Édgð–¿`Œgð´`_¿Hg'_¿Hg'µo_¿Hg'µo_¿Hg'µo_¿n ¾h]¼Hg'µW0Hg'µW2 Odo —¿o_o ²DoHg'oOµoogOgOgO °7gOgHg'gOgOgOgO ½OµoO NW$\3 ³@` ¿o` ¿W(` ¿o` ¿NkL_¿llW4 MO OO_"¿jO"ó²OOW$’±áO"jð³uO"µhW&¨W&gð¨gW&žohdW*c*¿gg`djO¿dlj¿dlO"¿dO¿dW$¿dO žk ²•jÏ¿n ¹dI¿O ´ n ºdJ¿dk¿dW. ¿gOgOgO »dK"¿ h(747 \UFS.REGISTER.GFS 736 PACKFILENAME.STRING 692 ALLOCSTRING 674 ALLOCSTRING 660 \NULLFILEGENERATOR 653 \FZEROP 629 \PUTBASEFIXP 618 \PUTBASEFIXP 608 \PUTBASEFIXP 533 \NULLFILEGENERATOR 524 \UFSError 504 \UFSReadDir-C 489 \UFS.VALID.PROPP 473 SUBSTRING 464 \NULLFILEGENERATOR 458 PRIN1 442 PRIN1 429 PRIN1 413 TERPRI 398 \UFS.DIRECTORY.NAME 390 CONCAT 373 PACKFILENAME.STRING 318 CONCAT 312 PACKFILENAME.STRING 252 STREQUAL 233 STREQUAL 188 ALLOCSTRING 77 \UFS.HANDLE.RELATIVEDIRECTORY 51 UNPACKFILENAME.STRING 44 OBTAIN.MONITORLOCK) (728 VERSION 721 EXTENSION 714 NAME 598 |UFSGENFILESTATETYPE#| 593 \UFS.FILEINFOFN 588 \UFS.NEXTFILEFN 564 RESETLST 557 RESETLST 453 PROMPTWINDOW 437 PROMPTWINDOW 424 PROMPTWINDOW 408 PROMPTWINDOW 365 VERSION 358 EXTENSION 351 NAME 344 DEVICE 338 HOST 332 HOST 325 DIRECTORY 304 VERSION 297 EXTENSION 290 NAME 265 HOST 212 VERSION 198 EXTENSION 169 VERSION 152 EXTENSION 135 NAME 125 DEVICE 116 \UFS.DEFAULT.DIRECTORY 108 UNIX 102 \DSK.DEFAULT.DIRECTORY 94 DSK 86 FDEV 69 RELATIVEDIRECTORY 60 DIRECTORY 39 WITH.MONITOR 33 \UFStopMonitor 25 UNIX 14 DSK 6 FDEV) ( 573 (AND RESETSTATE (\UFSFinishFileInfo-C ID)) 448 " because no such directory" 419 "Can't enumerate " 383 "" 285 "<" 280 "" 271 "}" 259 "{" 247 "<" 240 "<" 228 "/" 177 "*" 160 "*" 143 "*") \UFSGenerateFiles :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \UFSGenerateFilesA0001) (7 SI::MONITOR-UNWIND) () \UFS.NEXTFILEFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 GENFILESTATE F 4 SUBGEN F 5 FILENAME F 6 NEWNAME F 7 FILEID F 8 NAMELEN F 9 NAMEONLY) LS cjó´‚±;SÉjWcSÉVSÉI´:oJÉoHI ¹JÉgðœ`–I €Ic SU WkÔcSl ÿ—Si ŽSlW¿Umÿ l>ð²QSÉ ið³SÉSÉ ýñ²1USÉ" SÊjð¥o€hocµW²AV²øTcSTTSÉkØTSÉ SW U(327 \UFS.NEXTFILEFN 257 \GENERATEFILES 228 CONCAT 177 NTHCHARCODE 168 \PUTBASEFIXP 152 \UFS.UNREGISTER.GFS 143 \GETBASEFIXP 110 U-CASE 82 CONCAT 31 CL:SUBSEQ 5 \UFSNextFile-C) (315 UFSGENFILESTATE 309 UFSGENFILESTATE 297 UFSGENFILESTATE 291 UFSGENFILESTATE 282 UFSGENFILESTATE 234 UFSGENFILESTATE 221 UFSGENFILESTATE 208 UFSGENFILESTATE 200 UFSGENFILESTATE 188 UFSGENFILESTATE 159 UFSGENFILESTATE 136 UFSGENFILESTATE 121 UFSGENFILESTATE 103 *DSK-UPPER-CASE-FILE-NAMES* 96 DSK 89 FDEV 67 FDEV 48 UFSGENFILESTATE 39 UFSGENFILESTATE 21 UFSGENFILESTATE) ( 252 (SORT RESETLST) 245 (SIZE CREATIONDATE AUTHOR) 74 "}" 61 "{") \UFS.NEXTFILEFNA0002 :D8 (F 0 RESETSTATE F 1 GENFILESTATE) P´ Qi (9 \UFS.UNREGISTER.GFS) NIL () \UFS.NEXTFILEFN :D8 (P 5 FILEID P 3 NEWNAME P 2 NAMELEN P 1 FILENAME P 0 SUBGEN I 1 NAMEONLY I 0 GENFILESTATE F 6 RESETSTATE) )@É1Hµ[@j @l Lmÿó´‚±éM@l ýó´‚±Óg V—@i ¿$A Yd¢±«@Êjð’±š@lHl ¿@lHl ¿@lHl ¿@lHl ¿@lHl ¿@HÉI@h±þÛ(263 \PUTBASEFIXP 258 \GETBASEFIXP 236 \PUTBASEFIXP 231 \GETBASEFIXP 209 \PUTBASEFIXP 204 \GETBASEFIXP 182 \PUTBASEFIXP 177 \GETBASEFIXP 155 \PUTBASEFIXP 150 \GETBASEFIXP 108 \UFS.NEXTFILEFN 97 \UFS.UNREGISTER.GFS 88 \MVLIST 83 \UFS.NEXTFILEFNA0001 65 \GETBASEFIXP 38 \GETBASEFIXP 25 \GETBASEFIXP) (288 UFSGENFILESTATE 276 UFSGENFILESTATE 270 UFSGENFILESTATE 251 UFSGENFILESTATE 243 UFSGENFILESTATE 224 UFSGENFILESTATE 216 UFSGENFILESTATE 197 UFSGENFILESTATE 189 UFSGENFILESTATE 170 UFSGENFILESTATE 162 UFSGENFILESTATE 143 UFSGENFILESTATE 135 UFSGENFILESTATE 120 UFSGENFILESTATE 78 \UFS.NEXTFILEFNA0002 58 UFSGENFILESTATE 31 UFSGENFILESTATE 19 UFSGENFILESTATE 5 UFSGENFILESTATE) () \UFS.FILEINFOFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 GENFILESTATE F 1 ATTRIBUTE) QgðPÉ QdgðŸjPl ÔdgðŸjPl Ôdgð²¿Pl nÿØãâdgð¨dgð²¿Pl dgð²¿Pl dgð¨dgð²¿jPl Ôdgð²¿jPl Ôgð´PÉjPl (266 CL:SUBSEQ 261 \GETBASEFIXP 229 \GETBASEFIXP 203 \GETBASEFIXP 170 GDATE 165 \GETBASEFIXP 141 GDATE 136 \GETBASEFIXP 98 \GETBASEFIXP 73 \GETBASEFIXP 49 \GETBASEFIXP 26 BLOCK 20 \UFSGetFileType) (254 UFSGENFILESTATE 245 UFSGENFILESTATE 236 AUTHOR 222 UFSGENFILESTATE 211 IREADDATE 196 UFSGENFILESTATE 185 IWRITEDATE 177 ICREATIONDATE 158 UFSGENFILESTATE 148 READDATE 129 UFSGENFILESTATE 119 WRITEDATE 111 CREATIONDATE 91 UFSGENFILESTATE 81 SIZE 66 UFSGENFILESTATE 57 PROTECTION 42 UFSGENFILESTATE 33 LENGTH 13 UFSGENFILESTATE 5 TYPE) () \UFS.FILEINFOFNA0002 :D8 (F 0 GENFILESTATE F 1 RESETSTATE) Q´Pj mÿó´ Pi (26 \UFS.UNREGISTER.GFS 14 \GETBASEFIXP) (8 UFSGENFILESTATE) () \UFS.FILEINFOFN :D8 (I 1 ATTRIBUTE I 0 GENFILESTATE F 0 RESETSTATE) >@Êjðhð´/g P²@j mÿó—@i ¿$(55 \UFS.UNREGISTER.GFS 44 \GETBASEFIXP 29 \MVLIST 24 \UFS.FILEINFOFNA0001) (38 UFSGENFILESTATE 19 \UFS.FILEINFOFNA0002 5 UFSGENFILESTATE) () \UFS.VALID.PROPP :D8 (L (0 DESIREDPROPS)) @d¬h‰do¤µõh´iNIL NIL ( 13 (LENGTH PROTECTION SIZE CREATIONDATE WRITEDATE READDATE ICREATIONDATE IWRITEDATE IREADDATE AUTHOR)) \UFS.REGISTER.GFS :D8 (L (0 GENFILESTATE) P 0 \INTERRUPTABLE) "@j mÿó´@d`(31 PUTHASH 14 \GETBASEFIXP) (26 \UFS.GFS.TABLE 8 UFSGENFILESTATE) () \UFS.UNREGISTER.GFS :D8 (L (1 NOTICETOCP 0 GENFILESTATE) P 0 \INTERRUPTABLE) FA²@j ¿@jmÿ@h@h@h`(67 PUTHASH 37 \PUTBASEFIXP 22 \UFSFinishFileInfo-C 17 \GETBASEFIXP) (62 \UFS.GFS.TABLE 52 UFSGENFILESTATE 43 UFSGENFILESTATE 29 UFSGENFILESTATE 11 UFSGENFILESTATE) () \UFS.ABORT.DIRECTORY :D8 (F 2 FILEGROUP) 6RHµhYÃ²Ij mÿó—Ii ¿HX°Õ(46 \UFS.UNREGISTER.GFS 35 \GETBASEFIXP) (29 UFSGENFILESTATE 21 UFSGENFILESTATE) () \UFS.ABORT.CL-DIRECTORY :D8 (F 1 GENERATOR) (QHÃ´Hj mÿó´ Hi (37 \UFS.UNREGISTER.GFS 25 \GETBASEFIXP) (19 UFSGENFILESTATE 11 UFSGENFILESTATE) () \UFS.CLEANUP.GFS.TABLEA0001 :D8 (L (1 KEY 0 VAL) F 0 NOTICETOCP) @P (6 \UFS.UNREGISTER.GFS) NIL () \UFS.CLEANUP.GFS.TABLE :D8 (I 0 NOTICETOCP) `g i(14 MAPHASH) (9 \UFS.CLEANUP.GFS.TABLEA0001 4 \UFS.GFS.TABLE) () \UFSMakeUnixFormatName :D8 (L (0 FILE)) œ@ Ñ H Y ºmÿ»mþ¼`j¶½IkÙj_¿_¿OOó˜KIkÙð²WJHO¶^_o:³Oo:©Oo:²KLó²&J_¿KkÔ[\_¿MOOJ_¿KkÔ[_¿NOO·¿OkÔ_°¢JkKkØ(153 SUBSTRING 20 ALLOCSTRING 14 NCHARS 5 MKSTRING) (32 \UFSDefaultDelimiter) ( 91 #\< 82 #\> 72 #\/) \UFSParseNameString :D8 (L (0 FILE)) @ (20 \UFS.ADJUST.HOST 15 UNPACKFILENAME.STRING 10 \UFSMakeUnixFormatName 5 MKSTRING) NIL () \UFSParse-Directory :D8 (L (1 DEV 0 PARSE)) ®@g'HµAÉdgð¢±‚`mÿ `ð³`H`Hd jó²]¿Hk dgð¯dgð§dgð‘H¿AÉdgð–¿`Œgð´`H gð´`(157 CONCAT 88 NTHCHAR 76 NCHARS 68 CONCAT 44 NTHCHAR) (171 \UFS.DEFAULT.DIRECTORY 163 UNIX 151 \UFS.DEFAULT.DIRECTORY 143 UNIX 137 \DSK.DEFAULT.DIRECTORY 129 DSK 121 FDEV 110 %. 102 ~ 94 / 63 \UFSDefaultDelimiter 57 \UFSDefaultDelimiter 49 \UFSDefaultDelimiterChar 36 \DSK.DEFAULT.DIRECTORY 26 DSK 18 FDEV 5 DIRECTORY) () \UFS.PARSE.BODY :D8 (L (0 PARSEDNAME)) g@g'µo@g'Hµ7o@g'Hµo jó²í`H °å jó²Ä`H °¼(99 CONCAT 84 NCHARS 77 CONCAT 62 NCHARS 56 CONCAT) (93 \UFSBeforeType 71 \UFSBeforeVersion 38 VERSION 19 EXTENSION 5 NAME) ( 50 "" 31 "" 13 "") \UFS.ADJUST.HOST :D8 (L (0 FIELDS)) @NIL NIL () \UFS.FULLNAME :D8 (L (2 ATOMP 1 DEV 0 NAME)) _@´EAÉgð²6`@ b`²B›d @ B–@ @`@ bB²ðd (92 MKATOM 81 CONCAT 67 MKATOM 58 U-CASE 51 MKATOM 46 U-CASE 29 CONCAT) (75 *UFS-HOST-NAME* 36 *DSK-UPPER-CASE-FILE-NAMES* 23 *DSK-HOST-NAME* 15 DSK 8 FDEV) () \UFS.ADD.HOST.FIELD :D8 (L (1 DEV 0 NAME)) @´oAÉo@(26 CONCAT) (13 FDEV) ( 20 "}" 7 "{") \UFS.REMOVE.HOST.FIELD :D8 (L (1 DEV 0 FILE)) !@ QgH ¹Hg'ºh[\½AÉgð²BHg'\²8Ldo ž¿Hgh° 3 ³gg@¿Iµ$J³AHgAÉdgð²¿`°IA °gð´`¿HghHg']HghH [Hg'o ŸHg'³o°Kdk l<ð˜¿Kl [MµK (286 CONCAT 275 SUBSTRING 262 NTHCHARCODE 237 STREQUAL 219 PACKFILENAME.STRING 213 LISTPUT 193 LISTPUT 180 LISTPUT 159 \UFS.HANDLE.RELATIVEDIRECTORY 111 CL:ERROR 91 MKATOM 84 LISTPUT 70 STREQUAL 19 MEMB 5 UNPACKFILENAME.STRING) (244 NAME 226 DIRECTORY 207 DEVICE 199 DEVICE 187 HOST 175 \UFS.DEFAULT.DIRECTORY 167 UNIX 147 \DSK.DEFAULT.DIRECTORY 138 DSK 130 FDEV 124 DIRECTORY 105 :PATHNAME 100 XCL:INVALID-PATHNAME 78 VERSION 54 VERSION 45 DSK 38 FDEV 26 DIRECTORY 13 RELATIVEDIRECTORY) ( 252 "<" 232 "<" 65 "") \UFS.HANDLE.RELATIVEDIRECTORY :D8 (L (1 DEV 0 DIR)) Â@d¢±½k dl.ð²~¿@dk ³z¿@dl ²,¿@l HoðµHl.ðªHl>ð¥Hl/ð´i³D@l ²<@l gð²,@l HoðµHl>ð¥Hl/ð´i„l~ð“i‘@AÉdgð–¿`Œgð´`@ (191 CONCAT 115 NTHCHARCODE 99 NTHCHAR 89 NCHARS 49 NTHCHARCODE 38 NCHARS 26 NCHARS 11 NTHCHARCODE) (185 \UFS.DEFAULT.DIRECTORY 177 UNIX 171 \DSK.DEFAULT.DIRECTORY 163 DSK 155 FDEV 104 %.) ( 124 (62 47) 58 (46 62 47)) CHDIRA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 PATHNAME) „`hgR HµoR g Ydgð¨dgð²0H XµoR –H oR oI (129 ERROR 117 ERROR 105 DIRECTORYNAME 98 \UFSCHDIR-C 92 ERROR 78 DIRECTORYNAME 54 U-CASE 49 FILENAMEFIELD 38 ERROR 21 \ADD.CONNECTED.DIR 15 OBTAIN.MONITORLOCK) (69 UNIX 61 DSK 44 HOST 10 WITH.MONITOR 4 \UFStopMonitor) ( 123 "Bad Host Name" 111 "NO-SUCH-DIRECTORY" 86 "NO-SUCH-DIRECTORY" 32 "NO-SUCH-DIRECTORY") CHDIR :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 PATHNAME) g ¿$(22 SI::MONITOR-UNWIND 17 \MVLIST 12 CHDIRA0001) (7 SI::MONITOR-UNWIND) () \DEVICEFILE.EOSERROR :D8 (L (0 STREAM) P 3 \INTERRUPTABLE) Þ@ dgð²¿o@Éµ@igð¢±©0@É2Xµ@X2¿HÉY@ÉjIZµ ¿°èjð²o@Éµ@ihHj¿Hh¿Hh¿@JÍ¿@JÍ¿@jÍ¿@Ii(219 SHOULDNT 138 LISPERROR 109 BLOCK 101 \UFSReadPages-C 73 \GETMAPBUFFER 37 LISPERROR 5 \GETACCESS) (209 STREAM 199 STREAM 189 STREAM 179 STREAM 169 BUFFER 159 BUFFER 149 BUFFER 127 STREAM 92 STREAM 83 BUFFER 68 STREAM 57 STREAM 43 INPUT 26 STREAM 11 OUTPUT) ( 121 "END OF FILE" 20 "END OF FILE") \UNVISIBLE.PAGED.REVALIDATEFILELST :D8 (L (0 DEVICE)) @ÉAHµhYdÊjð¡¿‡ ZµHX°àdgð˜¿I °Ggð²:I ¿Ig ‰d»IkK¿µõIh ¿@É ¼@IlL„¿JI ¿°œ(139 \PRINT-REVALIDATION-RESULT 131 SHOULDNT 109 \SETACCESS 88 STREAMPROP 76 FORGETPAGES 60 RESTOREMAP 37 \PAGED.REVALIDATEFILE) (116 FDEV 83 AFTERCLOSE 67 DELETED 51 CHANGED 24 STREAM 5 FDEV) () \UNVISIBLE.FLUSH.OPEN.STREAMS :D8 (L (0 FDEV)) B@É!HµhYÊjð²IÊlåjð@ÉBºIkJ¿HX°ÍNIL (51 FDEV 36 STREAM 23 STREAM 5 FDEV) () \UFSError :D8 (L (2 DEV 1 ERRNO 0 PATHNAME)) NAjØB™@B b¿HdkðŸ¿o@ ¿±'lð²gg@¿±Hdl ð²¿gg@¿±òlðžo@ ¿±ßHdlð²¿gg@¿±Ãlðžo@ ¿±°HdlðŸ¿o@ ¿±šlð²gg@¿±Hdlð²¿gg@¿°elð²gg@¿°MHdl<ðž¿o@ ¿°8l>ðo@ ¿°&HdlBð¿o@ ¿ldð´o@ h(330 ERROR 312 ERROR 291 ERROR 273 ERROR 252 CL:ERROR 228 CL:ERROR 200 CL:ERROR 175 ERROR 153 ERROR 134 CL:ERROR 106 ERROR 87 CL:ERROR 59 CL:ERROR 34 ERROR 14 \UFS.FULLNAME) (246 :PATHNAME 241 XCL:FS-PROTECTION-VIOLATION 222 :MESSAGE 217 XCL:SIMPLE-DEVICE-ERROR 194 :PATHNAME 189 XCL:FS-RESOURCES-EXCEEDED 128 :PATHNAME 123 XCL:FILE-WONT-OPEN 81 :PATHNAME 76 XCL:FS-PROTECTION-VIOLATION 53 :MESSAGE 48 XCL:SIMPLE-DEVICE-ERROR) ( 324 "Connection timed out" 306 "Directory not empty" 285 "Too many levels of symbolic link in" 267 "Connection timed out" 169 "File too large" 147 "TOO MANY FILES OPEN" 100 "Is a directory" 28 "Not owner") \UFSGetFileType :D8 (L (0 FILENAME)) L@g Hd jð›¿h`µH`ggµ` (73 MKATOM 68 U-CASE 55 CL:ASSOC 20 NCHARS 10 UNPACKFILENAME.STRING) (63 DEFAULTFILETYPE 50 STRING-EQUAL 45 :TEST 40 DEFAULTFILETYPELIST 30 DEFAULTFILETYPELIST 5 EXTENSION) () \UFSSetFileType :D8 (L (1 TYPE 0 FILENAME)) H@ g' !A b`Yµ A`ðºHJð”AJðI°æ(35 MKATOM 30 U-CASE 21 MKATOM 16 U-CASE 5 \UFSParseNameString) (52 DEFAULTFILETYPE 42 DEFAULTFILETYPELIST 10 EXTENSION) () \UFSeol :D8 (L (2 RECOG 1 TYPE 0 FILENAME) F 0 \UFS.DEFAULT.EOLC) ÄAdgð–¿g‡¡h„gb¢±”Bgð¢±†A@ ð³{` ¿o` ¿A` ¿o` ¿@ ` ¿o` ¿A` ¿o` ¿Aµ@ gð¢Pµk(182 \UFSGetFileType 172 PRIN1 156 PRIN1 144 PRIN1 128 PRIN1 118 \UFS.PARSE.BODY 113 \UFSParseNameString 106 PRIN1 90 PRIN1 78 PRIN1 62 TERPRI 49 \UFSGetFileType) (187 TEXT 167 PROMPTWINDOW 151 PROMPTWINDOW 139 PROMPTWINDOW 123 PROMPTWINDOW 101 PROMPTWINDOW 85 PROMPTWINDOW 73 PROMPTWINDOW 57 PROMPTWINDOW 37 NEW 25 BINARY 16 TEXT 8 TEXT) ( 162 " extension." 134 "' does not have a " 96 " file, but name '" 68 "Warning: creating ") \UFSGetPrintFileType :D8 (L (0 FILENAME)) M@g Hd jð›¿h`µ H`ggµ@ (74 MKATOM 69 U-CASE 64 \UFSGetFileTypeConfirm 55 CL:ASSOC 20 NCHARS 10 UNPACKFILENAME.STRING) (50 STRING-EQUAL 45 :TEST 40 DEFAULTFILETYPELIST 30 DEFAULTFILETYPELIST 5 EXTENSION) () \UFSGetFileTypeConfirm :D8 (L (0 FILENAME)) @o@ooo g ¥¿` µi (61 RETTO 53 MENU 42 \UFSPrintTypeMenu 36 BOUNDP 26 PROMPTPRINT) (48 FileTypeMenu 31 FileTypeMenu) ( 20 "This message can be stopped by setting FileTypeConfirmFlg to NIL.% " 15 "Please select FileType.% " 10 " isn't in DEFAULTFILETYPELIST.% " 4 "Extension of ") \UFSPrintTypeMenu :D8 NIL K`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿NIL (72 FileTypeMenu 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 20 ((TEXT (QUOTE TEXT)) (BINARY (QUOTE BINARY))) 11 "FileType?") \UFStoOtherCopyMess :D8 (L (1 OUTSTREAM 0 INSTREAM)) Ö@É Égð³@É Égð´‚±’AÉ Égðhð´xAÉ Égðhð´_@Ég !`Yµ=hhð´6o@ÉoAÉo`oo Z Hô“J°¹I°°(201 U-CASE 192 PROMPTPRINT 122 U-CASE 117 FILENAMEFIELD) (176 DEFAULTFILETYPE 164 STREAM 151 STREAM 130 DEFAULTFILETYPELIST 112 EXTENSION 105 STREAM 94 UNIX 87 FDEV 80 STREAM 69 DSK 62 FDEV 55 STREAM 42 UNIX 35 FDEV 28 STREAM 19 DSK 12 FDEV 5 STREAM) ( 186 "This message can be stopped by set FileTypeConfirmFlg to NIL." 181 "." 171 " was copied as " 158 " isn't in DEFAULTFILETYPELIST." 145 "Extension of ") \UFStoOtherRenameMess :D8 (L (3 NEW-NAME 2 NEW-DEVICE 1 OLD-NAME 0 OLD-DEVICE)) BÉgðhð´\BÉgðhð´JAg !`Yµ/hhð´(oAoCo`oo Z Hô“J°ÇI°¾(116 U-CASE 107 PROMPTPRINT 51 U-CASE 46 FILENAMEFIELD) (91 DEFAULTFILETYPE 59 DEFAULTFILETYPELIST 41 EXTENSION 30 UNIX 23 FDEV 12 DSK 5 FDEV) ( 101 "This message can be stopped by set FileTypeConfirmFlg to NIL.% " 96 "." 86 " was renamed as " 80 " isn't in DEFAULTFILETYPELIST.% " 74 "Extension of ") (PRETTYCOMPRINT UFSCOMS) (RPAQQ UFSCOMS ((PROP (FILETYPE MAKEFILE-ENVIRONMENT) UFS) (DECLARE%: EVAL@COMPILE DONTEVAL@LOAD DONTCOPY (FILES (LOADCOMP) DIRECTORY FILEIO)) (INITVARS (\UFS.DEFAULT.EOLC NIL)) (COMS (* ; "Create FDEV function.") (FNS \UFSCreateDevice \UFS.CREATE.DEVICE \UFSOpenDevice \UFSCloseDevice) ( INITVARS (\UFSdevice) (\UFStopMonitor (CREATE.MONITORLOCK "UFSTopMonitor"))) (GLOBALVARS \UFSdevice \UFStopMonitor)) (COMS (DECLARE%: DONTCOPY (EXPORT (RECORDS UFSGENFILESTATE))) (INITRECORDS UFSGENFILESTATE) (SYSRECORDS UFSGENFILESTATE)) (COMS (* ; "UNIX File System's FDEV methods.") (FNS \UFSOpenFile \UFS.OPENP \UFS.RECOGNIZE.FILE \UFS.DIRECTORY.NAME \UFSCloseFile \UFSGetFileName \UFSDeleteFile \UFSRenameFile \UFSReadPages \UFSWritePages \UFSTruncateFile \UFSDirectoryNameP \UFSEventFn \UFSGetFileInfo \UFS.CREATE.PROPS \UFSSetFileInfo \UFSGenerateFiles \UFS.NEXTFILEFN \UFS.FILEINFOFN \UFS.VALID.PROPP \UFS.REGISTER.GFS \UFS.UNREGISTER.GFS \UFS.ABORT.DIRECTORY \UFS.ABORT.CL-DIRECTORY \UFS.CLEANUP.GFS.TABLE)) (COMS (* ; "File Name parsing") (FNS \UFSMakeUnixFormatName \UFSParseNameString \UFSParse-Directory \UFS.PARSE.BODY \UFS.ADJUST.HOST \UFS.FULLNAME \UFS.ADD.HOST.FIELD \UFS.REMOVE.HOST.FIELD \UFS.HANDLE.RELATIVEDIRECTORY) (INITVARS ( \UFSDefaultDelimiter "/") (\UFSDefaultDelimiterChar (QUOTE /)) (\UFSDefaultConnDir "./") ( \UFSBeforeType (QUOTE %.)) (\UFSBeforeVersion (QUOTE ;)) (\UFSDeviceDelimiter (QUOTE })) ( \DSK.DEFAULT.DIRECTORY "~>") (\UFS.DEFAULT.DIRECTORY ".>") (*DSK-UPPER-CASE-FILE-NAMES* NIL) ( \UFS.GFS.TABLE (HASHARRAY 20)) (*DSK-HOST-NAME* "{DSK}") (*UFS-HOST-NAME* "{UNIX}")) (GLOBALVARS \UFSDeviceDelimiter \UFSBeforeVersion \UFSBeforeType \UFSDefaultConnDir \UFSDefaultDelimiterChar \UFSDefaultDelimiter \DSK.DEFAULT.DIRECTORY \UFS.DEFAULT.DIRECTORY *DSK-UPPER-CASE-FILE-NAMES* \UFS.GFS.TABLE *DSK-HOST-NAME* *UFS-HOST-NAME*)) (COMS (* ;; "Change UNIX Curent Directory") (FNS CHDIR) (* ;; "To access UNIX special files by like {UNIX}/dev/ttya.") (FNS \DEVICEFILE.EOSERROR) (* ;; "flush/revalidate unvisible stream, like dribble files.") (FNS \UNVISIBLE.PAGED.REVALIDATEFILELST \UNVISIBLE.FLUSH.OPEN.STREAMS) (* ;; " Error handler") (FNS \UFSError)) (COMS (* ; "File Type and EOL handling") (FNS \UFSGetFileType \UFSSetFileType \UFSeol) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DEFAULTFILETYPE (QUOTE BINARY)) (DEFAULTFILETYPELIST (QUOTE ((NIL . BINARY) (C . TEXT) ( H . TEXT) (EL . TEXT) (IM . TEXT) (LISP . TEXT) (LSP . TEXT) (O . BINARY) (OUT . BINARY) (LCOM . BINARY) (DFASL . BINARY) (DRIBBLE . TEXT) (TTY . TEXT) (TXT . TEXT) (Z . BINARY) (HTML . TEXT) (HTM . TEXT) (TEX . TEXT) (PS . TEXT) (PDF . TEXT) (DCOM . BINARY) (SKETCH . BINARY) (TEDIT . BINARY) (TED . BINARY) (DISPLAYFONT . BINARY) (AC . BINARY) (WD . BINARY) (IP . BINARY) (INTERPRESS . BINARY) (PRESS . BINARY) (PSCFONT . BINARY) (RST . BINARY) (BIN . BINARY) (MAIL . BINARY) (SYSOUT . BINARY) ( SYSOUT.Z . BINARY) (TAR . BINARY) (INDEX . BINARY) (HASH . BINARY) (NOTEFILE . BINARY) (Z . BINARY) ( VIRTUALMEM . BINARY) (VM . BINARY)))))) (GLOBALVARS DEFAULTFILETYPE DEFAULTFILETYPELIST)) (DECLARE%: EVAL@COMPILE DONTCOPY (COMS * UFSDECLS)) (COMS (* ; "Filetypepatch functions. ") (FNS \UFSGetPrintFileType \UFSGetFileTypeConfirm \UFSPrintTypeMenu) (* ; "for hardcopy") (FNS \UFStoOtherCopyMess \UFStoOtherRenameMess) (* ; "for copyfile,renamefile") (INITVARS ( FileTypeConfirmFlg T)) (GLOBALVARS FileTypeMenu FileTypeConfirmFlg)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS UFS FILETYPE :BCOMPL) (PUTPROPS UFS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)) (RPAQ? \UFS.DEFAULT.EOLC NIL) (RPAQ? \UFSdevice) (RPAQ? \UFStopMonitor (CREATE.MONITORLOCK "UFSTopMonitor")) (/DECLAREDATATYPE (QUOTE UFSGENFILESTATE) (QUOTE (FIXP FIXP FIXP POINTER POINTER FLAG POINTER FIXP POINTER FIXP FIXP FIXP FIXP POINTER FIXP POINTER POINTER POINTER POINTER)) (QUOTE ((UFSGENFILESTATE 0 FIXP) (UFSGENFILESTATE 2 FIXP) (UFSGENFILESTATE 4 FIXP) (UFSGENFILESTATE 6 POINTER) (UFSGENFILESTATE 8 POINTER) (UFSGENFILESTATE 8 (FLAGBITS . 0)) (UFSGENFILESTATE 10 POINTER) (UFSGENFILESTATE 12 FIXP) ( UFSGENFILESTATE 14 POINTER) (UFSGENFILESTATE 16 FIXP) (UFSGENFILESTATE 18 FIXP) (UFSGENFILESTATE 20 FIXP) (UFSGENFILESTATE 22 FIXP) (UFSGENFILESTATE 24 POINTER) (UFSGENFILESTATE 26 FIXP) ( UFSGENFILESTATE 28 POINTER) (UFSGENFILESTATE 30 POINTER) (UFSGENFILESTATE 32 POINTER) (UFSGENFILESTATE 34 POINTER))) (QUOTE 36)) (ADDTOVAR SYSTEMRECLST (DATATYPE UFSGENFILESTATE ((FINFOID FIXP) (FILEID FIXP) (TOTALNUM FIXP) DIRECTORY DEV (PROPP FLAG) THISFILE (ERRONO FIXP) NAME (LENGTH FIXP) (WDATE FIXP) (RDATE FIXP) ( PROTECTION FIXP) AUTHOR (AULEN FIXP) SUBGENERATOR CURRENT-DEPTH MAX-DEPTH FILTER))) (RPAQ? \UFSDefaultDelimiter "/") (RPAQ? \UFSDefaultDelimiterChar (QUOTE /)) (RPAQ? \UFSDefaultConnDir "./") (RPAQ? \UFSBeforeType (QUOTE %.)) (RPAQ? \UFSBeforeVersion (QUOTE ;)) (RPAQ? \UFSDeviceDelimiter (QUOTE })) (RPAQ? \DSK.DEFAULT.DIRECTORY "~>") (RPAQ? \UFS.DEFAULT.DIRECTORY ".>") (RPAQ? *DSK-UPPER-CASE-FILE-NAMES* NIL) (RPAQ? \UFS.GFS.TABLE (HASHARRAY 20)) (RPAQ? *DSK-HOST-NAME* "{DSK}") (RPAQ? *UFS-HOST-NAME* "{UNIX}") (RPAQQ DEFAULTFILETYPE BINARY) (RPAQQ DEFAULTFILETYPELIST ((NIL . BINARY) (C . TEXT) (H . TEXT) (EL . TEXT) (IM . TEXT) (LISP . TEXT) (LSP . TEXT) (O . BINARY) (OUT . BINARY) (LCOM . BINARY) (DFASL . BINARY) (DRIBBLE . TEXT) (TTY . TEXT) (TXT . TEXT) (Z . BINARY) (HTML . TEXT) (HTM . TEXT) (TEX . TEXT) (PS . TEXT) (PDF . TEXT) (DCOM . BINARY) (SKETCH . BINARY) (TEDIT . BINARY) (TED . BINARY) (DISPLAYFONT . BINARY) (AC . BINARY) (WD . BINARY) (IP . BINARY) (INTERPRESS . BINARY) (PRESS . BINARY) (PSCFONT . BINARY) (RST . BINARY) (BIN . BINARY) (MAIL . BINARY) (SYSOUT . BINARY) (SYSOUT.Z . BINARY) (TAR . BINARY) (INDEX . BINARY) (HASH . BINARY) (NOTEFILE . BINARY) (Z . BINARY) (VIRTUALMEM . BINARY) (VM . BINARY))) (RPAQ? FileTypeConfirmFlg T) NIL