(FILECREATED "16-Nov-93 17:15:55" ("compiled on " {DSK}export>lispcore>lispusers>ARCHIVEBROWSER.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 4-Mar-87 17:04:08" {PHYLUM}KOTO>ARCHIVEBROWSER.;3 28150 changes to: (VARS ARCHIVEBROWSERCOMS) (FNS AB.Delete.Command AB.Retrieve.Command AB.Retrieve.Directory.Command AB.Retrieve.Renamed.Aux AB.Undelete.Command AB ARCHIVEBROWSER AB.Make.Cedar.Filename AB.Retrieve.Renamed.Command) previous date: "22-Sep-86 13:12:01" {QV}LISP>ARCHIVEBROWSER.;4) ARCHIVEBROWSER D8 (P 8 browser P 7 window P 6 windowregion P 5 promptwindow P 4 promptheight P 3 promptfont P 2 menu I 1 filter I 0 archivefilespec F 9 AB.browser.font) % `dodi dodgdg dgjdndhHdI gl lK i J lJ L NNNJ NL o hOgggWh JOgg Ogg@g g g@g i g@g gg@g gg@ gAoh Olgl ]O MgjM  MgnM  nM Ogg Oggi gJ Jg (546 AB.Command.Fn 535 SASSOC 517 WINDOWADDPROP 499 PUTWINDOWPROP 482 LINELENGTH 473 PUTWINDOWPROP 461 \INSUREWINDOW 446 PUTWINDOWPROP 434 \INSUREWINDOW 421 AB.Set.Browser.Title 413 GETPROMPTWINDOW 408 FONTCREATE 392 TB.USERDATA 369 PACKFILENAME.STRING 350 FILENAMEFIELD 327 FILENAMEFIELD 310 FULLUSERNAME 302 FILENAMEFIELD 286 FILENAMEFIELD 276 DIRECTORYNAME 269 FILENAMEFIELD 246 ATTACHMENU 225 TB.MAKE.BROWSER 192 CREATEW 182 CREATEREGION 169 BITMAPWIDTH 164 CHECK/MENU/IMAGE 146 GETREGION 139 BITMAPHEIGHT 134 CHECK/MENU/IMAGE 125 BITMAPWIDTH 120 CHECK/MENU/IMAGE 111 HEIGHTIFWINDOW 91 FONTCREATE) (541 LEFT 528 MENU 522 Recompute 511 AB.Closefn 506 CLOSEFN 494 AB.Iconfn 489 ICONFN 452 MAXSIZE 427 MINSIZE 401 HELVETICA 374 FILTER 362 BODY 357 directory 345 EXTENSION 339 EXTENSION 334 Archive 322 NAME 316 NAME 297 DIRECTORY 291 DIRECTORY 281 HOST 264 HOST 258 HOST 253 ARCHIVE 241 TOP 236 RIGHT 213 FONT 208 AB.Printfn 203 PRINTFN 102 FONTDESCRIPTOR 84 HELVETICA 52 DEFAULTMENUHELDFN 43 CLRPROMPT 34 AB.When.Selected.Fn 4 MENUTYPE#) ( 382 "*.*" 187 "" 25 " Commands " 11 ((Retrieve AB.Retrieve.Command "Retrieve selected files" (SUBITEMS ("Retrieve selected files" AB.Retrieve.Command "Retrieve selected files") ("Retrieve to directory" AB.Retrieve.Directory.Command "Retrieve selected files to a different directory") ("Retrieve renamed" AB.Retrieve.Renamed.Command "Retrieve selected files specifying new name for each file"))) (Filter AB.Filter.Command "Set filter for displayed file names") (Sort AB.Sort.Command "Sort entries by file name" (SUBITEMS ("Sort by file name" AB.Sort.Command "Sort entries by file name") ("Sort by creation date" (AB.Sort.Command CreationDate) "Sort entries by creation date of the file") ("Sort by archive date" (AB.Sort.Command Archive) "Sort entries by date that the file was archived") (Reverse (AB.Sort.Command Reverse) "Reverse the order of the entries"))) (Recompute AB.Recompute.Command "Redisplay browser items after re-reading archive directory" (SUBITEMS ("Same directory" AB.Recompute.Command "Redisplay browser items after re-reading archive directory") ("New directory" (AB.Recompute.Command T) "Browse a different archive directory"))) ("" NIL "do nothing - a separator") (Delete AB.Delete.Command "Delete selected items") (Undelete AB.Undelete.Command "Undelete selected items" (SUBITEMS ("Undelete selected items" AB.Undelete.Command "Undelete selected items") ("Undelete ALL items" (AB.Undelete.Command T) "Undelete all deleted items"))) ("" NIL "do nothing - a separator so you don't accidentally Expunge") (Expunge AB.Expunge.Command "Expunge deleted items and rewrite the archive directory"))) AB D8 (P 0 patternandfilter I 0 filespec% filter) @ HH h(18 ARCHIVEBROWSER 5 NLAMBDA.ARGS) NIL () AB.When.Selected.Fn D8 (I 2 Key I 1 Menu I 0 Item) e@a@\g@ddi3 g@hAddi3 gAhBddi3 gBhhg@ (98 TB.PROCESS 93 PACK*) (86 AB- 72 QUOTE 51 QUOTE 30 QUOTE 13 AB.Command.Fn) () AB.Command.FnA0001 D8 (NAME SI*UNWIND-PROTECT* P 7 extra P 6 promptwindow P 5 function P 4 I P 2 browser P 1 window P 0 realitem I 0 SI*CLEANUP-FORMS* F 8 item F 9 menu F 10 SI*RESETFORMS* F 11 MENUSELECTSHADE) WW g Ig WW WKahcJid kgWWjhWWW hWcHI N N M!JOlMWL LiK[_MJ (205 TB.BROWSER.BUSY 177 AB.Subitemp 153 CLEARW 146 OPENWP 137 GETPROMPTWINDOW 120 SHADEITEM 92 OBTAIN.MONITORLOCK 54 MEMBER 35 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 11 WFROMMENU) (99 SHADEITEM 83 TABLEBROWSER 63 MENU 47 MENU 30 TABLEBROWSER 16 MAINWINDOW) () AB.Command.Fn D8 (P 2 RESETSTATE P 1 SI*RESETFORMS* P 0 LISPXHIST I 2 key I 1 menu I 0 item F 3 LISPXHIST) S!g $(23 SIRESETUNWIND 18 \MVLIST 13 AB.Command.FnA0001) (8 SIRESETUNWIND) () AB.Delete.CommandA0001 D8 (I 1 item I 0 browser F 0 count) @A Pkc(6 TB.DELETE.ITEM) NIL () AB.Delete.Command D8 (P 1 browserpromptwindow P 0 count I 0 browser) _j@ @g HdjoI I oI HkooI oI (92 PRIN1 81 PRIN1 60 PRIN1 49 PRIN1 42 PRIN1 25 TB.MAP.SELECTED.ITEMS 11 GETPROMPTWINDOW 6 TB.WINDOW) (20 AB.Delete.CommandA0001) ( 86 " marked for deletion." 75 "" 69 "s" 54 " item" 36 "No items marked for deletion.") AB.Expunge.Command D8 (P 9 media P 7 item P 1 directorystream I 0 browser)  @j@ oH ghg@ g' g I7@ oJ @ g'J oJ nI @ g@ g'AK") AB.Closefn D8 (P 0 browser I 0 window) w@g !HYj[II O`dododi dg dgjdndhdJ H h(115 AB.Expunge.Command 107 MENU 36 \FZEROP 10 GETWINDOWUSERPROP) (82 DEFAULTMENUHELDFN 73 CLRPROMPT 43 MENUTYPE# 19 TABLEBROWSER 5 TABLEBROWSER) ( 59 "Expunge deleted items?" 50 (("Expunge" (QUOTE Expunge) "Expunge items marked for deletion") ("Don't Expunge" NIL "Don't expunge items marked for deletion"))) AB.Printfn D8 (P 4 media P 3 datestart P 2 offset P 1 namewidth P 0 entry I 2 window I 1 item I 0 browser F 5 AB.browser.font) A@ g'jhB JIl HB IjaIUjBhB hB U KhB U KB HB oB H0 oB dLB oB h(192 PRIN1 180 PRIN1 166 PRIN1 153 \FZEROP 142 PRIN1 131 PRIN1 121 DSPXPOSITION 113 BLTSHADE 98 DSPXPOSITION 81 DSPYPOSITION 74 DSPXPOSITION 55 PRIN1 35 DSPXPOSITION 16 TB.USERDATA) (105 FONTDESCRIPTOR 87 FONTDESCRIPTOR 21 NAMEWIDTH 5 TABLEITEM) ( 186 " " 160 " " 136 " ") AB.Prompt.For.InputA0001 D8 (P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 prompt F 3 default F 4 promptwindow F 5 SINLSETQ-VALUE) %i@RShThgo hc g(25 PROMPTFORWORD) (34 NORMAL 14 TTY) ( 19 (13 27)) AB.Prompt.For.Input D8 (P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SINLSETQ-VALUE P 6 excesswidth P 5 i P 3 result P 2 windowwidth P 1 promptwidth P 0 promptwindow I 3 abortflag I 2 browser I 1 default I 0 prompt F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) B @H Hg H IAoH JYl @ lIJLMB@M l @M H Np@kMm o@Mk b`WioW O gO[dC H KdioH MmԽi(223 PRIN1 205 TERPRI 180 AB.Prompt.For.InputA0001 146 CONCAT 141 SUBSTRING 127 SUBSTRING 112 STRINGWIDTH 106 SUBSTRING 92 NTHCHARCODE 71 NCHARS 58 STRINGWIDTH 43 CLEARW 34 GETWINDOWPROP 20 STRINGWIDTH 10 GETPROMPTWINDOW 5 TB.WINDOW) (186 NORMAL 158 SINLSETQ-PROCEED-CASE 29 WIDTH) ( 217 "... aborted" 167 (CLERROR . SINLSETQHANDLER) 132 " " 52 "XXX") AB.Read.DirectoryA0001 D8 (P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 browser F 3 SINLSETQ-VALUE) &i@R g'g hcg(26 OPENSTREAM 10 TB.USERDATA) (35 NORMAL 21 INPUT 15 ARCHIVE) () AB.Read.Directory D8 (P 14 inputline P 13 end P 12 start P 8 i P 7 items P 6 promptwindow P 5 linerdtable P 4 directorystream P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SINLSETQ-VALUE I 0 browser F 18 *PROCEED-CASES* F 19 *CONDITION-HANDLER-BINDINGS*) @ g'+`W$ioW&I gHg @ L9oN @ g'N @ gh @ h@ gL @ l hhM hdM kaLM _L OkoO _k OOkoOOk _k 0Ok_k_OOd oOoOO _OOOdk _"O BO"h_ _OOOh_OOh__L L OO&_O"&_ Ok_(396 CLOSEF 388 EOFP 336 SUBSTRING 318 STRPOS 293 SUBSTRING 269 SUBSTRING 260 STRPOS 238 L-CASE 233 SUBSTRING 224 STRPOS 208 READC 199 RSTRING 188 SETBRK 180 SETSEPR 169 AB.Set.Browser.Title 163 LISTPUT 158 L-CASE 153 FULLNAME 142 TB.USERDATA 134 AB.Set.Browser.Title 128 LISTPUT 117 TB.USERDATA 111 PRIN1 99 TB.USERDATA 92 PRIN1 75 GETPROMPTWINDOW 70 TB.WINDOW 64 COPYREADTABLE 42 AB.Read.DirectoryA0001 5 TB.USERDATA) (147 ARCHIVE 122 ARCHIVE 104 ARCHIVE 59 ORIG 48 NORMAL 21 SINLSETQ-PROCEED-CASE 10 ARCHIVE) ( 309 " " 298 " " 249 " " 217 " " 86 "Can't find archive directory " 30 (CLERROR . SINLSETQHANDLER)) AB.Subitemp D8 (P 2 i P 0 sub I 1 item I 0 subitem) ?AHdg@H HIh@J JiIY(50 AB.Subitemp 28 MEMBER) (18 SUBITEMS) () AB.Make.Cedar.Filename D8 (P 0 unpackedfilename I 0 filename) @ oH (24 PACK 19 SUBLIS 5 UNPACK) NIL ( 13 (({ . %[) (} . %]) (; . !))) (PRETTYCOMPRINT ARCHIVEBROWSERCOMS) (RPAQQ ARCHIVEBROWSERCOMS ((* * the user's interface to the archive browser) (FNS ARCHIVEBROWSER AB) ( * * command processing functions) (FNS AB.When.Selected.Fn AB.Command.Fn AB.Delete.Command AB.Expunge.Command AB.Filter.Command AB.Recompute.Command AB.Retrieve.Command AB.Retrieve.Directory.Command AB.Retrieve.Renamed.Command AB.Retrieve.Renamed.Aux AB.Sort.Command AB.Undelete.Command) (* * miscellaneous functions) (FNS AB.Set.Browser.Title AB.Iconfn AB.Closefn AB.Printfn AB.Prompt.For.Input AB.Read.Directory AB.Subitemp AB.Make.Cedar.Filename) (* * the user that gets retrieval requests) (INITVARS (AB.archivist "Archivist")) (* * the structure for an archive entry) (RECORDS AB.item) (* * the icon) (BITMAPS AB.icon AB.icon.mask) (INITVARS (AB.titled.icon ( create TITLEDICON ICON _ AB.icon MASK _ AB.icon.mask TITLEREG _ (CREATEREGION 7 8 60 24)))) (* * the font for the browser, which must be a fixed pitch font for now) (VARS (AB.browser.font (FONTCREATE ( QUOTE TERMINAL) 10))) (* * based on the TableBrowser package) (FILES TABLEBROWSER) (DECLARE: EVAL@COMPILE DONTCOPY (FILES TABLEBROWSERDECLS)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA AB) (NLAML) (LAMA))))) (RPAQ? AB.archivist "Archivist") (RECORD AB.item (AB.Filename AB.Creation.Date AB.Media AB.Sequence.Number)) (RPAQ AB.icon (READBITMAP)) (73 73 "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "O@@@@@@AN@@@@@@@@AH@" "ML@@@@@CK@@@@@@@@AH@" "LOOOOOOOOOOOOOOOOIH@" "LJ@@@@@DHG@@@@@@AIH@" "LK@@@@AHHAL@@@@@FIH@" "LIH@@@A@H@GH@@@@LIH@" "LHF@@@G@H@@OL@@GHIH@" "LHC@@COOOOOOGOOO@IH@" "LHAH@C@CN@@A@@@F@IH@" "LH@LON@FK@@A@@AL@IH@" "LH@FNBAOOOOA@@CL@IH@" "LH@CLBCHHL@A@@FH@IH@" "LH@AKOOOOOOI@@MH@IH@" "LH@ADB@@L@LA@AI@@IH@" "LH@ANB@@L@CA@FA@@IH@" "LH@@KCOOOOOOMOC@@IH@" "LH@@IH@CL@@@CJB@@IH@" "LH@@HH@FF@@@GBB@@IH@" "LH@@HDALG@@@LFC@@IH@" "LH@@HCOOOOOOHDA@@IH@" "LH@@HCL@F@@G@DA@@IH@" "LH@@HAOOOOOO@DAH@IH@" "OH@AHAOOOOOO@D@H@IH@" "LO@C@AOOOOOO@D@L@IH@" "LION@CAHC@FA@D@GHIH@" "LH@N@F@HA@LA@D@AOIH@" "LH@GNL@DAAHAHBAO@IH@" "LH@BGO@CAB@@LCOB@IH@" "LH@B@MNAIFAOOO@F@IH@" "LH@B@DCLOMNCHB@D@IH@" "LH@B@D@COO@F@B@D@IH@" "LH@B@D@@FGLB@B@D@IH@" "LH@B@L@GL@CO@C@F@IH@" "LH@B@HCL@@@GNAHC@IH@" "LH@FAKL@@@@@AOLAHIH@" "LH@DAL@@@@@@@AN@LIH@" "LH@OO@@@@@@@@@CNFIH@" "LHCL@@@@@@@@@@@CNIH@" "OOO@@@@@@@@@@@@@AIH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LOOOOOOOOOOOOOOOOIH@" "L@@@@@@@@@@@@@@@@AH@" "L@@@@@@@@@@@@@@@@AH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@") (RPAQ AB.icon.mask (READBITMAP)) (73 73 "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@") (RPAQ? AB.titled.icon (create TITLEDICON ICON _ AB.icon MASK _ AB.icon.mask TITLEREG _ (CREATEREGION 7 8 60 24))) (RPAQ AB.browser.font (FONTCREATE (QUOTE TERMINAL) 10)) (FILESLOAD TABLEBROWSER) (PUTPROPS ARCHIVEBROWSER COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL