DIRECTORY CD USING [ApplicationPtr, Application], Commander USING [CommandProc, Handle, Register], IO USING [PutF, int], SweepCollectableStorage USING [InfoProc, EnumerateCollectableStorage], SafeStorage USING [Type, GetCanonicalReferentType], SpinifexCircuit USING [Circuit, QuadTree, Rectangle, CircuitNode, AreaPerimRec, NodeLinkage, AttachedNode, MergeRec], CornerStitching USING [Tesselation, NewTesselation, TileAt] ; SpinifexCount: CEDAR PROGRAM IMPORTS Commander, IO, SweepCollectableStorage, SafeStorage, CornerStitching ~ BEGIN Count: Commander.CommandProc -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL] -- ~ { perObject: SweepCollectableStorage.InfoProc -- [type: SafeStorage.Type, size: INT, object: LONG CARDINAL] RETURNS [continue: BOOLEAN] -- = { IF type = CODE[SpinifexCircuit.Circuit] THEN CircuitCount _ CircuitCount + 1 ELSE IF type = CODE[SpinifexCircuit.QuadTree] THEN QuadTreeCount _ QuadTreeCount + 1 ELSE IF type = CODE[SpinifexCircuit.Rectangle] THEN RectangleCount _ RectangleCount + 1 ELSE IF type = CODE[SpinifexCircuit.CircuitNode] THEN CircuitNodeCount _ CircuitNodeCount + 1 ELSE IF type = APList THEN AreaPerimRecCount _ AreaPerimRecCount + 1 ELSE IF type = CODE[SpinifexCircuit.NodeLinkage] THEN NodeLinkageCount _ NodeLinkageCount + 1 ELSE IF type = CODE[SpinifexCircuit.AttachedNode] THEN AttachedNodeCount _ AttachedNodeCount + 1 ELSE IF type = MRList THEN MergeRecCount _ MergeRecCount + 1 ELSE IF type = CODE[CornerStitching.Tesselation] THEN TessCount _ TessCount + 1 ELSE IF type = CSTile THEN TileCount _ TileCount + 1 ELSE IF type = CODE[CD.Application] THEN ApplRecCount _ ApplRecCount + 1 ELSE IF type = ApplList THEN ApplListCount _ ApplListCount + 1; RETURN[TRUE]; }; CircuitCount: INT _ 0; QuadTreeCount: INT _ 0; RectangleCount: INT _ 0; CircuitNodeCount: INT _ 0; AreaPerimRecCount: INT _ 0; NodeLinkageCount: INT _ 0; AttachedNodeCount: INT _ 0; MergeRecCount: INT _ 0; TessCount: INT _ 0; TileCount: INT _ 0; ApplRecCount: INT _ 0; ApplListCount: INT _ 0; TRUSTED { SweepCollectableStorage.EnumerateCollectableStorage[perObject] }; cmd.out.PutF["CircuitCount = %g\n", IO.int[CircuitCount]]; cmd.out.PutF["QuadTreeCount = %g\n", IO.int[QuadTreeCount]]; cmd.out.PutF["RectangleCount = %g\n", IO.int[RectangleCount]]; cmd.out.PutF["CircuitNodeCount = %g\n", IO.int[CircuitNodeCount]]; cmd.out.PutF["AreaPerimRecCount = %g\n", IO.int[AreaPerimRecCount]]; cmd.out.PutF["NodeLinkageCount = %g\n", IO.int[NodeLinkageCount]]; cmd.out.PutF["AttachedNodeCount = %g\n", IO.int[AttachedNodeCount]]; cmd.out.PutF["MergeRecCount = %g\n", IO.int[MergeRecCount]]; cmd.out.PutF["TessCount = %g\n", IO.int[TessCount]]; cmd.out.PutF["TileCount = %g\n", IO.int[TileCount]]; cmd.out.PutF["ApplRecCount = %g\n", IO.int[ApplRecCount]]; cmd.out.PutF["ApplListCount = %g\n", IO.int[ApplListCount]]; }; Init: PROCEDURE ~ { appl: CD.ApplicationPtr _ NEW[CD.Application]; APList _ SafeStorage.GetCanonicalReferentType[ NARROW[ LIST[ SpinifexCircuit.AreaPerimRec[0,0,0]], LIST OF SpinifexCircuit.AreaPerimRec]]; MRList _ SafeStorage.GetCanonicalReferentType[ NARROW[ LIST[ SpinifexCircuit.MergeRec[]], LIST OF SpinifexCircuit.MergeRec]]; CSTile _ SafeStorage.GetCanonicalReferentType[ CornerStitching.NewTesselation[].TileAt[[0,0]] ]; ApplList _ SafeStorage.GetCanonicalReferentType[ NARROW[ LIST[ appl], LIST OF CD.ApplicationPtr] ]; }; APList: SafeStorage.Type; MRList: SafeStorage.Type; CSTile: SafeStorage.Type; ApplList: SafeStorage.Type; Init[]; Commander.Register[key: "SpinifexCount", proc: Count, doc: "SpinifexCount"]; END. †-- SpinifexCount.mesa -- Written by: Shand, July 2, 1984 1:23:16 pm PDT -- Last Edited by: Shand, July 28, 1984 10:57:05 pm PDT ‌تچکJ™J™1J™7unitڑدk ک Icodeڑ‌œ‌œک'Lڑœ ‌œ!ک0Lڑ‌œ‌œ کLڑœ‌œ)کFLڑœ‌œ"ک3Lڑœ‌œ`کuLڑœ‌œ&ک;Lڑœک—Kڑرaox œ‌ کLڑ‌œ‌œ7کLLڑœ‌ک•StartOfExpansionP -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL] -- ڑدnœذckOœکpڑں œ" ]œکچڑ‌œ‌œ‌ک,Jڑœک—ڑ‌œ‌œ‌œ‌ک2Jڑœ!ک!—ڑ‌œ‌œ‌œ‌ک3Jڑœ#ک#—ڑ‌œ‌œ‌œ‌ک5Jڑœ'ک'—ڑ‌œ‌œ‌کJڑœ)ک)—ڑ‌œ‌œ‌œ‌ک5Jڑœ'ک'—ڑ‌œ‌œ‌œ‌ک6Jڑœ)ک)—ڑ‌œ‌œ‌کJڑœ!ک!—ڑ‌œ‌œ‌œ‌ک5Jڑœک—ڑ‌œ‌œ‌کJڑœک—ڑ‌œ‌œ‌œ‌ک(Jڑœک—ڑ‌œ‌œ‌کJڑœ"ک"—Jڑ‌œ‌œک Lک—Lڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑœ‌œکLڑ‌œDکKLڑœ$‌œک:Lڑœ%‌œکLڑœ(‌œکBLڑœ)‌œکDLڑœ(‌œکBLڑœ)‌œکDLڑœ%‌œک