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. €PPLeaves.Mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Russ Atkinson, February 12, 1985 2:56:35 pm PST semantic entry table declarations Κ“˜codešœ ™ Kšœ Οmœ1™