<> <> <> DIRECTORY SC, SCPrivate; 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.