PPLeaves.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, February 12, 1985 2:56:35 pm PST
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
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.