
DIRECTORY BasicTime, Commander, CommanderOps, DeltaResource, IO, Rope;


DeltaResourceImpl: CEDAR PROGRAM
IMPORTS BasicTime, Commander, CommanderOps, IO, Rope
EXPORTS DeltaResource
 = BEGIN

ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;

TimeVal: TYPE = DeltaResource.TimeVal;
RUsage: TYPE = DeltaResource.RUsage;
Stats: TYPE = DeltaResource.Stats;


GetRUsage: PUBLIC PROC RETURNS [RUsage] = TRUSTED {
ru: RUsage;
LocalRUsage[@ru];
RETURN [ru];
};

TakeDelta: PUBLIC PROC [inner: PROC] RETURNS [Stats] = {
startUsage: RUsage м [];
stopUsage: RUsage м [];
pulses: BasicTime.Pulses м 0;
stats: Stats;

stats.bytesAllocated м GetHeapBytes[];
startUsage м GetRUsage[];
pulses м BasicTime.GetClockPulses[];

inner[];

pulses м BasicTime.GetClockPulses[] - pulses;
stopUsage м GetRUsage[];
stats.bytesAllocated м GetHeapBytes[]-stats.bytesAllocated;

stats.elapsed м BasicTime.PulsesToSeconds[pulses];
stats.rusage.utime.secs м stopUsage.utime.secs - startUsage.utime.secs;
stats.rusage.utime.micros м stopUsage.utime.micros - startUsage.utime.micros;
stats.utime м stats.rusage.utime.secs + 1e-6*stats.rusage.utime.micros;
IF stats.rusage.utime.micros < 0 THEN {
stats.rusage.utime.micros м stats.rusage.utime.micros + 1000000;
stats.rusage.utime.secs м stats.rusage.utime.secs - 1;
};
stats.rusage.stime.secs м stopUsage.stime.secs - startUsage.stime.secs;
stats.rusage.stime.micros м stopUsage.stime.micros - startUsage.stime.micros;
stats.stime м stats.rusage.stime.secs + 1e-6*stats.rusage.stime.micros;
IF stats.rusage.stime.micros < 0 THEN {
stats.rusage.stime.micros м stats.rusage.stime.micros + 1000000;
stats.rusage.stime.secs м stats.rusage.stime.secs - 1;
};

stats.rusage.maxrss м stopUsage.maxrss - startUsage.maxrss;
stats.rusage.ixrss м stopUsage.ixrss - startUsage.ixrss;
stats.rusage.idrss м stopUsage.idrss - startUsage.idrss;
stats.rusage.isrss м stopUsage.isrss - startUsage.isrss;
stats.rusage.minflt м stopUsage.minflt - startUsage.minflt;
stats.rusage.majflt м stopUsage.majflt - startUsage.majflt;
stats.rusage.nswap м stopUsage.nswap - startUsage.nswap;
stats.rusage.inblock м stopUsage.inblock - startUsage.inblock;
stats.rusage.outblock м stopUsage.outblock - startUsage.outblock;
stats.rusage.msgsnd м stopUsage.msgsnd - startUsage.msgsnd;
stats.rusage.msgrcv м stopUsage.msgrcv - startUsage.msgrcv;
stats.rusage.nsignals м stopUsage.nsignals - startUsage.nsignals;
stats.rusage.nvcsw м stopUsage.nvcsw - startUsage.nvcsw;
stats.rusage.nivcsw м stopUsage.nivcsw - startUsage.nivcsw;

RETURN [stats];
};

DoIncludes: PROC = TRUSTED MACHINE CODE {
"*";
"#include <sys/time.h>\n";
"#include <sys/resource.h>\n";
"#include <xr/GC.h>\n";
"#include <xr/UIO.h>\n";
"."
};

