(FILECREATED "20-Feb-85 14:15:42" ("compiled on " {DANTE}DIRECTORYTOOLS.;9) "20-Dec-84 12:07:22" recompiled changes: CHARCODE.TO.STRING DIRECTORY.TREE MIDDLE.DIR.COMMAND DIR.FROM.GRAPH QUICK.LIST in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "20-Feb-85 14:15:03" {DANTE}DIRECTORYTOOLS.;9 13118 changes to: (FNS DIRECTORY.TREE QUICK.LIST CHARCODE.TO.STRING MIDDLE.DIR.COMMAND DIR.FROM.GRAPH) (VARS DIRECTORYTOOLSCOMS) previous date: "15-Feb-85 16:17:06" {DANTE}DIRECTORYTOOLS.;7) CHARCODE.TO.STRING D1 (P 3 X P 2 N P 0 STR I 0 LIST) &@ @kIHHJK+IJkغ(6 ALLOCSTRING 3 LENGTH) NIL () GRAPH.DIRECTORY D1 (P 0 TREE I 2 CASE.SENSITIVE? I 1 WINDOW I 0 FILEGROUP) @g oi @g i i hA ldd bAgo g@ddidd g@hAddidd gAhBddidd gBhhgo A(253Q ADD.PROCESS 105Q PUTWINDOWPROP 67Q CREATEW 64Q GETREGION 55Q WINDOWP 47Q TERPRI 42Q PRIN1 36Q FILENAMEFIELD 26Q PRIN1 14Q HOSTNAMEP 11Q FILENAMEFIELD) (244Q NAME 230Q QUOTE 174Q QUOTE 140Q QUOTE 110Q GRAPH.DIRECTORY1 76Q TITLE 33Q HOST 6 HOST) ( 250Q "DIRECTORY GRAPHER" 102Q "SEARCHING FOR SUBDIRS..." 22Q "I can not find host: ") GRAPH.DIRECTORY1 D1 (P 0 TREE I 2 CASE.SENSITIVE? I 1 WINDOW I 0 FILEGROUP) E@dB XdoA @A A h Agg Ago@ h(101Q PUTWINDOWPROP 76Q CONCAT 62Q SHOWGRAPH 50Q LAYOUTSEXPR 43Q TERPRI 36Q PRIN1 30Q PRIN1 12Q DIRECTORY.TREE) (66Q TITLE 57Q MIDDLE.DIR.COMMAND 54Q LEFT.DIR.COMMAND) ( 72Q "SubDirectories of: " 24Q "There are no files in the group:") DIRECTORY.TREE D1 (P 6 STR P 4 HOST P 3 TEMP P 2 DIRS P 1 NEXTDIR P 0 FILEGROUP I 1 CASE.SENSITIVE? I 0 FILESPEC) @ AH YXLoId g o Id AI JM hIJ^I NiM]0 Jd _O Oh_O&_OZLhJ (227Q \APPEND2 224Q MERGE.DIR 161Q FIXDIR 132Q STREQUAL 101Q U-CASE 72Q GET.DIR.FROM.STRING 67Q CHARCODE.TO.STRING 57Q BLOCK 53Q CONCAT 44Q FILENAMEFIELD 36Q CHARCODE.TO.STRING 15Q \GENERATENEXTFILE 6 \GENERATEFILES 3 DIRECTORY.FILL.PATTERN) (41Q HOST) ( 50Q "}" 27Q "{") LEFT.DIR.COMMAND D1 (I 1 WINDOW I 0 NODE) @x`l@jm`lja`g@Ahohg@AhohhHdIdgdg dgjdndhHdI  @A (176Q MIDDLE.DIR.COMMAND 170Q MENU) (135Q DEFAULTMENUHELDFN 126Q CLRPROMPT 117Q LEFT.DIR.GRAPH.FNS 61Q List% Files 41Q FileBrowser 35Q MENUTYPE# 21Q \EM.KBDAD3 5 \EM.KBDAD2) ( 72Q "Will do a quick listing of the files under subdirectory." 52Q "Will bring up FILEBROWSER on the selected subdirectory.") MIDDLE.DIR.COMMAND D1 (P 3 X I 1 WINDOW I 0 NODE) K@@0@A /dKl l% l K XI HZYJ YH(104Q LAST 60Q BKSYSBUF 55Q CHARACTER 50Q CONCAT 45Q CHARACTER 40Q CHARACTER 32Q EQUAL 15Q CHCON 12Q DIR.FROM.GRAPH) NIL () LEFT.DIR.GRAPH.FNS D1 (P 0 DIR.PATT I 2 BUTTON I 1 MENU I 0 ITEM) v0@do@ @dgH SgNg@Yddidd gIh@Zddidd gJhh h(162Q ADD.PROCESS 37Q FILEBROWSER 21Q DIR.FROM.GRAPH) (147Q QUOTE 106Q QUOTE 52Q QUICK.LIST 44Q List% Files 30Q FileBrowser) () DIR.FROM.GRAPH D1 (P 2 CURRENT.NODE P 1 ALLNODES P 0 RESULT I 1 WINDOW I 0 NODE) @@hAg @#JZ2Ih[hZJHJL LiKHoh0Hdoh]NM_^O  ^M(217Q LAST 213Q CONCATLIST 210Q \APPEND2 120Q EQUAL 30Q GETWINDOWUSERPROP) (25Q GRAPH) ( 160Q ">" 141Q "<") QUICK.LIST D1 (P 2 FILEGROUP P 1 START P 0 DIR.PATT I 1 WINDOW I 0 NODE F 3 NEXTDIR) T@A !H ZH kYhgH J cSd Im i i oi i h(120Q TERPRI 113Q PRIN1 100Q TERPRI 73Q PRIN1 67Q SUBSTRING 61Q CHARCODE.TO.STRING 51Q BLOCK 42Q \GENERATENEXTFILE 36Q PUTWINDOWPROP 23Q NCHARS 16Q \GENERATEFILES 13Q DIRECTORY.FILL.PATTERN 4 DIR.FROM.GRAPH) (32Q TITLE) ( 107Q "=== done ===") GET.DIR.FROM.STRING D1 (P 3 X P 1 LAST P 0 FIRST I 0 STRING) = o@ Xk@ JKo@Kd K iKkٻhY@HI (72Q SUBSTRING 45Q STREQUAL 42Q SUBSTRING 20Q NCHARS 12Q STRPOS) NIL ( 34Q ">" 6 "<") MERGE.DIR D1 (P 11Q Y P 4 X P 0 TEMP I 0 LIST) @ k @0@dJIh[I&KXdd X@HYd\h@A MN J") (PRETTYCOMPRINT DIRECTORYTOOLSCOMS) (RPAQQ DIRECTORYTOOLSCOMS ((FILES GRAPHER FILEBROWSER) (* GRAPH.DIRECTORY is the only function intended for users to call.) (FNS CHARCODE.TO.STRING GRAPH.DIRECTORY GRAPH.DIRECTORY1 DIRECTORY.TREE LEFT.DIR.COMMAND MIDDLE.DIR.COMMAND LEFT.DIR.GRAPH.FNS DIR.FROM.GRAPH QUICK.LIST GET.DIR.FROM.STRING MERGE.DIR FIXDIR))) (FILESLOAD GRAPHER FILEBROWSER) (PUTPROPS DIRECTORYTOOLS COPYRIGHT ("Jim Wogulis & Xerox Corporation" 1985)) NIL