SCObjUtil:
CEDAR
DEFINITIONS =
BEGIN
EnumerateObjects: PROC [handle: SC.Handle, startObj, stopObj: SCPrivate.MaxObjectsSr, eachObject: EachObjectProc] RETURNS [quit: BOOL];
EnumerateAllObjects:
PROC [handle:
SC.Handle, eachObject: EachObjectProc]
RETURNS [quit:
BOOL];
EachObjectProc: TYPE = PROC [object: SCPrivate.Object] RETURNS [quit: BOOL ← FALSE];
EnumeratePinsOnObject:
PROC [object: SCPrivate.Object, eachPin: EachPinProc]
RETURNS [quit:
BOOL];
EachPinProc: TYPE = PROC [object: SCPrivate.Object, pin: NAT, objectPin: SCPrivate.ObjectPin] RETURNS [quit: BOOL ← FALSE];
END.