LocalRUsage: UNSAFE PROC [rp: POINTER TO RUsage] ~ UNCHECKED MACHINE CODE {
"+static void LocalRUsage (p) ptr p; {\n";
"    XR_GetRUsage(RUSAGE_SELF, p);\n";
"    };\n";
".LocalRUsage";
};

GetHeapBytes: PROC RETURNS [CARD] = TRUSTED MACHINE CODE {
"XR_GCTotalByteCount";
};

GetHeapSize: PROC RETURNS [CARD] = TRUSTED MACHINE CODE {
"XR_GCHeapSize";
};

GetObjectCount: PROC RETURNS [CARD] = TRUSTED MACHINE CODE {
"XR_GCTotalObjectCount";
};

DeltaCommand: Commander.CommandProc = {
out: STREAM = cmd.out;
inner: PROC = {
result м CommanderOps.DoCommand[commandLine: line, parent: cmd];
};
processArgs: PROC [line: ROPE] RETURNS [ROPE] = {
i: INT м 0;
len: INT = Rope.Length[line];
WHILE i < len DO
c: CHAR м Rope.Fetch[line, i];
SELECT c FROM
40C, '\t => i м i + 1;
'- => {
sense: BOOL м TRUE;
i м i + 1;
WHILE i < len DO
SELECT Rope.Fetch[line, i] FROM
'~ => sense м NOT sense;
'v, 'V => verbose м sense;
'g, 'G => showGC м sense;
IN ['a..'z], IN ['A..'Z], IN ['0..'9] => {};
ENDCASE => EXIT;
i м i + 1;
ENDLOOP;
};
ENDCASE => EXIT;
ENDLOOP;
RETURN [Rope.Substr[line, i]];
};
verbose: BOOL м FALSE;
showGC: BOOL м FALSE;
line: ROPE = processArgs[cmd.commandLine];
oldHeapSize: CARD = GetHeapSize[];
oldObjectCount: CARD = GetObjectCount[];
stats: Stats = TakeDelta[inner];
newHeapSize: CARD = GetHeapSize[];
newObjectCount: CARD = GetObjectCount[];

IO.PutF1[out, "Elapsed seconds: %5.3f", [real[stats.elapsed]]];
IO.PutF1[out, ", bytes allocated: %g", [cardinal[stats.bytesAllocated]] ];
IO.PutF1[out, ", utime: %5.3f", [real[stats.utime]] ];
IO.PutF1[out, ", stime: %5.3f\n", [real[stats.stime]] ];

IF showGC THEN {
IO.PutF1[out, "  GC heap size: %g", [cardinal[newHeapSize]] ];
IF newHeapSize # oldHeapSize THEN {
heapDelta: INT = LOOPHOLE[newHeapSize-oldHeapSize];
IO.PutF1[out, ", heap size change: %g", [integer[heapDelta]] ];
};
IF newObjectCount # oldObjectCount THEN {
objectDelta: CARD = newObjectCount-oldObjectCount;
IO.PutF1[out, ", objects allocated: %g", [cardinal[objectDelta]] ];
};
IO.PutChar[out, '\n];
};

