(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "14-Nov-86 15:31:45" ("compiled on " {ERIS}SOURCES>DIRECTORY.\;3) "12-Nov-86 10:23:13" |recompiled| |changes:| DIRECTORY.FILL.PATTERN |in| "Xerox Lisp 12-Nov-86 ..." |dated| "12-Nov-86 10:58:24") (FILECREATED "14-Nov-86 15:30:46" {ERIS}SOURCES>DIRECTORY.\;3 32699 |changes| |to:| (FNS DIRECTORY.FILL.PATTERN) |previous| |date:| "31-Oct-86 21:43:55" {ERIS}SOURCES>DIRECTORY.\;2) DODIR D1 (p 2 conj p 1 tail p 0 file i 4 nop i 3 defaultvers i 2 defaultext i 1 extracoms i 0 lispxline) C@@I ZHJI IYAIA DgIgIgIHIBC (64 directory 35 append 21 list 11 dirconj) (54 p 48 pp 42 p) () FILDIR D1 (i 0 filegroup) @ (3 directory) nil () DIRECTORYA0009 D1 (name errorset l (0 nil) p 3 x p 2 i f 4 comtail f 5 resetvarslst f 6 outfile f 7 filegroup f 8 commands f 9 printflg f 10 pflg f 11 promptflg f 12 headings f 13 files f 14 resety) r hdW WcWVWcWg` Uc gVi"id gVg c h Uc V Uc WNW"icjd W Wjd ciHhW lIgWc TdgdgIiTYcdg"dgdgdgdgdgTcοH!TWIWTHiHdWc8YI]iYHXKJ KK JKԺIYIWW (365 dodircommands 345 prin1 336 tab 166 reverse 160 terpri 138 tab 125 directory.nextfile 119 tab 97 list 94 list 91 output 82 list 78 list 73 openstream 61 getstream 42 list 39 list 36 settermtable 6 directory.parse) (261 newerthan 255 olderthan 249 out 242 @ 235 columns 228 by 209 pp 203 p 186 pause 70 output 66 closef? 50 output 33 askuserttbl 30 settermtable) () DIRECTORY D1 (p 26 resetz p 25 resety p 24 lispxhist p 20 tem p 19 com p 18 comtail p 12 values-wanted p 11 headings p 10 pflg p 9 desiredprops p 8 lasthost&dir p 7 promptflg p 6 outfile p 5 printflg p 4 filegroup p 3 deletedonly p 2 nameflg p 1 columns p 0 value i 3 defaultvers i 2 defaultext i 1 commands i 0 files f 27 lispxhist f 28 resetvarslst) 0Ad g b!O$_&gO&gO&dgO$]_SgO$d3 kO$O$8O&dgO$_$d gO_gi_ O&dgdgjgO_gO&dg+O$_$hO$ O_O&gi_i]g0O$_$_& O$O&oiZgO& iZO&dgO$iO$d_gO\gO$O$d_gO?O&gO&dgo i["gO&dggggO_O&ggO_O$_$d_&d3-O&o_do o iOى O& O$O& O$_ gO #O&` _(O&O_O&O( O_i]jO&dO$O&O$ _" O"0` d_*O, O* _._,O* _,O.` hO$hdi oO& O$_$W6!W8og hg_4 O4H Oh(708 cl:values 697 error! 690 resetrestore 679 directorya0009 649 error 636 fixspell 626 nconc 609 list 599 list 568 frplaca 562 append 535 list 514 fassoc 488 mkstring 473 \\illegal.arg 466 idate 454 frplaca 450 idate 443 idate 424 idate 356 error 259 freevars 234 fntyp 193 list 190 nchars 107 mkstring 21 list 12 append) (685 error 676 internal 623 dircommands 582 fileinfotypes 511 fileinfotypes 498 print 400 ireaddate 395 olderthan 383 iwritedate 380 icreationdate 373 newerthan 365 olderthan 346 undelete 338 deleted 326 nop 307 out 297 nop 275 columns 254 filename 220 @ 204 prompt 173 print 165 prompt 154 size 146 countsize 137 delete 123 collect 112 author 93 by 63 oldversions 49 pp 41 p 34 pause 18 collect) ( 673 (directorya0009) 644 "invalid DIRECTORY command" 447 "1-JAN-77 00:00" 440 "2-JAN-77 00:00" 430 (nil) 353 "DELETED/UNDELETE directory commands are not supported" 243 (filename)) DIRECTORY.PARSE D1 (p 0 temp i 0 fg f 1 filegroup f 2 defaultext f 3 defaultvers f 4 desiredprops) [@dRS bTo Qc@  X%@ X o@ @ @ @ @ (86 directory.parse 79 directory.parse 71 directory.parse 64 directory.parse 57 error 44 dirconj 36 dirconj 30 directory.match.setup 22 \\generatefiles 12 directory.fill.pattern) nil ( 51 "Bad file-group conjunction" 19 (sort resetlst)) DIRECTORY.FILL.PATTERN D1 (I 2 DEFAULTVERS I 1 DEFAULTEXT I 0 PATTERN) 6g@gggBggAgg@g h` (51 PACKFILENAME.STRING 47 INTERLISP-NAMESTRING 37 FILENAMEFIELD) (44 *DEFAULT-PATHNAME-DEFAULTS* 34 HOST 30 DIRECTORY 27 * 21 EXTENSION 18 * 12 VERSION 9 * 6 NAME 2 BODY) () DIRCONJ D1 (l (0 conj)) 2@g@dggg@dggg@ggnil (47 andnot 41 andnot 35 - 31 and 26 * 19 and 15 or 10 + 3 or) () DIRECTORY.NEXTFILE D1 (p 0 tem i 0 fg) N@ X@d@2dH X@H@h@H H H@H @(73 mkstring 63 u-casep 57 litatom 37 concatcodes 10 \\generatenextfile) nil () CONCATCODES D1 (p 3 x p 2 i p 0 str i 0 charcodes) (@ @kIHHJK IJkԺ(28 rplcharcode 6 allocstring 3 length) nil () DMATCH D1 (i 1 testname i 0 pat) Y@i@idg@A @bdg@A @bg@A h@b@A (86 directory.match 70 dmatch 48 dmatch 24 dmatch) (60 andnot 37 and 13 or) () DIRECTORY.MATCH.SETUP D1 (p 2 tail p 1 base i 0 filename) G@ bdl{@@bl}@HZ@dll*JdlIJ J(61 getcasearray 28 uppercasearray 3 chcon) nil () DIRECTORY.MATCH D1 (p 0 firstchar i 1 testname i 0 pattern) 6kAk dl{dl[AHkX dl}dl]HkX@AH (51 directory.match1 28 nthcharcode 8 nthcharcode) nil () DIRECTORY.MATCH1 D1 (p 3 testchar p 2 patchar p 1 namelimit p 0 casebase i 2 firstchar i 1 testname i 0 pattern) `A BBIO@\hLdl.L\l*L\l*L\iLl;|L\huLl*nLh@Jl;Zdl*Z@b]hOMdl.M]l*+M]l*M]iMl;M]h!Ml*Mh@AB iBkbIhAB [dlHK Jdl#il;Kl!@bBkb(217 \\getbasebyte 205 nthcharcode 186 directory.match1 11 nchars) (5 arrayp 2 uppercasearray) () DODIRCOMMANDS D1 (p 9 type p 8 dt p 7 comdate p 6 attrvalue p 5 nameprinted p 4 file p 3 com p 2 filename p 1 i p 0 comtail i 1 filegroup i 0 commands f 10 columns f 11 value f 12 nameflg) 0 @jACWWkWWYljYHhH[dgA gAi KdgWAg cgi IlذKdgWA HH gKdgWHHKgAg _OOhAg _ OOhKgAg _OOB;g(HHAg ^#KNhddd` Kdg%Idl Թj A oo gHH ӱKdgHH gWA h cKdg0Hko A ghgJ {HXsgjKdg_gXK`  OIIdOkԹj AK ^6Nd3 O gO N Nd N (553 shouldnt 549 prin1 544 printdef 541 position 529 printnum 525 list 499 dirgetfileinfo 493 tab 472 fassoc 428 infilep 425 packfilename 414 infilep 411 dirfilename 406 error 380 nconc 375 dirfilename 361 dprin1 338 dread 322 prin1 309 delfile 306 dirfilename 301 tab 275 strpos 257 dirgetfileinfo 221 dirgetfileinfo 193 dirgetfileinfo 174 dirgetfileinfo 136 eval 127 dirfilename 104 readc 90 dirgetfileinfo 71 dirprintname 59 dirprintname 29 linelength 14 position) (518 fix 469 fileinfotypes 460 nop 452 undelete 442 deleted 421 body 417 version 390 oldversions 367 collect 350 print 328 prompt 287 delete 271 uppercasearray 254 author 241 by 218 ireaddate 211 olderthan 190 iwritedate 171 icreationdate 166 olderthan 150 newerthan 143 olderthan 116 @ 98 pause 87 size 78 countsize 64 pp 52 p) ( 403 "can't count more than 1 version" 319 "can't delete" 314 "deleted") DIRPRINTNAME D1 (p 15 i p 13 lastchar p 12 thischar p 11 i p 4 directoryend p 3 different p 2 lastname p 1 fullname p 0 stream i 1 flg i 0 filegroup f 16 lasthost&dir f 17 nameprinted f 18 i) $W"hg @W  k! IO _eKL-W$dlc$j Ljk AIO l;W KLjd l LkOOTIL c l}Ol>Ol/Ol)OK"JO _`O `O O[Ok_OHIO _^ NOlMOk_HIO k ic"h__ _OOlOOk_(252 spaces 244 nthcharcode 211 nthcharcode 188 getcasearray 180 getcasearray 168 nthcharcode 128 list 109 spaces 103 terpri 99 tab 73 nthcharcode 53 tab 30 nthcharcode 12 getstream) (265 stream 218 stream 183 uppercasearray 175 uppercasearray 9 output) () DPRIN1 D1 (i 0 str f 0 i) Pd@ kcj @ (19 prin1 15 tab 5 nchars) nil () DIRFILENAME D1 (p 0 name i 0 filegroup f 1 filename f 2 file) '@"@@`H H H cc(30 mkatom 24 u-case 19 u-casep) (14 uppercasefilenames) () DIRGETFILEINFO D1 (i 1 attribute i 0 filegroup) @A (8 \\generatefileinfo) nil () DREAD D1 (i 0 prompt f 0 i) iPj @ i dgdgoi idgdgoi hP@ lcgoi oi (100 prin1 89 prin1 68 nchars 61 prin1 35 prin1 14 readc 9 prin1 4 tab) (79 ? 49 \n 43 n 24 \y 18 y) ( 96 "" 85 "Y or N: " 57 "No" 31 "Yes") (RPAQQ DIRECTORYCOMS ((* DIRECTORY) (LISPXMACROS DIR NDIR) (FNS DODIR FILDIR DIRECTORY DIRECTORY.PARSE DIRECTORY.FILL.PATTERN DIRCONJ DIRECTORY.NEXTFILE CONCATCODES DMATCH DIRECTORY.MATCH.SETUP DIRECTORY.MATCH DIRECTORY.MATCH1 DODIRCOMMANDS DIRPRINTNAME DPRIN1 DIRFILENAME DIRGETFILEINFO DREAD) ( INITVARS (UPPERCASEFILENAMES T)) (VARS DIRCOMMANDS FILEINFOTYPES) (DECLARE\: DONTCOPY (RECORDS FILEGROUP) (MACROS .NULL.PATTERNP. DTAB) (GLOBALVARS UPPERCASEFILENAMES DIRCOMMANDS ASKUSERTTBL FILEINFOTYPES)))) (ADDTOVAR LISPXMACROS (DIR (DODIR (NLAMBDA.ARGS LISPXLINE))) (NDIR (DODIR (NLAMBDA.ARGS LISPXLINE) ( QUOTE (P COLUMNS 20)) (QUOTE *) ""))) (RPAQ? UPPERCASEFILENAMES T) (RPAQQ DIRCOMMANDS ((- . PAUSE) (AU . AUTHOR) BY COLLECT (COLLECT? PROMPT " ? " COLLECT) COUNTSIZE (DA . CREATIONDATE) (DATE . CREATIONDATE) (DEL . DELETE) (DEL? . DELETE?) DELETE (DELETE? PROMPT " delete? " DELETE) DELETED (LE LENGTH "(" BYTESIZE ")") NEWERTHAN OLDVERSIONS (OLD OLDERTHAN 90) OLDERTHAN (OU . OUT) OUT P PAUSE (PR . PROTECTION) PROMPT (SI . SIZE) (TI . WRITEDATE) UNDELETE ( VERBOSE AUTHOR CREATIONDATE SIZE READDATE WRITEDATE) TRIMTO (DELVER OLDVERSIONS DELETE))) (RPAQQ FILEINFOTYPES ((WRITEDATE 22) (READDATE 22) (CREATIONDATE 22) (LENGTH 9) (BYTESIZE 2) ( PROTECTION 6 FIX 6 8) (SIZE 5) (AUTHOR 11) (READER 11) (TYPE 7) (FILETYPE 6 FIX 6 8))) (PUTPROPS DIRECTORY COPYRIGHT ("Xerox Corporation" 1986)) NIL