-- PPLeaves.Mesa
-- Russ Atkinson, June 8, 1982 3:11 pm

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

-- 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.