IF verbose THEN {
IF (stats.rusage.maxrss + stats.rusage.ixrss + stats.rusage.idrss + stats.rusage.isrss) # 0 THEN {
IO.PutRope[out, "  "];
IF stats.rusage.maxrss # 0 THEN
IO.PutF1[out, "maxrss: %g, ", [integer[stats.rusage.maxrss]] ];
IF stats.rusage.ixrss # 0 THEN
IO.PutF1[out, "ixrss: %g, ", [integer[stats.rusage.ixrss]] ];
IO.PutF1[out, "idrss: %g", [integer[stats.rusage.idrss]] ];
IF stats.rusage.isrss # 0 THEN
IO.PutF1[out, ", isrss: %g", [integer[stats.rusage.isrss]] ];
IO.PutChar[out, '\n];
};
IF (stats.rusage.minflt + stats.rusage.majflt + stats.rusage.nswap) # 0 THEN {
IO.PutF1[out, "  minflt: %g", [integer[stats.rusage.minflt]] ];
IO.PutF1[out, ", majflt: %g", [integer[stats.rusage.majflt]] ];
IF stats.rusage.nswap # 0 THEN
IO.PutF1[out, ", nswap: %g", [integer[stats.rusage.nswap]] ];
IO.PutChar[out, '\n];
};
IF (stats.rusage.inblock + stats.rusage.outblock) # 0 THEN {
IO.PutF1[out, "  inblock: %g", [integer[stats.rusage.inblock]] ];
IO.PutF1[out, ", outblock: %g\n", [integer[stats.rusage.outblock]] ];
};
IF (stats.rusage.msgsnd + stats.rusage.msgrcv) # 0 THEN {
IO.PutF1[out, "  msgsnd: %g", [integer[stats.rusage.msgsnd]] ];
IO.PutF1[out, ", msgrcv: %g\n", [integer[stats.rusage.msgrcv]] ];
};
IF (stats.rusage.nsignals + stats.rusage.nvcsw + stats.rusage.nivcsw) # 0 THEN {
IO.PutF1[out, "  nsignals: %g", [integer[stats.rusage.nsignals]] ];
IO.PutF1[out, ", nvcsw: %g", [integer[stats.rusage.nvcsw]] ];
IO.PutF1[out, ", nivcsw: %g\n", [integer[stats.rusage.nivcsw]] ];
};
};
};

deltaDoc: ROPE = "shows resource usage during the execution of the command line
    -g   show extra GC stats
    -v   show verbose system stats";

DoIncludes[];

Commander.Register["Delta", DeltaCommand, deltaDoc, $Delta, FALSE];

Commander.Register["DeltaResource", DeltaCommand, deltaDoc, $Delta, FALSE];


END.

  N  
DeltaResourceImpl.mesa
Copyright ╙ 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) January 9, 1991 8:40 pm PST
[cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL]
CommandObject = [
in, out, err: STREAM, commandLine, command: ROPE,
propertyList: List.AList, procData: CommandProcHandle]
 Э╩	+  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪ╧nЩKЪЬ
