DIRECTORYAllocator,BasicTime ,Commander USING [CommandProc, Handle, Register],IO,Rope,SafeStorage,SweepCollectableStorage,VM;TestSweepCollectableStorage: PROGRAMIMPORTS BasicTime, Commander, IO, SweepCollectableStorage =BEGIN ROPE: TYPE = Rope.ROPE;objectCount, freeObjects, size4, size6, size8: INT;notMatchs: INT;firstTypeMiss: BOOL;fromParm, fromObject: SafeStorage.Type;perObject: SweepCollectableStorage.InfoProc = {objectCount _ objectCount + 1;IF type = SafeStorage.nullType THEN freeObjects _ freeObjects + 1 ;SELECT size FROM4 => size4 _ size4 + 1;6 => size6 _ size6 + 1;8 => size8 _ size8 + 1;ENDCASE;IF objectHP.type ~= type AND firstTypeMiss THEN {firstTypeMiss _ FALSE;fromParm _ type;fromObject _ objectHP.type ; };IF (size = 4 AND objectHP.blockSizeIndex ~= 0) THEN notMatchs _ notMatchs + 1 ; RETURN[TRUE];};TestSweepCollectableStorage: Commander.CommandProc = TRUSTED { startTime: BasicTime.GMT;timeInSeconds: INT;objectCount _ 0 ;freeObjects _ 0 ;size4 _ 0;size6 _ 0;size8 _ 0;notMatchs _ 0;firstTypeMiss _ TRUE;startTime _ BasicTime.Now[];SweepCollectableStorage.EnumerateCollectableStorage[perObject];timeInSeconds _ BasicTime.Period[from: startTime, to: BasicTime.Now[]];IO.PutF[cmd.out, "Total objects: %g, total time: %g seconds\n", IO.int[objectCount], IO.int[timeInSeconds]];IO.PutF[cmd.out, "Total free: %g, total size 4: %g, total size 6: %g, total size 8: %g\n", IO.int[freeObjects], IO.int[size4], IO.int[size6], IO.int[size8]];IF notMatchs > 0 THEN IO.PutF[cmd.out, "Total notMatchs: %g\n", IO.int[notMatchs]];IF ~firstTypeMiss THEN ERROR;};Commander.Register[key: "TestSweepCollectableStorage", proc: TestSweepCollectableStorage,doc: "TestSweepCollectableStorage"];END.    –  TestSweepCollectableStorage.mesa Copyright c 1985 by Xerox Corporation.  All rights reserved.Robert Hagmann  February 19, 1985 5:09:26 pm PSTÊz  ˜ headšœ!™!Icodešœ
Ïmœ1™<—Jšœ0™0J˜ šÏk	˜	Jšœ
˜
Jšœ˜Jšœ
žœ!˜0Jšžœ˜J˜Jšœ˜Jšœ˜Jšžœ˜—J˜ šœž˜$Jšžœžœ˜9Jšœ˜—J˜ Jšžœ˜J˜ Jšžœžœžœ˜J˜ J˜ Jšœ/žœ˜3Jšœžœ˜Jšœžœ˜Jšœ'˜'J˜ J˜ šÏb	œ&˜/Jšœ˜Jšžœžœ ˜Cšžœž˜Jšœ˜Jšœ˜Jšœ˜Jšžœ˜—šžœžœžœ˜1Jšœžœ˜Jšœ˜Jšœ˜Jšœ˜—Jšžœžœžœ˜PJšžœžœ˜J˜J˜ —šŸœžœ˜?Icode0šœžœ˜Mšœžœ˜Mšœ˜M˜Mšœ
˜
Mšœ
˜
Mšœ
˜
Mšœ˜Mšœžœ˜Mšœ˜Mšœ?˜?MšœG˜GMšžœ>žœžœ˜lMš
žœYžœžœžœžœ˜Mšžœžœžœ(žœ˜SMšžœžœžœ˜M˜—M˜ J˜ J˜ Jšœ~˜~J˜ Jšžœ˜— …—    ê  	ú  