(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED " 6-Jul-94 01:10:03" ("compiled on " {DSK}lispusers>VSTATS.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED "13-Nov-87 01:45:11" "{FireFS:CS:Univ Rochester}LispUsers>Lyric>VSTATS.;12" 46865 changes to%: (FNS VSTATS) previous date%: "30-Oct-87 01:20:07" "{FireFS:CS:Univ Rochester}LispUsers>Lyric>VSTATS.;11") VSTATS :D8 (L (0 on/off)) ü` š` ¿` š` ¿@d3@ð´@ bdhðµdgðµ dgðd³¬¿i¿oA`²JhdHYµgZdª¿@gð³JJJ ¿I°ÌH[µg\L ³LLL ¿K°Ï(245 SETTOPVAL 239 GETTOPVAL 225 MEMBER 220 GETTOPVAL 198 VStats-Display 188 SETTOPVAL 183 REMOVE 178 GETTOPVAL 98 VStatsOptions-Inspect 92 VStats-Init 56 U-CASE 42 CLOSEW 31 WINDOWP 20 CLOSEW 9 WINDOWP) (208 On 163 SUSPEND 148 Off 138 VStatsWindow 133 VStatsDsp 127 VStatsOptionsWindow 119 VStatsOff? 105 VStatsOff? 84 VStatsOff? 78 SUSPEND 69 OFF 37 VStatsOptionsWindow 26 VStatsOptionsWindow 15 VStatsWindow 4 VStatsWindow) ( 111 ((BEFORELOGOUTFORMS (VSTATS (QUOTE SUSPEND))) (BEFORESYSOUTFORMS (VSTATS (QUOTE SUSPEND))) (BEFOREMAKESYSFORMS (VSTATS (QUOTE SUSPEND))) (AFTERLOGOUTFORMS (VSTATS (QUOTE ON))) (AFTERSYSOUTFORMS (VSTATS (QUOTE ON))) (AFTERMAKESYSFORMS (VSTATS (QUOTE ON))) (BACKGROUNDFNS VStats-ReDisplay? T))) VStats-CenterRegion :D8 (L (3 pctlist 2 bottom 1 width 0 region)) GA@Ùâ@H@BC!IµhZ[HKØ¿KB¿J[HKØ¿KB¿IY°ÒNIL NIL () VStats-CreatePCTs :D8 (L (1 names&labels 0 font)) à jl@È Úo@ @È @ÈØAqMµN\dA lJÚâ_JÙ_¿Mµ[L__¿O_@ _¿HOØ¸OOjdddOIhjddKhKh_¿OµOh_¾M]°—O&_¿°õ^_O¿OJ¿N_OOØ¿OOOØmÿØØ_¿M]±ÿk(93 STRINGWIDTH 22 STRINGWIDTH) (36 FONTDESCRIPTOR 28 FONTDESCRIPTOR 8 FONTDESCRIPTOR) ( 16 "A") VStats-Display :D8 (L (0 ThruMouse?)) ¿0@´` ¡hhdd``X²` ¿¿`Y²` ¿¿`Z²` ¿¿H²9I²J²HI ¿IJ ¿°H²IšHI ¿±ÿ~HœJšHJ ¿±ÿoI´‚±ÿiJ´‚±ÿbIJ ¿±ÿV(185 VStats-DrawLine 160 VStats-DrawLine 145 VStats-DrawLine 130 VStats-DrawLine 122 VStats-DrawLine 105 VStatsMUtil-Display 99 VStats-SetUpTimer 80 VStatsSpace-Display 74 VStats-SetUpTimer 55 VStatsClock-Display 49 VStats-SetUpTimer 31 DSPFILL 15 VStats-MouseWait) (94 VStatsMUtilTimer 86 VStatsMUtilRegion 69 VStatsSpaceTimer 61 VStatsSpaceRegion 44 VStatsClockTimer 36 VStatsClockRegion 26 VStatsDsp 10 VStatsWindow) () VStats-DisplayPct :D8 (L (1 BOX.ALWAYS? 0 PCT)) ·`‘j‚nÿÿ@@@@@KK``JldÛl0Ø `l. `JldÜl Ûl0Ø `Jl Ül0Ø LJMÚldÛA¤IJñ²LLLMkH` ¿LHh`h(179 DSPFILL 165 GRAYBOXAREA 124 BOUT 107 BOUT 87 BOUT 75 BOUT 58 MOVETO) (174 VStatsDsp 159 VStatsDsp 112 VStatsDsp 92 VStatsDsp 80 VStatsDsp 63 VStatsDsp 53 VStatsDsp 4 VSTATS.BLACK?) () VStats-DrawLine :D8 (L (1 loregion 0 hiregion)) Eh` h` @AAØmÿØØâkÙHJIJlg` h(65 DRAWLINE 21 DSPRIGHTMARGIN 10 DSPLEFTMARGIN) (59 VStatsDsp 54 INVERT 16 VStatsDsp 5 VStatsDsp) () VStats-GetPCTsRegion :D8 (L (0 pctlist)) ž @`jd”HµjdJIÙkØKh\½L¾IMN_¿dOñ’¿O_¿dOñ’¿O¹JMMØmÿØNNØmÿØ_¿dOñ¢¿O_¿dOñ¢¿OºKMN_¿dOñ¢¿O_¿dOñ¢¿O»HX±ÿrNIL (5 SCREENWIDTH) () VStats-InitA0007 :D8 (L (0 w)) (4 VStats-Display) NIL () VStats-InitA0008 :D8 (L (0 w)) iNIL (5 VStatsOff?) () VStats-InitA0009 :D8 (L (0 w)) @ HHh(5 WINDOWREGION) (19 VSTATS.POSITION) () VStats-InitA0010 :D8 (L (0 w)) $`dlålð—¿i låkð´i (33 VStatsOptions-Inspect 19 VStats-Display) (4 LASTMOUSEBUTTONS) () VStats-Init :D8 NIL Kjdd`l`Úâõ²#`½HdMñ¡¿M¸`¾INØLØ¹²*`_¿HdOñ¢¿O¸`_¿IOØLØ¹²*`_¿HdOñ¢¿O¸`_¿IOØLØ¹Hjð«Hd˜d ‘hLØXdK _IhK_` µOOhddo _d`OkØÙ_ ¿dO ñ’¿O _"¿jO"ñ¢O"€j_O`OkØÙ_$¿dO$ñ’¿O$_&¿jO&ñ¢O&€j_` ªOO¿OOOOhdhKd ÉLlÛZ`µ‚±·`µ‚±•`µ|`gg`gg`gg`gg`gg`ggiHJ¿JNØLØ¿±ÿxHJ`¿JOØLØº±ÿZHJ`¿JOØLØº±ÿ8(574 VStats-CenterRegion 551 VStats-CenterRegion 529 VStats-CenterRegion 520 PUTWINDOWPROP 500 PUTWINDOWPROP 480 PUTWINDOWPROP 460 PUTWINDOWPROP 440 PUTWINDOWPROP 420 PUTWINDOWPROP 366 VStats-SetDisplayColor 354 \INSUREWINDOW 343 CREATEW 310 POSITIONP 223 GETBOXPOSITION 203 POSITIONP 191 HEIGHTIFWINDOW 181 WIDTHIFWINDOW 168 \FZEROP 111 VStatsMUtil-Init 64 VStatsSpace-Init 24 VStatsClock-Init) (569 VStatsMUtilPCTs 546 VStatsSpacePCTs 515 DON'T 510 RESHAPEFN 505 VStatsWindow 495 DON'T 490 SHRINKFN 485 VStatsWindow 475 VStats-InitA0010 470 BUTTONEVENTFN 465 VStatsWindow 455 VStats-InitA0009 450 AFTERMOVEFN 445 VStatsWindow 435 VStats-InitA0008 430 CLOSEFN 425 VStatsWindow 415 VStats-InitA0007 410 REPAINTFN 405 VStatsWindow 398 VStatsClockRegion 387 VStatsSpaceRegion 376 VStatsMUtilRegion 361 VStatsDsp 348 VStatsWindow 321 VSTATS.POSITION 305 VSTATS.POSITION 270 SCREENHEIGHT 232 SCREENWIDTH 198 VSTATS.POSITION 139 VStatsMUtilRegion 118 VStatsMUtilRegion 92 VStatsSpaceRegion 71 VStatsSpaceRegion 48 VStatsClockRegion 31 VStatsClockRegion 14 WBorder 7 WBorder) ( 217 "Indicate placement of VSTATS window:") VStats-InitInterval :D8 (L (2 MAXINTERVAL 1 INTERVAL 0 VSTATSTIMER)) +A3´&Ajó´!@BdAó‘¿AkHó‘k€Hg (38 CLOCKTICKS) (33 SECONDS) () VStats-MouseWait :D8 (L (0 WINDOW)) iNIL NIL () VStats-Percentage :D8 (L (1 Y 0 X)) `@jñ¡jA@ñ¢ldAnÿñ’A°;@dnGñ¨lÈÚAØAàÛAâñ²A@ÙXnGñ¬ldHlÈÚAØAàÛÙnÿÿAÛX@Úb¿HAÚldÛb¿@AâØAÛNIL NIL () VStats-ReDisplay? :D8 NIL ’`šg `µ(`²`œ``ñµ` hð`²` —H•¿`²` —H•¿`´` ´ H´(143 VStatsMUtil-ReDisplay 133 VStats-TimerExpired? 115 VStatsSpace-ReDisplay 107 VStats-TimerExpired? 89 VStatsClock-ReDisplay 81 VStats-TimerExpired? 59 COVEREDWP 15 VSTATS) (128 VStatsMUtilTimer 121 VStatsMUtilRegion 102 VStatsSpaceTimer 95 VStatsSpaceRegion 76 VStatsClockTimer 69 VStatsClockRegion 54 VStatsWindow 46 VStatsSpacePanicLevel 41 VStatsSpaceLevel 35 VStatsSpacePanicLevel 28 VStatsSpaceRegion 21 VSTATS.ALWAYS? 10 Off 4 VStatsOff?) () VStats-SetDisplayColor :D8 NIL G`´@`²nÿÿ` g` j` g` (68 DSPSOURCETYPE 53 DSPTEXTURE 41 DSPSOURCETYPE 26 DSPTEXTURE) (63 VStatsDsp 58 INPUT 48 VStatsDsp 36 VStatsDsp 31 INVERT 21 VStatsDsp 11 VSTATS.BLACK? 4 VStatsDsp) () VStats-SetUpTimer :D8 (L (0 TIMERINFO)) 0@@"HwHIÜZ@[Ã‘K‚lwjJñ‘j€IJÙöNIL (34 FIXP 23 FIXP) () VStats-TimerExpired? :D8 (L (0 TIMERINFO)) %`w`@ñ¬`@ýñ´@ (34 VStats-SetUpTimer) (20 VStatsCurrentTime 10 VStatsCurrentTime 4 VStatsCurrentTime) () VStatsOptions-Inspect :D8 (L (0 ThruMouse?)) ˆo@›` ´r` ²/```¿` ¿`H °8Hggggghoghg h(127 INSPECTW.CREATE 76 INSPECTW.REDISPLAY 64 MOVEW 53 MOVEW 31 WINDOWP 19 VStats-MouseWait) (132 VStatsOptionsWindow 121 VStatsOptions-PropPrintFn 115 VStatsOptions-SelectionFn 104 VStatsOptions-ValueCommandFn 99 VStatsOptions-PropCommandFn 94 VStatsOptions-StoreFn 89 VStatsOptions-FetchFn 84 VStatsOptions-PropertiesFn 70 VStatsOptionsWindow 59 VStatsOptionsWindow 48 LASTMOUSEY 43 LASTMOUSEX 38 VStatsOptionsWindow 26 VStatsOptionsWindow 14 VStatsWindow) ( 110 "VStats Options" 4 (VSTATS.BLACK? VSTATS.ALWAYS? VSTATS.SPACE.SHOW.DISK? VSTATS.MUTIL.HYSTERESIS VSTATS.SPACE.PANIC.LEVEL VSTATS.CLOCK.INTERVAL VSTATS.SPACE.INTERVAL VSTATS.MUTIL.INTERVAL)) VStatsOptions-FetchFn :D8 (L (1 OPTION 0 OPTIONS) F 1 VStatsSpaceDisk) Adgð²'¿` ´‚±î` HHgð²`•ggAdgð²¿`•gggðœ²Y`Adgð¿²B`gð²#Qµgg µZQg Adgð¿µ=ggðœ²î`Agð²`3µgjó²ø`oA (273 ERROR 220 VStatsMUtil-Ticks? 200 VStatsSpace-InitPanicLevel 184 FILENAMEFIELD 171 FILENAMEFIELD 136 VStatsSpace-Ticks? 113 VStatsClock-Ticks? 36 WINDOWREGION 20 WINDOWP) (261 VSTATS.MUTIL.HYSTERESIS 251 Cumulative 242 VSTATS.MUTIL.HYSTERESIS 234 VSTATS.MUTIL.HYSTERESIS 227 VSTATS.MUTIL.INTERVAL 213 VSTATS.MUTIL.INTERVAL 207 Disabled 192 VSTATS.SPACE.PANIC.LEVEL 179 HOST 166 DIRECTORY 160 Disabled 149 VSTATS.SPACE.SHOW.DISK? 143 VSTATS.SPACE.INTERVAL 128 VSTATS.SPACE.INTERVAL 120 VSTATS.CLOCK.INTERVAL 106 VSTATS.CLOCK.INTERVAL 100 Normal 94 Inverted 88 VSTATS.BLACK? 79 VSTATS.BLACK? 71 No 65 Yes 59 VSTATS.ALWAYS? 51 VSTATS.ALWAYS? 31 VStatsWindow 15 VStatsWindow 6 VSTATS.POSITION) ( 267 "Unknown VStats option: ") VStatsOptions-PropCommandFn :D8 (L (2 WINDOW 1 OPTIONS 0 OPTION)) ž@dgð˜¿o±ˆdgð—¿o°wgð–o°i@dgð—¿o°Xgð–o°J@dgð—¿o°9gð–o°+@dgð—¿o°gð•oŠo@ (155 PROMPTPRINT 150 ERROR) (131 VSTATS.POSITION 116 VSTATS.MUTIL.HYSTERESIS 100 VSTATS.MUTIL.INTERVAL 85 VSTATS.SPACE.PANIC.LEVEL 69 VSTATS.SPACE.SHOW.DISK? 54 VSTATS.SPACE.INTERVAL 38 VSTATS.CLOCK.INTERVAL 23 VSTATS.BLACK? 6 VSTATS.ALWAYS?) ( 144 "Unknown VStats option: " 138 "Position of VStats window." 124 "Number of intervals over which machine utilization will be averaged. Cumulative average used if <= 0." 107 "Number of seconds between machine utilization updates. Disabled if <= 0." 93 "Percentage at which VStats window will start flashing `out of space soon' warnings." 76 "Display percentage of local disk space used." 62 "Number of seconds between space utilization updates. Disabled if <= 0." 45 "Number of seconds between clock updates. Disabled if <= 0." 31 "Display VStats window in inverse video." 14 "Update VStats window even if partially or completely occluded.") VStatsOptions-PropPrintFn :D8 (L (1 OPTIONS 0 OPTION)) ‹@dgð•gdgð•ggð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð•go@ (136 ERROR) (124 Window.Position 117 VSTATS.POSITION 111 MUtil.Hysteresis 104 VSTATS.MUTIL.HYSTERESIS 96 MUtil.Update.Interval 89 VSTATS.MUTIL.INTERVAL 83 Space.Panic.Level 76 VSTATS.SPACE.PANIC.LEVEL 68 Show.Disk.Space? 61 VSTATS.SPACE.SHOW.DISK? 55 Space.Update.Interval 48 VSTATS.SPACE.INTERVAL 40 Clock.Update.Interval 33 VSTATS.CLOCK.INTERVAL 27 Display.Color 20 VSTATS.BLACK? 13 Update.Always? 6 VSTATS.ALWAYS?) ( 130 "Unknown VSTATS option: ") VStatsOptions-PropertiesFn :D8 (L (0 OPTIONS)) @NIL NIL () VStatsOptions-RNumber :D8 (L (3 NOTPOSVAL 2 NOTNUMVAL 1 FLOAT? 0 LABEL)) @hddiA H3µBjó‘HC(11 RNUMBER) NIL () VStatsOptions-SelectionFn :D8 (L (2 WINDOW 1 VALUE? 0 OPTION)) A¨@hBh(9 VStatsOptions-PropCommandFn) NIL () VStatsOptions-StoreFn :D8 (L (2 NEWVALUE 1 OPTION 0 OPTIONS)) E@AdgðŸ¿Bgð±dgð²)¿Bgð¿`´‚±¿±ågð²"hð¹B3¿IhððhðX±½Adgð²#¿hðºB3¿JhððhðX±’gð²!hð»B3¿KhððhðX°jAdgðž¿B¿°RgðšB¿iX°@Adgð›¿B¿iX°+gð²B¿`d²)B ŠoA ¿`´H´g (322 VSTATS 301 ERROR 289 MOVEW 219 VStatsSpace-InitPanicLevel 189 VStatsMUtil-Ticks? 171 VStatsMUtil-Ticks? 149 VStatsSpace-Ticks? 131 VStatsSpace-Ticks? 106 VStatsClock-Ticks? 88 VStatsClock-Ticks? 72 VStats-Display 66 VStats-SetDisplayColor) (317 On 307 VStatsWindow 280 VStatsWindow 274 VSTATS.POSITION 265 VSTATS.POSITION 255 VSTATS.MUTIL.HYSTERESIS 246 VSTATS.MUTIL.HYSTERESIS 234 VSTATS.SPACE.SHOW.DISK? 226 VSTATS.SPACE.SHOW.DISK? 213 VSTATS.SPACE.PANIC.LEVEL 204 VSTATS.SPACE.PANIC.LEVEL 182 VSTATS.MUTIL.INTERVAL 163 VSTATS.MUTIL.INTERVAL 142 VSTATS.SPACE.INTERVAL 122 VSTATS.SPACE.INTERVAL 99 VSTATS.CLOCK.INTERVAL 80 VSTATS.CLOCK.INTERVAL 55 VStatsWindow 49 VSTATS.BLACK? 43 Inverted 33 VSTATS.BLACK? 24 VSTATS.ALWAYS? 18 Yes 9 VSTATS.ALWAYS?) ( 295 "Unknown VSTATS option: ") VStatsOptions-ValueCommandFn :D8 (L (3 WINDOW 2 OPTIONS 1 OPTION) I 0 OLDVALUE F 4 VStatsSpaceDisk) y@` ´‚±gAdgð²I¿`do¿di¿dg ¿dg¿jdnÿdh¹dI ¿ µ‚±@±gð²H`do¿di¿dg ¿dg¿jdnÿdhºdJ ¿ µ‚±¾@±ºAgð³AgðªAdgð²¿oi@g±Šgð›Tb¿i °vAdgð²¿oh@g°Xgð²oh@g°=Agð²)`µ °& [KKKŠoA Xd@ô§CAHh(373 INSPECTW.REPLACE 360 ERROR 348 GETBOXPOSITION 329 WINDOWREGION 322 GETPOSITION 299 VStatsOptions-RNumber 272 VStatsOptions-RNumber 242 VStatsSpace-InitDisk 222 VStatsOptions-RNumber 167 MENU 89 MENU 12 VStats-MouseWait) (315 VStatsWindow 307 VSTATS.POSITION 294 Cumulative 279 VSTATS.MUTIL.HYSTERESIS 267 Disabled 251 VSTATS.SPACE.PANIC.LEVEL 230 VSTATS.SPACE.SHOW.DISK? 217 Disabled 201 VSTATS.MUTIL.INTERVAL 192 VSTATS.SPACE.INTERVAL 183 VSTATS.CLOCK.INTERVAL 142 DEFAULTMENUHELDFN 133 CLRPROMPT 112 |MENUTYPE#| 104 VSTATS.BLACK? 64 DEFAULTMENUHELDFN 55 CLRPROMPT 34 |MENUTYPE#| 25 VSTATS.ALWAYS? 7 VStatsOptionsWindow) ( 354 "Unknown VSTATS option: " 287 "MUtil hysteresis: " 260 "New panic level: " 210 "New interval: " 119 (Normal Inverted) 41 (Yes No)) VStatsClock-Display :D8 NIL 3```È Ø````` h` d` `l- h` d` `l- h` d` `l h` d` `l: h` d` `´)`l: h` d` (304 VStatsClock-DisplayDigits 288 DSPXPOSITION 277 BOUT 258 VStatsClock-DisplayDigits 242 DSPXPOSITION 231 BOUT 219 VStatsClock-DisplayDigits 203 DSPXPOSITION 192 BOUT 180 VStatsClock-DisplayDigits 164 DSPXPOSITION 153 BOUT 141 VStatsClock-DisplayMonth 125 DSPXPOSITION 114 BOUT 102 VStatsClock-DisplayDigits 86 DSPXPOSITION 75 DSPFONT 60 MOVETO 4 VStatsClock-Read) (299 VStatsClockSec 293 VStatsClockSecPos 283 VStatsDsp 270 VStatsDsp 263 VStatsClockDisplaySeconds? 253 VStatsClockMin 247 VStatsClockMinPos 237 VStatsDsp 224 VStatsDsp 214 VStatsClockHr 208 VStatsClockHrPos 198 VStatsDsp 185 VStatsDsp 175 VStatsClockYr 169 VStatsClockYrPos 159 VStatsDsp 146 VStatsDsp 136 VStatsClockMon 130 VStatsClockMonPos 120 VStatsDsp 107 VStatsDsp 97 VStatsClockDay 91 VStatsClockDayPos 81 VStatsDsp 70 VStatsDsp 65 VStatsClockFont 55 VStatsDsp 50 VStatsClockYPos 45 VStatsClockXPos 40 VStatsClockYPos 32 FONTDESCRIPTOR 27 VStatsClockFont 20 VStatsClockRegion 15 VStatsClockXPos 9 VStatsClockRegion) () VStatsClock-DisplayDigits :D8 (L (1 n 0 dspxpos)) 2@` `AldÜl Ûl0Ø `Al Ül0Ø (47 BOUT 30 BOUT 10 DSPXPOSITION) (35 VStatsDsp 15 VStatsDsp 5 VStatsDsp) () VStatsClock-DisplayMonth :D8 (L (1 m 0 dspxpos)) `lAÚkØo@` `IH µl? `IHkØ µl? `IHlØ µl? h(92 BOUT 83 NTHCHARCODE 68 BOUT 59 NTHCHARCODE 45 BOUT 36 NTHCHARCODE 24 DSPXPOSITION) (73 VStatsDsp 50 VStatsDsp 29 VStatsDsp 19 VStatsDsp) ( 10 "JanFebMarAprMayJunJulAugSepOctNovDec") VStatsClock-Init :D8 NIL e´Y` ¯o ¿`©Hkmü¸jdH` `È h(70 STRINGWIDTH 56 SUBSTRING 35 FONTCREATE 24 FONTP 11 DATE 4 VStatsClock-Ticks?) (98 VStatsClockRegion 92 VStatsClockRegion 80 FONTDESCRIPTOR 75 VStatsClockFont 65 VStatsClockFont 46 VStatsClockDisplaySeconds? 40 VStatsClockFont 19 VStatsClockFont) ( 30 (GACHA 12 BOLD)) VStatsClock-ReDisplay :D8 NIL ```````` `` `Hð¦i„`²`Kð³œh¿¿`Hð¯`` ¿`Ið¯`` ¿`Jð¯`` ¿`Kð¯`` ¿`Lð¯`` ¿`´`Mð®`` h(267 VStatsClock-DisplayDigits 236 VStatsClock-DisplayDigits 212 VStatsClock-DisplayDigits 188 VStatsClock-DisplayDigits 164 VStatsClock-DisplayMonth 140 VStatsClock-DisplayDigits 116 VStatsClock-Read 103 \NET.SETTIME 67 VStatsClock-Read 62 DSPYPOSITION 47 DSPFONT) (262 VStatsClockSec 257 VStatsClockSecPos 249 VStatsClockSec 242 VStatsClockDisplaySeconds? 231 VStatsClockMin 226 VStatsClockMinPos 218 VStatsClockMin 207 VStatsClockHr 202 VStatsClockHrPos 194 VStatsClockHr 183 VStatsClockYr 178 VStatsClockYrPos 170 VStatsClockYr 159 VStatsClockMon 154 VStatsClockMonPos 146 VStatsClockMon 135 VStatsClockDay 130 VStatsClockDayPos 122 VStatsClockDay 110 VStatsClockReset? 94 VStatsClockHr 87 VStatsClockReset? 81 VStatsClockReset? 72 VStatsClockDay 57 VStatsDsp 52 VStatsClockYPos 42 VStatsDsp 37 VStatsClockFont 29 VStatsClockSec 24 VStatsClockMin 19 VStatsClockHr 14 VStatsClockYr 9 VStatsClockMon 4 VStatsClockDay) () VStatsClock-Read :D8 NIL (4 VStatsClock-UnpackDate) NIL () VStatsClock-Ticks? :D8 NIL O`µ"jlwjölwjöh`n,Hdœkg ýñH(68 CLOCKTICKS 51 VStats-InitInterval) (75 VStatsClockDisplaySeconds? 63 MINUTE 43 VSTATS.CLOCK.INTERVAL 38 VStatsClockTimer 26 FIXP 15 FIXP 4 VStatsClockTimer) () VStatsClock-UnpackDate :D8 (L (0 D)) ð@µb`@oæâoålÛ’ @lØl< »Il<Ü_¿Il<ÛnˆøØ`ÙYlÜ¼IlÛ_¿OnµÜdo Ø½OnµÛ_¿MnnÜ¾OlØlÜ_¿H²$NdLO²¿LkØ\lñœOkØ_¿j¼h¸°¯No ºniOlÚØMnnÛØ¿J¿NJÙkØ¿L¿O¿Kh(173 \DTSCAN 138 \ISDST? 96 \DTSCAN 45 IMOD 7 DAYTIME) (236 VStatsClockSec 229 VStatsClockMin 221 VStatsClockHr 214 VStatsClockDay 202 VStatsClockMon 194 VStatsClockYr 66 \TimeZoneComp 14 \DayLightSavings) ( 168 ((335 . 11) (305 . 10) (274 . 9) (244 . 8) (213 . 7) (182 . 6) (152 . 5) (121 . 4) (91 . 3) (60 . 2) (31 . 1) (0 . 0)) 91 ((789 . 3) (424 . 2) (59 . 1) (0 . 0)) 27 2147483647 20 -2147483648) VStatsSpace-Display :D8 NIL ```È Ø"`` HI``°%dZ` ¿J` ¿µÜ` h` Y`°"d[I¿KI¿Ki ¿µßh(164 VStats-DisplayPct 127 VStatsSpace-Read 121 DSPYPOSITION 110 TERPRI 95 PRIN1 81 DSPXPOSITION 55 MOVETO 43 DSPFONT) (132 VStatsSpacePCTs 116 VStatsDsp 105 VStatsDsp 90 VStatsDsp 76 VStatsDsp 60 VStatsSpacePCTs 50 VStatsDsp 38 VStatsDsp 33 VStatsSpaceFont 22 FONTDESCRIPTOR 17 VStatsSpaceFont 10 VStatsSpaceRegion 4 VStatsSpaceRegion) () VStatsSpace-Init :D8 NIL ej´S` ¯o ¿``•o„o d (87 VStats-GetPCTsRegion 76 VStats-CreatePCTs 49 VStatsSpace-InitPanicLevel 44 VStatsSpace-InitDisk 33 FONTCREATE 22 FONTP 10 VStatsSpace-Ticks?) (98 VStatsSpaceRegion 92 VStatsSpaceRegion 81 VStatsSpacePCTs 59 VStatsSpaceDisk 54 VStatsSpaceFont 38 VStatsSpaceFont 17 VStatsSpaceFont 5 VStatsSpaceLevel) ( 71 ((DATA . "Data") (ATOM . "Atom") (VMEM . "VMem")) 65 ((DATA . "Data") (ATOM . "Atom") (VMEM . "VMem") (DISK . "Disk")) 28 (GACHA 10)) VStatsSpace-InitDiskA0008 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) $i@`dið•¿o hcg(24 DIRECTORYNAME) (33 :NORMAL 9 VSTATS.SPACE.SHOW.DISK?) ( 19 "{DSK}") VStatsSpace-InitDisk :D8 (L (0 ASK?) P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS*) y@¢±¹`odgð³dgð¨dgð²/¿1HµI°6d ˜»Jµ KhZY¿HX°äK&Z°÷gð´o ¿ HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿ HµQ`´+`WioWM gð´Ld´d d3 ´q`dgð“¿h°Vgð’i°Ldgð³dgð¨dgð²¿gggH°gð´ gH ¿±ÿK(360 PACKFILENAME 339 PACKFILENAME 291 MACHINETYPE 248 DISKTOTALPAGES 222 VStatsSpace-InitDiskA0008 179 MENU 120 \APPEND2 115 ALTOPARTITIONS 109 PROMPTPRINT 70 LISPDIRECTORYP 52 VOLUMES 20 MACHINETYPE) (374 VStatsSpaceDisk 365 VSTATS.SPACE.SHOW.DISK? 354 HOST 346 DORADO 333 DIRECTORY 328 DSK 323 HOST 314 DOVE 306 DAYBREAK 297 DANDELION 281 *DEFAULT* 270 *OFF* 263 VStatsSpaceDisk 253 VStatsSpaceDiskPages 239 VStatsSpaceDisk 228 :NORMAL 201 SI::NLSETQ-PROCEED-CASE 191 VSTATS.SPACE.SHOW.DISK? 150 DEFAULTMENUHELDFN 141 CLRPROMPT 96 DORADO 43 DOVE 35 DAYBREAK 26 DANDELION 9 |MENUTYPE#|) ( 210 (CL:ERROR . SI::NLSETQHANDLER) 104 "This takes a little while; hang on..." 15 (*OFF* *DEFAULT* (""))) VStatsSpace-InitPanicLevel :D8 (L (0 ASK?)) Y@Ÿo ¿g ´6`3´-ld`ó´#`jó´k`ó˜`ldÖ„`jØ(27 BOUNDP 11 RNUMBER) (86 VStatsSpacePanicLevel 79 VSTATS.SPACE.PANIC.LEVEL 70 VSTATS.SPACE.PANIC.LEVEL 63 VSTATS.SPACE.PANIC.LEVEL 53 VSTATS.SPACE.PANIC.LEVEL 45 VSTATS.SPACE.PANIC.LEVEL 34 VSTATS.SPACE.PANIC.LEVEL 22 VSTATS.SPACE.PANIC.LEVEL 16 VSTATS.SPACE.PANIC.LEVEL) ( 6 "Panic level (): ") VStatsSpace-ReDisplay :D8 NIL ‰`!¿j¿`` ¿Hµ5`´-``ñ´ ```Ù ¿l h¹`IºdJñ¡¿J¿JIð¦I ¿HX° (129 VStats-DisplayPct 89 VStatsSpace-ShrinkInterval 81 FLASHWINDOW 35 DSPFONT 12 VStatsSpace-Read) (114 VStatsSpaceLevel 98 VStatsSpaceLevel 75 VStatsSpacePanicLevel 70 VStatsSpaceLevel 65 VStatsWindow 57 VStatsSpacePanicLevel 52 VStatsSpaceLevel 45 VStatsSpacePanicLevel 30 VStatsDsp 25 VStatsSpaceFont 19 VStatsSpaceLevel 4 VStatsSpacePCTs) () VStatsSpace-Read :D8 NIL ¬`HµhZJ¿JJdgð²¿ooIêéjØ°edgð²¿ooIêéjØ°Edgð²¿` °*gð²`` Ù` „¿HX±ÿf(162 SHOULDNT 156 VStats-Percentage 145 DISKFREEPAGES 120 VStats-Percentage 110 VMEMSIZE 9 STORAGE.LEFT) (151 VStatsSpaceDiskPages 140 VStatsSpaceDisk 135 VStatsSpaceDiskPages 127 DISK 115 \LASTVMEMFILEPAGE 101 VMEM 69 ATOM 40 DATA 4 VStatsSpacePCTs) ( 83 100.0 78 100.5 54 100.0 49 100.5) VStatsSpace-ShrinkInterval :D8 (L (0 shrinkpct)) Rld@µlÙl2Hñ¡Hl2`"IHÚldÛlg »dKñ¡¿KZIJñ´`J¿` h(78 VStats-SetUpTimer 47 CLOCKTICKS) (73 VStatsSpaceTimer 65 VStatsSpaceTimer 42 SECONDS 25 VStatsSpaceTimer) () VStatsSpace-Ticks? :D8 NIL 6`µ"jlwjölwjöh`n„(51 VStats-InitInterval) (43 VSTATS.SPACE.INTERVAL 38 VStatsSpaceTimer 26 FIXP 15 FIXP 4 VStatsSpaceTimer) () VStatsMUtil-Display :D8 NIL ```È Ø"`` HI``°%dZ` ¿J` ¿µÜ` h` Y`°"d[I¿KI¿Ki ¿µßh(164 VStats-DisplayPct 127 VStatsMUtil-Read 121 DSPYPOSITION 110 TERPRI 95 PRIN1 81 DSPXPOSITION 55 MOVETO 43 DSPFONT) (132 VStatsMUtilPCTs 116 VStatsDsp 105 VStatsDsp 90 VStatsDsp 76 VStatsDsp 60 VStatsMUtilPCTs 50 VStatsDsp 38 VStatsDsp 33 VStatsMUtilFont 22 FONTDESCRIPTOR 17 VStatsMUtilFont 10 VStatsMUtilRegion 4 VStatsMUtilRegion) () VStatsMUtil-Init :D8 NIL N´B` ¯o „`o d (64 VStats-GetPCTsRegion 53 VStats-CreatePCTs 32 FONTCREATE 21 FONTP 11 VStatsMUtil-InitState 4 VStatsMUtil-Ticks?) (75 VStatsMUtilRegion 69 VStatsMUtilRegion 58 VStatsMUtilPCTs 43 VStatsMUtilFont 37 VStatsMUtilFont 16 VStatsMUtilFont) ( 48 ((CPU . " CPU") (IO . " I/O") (GC . " GC") (SWAP . "Swap")) 27 (GACHA 10)) VStatsMUtil-InitState :D8 (L (0 DONT.SET.ORIG?)) ¤`³$¿¿h„`—`h¿@ª` ¿`3µhjó²í`j2IHó³¼Kµ Lh[ºIkÔY°êL&»°÷Jd `h(149 LAST 116 SYSTATSREAD 81 SYSTATSREAD 66 SYSTATSREAD 22 SYSTATSREAD 11 SYSTATSREAD) (161 VStatsMUtilNextState 154 VStatsMUtilStateRing 143 VStatsMUtilStateRing 102 VSTATS.MUTIL.HYSTERESIS 92 VStatsMUtilStateRing 86 VStatsMUtilNextState 72 VSTATS.MUTIL.HYSTERESIS 61 VStatsMUtilOrigState 51 VStatsMUtilStateRing 45 VStatsMUtilStateRing 39 VStatsMUtilStateRing 34 VStatsMUtilNextState 27 VStatsMUtilDiffState 16 VStatsMUtilOrigState 4 VStatsMUtilOrigState) () VStatsMUtil-ReDisplay :D8 NIL ;`` `HµhYdIð¤ ¿HX°å(51 VStats-DisplayPct 19 DSPFONT 4 VStatsMUtil-Read) (24 VStatsMUtilPCTs 14 VStatsDsp 9 VStatsMUtilFont) () VStatsMUtil-Read :D8 NIL ?ð`µ9`¹`¸I HI`ZgJ _¿jOñ³O°`¿¹`°ÀjgJ _¿jOñ¢O€jØ[gJ _¿jOñ¢O€j\gJ _¿jOñ¢O€j]gJ KLØMØ_¿dOñ¢¿O^ldKN [LN \ØMN ]ØÙ_¿jOñ¢O€j_`°Ld_O¿OOdgð”¿O°'dgð“¿K°dgð’¿Lgð‘M„¿µµh(309 SHOULDNT 214 VStats-Percentage 205 VStats-Percentage 197 VStats-Percentage 171 SYSTATSPROP 147 SYSTATSPROP 123 SYSTATSPROP 98 SYSTATSPROP 51 SYSTATSPROP 39 SYSTATSDIFF 27 SYSTATSREAD) (300 SWAP 290 GC 278 IO 265 CPU 236 VStatsMUtilPCTs 165 ELAPSEDTIME 141 SWAPWAITTIME 117 GCTIME 92 DISKIOTIME 83 VStatsMUtilStateRing 76 VStatsMUtilStateRing 70 VStatsMUtilStateRing 45 NETIOTIME 34 VStatsMUtilDiffState 20 VStatsMUtilOrigState 14 VStatsMUtilNextState 7 VStatsMUtilStateRing) () VStatsMUtil-Ticks? :D8 NIL 6`µ"jlwjölwjöh`n,(51 VStats-InitInterval) (43 VSTATS.MUTIL.INTERVAL 38 VStatsMUtilTimer 26 FIXP 15 FIXP 4 VStatsMUtilTimer) () ALTOPARTITIONPA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 I F 4 SI::CONDITION-CASE-LITERALS F 5 *CONDITION-HANDLER-BINDINGS* F 6 A0169) 2i@TUoSo ´S cg(40 \MVLIST 32 INFILEP 27 PACK*) (47 :NORMAL) ( 22 "}SYS.BOOT;1" 16 "{DSK") ALTOPARTITIONP :D8 (P 1 A0169 P 0 SI::CONDITION-CASE-LITERALS I 0 I) ;oH dgð•¿I$dÃœ¿gh H (56 SI::CONDITION-CASE-ERROR 47 RETFROM 14 ALTOPARTITIONPA0001) (41 ALTOPARTITIONP 34 XCL:DEVICE-ERROR 20 :NORMAL) ( 4 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE (XCL:DEVICE-ERROR XCL:PATHNAME-ERROR XCL:FS-ERROR)))) ALTOPARTITIONSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS*) gggd hhdTcgg k1H ¡IHd ²¿oH »Jµ KhZ¹HkÔX°ÖK&º°÷(81 PACK* 67 ALTOPARTITIONP 57 \TESTPARTITION 47 PUTD 42 GETD 15 GETD) (37 TRUE 32 \M44CHECKPASSWORD 9 \M44CHECKPASSWORD 4 PUTD) ( 75 "DSK") ALTOPARTITIONS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) +gð´S!g ¿$(36 SI::RESETUNWIND 31 \MVLIST 26 ALTOPARTITIONSA0001 4 MACHINETYPE) (21 SI::RESETUNWIND 9 DORADO) () DISKUSEDPAGESA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DSK F 3 SI::NLSETQ-VALUE) i@Rµo hcg(17 DIRECTORYNAME) (26 :NORMAL) ( 12 "{DSK}") DISKUSEDPAGES :D8 (L (1 RECOMPUTE) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 DSK F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) Àdgð³dgð¨dgð²/¿o g gð´Y@A @A Ùgð´A`WioWI gð´Hb´A²'@ jLµM¾MNg Ô½L\°ènXÞ@A ÙjLñ¡Lj(178 DISKFREEPAGES 161 GETFILEINFO 137 FILDIR 112 DISKUSEDPAGESA0001 73 DISKFREEPAGES 66 VOLUMESIZE 51 FILENAMEFIELD 41 DIRECTORYNAME 4 MACHINETYPE) (156 SIZE 118 :NORMAL 91 SI::NLSETQ-PROCEED-CASE 80 DORADO 56 DSK 46 HOST 27 DOVE 19 DAYBREAK 10 DANDELION) ( 100 (CL:ERROR . SI::NLSETQHANDLER) 36 "{DSK}") DISKTOTALPAGESA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DSK F 3 SI::NLSETQ-VALUE) i@Rµo hcg(17 DIRECTORYNAME) (26 :NORMAL) ( 12 "{DSK}") DISKTOTALPAGES :D8 (L (1 RECOMPUTE) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 DSK F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) ‡dgð³dgð¨dgð²'¿o g gð´K@A gð´;`TioUI gð´HbdA @A Ø(131 DISKUSEDPAGES 124 DISKFREEPAGES 102 DISKTOTALPAGESA0001 66 VOLUMESIZE 51 FILENAMEFIELD 41 DIRECTORYNAME 4 MACHINETYPE) (108 :NORMAL 83 SI::NLSETQ-PROCEED-CASE 72 DORADO 56 DSK 46 HOST 27 DOVE 19 DAYBREAK 10 DANDELION) ( 91 (CL:ERROR . SI::NLSETQHANDLER) 36 "{DSK}") COVEREDWP :D8 (L (0 WINDOW)) G@ ´2@É@É2ÉI@ð‘hHIÉ ‘iIÉY´ö°Þ(53 REGIONSINTERSECTP 5 OPENWP) (62 WINDOW 46 WINDOW 28 SCREEN 21 WINDOW 13 WINDOW) () (PRETTYCOMPRINT VSTATSCOMS) (RPAQQ VSTATSCOMS ((* * User interface * *) (FNS VSTATS) (INITVARS (VSTATS.ALWAYS? NIL) (VSTATS.BLACK? NIL) (VSTATS.CLOCK.INTERVAL 1) (VSTATS.MUTIL.HYSTERESIS 20) (VSTATS.MUTIL.INTERVAL 1) ( VSTATS.POSITION (create POSITION XCOORD _ SCREENWIDTH YCOORD _ SCREENHEIGHT)) (VSTATS.SPACE.INTERVAL 300) (VSTATS.SPACE.PANIC.LEVEL 95) (VSTATS.SPACE.SHOW.DISK? T)) (* * VSTATS support stuff * *) ( LOCALVARS . T) (FILES (SYSLOAD FROM LISPUSERS) READNUMBER SYSTATS) (DECLARE%: EVAL@COMPILE DONTEVAL@LOAD DONTCOPY (GLOBALVARS \TimeZoneComp \BeginDST \EndDST \DayLightSavings TIME.ZONES) ( CONSTANTS (\4YearsDays (ADD1 (ITIMES 365 4))))) (COMS (DECLARE%: DONTCOPY (RECORDS VSTATSPCTINFO VSTATSTIMERINFO SPACEDATA) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) VSTATS)) (INITRECORDS VSTATSPCTINFO VSTATSTIMERINFO SPACEDATA)) (INITVARS (VStatsOff? T) (VStatsWindow) (VStatsDsp) (VStatsCurrentTime ( SETUPTIMER 0 NIL (QUOTE TICKS)))) (FNS VStats-CenterRegion VStats-CreatePCTs VStats-Display VStats-DisplayPct VStats-DrawLine VStats-GetPCTsRegion VStats-Init VStats-InitInterval VStats-MouseWait VStats-Percentage VStats-ReDisplay? VStats-SetDisplayColor VStats-SetUpTimer VStats-TimerExpired?) (* * option support stuff * *) (INITVARS (VStatsOptionsWindow)) (FNS VStatsOptions-Inspect VStatsOptions-FetchFn VStatsOptions-PropCommandFn VStatsOptions-PropPrintFn VStatsOptions-PropertiesFn VStatsOptions-RNumber VStatsOptions-SelectionFn VStatsOptions-StoreFn VStatsOptions-ValueCommandFn) (* * clock support stuff * *) (INITVARS (VStatsClockFont) ( VStatsClockReset?) (VStatsClockTimer)) (FNS VStatsClock-Display VStatsClock-DisplayDigits VStatsClock-DisplayMonth VStatsClock-Init VStatsClock-ReDisplay VStatsClock-Read VStatsClock-Ticks? VStatsClock-UnpackDate) (* * space support stuff * *) (INITVARS (VStatsSpaceDiskPages) ( VStatsSpaceFont) (VStatsSpacePCTs) (VStatsSpaceTimer)) (INITVARS (\LASTVMEMFILEPAGE 16383)) (FNS VStatsSpace-Display VStatsSpace-Init VStatsSpace-InitDisk VStatsSpace-InitPanicLevel VStatsSpace-ReDisplay VStatsSpace-Read VStatsSpace-ShrinkInterval VStatsSpace-Ticks?) (* * machine utilization support stuff * *) (INITVARS (VStatsMUtilFont) (VStatsMUtilOrigState) (VStatsMUtilPCTs) ( VStatsMUtilTimer)) (FNS VStatsMUtil-Display VStatsMUtil-Init VStatsMUtil-InitState VStatsMUtil-ReDisplay VStatsMUtil-Read VStatsMUtil-Ticks?) (* * These ought to be system functions!!! * *) (FNS ALTOPARTITIONP ALTOPARTITIONS DISKUSEDPAGES DISKTOTALPAGES COVEREDWP) (* * Initialize on LOAD * *) (VARS (BackgroundMenu)) (ADDVARS (BackgroundMenuCommands ("VStats" (QUOTE (VSTATS (QUOTE On) )) "Running display of clock and/or space utilization"))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (COND (( OR VSTATS.CLOCK.INTERVAL VSTATS.SPACE.INTERVAL VSTATS.MUTIL.INTERVAL) (VSTATS (QUOTE ON)))))))) (RPAQ? VSTATS.ALWAYS? NIL) (RPAQ? VSTATS.BLACK? NIL) (RPAQ? VSTATS.CLOCK.INTERVAL 1) (RPAQ? VSTATS.MUTIL.HYSTERESIS 20) (RPAQ? VSTATS.MUTIL.INTERVAL 1) (RPAQ? VSTATS.POSITION (create POSITION XCOORD _ SCREENWIDTH YCOORD _ SCREENHEIGHT)) (RPAQ? VSTATS.SPACE.INTERVAL 300) (RPAQ? VSTATS.SPACE.PANIC.LEVEL 95) (RPAQ? VSTATS.SPACE.SHOW.DISK? T) (FILESLOAD (SYSLOAD FROM LISPUSERS) READNUMBER SYSTATS) (RPAQ? VStatsOff? T) (RPAQ? VStatsWindow) (RPAQ? VStatsDsp) (RPAQ? VStatsCurrentTime (SETUPTIMER 0 NIL (QUOTE TICKS))) (RPAQ? VStatsOptionsWindow) (RPAQ? VStatsClockFont) (RPAQ? VStatsClockReset?) (RPAQ? VStatsClockTimer) (RPAQ? VStatsSpaceDiskPages) (RPAQ? VStatsSpaceFont) (RPAQ? VStatsSpacePCTs) (RPAQ? VStatsSpaceTimer) (RPAQ? \LASTVMEMFILEPAGE 16383) (RPAQ? VStatsMUtilFont) (RPAQ? VStatsMUtilOrigState) (RPAQ? VStatsMUtilPCTs) (RPAQ? VStatsMUtilTimer) (RPAQQ BackgroundMenu NIL) (ADDTOVAR BackgroundMenuCommands ("VStats" (QUOTE (VSTATS (QUOTE On))) "Running display of clock and/or space utilization")) (COND ((OR VSTATS.CLOCK.INTERVAL VSTATS.SPACE.INTERVAL VSTATS.MUTIL.INTERVAL) (VSTATS (QUOTE ON)))) (PUTPROPS VSTATS COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL