SymTabPrivate.mesa
Copyright Ó 1990, 1991 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) July 10, 1990 9:09 am PDT
DIRECTORY SymTab USING [Key, Val];
SymTabPrivate:
CEDAR
DEFINITIONS
~ BEGIN OPEN SymTab;
SymTabImplRep:
PUBLIC
TYPE =
RECORD [
case: BOOL,
size, sizeLimit, inhibitCount: INT,
data: REF Seq
];
SeqIndex: TYPE = NAT;
Seq: TYPE = RECORD [nodes: SEQUENCE max: SeqIndex OF Node];
Node: TYPE = REF NodeRep;
NodeRep: TYPE = RECORD [key: Key, val: Val, next: Node];