DIRECTORY Rope USING [ROPE]; MPLeaves: 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. θ MPLeaves.mesa Copyright Σ 1985, 1986, 1987, 1991 by Xerox Corporation. All rights reserved. Russ Atkinson (RRA) January 19, 1987 7:19:00 pm PST Michael Plass, September 5, 1991 8:06 pm PDT semantic entry table declarations ΚΎ•NewlineDelimiter –(cedarcode) style™codešœ ™ Kšœ ΟeœC™NK™3K™,—˜šΟk œžœžœ˜K˜——š Οnœžœž œžœžœ˜.K˜KšœžœžœžœΟc˜4K˜šœ žœžœ˜Kš œžœžœžœžœ˜.Kšœžœ˜—Kšœ žœžœ˜K˜šœ žœžœ˜šœžœžœ˜Kšœžœ˜ Kšœžœžœ˜Kšœ žœ˜——Kšœ žœžœ  ˜!K˜Kšœ!™!˜šœ žœ˜K˜K˜K˜ K˜K˜K˜K˜ K˜ K˜ K˜K˜ K˜ K˜ K˜K˜K˜K˜K˜K˜K˜—Kšœžœ7˜IK˜Kšžœ˜K˜K˜———…—‚(