DIRECTORY TJaM USING [Any, Dict, NumberRep]; TJaMPrivate: CEDAR DEFINITIONS ~ BEGIN OPEN TJaM; FrameImpl: TYPE ~ REF FrameImplRep; FrameImplRep: TYPE ~ RECORD [ stack: Stack, -- operand stack dictStack: DictStack, -- dictionary stack cache: Cache, -- dictionary cache sysDict: Dict, abort: BOOL _ FALSE ]; StackElement: TYPE ~ RECORD[ref: Any, num: NumberRep]; Stack: TYPE ~ REF StackRep; StackRep: TYPE ~ RECORD[ count: NAT _ 0, max: NAT _ 0, seq: SEQUENCE size: NAT OF StackElement ]; NewStack: PROC[size: NAT] RETURNS[Stack]; DictStack: TYPE ~ REF DictStackRep; DictStackRep: TYPE ~ RECORD[ count: NAT _ 0, max: NAT _ 0, seq: SEQUENCE size: NAT OF Dict ]; NewDictStack: PROC[size: NAT] RETURNS[DictStack]; Cache: TYPE ~ REF CacheRep; CacheRep: TYPE ~ RECORD [ size: NAT, tuples: SEQUENCE max: NAT OF Tuple ]; Tuple: TYPE ~ RECORD [key: ATOM, val: Any]; END. ~TJaMPrivate.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Doug Wyatt, March 25, 1985 4:42:19 pm PST Κ ˜codešœ™Kšœ Οmœ1™