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
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
semantic entry table declarations
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.