<> <> <> <<>> DIRECTORY Rope USING [ROPE], Trc; TrcStandardClasses: CEDAR DEFINITIONS ~ BEGIN Class: TYPE ~ Trc.Class; ROPE: TYPE ~ Rope.ROPE; TRC: TYPE ~ Trc.TRC; Parm: TYPE ~ RECORD [name: ROPE, initialValue: REAL _ 0.5]; NewIdentityTrc: PUBLIC PROC RETURNS [trc: TRC]; <> NewChainTrc: PUBLIC PROC [dependents: LIST OF TRC] RETURNS [trc: TRC]; ReplaceNthTrcInChain: PUBLIC PROC [chain, new: TRC, n: NAT]; CreateParametricSubclass: PUBLIC PROC [flavor: ATOM, fcn: Trc.Fcn, blockFcn: Trc.BlockFcn, parms: LIST OF Parm, register: BOOL _ TRUE] RETURNS [class: Trc.Class]; NewParametricTrc: PUBLIC PROC [class: Class] RETURNS [trc: TRC]; EnumerateRegisteredParametricClasses: PROC [proc: Trc.ClassEnumProc]; <> END.