PSLanguagePrivate.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 21, 1987 11:44:23 am PDT
DIRECTORY
PS;
PSLanguagePrivate: CEDAR DEFINITIONS
~ BEGIN OPEN PS;
OStack: TYPE ~ REF OStackRep;
OStackRep: TYPE ~ RECORD [
count: ArrayIndex,
array: Array
];
DictImpl: TYPE ~ REF DictImplRep;
DictImplRep: TYPE ~ RECORD [
length, maxLength: INT,
data: SEQUENCE mod: NAT OF DictNode
];
DictNode: TYPE ~ REF DictNodeRep;
DictNodeRep: TYPE ~ RECORD [key: Any, val: Any, next: DictNode];
DStack: TYPE ~ REF DStackRep;
DStackRep: TYPE ~ RECORD [
count: ArrayIndex,
array: SEQUENCE size: ArrayIndex OF Dict
];
END.