╧eЬ=ЩHKЩ/ЧШ KЪ╧k	Ь4ЯЬШFШ KШ ЧЧЪЭЬЯЬЯШ KЪЯЬ%ЯЬШ4KЪЯЬШKЪЬЯШKШ KЪЯЬЯЬЯЬШKЪЯЬЯЬЯЬЯЬШKШ KЪЬ	ЯЬШ&KЦ2.2 in tabStopsЪЬЯЬШ$KЦ2.2 in tabStopsЪЬЯЬШ"KШ ЧKШ Ъ
Э	ЬЯЬЯЬЯЬЯЬШ3KЪЬШKЪЬШKЪЯЬШKШKШ ЧЪ
Э	ЬЯЬЯЬ	ЯЬЯЬШ8KШKШKШKШKШ KШ&KШKШ$KШ ШKШ ЧKШ-KШKШ;KШ KШ2KШGKШMKШGЪЯЬЯЬШ'KШ@KШ6KШЧKШGKШMKШGЪЯЬЯЬШ'KШ@KШ6KШЧKШ KШ;KШ8KШ8KШ8KШ;KШ;KШ8KШ>KШAKШ;KШ;KШAKШ8KШ;KШ KЪЯЬ	ШKШKШ ЧЪ
Э
ЬЯЬЯЬЯЬЯЬШ)KЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKШKШKШ ЧЪЭЬЯЬЯЬЯЬЯЬЯ	ЬЯЬЯЬШKKЪЬ*Ш*KЪЬ&Ш&KЪЬШKЪЬШKШKШ ЧЪЭЬЯЬЯЬЯЬЯЬЯЬЯЬШ:KЪЬШKШKШ ЧЪЭЬЯЬЯЬЯЬЯЬЯЬЯЬШ9KЪЬШKШKШ ЧЪЭЬЯЬЯЬЯЬЯЬЯЬЯЬШ<KЪЬШKШKШ ЧЪЭЬШ'KЪЬЯЬ
ЯЬЯЬЯЬЯЬЩ:ЪЬЩKЪЬЯЬЯЬЩ1KЪЬ6Щ6ЧKЪЬЯЬШЪЬЯЬШKШ@KШЧЪ	ЬЯЬЯЬЯЬЯЬШ1KЪЬЯЬШKЪЬЯЬШЪЯЬ	ЯШKЪЬЯЬШЪЯЬЯШKШШKЪЬЯЬЯЬШKШ
ЪЯЬ	ЯШЪЯЬЯШKЪЬЯЬШKШKШKЪЯЬЯЬЯЬШ,KЪЯЬЯЬШЧKШ
KЪЯЬШЧKШЧKЪЯЬЯЬШЧKЪЯЬШЧKЪЯЬШKШЧKЪЬ	ЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬ Ш*KЪЬЯЬШ"KЪЬЯЬШ(KШ KЪЬЯЬШ"KЪЬЯЬШ(KШ KЪЯЬ=Ш?KЪЯЬHШJKЪЯЬ4Ш6KЪЯЬ6Ш8KШ ЪЯЬЯЬШKЪЯЬ<Ш>ЪЯЬЯЬШ#KЪЬЯЬЯЬШ3KЪЯЬ=Ш?KШЧЪЯЬ!ЯЬШ)KЪЬЯЬ!Ш2KЪЯЬAШCKШЧKЦ2.2 in tabStopsЪЯЬШKШKШ ЧЪЯЬ	ЯЬШЦ2.2 in tabStopsЪЯЬZЯЬШbKЦ2.2 in tabStopsЪЯЬШЦ2.2 in tabStopsЪЯЬЯШKЦ2.2 in tabStopsЪЯЬ=Ш?ЧЦ2.2 in tabStopsЪЯЬЯШKЦ2.2 in tabStopsЪЯЬ;Ш=ЧKЦ2.2 in tabStopsЪЯЬ9Ш;Ц2.2 in tabStopsЪЯЬЯШKЦ2.2 in tabStopsЪЯЬ;Ш=ЧKЦ2.2 in tabStopsЪЯЬШKЦ2.2 in tabStopsШЧЦ2.2 in tabStopsЪЯЬFЯЬШNKЦ2.2 in tabStopsЪЯЬ=Ш?KЦ2.2 in tabStopsЪЯЬ=Ш?Ц2.2 in tabStopsЪЯЬЯШKЦ2.2 in tabStopsЪЯЬ;Ш=ЧKЦ2.2 in tabStopsЪЯЬШKЦ2.2 in tabStopsШЧЦ2.2 in tabStopsЪЯЬ4ЯЬШ<KЦ2.2 in tabStopsЪЯЬ?ШAKЦ2.2 in tabStopsЪЯЬCШEKЦ2.2 in tabStopsШЧЦ2.2 in tabStopsЪЯЬ1ЯЬШ9KЦ2.2 in tabStopsЪЯЬ=Ш?KЦ2.2 in tabStopsЪЯЬ?ШAKЦ2.2 in tabStopsШЧЦ2.2 in tabStopsЪЯЬHЯЬШPKЦ2.2 in tabStopsЪЯЬAШCKЦ2.2 in tabStopsЪЯЬ;Ш=KЦ2.2 in tabStopsЪЯЬ?ШAKЦ2.2 in tabStopsШЧKШЧKШKШ ЧЪЬ
ЯЬГШСKШ ЧШKШ ЧЪЬ;ЯЬШCKШ ЧЪЬCЯЬШKKШ ЧKШ KЪЯЬШKШ Ч ЕЧ    Ш  $  