<> <> <> DIRECTORY Rope USING [ROPE]; PPLeaves: CEDAR DEFINITIONS = BEGIN OPEN Rope; Leaf: TYPE = REF ANY; -- pseudo-union of types below HTIndex: TYPE = REF HTNode; HTNode: TYPE = RECORD[index: INT, name: ROPE]; HTNull: HTIndex = NIL; ISEIndex: TYPE = ROPE; LTIndex: TYPE = REF LTNode; LTNode: TYPE = RECORD[ index: INT, value: REF ANY, literal: ROPE]; STIndex: TYPE = ROPE; -- for now <> TypeClass: TYPE = { mode, basic, enumerated, record, ref, array, arraydesc, transfer, definition, union, sequence, relative, subrange, long, real, opaque, zone, any, nil}; TransferMode: TYPE = {proc, port, signal, error, process, program, none}; END.