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