(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED "14-Sep-94 18:38:12" ("compiled on " {DSK}lispusers>SYSTATS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "30-Oct-87 01:18:07" "{FireFS:CS:Univ Rochester}LispUsers>Lyric>SYSTATS.;1" 7592 changes to%: (VARS SYSTATSCOMS) (MACROS \SYSTATSREADBODY \MKSYSTATSBODY \NEWSYSTATSBODY \SYSTATSPROPBODY \SYSTATSDIFFBODY) (FNS \LOADFIXP \LOADFIXP2 SYSTATSDIFF \NEWSYSTATS \MKSYSTATS SYSTATSREAD SYSTATSPROP) (RECORDS SYSTATS) (PROPS (SYSTATS MAKEFILE-ENVIRONMENT)) previous date%: "29-Oct-87 15:16:18" {DSK}SYSTATS.;1) \NEWSYSTATS :D8 NIL T`HlHlHlHlHlHl Hl HlHlHlHlHlHNIL (4 |SYSTATSTYPE#|) () \MKSYSTATS :D8 (L (2 NOCLOCKFLG 1 SYSFLG 0 STATS)) 6@ A`lB`` ``l ``l ``l ``l ` `l ` `l ``l `` ``l ``l ``l `(302 \LOADFIXP2 281 \LOADFIXP2 260 \LOADFIXP2 239 \LOADFIXP2 221 \LOADFIXP2 200 \LOADFIXP2 179 \LOADFIXP2 158 \LOADFIXP2 137 \LOADFIXP2 116 \LOADFIXP2 95 \LOADFIXP2 74 \LOADFIXP2 69 CLOCK0 28 \NEWSYSTATS 9 \NEWSYSTATS) (307 \SYSTATS 294 \MISCSTATS 287 \SYSTATS 273 \MISCSTATS 266 \SYSTATS 252 \MISCSTATS 245 \SYSTATS 234 \MISCSTATS 227 \SYSTATS 213 \MISCSTATS 206 \SYSTATS 192 \MISCSTATS 185 \SYSTATS 171 \MISCSTATS 164 \SYSTATS 150 \MISCSTATS 143 \SYSTATS 129 \MISCSTATS 122 \SYSTATS 108 \MISCSTATS 101 \SYSTATS 87 \MISCSTATS 80 \SYSTATS 64 \SYSTATSCLOCK0 57 \SYSTATS 48 SYSTATS 42 \SYSTATSCLOCK0 33 \SYSTATS 21 \SYSTATS 15 SYSTATS) () \LOADFIXP :D8 (L (1 SRC 0 DST)) 3Al@A@AjA@n@Ank؆@j@A@NIL NIL () \LOADFIXP2 :D8 (L (1 SRC 0 DST)) @A@A@NIL NIL () SYSTATSREAD :D8 (L (1 FROMSTATS 0 INTOSTATS)) @ Ai HI HI HI HI HI H I H I HI HI HI HI HI H(158 \LOADFIXP2 146 \LOADFIXP2 134 \LOADFIXP2 122 \LOADFIXP2 110 \LOADFIXP2 98 \LOADFIXP2 86 \LOADFIXP2 74 \LOADFIXP2 62 \LOADFIXP2 50 \LOADFIXP2 38 \LOADFIXP2 26 \LOADFIXP2 12 \MKSYSTATS 5 \MKSYSTATS) NIL () SYSTATSDIFF :D8 (L (2 DIFSTATS 1 NEWSTATS 0 OLDSTATS)) @i Ai B JIH JIH JIH JIH JIH J I H J I H JIH JIH JIH JIH JIH J(213 \LOADFIXP 197 \LOADFIXP 181 \LOADFIXP 165 \LOADFIXP 149 \LOADFIXP 133 \LOADFIXP 117 \LOADFIXP 101 \LOADFIXP 85 \LOADFIXP 69 \LOADFIXP 53 \LOADFIXP 37 \LOADFIXP 19 \MKSYSTATS 13 \MKSYSTATS 6 \MKSYSTATS) NIL () SYSTATSPROP :D8 (L (1 FROMSTATS 0 PROP)) @gAi Aid @dgHgH@dgHgH@dgH gH @dgHgH@dgHgH@gHo@ (176 ERROR 25 \MKSYSTATS 14 \MKSYSTATS) (159 TOTALTIME 147 SWAPWRITES 135 SWAPWAITTIME 122 STARTTIME 110 PAGEFAULTS 97 NETIOTIME 85 NETIOOPS 72 KEYBOARDWAITTIME 60 GCTIME 47 DISKOPS 35 DISKIOTIME 5 ELAPSEDTIME) ( 170 "Unsupported SYSTATS property:") CLOCKTICKS :D8 (L (1 timerunits 0 interval)) %@k"3o@ jo@ @A dgdgdgdgdgdgo`HXd#dgdgdgdg`HXndgdgdgdgl<`HX?dgdgdgdgn`HXoA HHojH(274 ERROR 46 U-CASE 35 ERROR 20 ERROR) (257 \RCLKSECOND 246 HOURS 238 HRS 230 HOUR 221 HR 209 \RCLKSECOND 199 MINUTES 191 MINS 183 MINUTE 174 MIN 163 \RCLKSECOND 155 SECONDS 147 SECS 139 SECOND 130 SEC 114 \RCLKSECOND 100 MILLISECS 92 MSECS 83 MILLISEC 74 MSEC 63 TICKS 52 TICK) ( 285 0.5 268 "unknown timerunits: " 109 0.001 29 "Non-positive arg: " 14 "Non-numeric arg: ") (PRETTYCOMPRINT SYSTATSCOMS) (RPAQQ SYSTATSCOMS ((* ;; "Implementation") (DECLARE%: (LOCALVARS . T)) (DECLARE%: EVAL@COMPILE DONTEVAL@LOAD DONTCOPY (COMS (FILES (SOURCE FROM LISPUSERS) SYSEDIT) (P (SETQ SYSTATSPROPS (SORT (CONS (QUOTE ELAPSEDTIME) (INTERSECTION (RECORDFIELDNAMES (QUOTE MISCSTATS)) (QUOTE (DISKIOTIME DISKOPS GCTIME KEYBOARDWAITTIME NETIOOPS NETIOTIME PAGEFAULTS STARTTIME SWAPWAITTIME SWAPWRITES TOTALTIME))))) ) (EVAL (BQUOTE (DATATYPE SYSTATS (\, SYSTATSPROPS) (CREATE (\NEWSYSTATS)))))))) (DECLARE%: DONTCOPY ( COMS (RECORDS SYSTATS) (MACROS \SYSTATSPROPBODY \SYSTATSREADBODY \SYSTATSDIFFBODY \MKSYSTATSBODY \NEWSYSTATSBODY) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) SYSTATS))) (INITRECORDS SYSTATS) (INITVARS ( \SYSTATS NIL)) (FNS \NEWSYSTATS \MKSYSTATS \LOADFIXP \LOADFIXP2) (* ;; "Interface") (VARS SYSTATSPROPS ) (FNS SYSTATSREAD SYSTATSDIFF SYSTATSPROP CLOCKTICKS))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (/DECLAREDATATYPE (QUOTE SYSTATS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((SYSTATS 0 POINTER) (SYSTATS 2 POINTER) (SYSTATS 4 POINTER) (SYSTATS 6 POINTER) (SYSTATS 8 POINTER) (SYSTATS 10 POINTER) (SYSTATS 12 POINTER) (SYSTATS 14 POINTER) (SYSTATS 16 POINTER) (SYSTATS 18 POINTER) (SYSTATS 20 POINTER) (SYSTATS 22 POINTER))) (QUOTE 24)) (RPAQ? \SYSTATS NIL) (RPAQQ SYSTATSPROPS (DISKIOTIME DISKOPS ELAPSEDTIME GCTIME KEYBOARDWAITTIME NETIOOPS NETIOTIME PAGEFAULTS STARTTIME SWAPWAITTIME SWAPWRITES TOTALTIME)) (PUTPROPS SYSTATS COPYRIGHT ("Johannes A. G. M. Koomen" 1987)) NIL