(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "18-Jul-2023 22:14:57" ("compiled on " {WMEDLEY}FILEWATCH.;7) "18-Jul-2023 20:04:51" brecompiled exprs%: FW-COPY-FILENAME in "FULL 18-Jul-2023 ..." dated "18-Jul-2023 20:04:56") (FILECREATED "18-Jul-2023 22:14:56" {WMEDLEY}FILEWATCH.;7 59497 :EDIT-BY rmk :CHANGES-TO ( FNS FW-COPY-FILENAME) :PREVIOUS-DATE "18-Jul-2023 19:21:38" {WMEDLEY}FILEWATCH.;6) FILEWATCH :D8 (P 0 FW-PROC I 0 COMMAND) g @d3@@ @ bdgH=h?dgdgH+gb"ghbg@Hggdg%ghgggg dghgHg h@ H(210 FW-INTERACT 202 BLOCK 196 FILEWATCH 158 ADD.PROCESS 37 MKATOM 32 U-CASE 24 STRINGP 9 FIND.PROCESS) (191 ON 180 MENU 174 FW-Running? 165 OFF 152 HARDRESET 147 RESTARTABLE 142 FileWatcher 137 NAME 130 FW-LOOP 121 ON 115 ON 109 MENU 99 MENU 88 MENU 79 OFF 68 QUIT 60 OFF 45 ON 4 FileWatcher) () FILEWATCHPROP :D8 (P 3 OLDPROPVALUE P 2 PROPVALUE P 1 PROPNAME P 0 FILEWATCH#ARGS) VeHdkka`I'l/kala`I'JK`IJ iKoH (83 ERROR 63 LISTPUT) (70 FW-ReInit? 56 FW-Properties 41 FW-Properties 19 FW-Properties) ( 77 "FILEWATCH: Expecting 1 or 2 args -- ") FW-FORGET-STREAM :D8 (P 1 OFD I 0 STREAM F 2 FW-OFDList) L@ bRHh@I(IIgI HX(68 CLOSEW 5 GETSTREAM) (61 FW-OFD 52 FORGOTTEN 47 FW-OFD 37 FW-OFD 26 FW-OFD) () FW-ADJUST-PLACEMENT :D8 (P 0 OFD I 0 OFDLIST) @d @HdgdgH`HH HH H Hg-HHHHH ``goH h(207 SHOULDNT 161 FW-MOVEW 102 FW-SHAPEW 11 FW-ADJUST-PLACEMENT) (199 FW-OFD 185 FORGOTTEN 178 FW-WindowBottom 172 FW-WindowBottomDelta 167 FW-WindowBottom 151 FW-OFD 143 FW-OFD 132 FW-OFD 124 FW-OFD 114 NEW 109 FW-OFD 91 FW-OFD 83 FW-OFD 72 FW-OFD 64 FW-OFD 55 FW-WindowBottom 50 FW-OFD 38 CURRENT 30 NEW 22 FW-OFD) ( 193 "Unexpected OFDSTATUS : ") FW-ADJUST-REGION :D8 (P 2 OFD P 1 NAMEWIDTH P 0 MAXNAMEWIDTH) `vj`PdJdgdgJYH"IXgoJ `dJH ```l`dgdg ``j`dgdgho` (238 ERROR 116 FW-RESIZE-OFD 92 SHOULDNT) (233 FW-Anchor 218 BOTTOM-RIGHT 210 BOTTOM-LEFT 203 FW-WindowBottomDelta 197 FW-WindowBottomDelta 191 FW-WindowBottom 185 FW-WindowHeight 180 FW-WindowBottom 171 TOP-RIGHT 163 TOP-LEFT 157 FW-Anchor 152 FW-WindowBottomDelta 143 WBorder 138 FW-WindowHeight 133 FW-WindowBottom 127 FW-Position 103 FW-OFDList 84 FW-OFD 70 FORGOTTEN 54 FW-OFD 44 CURRENT 36 NEW 28 FW-OFD 15 FW-OFDList 4 FW-Justified?) ( 228 "Unsupported anchor spec: " 78 "Unexpected OFDSTATUS : ") FW-AFTERMOVEFN :D8 (P 7 NEWY P 6 NEWX P 5 OLDPOS P 4 DELTAY P 3 DELTAX P 2 REGION P 1 OFD I 0 W) h` g`qHh@Ihg @ ZI[MؾJI\M_jNN`jOO`igNO hHX(150 FILEWATCHPROP 67 WINDOWREGION 60 FILEWATCHPROP 15 PROCESS.NAME) (141 POSITION 135 FW-Dormant? 127 SCREENHEIGHT 113 SCREENWIDTH 92 FW-OFD 75 FW-OFD 55 POSITION 45 FW-OFD 27 FW-OFDList 20 FileWatcher 10 \RUNNING.PROCESS 5 FW-Dormant?) () FW-BUTTONEVENTFN :D8 (I 0 W) `ll@ }`lkg ``llNg 4`g 2IlIlٺkJ缻LHKjjkj@ @ h(148 FW-REPAINTFN 141 FW-COPY-FILENAME 100 \KEYNAMETONUMBER 83 SHIFTDOWNP 59 GETMOUSESTATE 52 FW-MOVE-OFD-WINDOWS 30 GETMOUSESTATE 23 FW-INTERACT 4 GETMOUSESTATE) (95 COPY 90 \LASTKEYSTATE 78 SHIFT 65 LASTMOUSEBUTTONS 47 POSITION 36 LASTMOUSEBUTTONS 10 LASTMOUSEBUTTONS) () FW-COPY-FILENAME :D8 (P 7 OFD P 0 REG I 0 W F 8 FW-OFDList) h@ Qg `g MlMlٹkI绺KLJjjkjH@ @ WNhd_@OiN^ h(158 COPYINSERT 153 MKSTRING 148 PSEUDOFILENAME 94 INSIDEP 89 LASTMOUSEY 83 LASTMOUSEX 75 GETMOUSESTATE 36 \KEYNAMETONUMBER 19 SHIFTDOWNP 6 DSPCLIPPINGREGION) (141 FW-OFD 119 FW-OFD 31 COPY 26 \LASTKEYSTATE 14 SHIFT) () FW-CHANGE-ANCHOR :D8 (P 1 NEWANCHOR P 0 OLDANCHOR) g !o` H` ` ` o` `di dododg dgjdndhdJ YddHgI h(169 FILEWATCHPROP 150 MENU 81 PRIN1 66 TERPRI 55 TERPRI 44 PRIN1 32 PRIN1 17 CLRPROMPT 9 FILEWATCHPROP) (163 ANCHOR 125 DEFAULTMENUHELDFN 116 CLRPROMPT 86 |MENUTYPE#| 76 PROMPTWINDOW 61 PROMPTWINDOW 50 PROMPTWINDOW 39 PROMPTWINDOW 27 PROMPTWINDOW 4 ANCHOR) ( 107 (("Top Left" (QUOTE TOP-LEFT)) ("Top Right" (QUOTE TOP-RIGHT)) ("Bottom Left" (QUOTE BOTTOM-LEFT)) ("Bottom Right" (QUOTE BOTTOM-RIGHT))) 98 "Anchor: " 71 "Indicate new anchor: " 22 "Current anchor is ") FW-CHANGE-JUSTIFICATION :D8 (P 1 NEWJUST? P 0 OLDJUST?) `g o` H` ` ` o YdHgI h(92 FILEWATCHPROP 76 MOUSECONFIRM 66 TERPRI 55 TERPRI 44 PRIN1 32 PRIN1 17 CLRPROMPT 9 FILEWATCHPROP) (86 JUSTIFIED? 61 PROMPTWINDOW 50 PROMPTWINDOW 39 PROMPTWINDOW 27 PROMPTWINDOW 4 JUSTIFIED?) ( 71 "Turn justification on?" 22 "Window justification is ") FW-CHANGE-POSITION :D8 (P 5 OFD P 3 R P 2 BOX P 1 NEWPOS P 0 OLDPOS) g 1`LJ`o` H` ` ` o` YHgI hJJJ HIJHIJ]gM J KL\IK (213 UNIONREGIONS 195 WINDOWREGION 144 GETBOXPOSITION 124 FILEWATCHPROP 109 GETPOSITION 103 PRIN1 87 TERPRI 76 TERPRI 65 PRIN1 53 PRIN1 37 CLRPROMPT 9 FILEWATCHPROP) (188 FW-OFD 179 CURRENT 172 FW-OFD 118 POSITION 98 PROMPTWINDOW 82 PROMPTWINDOW 71 PROMPTWINDOW 60 PROMPTWINDOW 48 PROMPTWINDOW 17 FW-OFDList 4 POSITION) ( 93 "Indicate new position: " 43 "Current position is ") FW-CLOSE-CMD :D8 (P 3 STREAM-TO-CLOSE P 2 OPEN-STREAMS P 1 OFD I 1 MANY? I 0 W) @RAO`HhY@/oI I tHX0Z%o h AJZB`dodJdg dgjdndhdL [h(188 MENU 125 FW-OPENP 116 BLOCK 110 CLOSEF? 103 PROMPTPRINT 90 FW-OPENP 74 CLOSEF? 55 MOUSECONFIRM 50 CONCAT) (163 DEFAULTMENUHELDFN 154 CLRPROMPT 133 |MENUTYPE#| 67 FW-OFD 43 FW-OFD 26 FW-OFD 10 FW-OFDList) ( 140 "Select stream to close: " 98 "FileWatch: no open files." 37 "Closing ") FW-CLOSE-OLD-OFD-WINDOWS :D8 (P 0 OFD) c`XdHdgH 1dg(dgdgoH h(90 SHOULDNT 41 CLOSEW) (82 FW-OFD 67 FORGOTTEN 58 CURRENT 49 NEW 34 FW-OFD 25 OLD 17 FW-OFD 4 FW-OFDList) ( 76 "Unexpected OFDSTATUS : ") FW-CLOSEFN :D8 (P 1 OFD I 0 W) W` gD`Hi`i@IIgHXh(9 PROCESS.NAME) (73 FORGOTTEN 68 FW-OFD 58 FW-OFD 48 FW-Reset? 42 FW-OpenFiles 36 FW-OpenFiles 22 FW-OFDList 14 FileWatcher 4 \RUNNING.PROCESS) () FW-CREATE-OFD :D8 (I 1 FILESTREAM I 0 FULLNAME) @ b`dAd@@` HdIA A Ag HdIAg iHdI,Ag iHdI.A iHdI0dg (160 FW-RESIZE-OFD 133 RANDACCESSP 114 OPENP 90 OPENP 69 GETFILEINFO 57 GETEOFPTR 50 RANDACCESSP 34 STRINGWIDTH 5 PSEUDOFILENAME) (152 NEW 109 OUTPUT 85 INPUT 64 LENGTH 29 FW-Font 12 |FW-OFDTYPE#|) () FW-CREATE-OFD-LIST :D8 (P 6 OFD P 2 FULLNAME P 1 FILESTREAM) `!H0`Y Z JI JI `HXdNdgdgdgNh.gN hoN [L,K]\Md`dg  \K(212 LAST 201 SORT 158 SHOULDNT 135 CLOSEW 54 FW-CREATE-OFD 45 FW-OFD-EXISTS? 36 FW-FILTERED-FILE? 30 FULLNAME) (206 FW-OFDList 196 FW-SORT-FN 188 FW-SortFn 180 FW-OFDList 150 FW-OFD 128 FW-OFD 119 OLD 106 FORGOTTEN 98 CURRENT 90 NEW 82 FW-OFD 65 FW-OFDList 59 FW-OFDList 20 FW-OFDList 4 FW-OpenFiles) ( 144 "Unexpected OFDSTATUS : ") FW-CREATE-OFD-WINDOWS :D8 (P 3 OFDSTREAM P 2 OFDWINDOW P 1 OFD) `1H` YI Z IK`K Jgg Jgg Jgg Jgg Jgg Jgg HXV(179 PUTWINDOWPROP 162 PUTWINDOWPROP 145 PUTWINDOWPROP 128 PUTWINDOWPROP 111 PUTWINDOWPROP 94 PUTWINDOWPROP 77 DSPFONT 53 \INSUREWINDOW 47 FW-CREATEW 27 FW-ADJUST-PLACEMENT 4 FW-ADJUST-REGION) (174 FW-AFTERMOVEFN 169 AFTERMOVEFN 157 FW-CLOSEFN 152 CLOSEFN 140 NILL 135 RESHAPEFN 123 FW-REPAINTFN 118 REPAINTFN 106 FW-BUTTONEVENTFN 101 BUTTONEVENTFN 89 FW-BUTTONEVENTFN 84 RIGHTBUTTONFN 71 FW-Font 62 FW-OFD 35 FW-OFD 22 FW-OFDList 9 FW-OFDList) () FW-CREATEW :D8 (I 0 OFD) }@@@HII@@HII@@ HII@@ HIIhhdi HII(114 CREATEW) (89 FW-OFD 83 FW-OFD 65 FW-OFD 59 FW-OFD 41 FW-OFD 35 FW-OFD 17 FW-OFD 11 FW-OFD 5 FW-OFD) () FW-FILTERED-FILE? :D8 (P 1 FILTER I 0 FULLNAME) 7`HhY@ I@g IiHX(42 DIRECTORY.MATCH 37 FILENAMEFIELD 22 DIRECTORY.MATCH) (32 HOST 4 FW-Filters) () FW-FORGET-CMD :D8 (P 8 OFD P 1 FORGET-OFD P 0 CURRENT-OFDS I 1 MANY? I 0 W) @A@ @`ALMXo h_gO_N Oh^L\O&dOOddi3 gOhhMLh^L&NdJdg dgjdndhdK Ydi AUIH XG`do0H(224 REMOVE 209 CLOSEW 191 MENU 42 PROMPTPRINT 9 CLOSEW) (236 |MENUTYPE#| 202 FW-OFD 166 DEFAULTMENUHELDFN 157 CLRPROMPT 118 QUOTE 98 FW-OFD 59 CURRENT 52 FW-OFD 18 FW-OFDList) ( 243 "Select file to forget: " 37 "FileWatch: no current files.") FW-INIT :D8 NIL hi(14 FW-RESET 9 FW-RE-INIT 4 FW-WIPE) (26 FW-Running? 20 FW-Dormant?) () FW-INIT-MENUS :D8 (P 2 C P 0 ITEMS) o`V`dodi dodgdHdg dgjdndhdI g`i`2dgggJhhhgJhH XgoogHh`hh(171 SUBST) (222 BackgroundMenu 215 BackgroundMenuCommands 209 BackgroundMenuCommands 197 SUBITEMS 182 FileWatch 161 QUOTE 146 QUOTE 141 FILEWATCH 136 QUOTE 124 FW-Commands 113 BackgroundMenuCommands 108 FileWatch 102 FW-InteractMenu 77 DEFAULTMENUHELDFN 68 CLRPROMPT 54 Y 24 |MENUTYPE#| 17 MENU 12 FW-InteractMenu) ( 192 "Display and continuously update list of open files and and the location of their file pointers" 187 (QUOTE (FILEWATCH (QUOTE ON))) 45 (-1 . 58) 31 "FileWatch:" 4 (("Forget File" (QUOTE FORGET) "Stop watching this file" (SUBITEMS ("Forget Many Files" (QUOTE FORGET-MANY) "Stop watching several files"))) ("Recall File" (QUOTE RECALL) "Start watching a forgotten file again" (SUBITEMS ("Recall Many Files" (QUOTE RECALL-MANY) "Start watching several forgotten files again"))) ("" NIL "No-op") ("Close File" (QUOTE CLOSE) "Close this file (user beware!)" (SUBITEMS ("Close Many Files" (QUOTE CLOSE-MANY) "Close several files"))) ("" NIL "No-op") ("Move Display" (QUOTE MOVE) "Change the display orientation specs" (SUBITEMS ("Set Anchor" (QUOTE SET-ANCHOR) "Corner of the display to be anchored") ("Set Position" (QUOTE SET-POSITION) "Position of display (relative to anchor)") ("Set Justification" (QUOTE SET-JUSTIFICATION) "Windows to be shrunk or grown depending on maximum filename width"))) ("Quit File Watcher" (QUOTE QUIT) ""))) FW-INIT-PROPS :D8 (P 11 FN P 10 YMAX P 9 YMIN P 8 XMAX P 7 XMIN P 6 H P 5 W P 4 Y P 3 X P 2 FILTER) . `g'hh`g'o g`g'!HI`g' `g'3 `g'hh`g' jdd```ld`ldld`ld `dgOKOLOO\HhHHIJ Jd3@*J Zg o J hP` o` ` J` o` ` h dgKOOLOCO\=dgOKOOL&O\ gKOOOLO\KL`g'`g' Od3@ O O(545 \DEFINEDP 488 SHOULDNT 396 \NCONC2 389 TERPRI 378 PRIN1 362 PRIN1 350 TERPRI 339 PRIN1 323 TERPRI 308 DIRECTORY.MATCH.SETUP 302 DIRECTORY.MATCH.SETUP 290 FILENAMEFIELD 279 DIRECTORY.FILL.PATTERN 265 STRINGP 156 POSITIONP 97 FONTCREATE 40 MEMB) (555 FW-SortFn 526 SORTFN 521 FW-Properties 516 FW-Shade 508 SHADE 503 FW-Properties 497 FW-Position 463 BOTTOM-RIGHT 435 BOTTOM-LEFT 406 TOP-RIGHT 384 PROMPTWINDOW 373 PROMPTWINDOW 357 PROMPTWINDOW 345 PROMPTWINDOW 334 PROMPTWINDOW 318 PROMPTWINDOW 285 HOST 218 TOP-LEFT 212 FW-Anchor 201 SCREENHEIGHT 191 SCREENWIDTH 184 SCREENHEIGHT 179 SCREENWIDTH 173 FW-Position 166 FW-Position 150 POSITION 145 FW-Properties 140 FW-Justified? 130 JUSTIFIED? 125 FW-Properties 120 FW-Interval 112 INTERVAL 107 FW-Properties 102 FW-Font 91 FONT 86 FW-Properties 81 FW-Filters 63 FILTERS 58 FW-Properties 53 FW-Anchor 48 BOTTOM-LEFT 29 ANCHOR 24 FW-Properties 19 FW-AllFiles? 9 ALL-FILES? 4 FW-Properties) ( 368 " ignored." 329 "FileWatch: filter not a string or symbol: " 297 "*" 35 (TOP-LEFT TOP-RIGHT BOTTOM-LEFT BOTTOM-RIGHT)) FW-INTERACT :D8 (I 1 MENUCMD I 0 W F 0 FOO) @cA` bddg@ dg@i dgdgi dg@ dg@i dgdgg dgg dgg ghoA (219 PROMPTPRINT 193 FW-MOVE-OFD-WINDOWS 173 FW-MOVE-OFD-WINDOWS 153 FW-MOVE-OFD-WINDOWS 133 FW-MOVE-OFD-WINDOWS 118 FW-CLOSE-CMD 101 FW-CLOSE-CMD 85 FW-RECALL-CMD 69 FW-RECALL-CMD 54 FW-FORGET-CMD 37 FW-FORGET-CMD 15 MENU) (207 FW-Running? 199 QUIT 188 JUSTIFIED? 180 SET-JUSTIFICATION 168 POSITION 160 SET-POSITION 148 ANCHOR 140 SET-ANCHOR 125 MOVE 108 CLOSE-MANY 92 CLOSE 76 RECALL-MANY 61 RECALL 44 FORGET-MANY 28 FORGET 10 FW-InteractMenu) ( 213 "Unrecognized FileWatch Control Menu command: ") FW-LOOP :D8 (P 0 OPENFILES) `h`[``H`:`Hh h` (127 BLOCK 116 FW-UPDATE-OFD-WINDOWS 103 FW-CLOSE-OLD-OFD-WINDOWS 97 FW-CREATE-OFD-WINDOWS 91 FW-CREATE-OFD-LIST 80 \APPEND2 72 FW-RESET 66 FW-RE-INIT 33 FW-OPENP 19 FW-WIPE 7 FW-INIT) (122 FW-Interval 110 FW-ReInit? 85 FW-OpenFiles 60 FW-ReInit? 52 FW-OpenFiles 45 FW-ReInit? 39 FW-Reset? 26 FW-Dormant? 13 FW-Running?) () FW-MOVE-OFD-WINDOWS :D8 (I 0 WHAT) 6@@dg@@dg@@g(51 FW-CHANGE-JUSTIFICATION 34 FW-CHANGE-POSITION 16 FW-CHANGE-ANCHOR) (43 JUSTIFIED? 26 POSITION 8 ANCHOR) () FW-MOVEW :D8 (I 0 OFD) ?@@@HII@@HII (60 MOVEW) (43 FW-OFD 37 FW-OFD 19 FW-OFD 13 FW-OFD 5 FW-OFD) () FW-OFD-EXISTS? :D8 (P 1 OFD I 1 FILESTREAM I 0 FULLNAME) `HhY@IAI,Ag ixI.Ag i_IdgI`ggidgdgdgoI HXL(184 SHOULDNT 86 OPENP 61 OPENP) (176 FW-OFD 161 FORGOTTEN 152 CURRENT 143 NEW 133 CURRENT 127 NEW 121 FW-ReInit? 116 FW-OFD 106 OLD 98 FW-OFD 81 OUTPUT 73 FW-OFD 56 INPUT 48 FW-OFD 34 FW-OFD 20 FW-OFD 4 FW-OFDList) ( 170 "Unexpected OFDSTATUS : ") FW-OPENP :D8 (P 8 L2 P 7 FNAME P 6 S P 4 OPENPFN P 3 FD P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) `hhHY`!J IHh[\g?KMV`N jI IdhhYNM]dKlLdI IdhhYO JZxHHIIhH OO(182 FLAST 151 \GETSTREAM) (87 STREAM 80 FW-AllFiles? 61 FDEV 52 \GENERIC.OPENP 44 FDEV 20 \FILEDEVICES 4 FW-OpenP-ScratchList) () FW-PERCENTAGE :D8 (L (1 Y 0 X)) A@ld@j@ldAjNIL NIL () FW-RE-INIT :D8 (P 2 OFD) ko` o` o` HdIIo` HdIIo` l`` l` k`d``d``d```d`` j` h` `=d`J JJ` J h(354 FW-RESIZE-OFD 345 STRINGWIDTH 320 DSPFONT 285 HEIGHTIFWINDOW 251 WIDTHIFWINDOW 111 STRINGWIDTH 80 STRINGWIDTH 54 STRINGWIDTH 39 STRINGWIDTH 19 STRINGWIDTH 4 FW-INIT-PROPS) (340 FW-Font 333 FW-OFD 327 FW-OFD 313 FW-OFD 307 FW-Font 295 FW-OFDList 290 FW-WindowHeight 280 WBorder 272 FONTDESCRIPTOR 267 FW-Font 262 FW-WindowBottom 256 FW-WindowNoNameWidth 246 WBorder 240 FW-AccessWidth 234 FW-AccessTab 228 FW-SeprWidth 222 FW-PercentWidth 216 FW-FieldWidth 210 FW-PercentTab 204 FW-SeprWidth 198 FW-FieldWidth 192 FW-EofPosTab 186 FW-SeprWidth 180 FW-FieldWidth 174 FW-CurPosTab 169 FW-SeprWidth 164 FW-PercentHeight 153 FONTDESCRIPTOR 148 FW-Font 139 FONTDESCRIPTOR 134 FW-Font 129 FW-PercentWidth 123 FW-FieldWidth 116 FW-FieldWidth 106 FW-Font 96 FW-AccessWidth 75 FW-Font 49 FW-Font 34 FW-Font 24 FW-SeprWidth 14 FW-Font) ( 101 "99999999" 70 "w " 44 "r " 29 "b " 9 "AA") FW-RECALL-CMD :D8 (P 8 OFD P 1 RECALL-OFD P 0 FORGOTTEN-OFDS I 0 MANY?) ' @`ALMXo h_gO_N Oh^L\O&dOOddi3 gOhhMLh^L&NdJdg dgjdndhdK YdiI Ii go gi@'IH X`dodi 0H_(259 REMOVE 229 PROMPTPRINT 212 FW-UPDATE-OFD-WINDOW 204 OPENP 180 MENU 31 PROMPTPRINT) (271 |MENUTYPE#| 244 FW-Reset? 235 OLD 218 CURRENT 197 FW-OFD 191 FW-OFD 155 DEFAULTMENUHELDFN 146 CLRPROMPT 107 QUOTE 87 FW-OFD 48 FORGOTTEN 41 FW-OFD 7 FW-OFDList) ( 278 "Select file to recall: " 224 "FileWatch: file has been closed." 26 "FileWatch: no forgotten files.") FW-REPAINTFN :D8 (P 1 OFD I 0 W) ;`Hh@II Ii HX(49 FW-UPDATE-OFD-WINDOW 40 OPENP) (33 FW-OFD 22 FW-OFD 4 FW-OFDList) () FW-RESET :D8 (P 0 OFD) Z`OdHdgHg(dgdgoH h(81 SHOULDNT) (73 FW-OFD 58 FORGOTTEN 49 OLD 39 OLD 34 FW-OFD 25 CURRENT 17 FW-OFD 4 FW-OFDList) ( 67 "Unexpected OFDSTATUS : ") FW-RESIZE-OFD :D8 (P 0 NAMEWIDTH I 1 MAXNAMEWIDTH I 0 OFD) A @@`H @` @`dgdg`4dgdg`@ ُo` @`@`H2@`H$@`H&@`H(@hd``h*@(127 ERROR) (220 FW-PercentHeight 215 FW-PercentWidth 208 FW-OFD 198 FW-AccessTab 193 FW-OFD 183 FW-PercentTab 178 FW-OFD 168 FW-EofPosTab 163 FW-OFD 153 FW-CurPosTab 148 FW-OFD 140 FW-WindowBottom 135 FW-OFD 122 FW-Anchor 107 FW-OFD 100 FW-Position 91 BOTTOM-RIGHT 83 TOP-RIGHT 74 FW-Position 66 BOTTOM-LEFT 58 TOP-LEFT 52 FW-Anchor 47 FW-OFD 39 FW-WindowHeight 34 FW-OFD 24 FW-WindowNoNameWidth 19 FW-OFD 8 FW-OFD) ( 117 "Unsupported anchor spec: ") FW-SHAPEW :D8 (I 0 OFD) t@@@HII@@HII@@ HII@@ HIIh (113 SHAPEW) (91 FW-OFD 85 FW-OFD 67 FW-OFD 61 FW-OFD 43 FW-OFD 37 FW-OFD 19 FW-OFD 13 FW-OFD 5 FW-OFD) () FW-SORT-FN :D8 (I 1 OFD2 I 0 OFD1) m`dgdgA@l`dgdg@Al`o` (106 ERROR) (101 FW-Anchor 87 FW-SortFn 78 FW-OFD 70 FW-OFD 61 BOTTOM-RIGHT 53 BOTTOM-LEFT 44 FW-SortFn 35 FW-OFD 27 FW-OFD 18 TOP-RIGHT 10 TOP-LEFT 4 FW-Anchor) ( 96 "Unsupported anchor spec: ") FW-UPDATE-OFD-WINDOW :D8 (P 11 Y P 10 X P 9 NEWPCTPOS P 8 NEWEOFPOS P 7 NEWCURPOS P 6 BOXBORDER P 5 PCTREGION P 4 OLDPCTPOS P 3 OLDEOFPOS P 2 OLDCURPOS P 1 FILESTREAM P 0 OFDSTREAM I 1 NEW? I 0 OFD)  @@@@@ @*kw I I _@.K@0OI _Od3 d3 OdO_O3 O_O3 j__O _AvH @H @(H @,@.__OoOoOooH @gAOJ*@2H oOH @OAOK*@$H oOH @OAOL@&H oOH oH MMNhH _MMhH k_AOLldOO``NnH MO`ldM`hH @O h(529 DSPFILL 499 GRAYBOXAREA 454 DSPYPOSITION 434 DSPXPOSITION 420 PRIN1 408 PRINTNUM 394 DSPXPOSITION 358 PRINTNUM 344 DSPXPOSITION 310 PRINTNUM 296 DSPXPOSITION 259 PRIN1 196 DSPXPOSITION 181 PRIN1 166 DSPRESET 155 FW-PERCENTAGE 101 GETEOFPTR 69 GETFILEPTR 57 OPENP) (536 FW-OFD 522 FW-Shade 510 FW-PercentWidth 488 FW-PercentHeight 483 FW-PercentWidth 386 FW-OFD 365 FW-OFD 336 FW-OFD 317 FW-OFD 288 FW-OFD 271 CURRENT 266 FW-OFD 211 FW-OFD 203 FW-OFD 188 FW-OFD 173 FW-OFD 89 FW-OFD 77 FW-OFD 45 FW-OFD 37 FW-OFD 29 FW-OFD 21 FW-OFD 13 FW-OFD 5 FW-OFD) ( 414 " %% " 400 (FIX 5) 350 (FIX 8) 302 (FIX 8) 253 "*" 247 "w" 238 "r" 228 "b") FW-UPDATE-OFD-WINDOWS :D8 (P 0 OFD) e`ZdHdgHi 9dgH (dgdgoH h(92 SHOULDNT 52 FW-UPDATE-OFD-WINDOW 35 FW-UPDATE-OFD-WINDOW) (84 FW-OFD 69 FORGOTTEN 60 OLD 43 CURRENT 25 NEW 17 FW-OFD 4 FW-OFDList) ( 78 "Unexpected OFDSTATUS : ") FW-WIPE :D8 (P 0 OFD) `dH hddddddddddddddddddddddddd(24 CLOSEW) (185 FW-WindowNoNameWidth 179 FW-WindowHeight 173 FW-WindowBottomDelta 167 FW-WindowBottom 161 FW-SortFn 155 FW-Shade 149 FW-SeprWidth 143 FW-Running? 137 FW-Reset? 131 FW-ReInit? 125 FW-Position 119 FW-PercentTab 113 FW-PercentWidth 107 FW-PercentHeight 101 FW-OpenFiles 95 FW-OFDList 89 FW-Justified? 83 FW-Interval 77 FW-FullNameWidth 71 FW-Font 65 FW-Filters 59 FW-FieldWidth 53 FW-EofPosTab 47 FW-CurPosTab 41 FW-Anchor 35 FW-AllFiles? 17 FW-OFD 4 FW-OFDList) () (PRETTYCOMPRINT FILEWATCHCOMS) (RPAQQ FILEWATCHCOMS ((PROP MAKEFILE-ENVIRONMENT FILEWATCH) (* ;;; "FILEWATCH is a facility for keeping an eye on the status of open files. It maintains a display containing the names of open files and their file pointer positions including a percentage bar." ) (* ;;; "Interface") (FNS FILEWATCH FILEWATCHPROP) (* ;;; "Implementation") (COMS (DECLARE%: DONTCOPY (RECORDS FW-OFD)) (INITRECORDS FW-OFD)) (FNS FW-FORGET-STREAM) (FNS FW-ADJUST-PLACEMENT FW-ADJUST-REGION FW-AFTERMOVEFN FW-BUTTONEVENTFN FW-COPY-FILENAME FW-CHANGE-ANCHOR FW-CHANGE-JUSTIFICATION FW-CHANGE-POSITION FW-CLOSE-CMD FW-CLOSE-OLD-OFD-WINDOWS FW-CLOSEFN FW-CREATE-OFD FW-CREATE-OFD-LIST FW-CREATE-OFD-WINDOWS FW-CREATEW FW-FILTERED-FILE? FW-FORGET-CMD FW-INIT FW-INIT-MENUS FW-INIT-PROPS FW-INTERACT FW-LOOP FW-MOVE-OFD-WINDOWS FW-MOVEW FW-OFD-EXISTS? FW-OPENP FW-PERCENTAGE FW-RE-INIT FW-RECALL-CMD FW-REPAINTFN FW-RESET FW-RESIZE-OFD FW-SHAPEW FW-SORT-FN FW-UPDATE-OFD-WINDOW FW-UPDATE-OFD-WINDOWS FW-WIPE) (DECLARE%: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE (FILES (SOURCE FROM LISPUSERS) SYSEDIT)) (INITVARS (FW-OFDList NIL) (FW-OpenP-ScratchList (CONS)) (FW-Commands (QUOTE (FORGET FORGET-MANY RECALL RECALL-MANY CLOSE CLOSE-MANY MOVE SET-ANCHOR SET-POSITION SET-JUSTIFICATION QUIT))) (FW-Properties (BQUOTE (FONT (GACHA 8) ALL-FILES? NIL POSITION (\, (CREATEPOSITION SCREENWIDTH 0)) ANCHOR BOTTOM-RIGHT SHADE (\, GRAYSHADE) INTERVAL 1000)))) (P ( FW-INIT-MENUS) (MOVD? (QUOTE CL:IDENTITY) (QUOTE PSEUDOFILENAME))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FILEWATCHPROP))))) (PUTPROPS FILEWATCH MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) (/DECLAREDATATYPE (QUOTE FW-OFD) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((FW-OFD 0 POINTER) (FW-OFD 2 POINTER ) (FW-OFD 4 POINTER) (FW-OFD 6 POINTER) (FW-OFD 8 POINTER) (FW-OFD 10 POINTER) (FW-OFD 12 POINTER) ( FW-OFD 14 POINTER) (FW-OFD 16 POINTER) (FW-OFD 18 POINTER) (FW-OFD 20 POINTER) (FW-OFD 22 POINTER) ( FW-OFD 24 POINTER) (FW-OFD 26 POINTER) (FW-OFD 28 POINTER) (FW-OFD 30 POINTER) (FW-OFD 32 POINTER) ( FW-OFD 34 POINTER) (FW-OFD 36 POINTER) (FW-OFD 38 POINTER) (FW-OFD 40 POINTER) (FW-OFD 42 POINTER) ( FW-OFD 44 POINTER) (FW-OFD 46 POINTER) (FW-OFD 48 POINTER) (FW-OFD 50 POINTER))) (QUOTE 52)) (RPAQ? FW-OFDList NIL) (RPAQ? FW-OpenP-ScratchList (CONS)) (RPAQ? FW-Commands (QUOTE (FORGET FORGET-MANY RECALL RECALL-MANY CLOSE CLOSE-MANY MOVE SET-ANCHOR SET-POSITION SET-JUSTIFICATION QUIT))) (RPAQ? FW-Properties (BQUOTE (FONT (GACHA 8) ALL-FILES? NIL POSITION (\, (CREATEPOSITION SCREENWIDTH 0 )) ANCHOR BOTTOM-RIGHT SHADE (\, GRAYSHADE) INTERVAL 1000))) (FW-INIT-MENUS) (MOVD? (QUOTE CL:IDENTITY) (QUOTE PSEUDOFILENAME)) (PUTPROPS FILEWATCH COPYRIGHT ("Johannes A. G. M. Koomen" 1986 1987 1998 2021)) NIL