TrcStandardClasses.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Eric Nickell, April 7, 1986 3:00:24 pm PST
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];
Returns the values passed in.
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];
Enumerates the all the parametric classes which have been registered with Trc
END.