mim/development/mim/20/pager-info.mud

   1 <SETG AC-VECTOR <IUVECTOR 16>>
   2 <GDECL (AC-VECTOR) UVECTOR>
   3
   4 <DEFINE PRINT-INFO ("TUPLE" IGNORE "AUX" (ACV:UVECTOR ,AC-VECTOR)
   5                     (TM:FLOAT <- <TIME>:FLOAT ,INITIAL-CPU:FLOAT>)
   6                     (RT:FLOAT <CHTYPE
   7                                </ <FLOAT
   8                                   <- <CALL SYSOP TIME-JSYS '(RETURN 1)>:FIX
   9                                      ,INITIAL-TIME:FIX>>
  10                                  1000.0> FLOAT>))
  11   <CALL SYSOP GTRPI *400000* '(RETURN ALL)>
  12   <PRINT-MANY ,OUTCHAN PRINC "CPU time:  " .TM
  13               "
  14 Real time:  " .RT " (" <* </ .TM .RT> 100.0> "%)"
  15               "
  16 Traps:  " <- <1 .ACV> ,INITIAL-TRAPS:FIX>
  17               "
  18 Faults:  " <- <2 .ACV> ,INITIAL-FAULTS:FIX>
  19               "
  20 Pager time:  " </ <FLOAT <- <3 .ACV> ,INITIAL-PAGER:FIX>> 1000.0>>>
  21
  22 <DEFINE IINFO ()
  23   <SETG INITIAL-TIME <CALL SYSOP TIME-JSYS '(RETURN 1)>>
  24   <SETG INITIAL-CPU <TIME>>
  25   <CALL SYSOP GTRPI *400000* '(RETURN ALL)>
  26   <SETG INITIAL-TRAPS <1 ,AC-VECTOR>>
  27   <SETG INITIAL-FAULTS <2 ,AC-VECTOR>>
  28   <SETG INITIAL-PAGER <3 ,AC-VECTOR>>
  29   <SETG QUIT-CLASS <CLASS "QUIT" 1 T>>
  30   <SETG QUIT-HANDLER <ON <HANDLER "QUIT" ,PRINT-INFO>>>>