mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
140 lines
4.5 KiB
Plaintext
140 lines
4.5 KiB
Plaintext
'<PCODE "DRAGIT">
|
||
|
||
<PACKAGE "DRAGIT">
|
||
|
||
<ENTRY DRAGON SUMMARY DATA SDATA>
|
||
|
||
<USE "LINES" "NSTR" "ITIME" "FORMAT">
|
||
|
||
<SETG DRAGON %<RSUBR!- '[ %<PCODE!- "DRAGIT" 0> DRAGON #DECL ("VALUE" <OR ATOM
|
||
FALSE> "OPTIONAL" STRING) PCRLFS!-IFORMAT PFIX!-IFORMAT IDAY PFLOAT!-IFORMAT
|
||
PCOLUMN!-IFORMAT POBJ!-IFORMAT LSH LTIME BTIME ZONE SUBSTR COUNT-LINES
|
||
BUILD-LINES READ-LINE FIND-LINE COMMENT-LINE "DRAGON HOARD" "READ" "REPORT"
|
||
"DRAGON" "TOTALS" #FALSE ("CANT FIND TOTALS LINE") "This file" %<RGLOC SDATA T>
|
||
"Totals" %<RGLOC DATA T> T %<RGLOC GSTR T> "- TOTALS -" "- RANDOMS -" " --" ""
|
||
"SUBTOTALS" NM2 (STRING) SNM "EST" %<RGLOC STSTR T> "UP" %<RGLOC UPSTR T> %<
|
||
RGLOC DNSTR T> "DOWN" %<RGLOC OKSTR T> "OK" "0123456789" " " "BAD-FRACTION"
|
||
OUTCHAN " ;" ["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"] "." " " ":" "!" (
|
||
CHANNEL) "ALL" "R" "RUNS" "G" "GRPS" "T" "TOTS" "SUMMRY" "PRINT"
|
||
"
|
||
Group-name Users Connect-time %Con Cpu time %Cpu Swaps %Swaps
|
||
|
||
" "..." " "
|
||
"
|
||
Month Log Up Down Down Cpu Up Cpu Runs Mean Swaps Swaps/hour
|
||
hrs hrs hrs (day) hrs % % run x1000 up cpu
|
||
|
||
" ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"] "%"
|
||
"----------------" %<RGLOC CSTART T> %<RGLOC CEND T>]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DRAGON PGLUE ![715827882 -17179869185 -1 -1
|
||
-268435456!]>>
|
||
|
||
|
||
<SETG GSTR "MIT-DM accounts for ">
|
||
|
||
<GDECL (GSTR) STRING>
|
||
|
||
<SETG READ-GROUPS %<RSUBR-ENTRY '[DRAGON READ-GROUPS #DECL ("VALUE" VECTOR
|
||
CHANNEL)] 227>>
|
||
|
||
<SETG COUNT-LINES %<RSUBR-ENTRY '[DRAGON COUNT-LINES #DECL ("VALUE" <OR FALSE
|
||
FIX> CHANNEL "TUPLE" <TUPLE [REST STRING]>)] 391>>
|
||
|
||
<SETG COMMENT-LINE %<RSUBR-ENTRY '[DRAGON COMMENT-LINE #DECL ("VALUE" <OR FALSE
|
||
STRING> CHANNEL "TUPLE" <TUPLE [REST STRING]>)] 465>>
|
||
|
||
<SETG DEFOPEN %<RSUBR-ENTRY '[DRAGON DEFOPEN #DECL ("VALUE" <OR CHANNEL FALSE>
|
||
STRING STRING STRING STRING)] 533>>
|
||
|
||
<SETG STSTR " This file is for period beginning ">
|
||
|
||
<SETG UPSTR "UP ">
|
||
|
||
<SETG DNSTR "DOWN ">
|
||
|
||
<SETG OKSTR "OK ">
|
||
|
||
<GDECL (STSTR UPSTR DNSTR OKSTR) STRING>
|
||
|
||
<SETG BEGINS? %<RSUBR-ENTRY '[DRAGON BEGINS? #DECL ("VALUE" <OR FALSE STRING>
|
||
STRING STRING)] 570>>
|
||
|
||
<PUTPROP TIMELIST DECL '<LIST [2 <LIST [3 FIX]>] STRING>>
|
||
|
||
<PUTPROP HMS DECL '<LIST [3 FIX]>>
|
||
|
||
<SETG PRSLIN %<RSUBR-ENTRY '[DRAGON PRSLIN #DECL ("VALUE" <OR FALSE <LIST STRING
|
||
<LIST [2 <LIST [3 FIX]>] STRING> <LIST [3 FIX]> FLOAT>> STRING)] 605>>
|
||
|
||
<SETG CRASH-PARSE %<RSUBR-ENTRY '[DRAGON CRASH-PARSE #DECL ("VALUE" STRING
|
||
STRING TIMELIST HMS)] 773>>
|
||
|
||
<SETG TOTALS-PARSE %<RSUBR-ENTRY '[DRAGON TOTALS-PARSE #DECL ("VALUE" <OR FALSE
|
||
VECTOR> STRING)] 797>>
|
||
|
||
<SETG DATE-PARSE %<RSUBR-ENTRY '[DRAGON DATE-PARSE #DECL ("VALUE" STRING STRING
|
||
TIMELIST)] 949>>
|
||
|
||
<SETG TIME-PARSE %<RSUBR-ENTRY '[DRAGON TIME-PARSE #DECL ("VALUE" STRING STRING
|
||
HMS)] 1091>>
|
||
|
||
<SETG NUM-PARSE %<RSUBR-ENTRY '[DRAGON NUM-PARSE #DECL ("VALUE" STRING STRING
|
||
VECTOR)] 1328>>
|
||
|
||
<SETG LTOI %<RSUBR-ENTRY '[DRAGON LTOI #DECL ("VALUE" FIX TIMELIST)] 1392>>
|
||
|
||
<SETG ITOL %<RSUBR-ENTRY '[DRAGON ITOL #DECL ("VALUE" <LIST [2 LIST] STRING> FIX
|
||
)] 1430>>
|
||
|
||
<SETG IDUR %<RSUBR-ENTRY '[DRAGON IDUR #DECL ("VALUE" FIX HMS)] 1444>>
|
||
|
||
<SETG DAYS-IN-MONTH %<RSUBR-ENTRY '[DRAGON DAYS-IN-MONTH #DECL ("VALUE" FIX
|
||
TIMELIST)] 1493>>
|
||
|
||
<SETG FIRST-OF-NEXT %<RSUBR-ENTRY '[DRAGON FIRST-OF-NEXT #DECL ("VALUE" FIX FIX
|
||
FIX)] 1536>>
|
||
|
||
<SETG FIRST-OF-THIS %<RSUBR-ENTRY '[DRAGON FIRST-OF-THIS #DECL ("VALUE" FIX FIX
|
||
FIX)] 1576>>
|
||
|
||
<SETG HR </ 262144 24>>
|
||
|
||
<MANIFEST HR>
|
||
|
||
<SETG FTIME %<RSUBR-ENTRY '[DRAGON FTIME #DECL ("VALUE" FLOAT FIX)] 1604>>
|
||
|
||
<SETG OLINE %<RSUBR-ENTRY '[DRAGON OLINE #DECL ("VALUE" ATOM <LIST STRING
|
||
TIMELIST HMS>)] 1632>>
|
||
|
||
<SETG ODATE %<RSUBR-ENTRY '[DRAGON ODATE #DECL ("VALUE" FIX TIMELIST)] 1765>>
|
||
|
||
<SETG ODUR %<RSUBR-ENTRY '[DRAGON ODUR #DECL ("VALUE" FIX HMS)] 1869>>
|
||
|
||
<SETG OTIM %<RSUBR-ENTRY '[DRAGON OTIM #DECL ("VALUE" FIX HMS)] 1946>>
|
||
|
||
\
|
||
|
||
<SETG SUMMARY %<RSUBR-ENTRY '[DRAGON SUMMARY #DECL ("VALUE" <OR ATOM CHANNEL
|
||
FALSE> "TUPLE" TUPLE)] 2000>>
|
||
|
||
<SETG PERCENT %<RSUBR-ENTRY '[DRAGON PERCENT #DECL ("VALUE" FIX FLOAT)] 2900>>
|
||
|
||
<SETG ROUND %<RSUBR-ENTRY '[DRAGON ROUND #DECL ("VALUE" FIX FLOAT)] 2918>>
|
||
|
||
<SETG OSUM %<RSUBR-ENTRY '[DRAGON OSUM #DECL ("VALUE" FIX FLOAT FLOAT)] 2935>>
|
||
|
||
"Contract hours are 9-5, weekdays"
|
||
|
||
<SETG CSTART <* 3 </ 262144 8>>>
|
||
|
||
<SETG CEND <+ ,CSTART </ 262144 3>>>
|
||
|
||
<GDECL (CSTART CEND) FIX>
|
||
|
||
<SETG CONTRACT-DOWN %<RSUBR-ENTRY '[DRAGON CONTRACT-DOWN #DECL ("VALUE" FLOAT
|
||
FIX FIX)] 2993>>
|
||
|
||
<SETG OPCT %<RSUBR-ENTRY '[DRAGON OPCT #DECL ("VALUE" STRING FIX FIX)] 3080>>
|
||
|
||
<ENDPACKAGE>
|