DIRECTORY
Commander, IncrementalLoad, IO, Rope, UnixShm0, UXStrings;

ResourceCommands: CEDAR MONITOR
IMPORTS Commander, IncrementalLoad, IO, UnixShm0, UXStrings =
BEGIN

LoadStateCommand: Commander.CommandProc = TRUSTED {
textSum, dataSum, bssSum: CARD32 м 0;
FOR fe: IncrementalLoad.FileEntry м IncrementalLoad.GetPrevFileEntry[NIL], IncrementalLoad.GetPrevFileEntry[fe] WHILE fe#NIL DO
fileName: Rope.ROPE м UXStrings.ToRope[fe.fName];
textSize: CARD32 м fe.text.len;
dataSize: CARD32 м fe.data.len;
bssSize: CARD32 м fe.bss.len;
IO.PutF[cmd.out, "text:%8g  data:%8g  bss:%7g ", IO.card[textSize], IO.card[dataSize], IO.card[bssSize]];
IO.PutF1[cmd.out, "%g\n", IO.rope[fileName]];
textSum м textSum+textSize;
dataSum м dataSum+dataSize;
bssSum м bssSum+bssSize;
ENDLOOP;
IO.PutF[cmd.out, "text:%8g  data:%8g  bss:%7g  TOTAL\n", IO.card[textSum], IO.card[dataSum], IO.card[bssSum]];
};

VMStateCommand: Commander.CommandProc = TRUSTED {
address: UnixShm0.RawVM м UnixShm0.VMReserve[0];
value: CARD м LOOPHOLE[address];
IO.PutF1[cmd.out, "VM reserved: %g \n", IO.card[value]];
};

GCCurrentByteCount: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.XR_GCCurrentByteCount"
};

GCCurrentObjectCount: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.XR_GCCurrentObjectCount"
};

GCTotalByteCount: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.XR_GCTotalByteCount"
};

GCTotalObjectCount: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.XR_GCTotalObjectCount"
};

GCHeapSize: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.XR_GCHeapSize"
};

GCCompositeInUse: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.$GC_composite_in_use"
};

GCAtomicInUse: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"<xr/GC.h>.$GC_atomic_in_use"
};

GCStateCommand: Commander.CommandProc = TRUSTED {
currentByteCount: CARD м GCCurrentByteCount[];
currentObjectCount: CARD м GCCurrentObjectCount[];
totalByteCount: CARD м GCTotalByteCount[];
totalObjectCount: CARD м GCTotalObjectCount[];
heapSize: CARD м GCHeapSize[];
atomic: CARD м GCAtomicInUse[]*BYTES[CARD];
composite: CARD м GCCompositeInUse[]*BYTES[CARD];
IO.PutF1[cmd.out, "heapSize: %g \n", IO.card[heapSize]];
IO.PutF1[cmd.out, "currentByteCount: %g \n", IO.card[currentByteCount]];
IO.PutF1[cmd.out, "totalByteCount: %g \n", IO.card[totalByteCount]];
IO.PutF1[cmd.out, "currentObjectCount: %g \n", IO.card[currentObjectCount]];
IO.PutF1[cmd.out, "totalObjectCount: %g \n", IO.card[totalObjectCount]];
IO.PutF1[cmd.out, "atomic bytes in use: %g \n", IO.card[atomic]];
IO.PutF1[cmd.out, "composite bytes in use: %g \n", IO.card[composite]];
};

TotalStateCommand: Commander.CommandProc = TRUSTED {
IO.PutF[cmd.out, "%lLoad State%l\n", IO.rope["b"], IO.rope["B"]];
[] м LoadStateCommand[cmd];
IO.PutF[cmd.out, "%lVM State%l\n", IO.rope["b"], IO.rope["B"]];
[] м VMStateCommand[cmd];
IO.PutF[cmd.out, "%lGarbage Collector State%l\n", IO.rope["b"], IO.rope["B"]];
[] м GCStateCommand[cmd];
};

Commander.Register["LoadState", LoadStateCommand, "Loadstate according to incremental loader"];
Commander.Register["VMState", VMStateCommand, "VM allocated according to VMReserve"];
Commander.Register["GCState", GCStateCommand, "Garbage collector info"];
Commander.Register["TotalState", TotalStateCommand, "Lots of info"];
END. 

  в  
ResourceCommands.mesa
Copyright ╙ 1993 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, February 17, 1993 4:48:29 pm PST 
Christian Jacobi, April 27, 1993 4:15 pm PDT

Poor mans load state analysis.

This application prints many different class of states and does the necessay imports.  Eventually we will recognize certain packages which know how to print their states separately.  If we would continue to import all the information sources we would create a monster. 

Number of longwords in accessible composite objects.
Number of longwords in accessible atomic objects.
Other interesting commands are
ExamineStorage
RopeFiles
X11ShmUsage
 Э╩  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЩIcodeЪЬ
╧eЬ1Щ<KЩ>KЩ,KЩ ЩKЩ KЩНЧKЩ ЧЪ╧k	Ш	KЪЬЮЬШ:KШ ЧЪ╧nЬЮЬЮШKЪЮЬЮЬШ=ЧKЪЮШKШ ЪЯЬЮЬШ3KЪЬЮЬШ%Ъ	ЮЬBЮЬ(ЮЬЮЬЮШKЪЬЮЬШ1KЪЬ
ЮЬШKЪЬ
ЮЬШKЪЬ	ЮЬШKЪЮЬ/ЮЬЮЬЮЬШiKЪЮЬЮЬШ-KШKШKШKЪЮЬШЧKЪЮЬ7ЮЬЮЬЮЬШnKШKШ ЧЪЯЬЮЬШ1KШ0KЪЬЮЬЮЬ
Ш KЪЮЬ&ЮЬШ8KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШCKШ!KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШEKШ#KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШAKШKЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШCKШ!KЪЬШKШ ЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬЮЬШ;KШKЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШAKЩ4KШ KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ>KЩ1KШKЪЬШKШ ЧЪЯЬЮЬШ1KЪЬЮЬШ.KЪЬЮЬШ2KЪЬЮЬШ*KЪЬЮЬШ.KЪЬ
ЮЬЬШKЪЬЮЬЮЬЮЬШ+KЪЬЮЬЮЬЮЬШ1KЪЮЬ#ЮЬШ8KЪЮЬ+ЮЬШHKЪЮЬ)ЮЬШDKЪЮЬ-ЮЬШLKЪЮЬ+ЮЬШHKЪЮЬ.ЮЬШAKЪЮЬ1ЮЬШGKШKШ ЧЪЯЬЮЬШ4KЪЮЬ?ШAKШKЪЮЬ=Ш?KШKЪЮЬLШNKШKШKШ ЧKШ_KШUKШHKШDKЪЮЬШKШ ЩKЩKЩ	KЩЧЧ ЕЧ       з  