<> <> <> <> DIRECTORY Core, TimeStamp; RosePrivates: CEDAR DEFINITIONS = BEGIN <> <> <> Privates: TYPE = REF PrivatesRec; PrivatesRec: TYPE = RECORD [ createSwitch, createSimple, createDrive: RecordCreator ]; <> RecordCreator: TYPE = PROC [wire: Core.Wire] RETURNS [asAny: REF ANY]; <> RegisterPrivates: PROC [className: Core.ROPE, privates: Privates, versionStamp: TimeStamp.Stamp]; END.