<< JunoParseTable.mesa (was ParseTable.mesa)>> <<>> <> <> <> DIRECTORY Atom; ParseTable: DEFINITIONS = BEGIN Handle: TYPE = REF HandleRep; HandleRep: TYPE = RECORD [foo: INT _ 0]; NewHandle: PROC RETURNS [Handle]; Enter: PROC [h: Handle, p: Properties]; <> Search: PROC[h: Handle, a: REF ANY, default: Properties] RETURNS [Properties]; <> Properties: TYPE = REF PRec; PRec: TYPE = RECORD [name: ATOM, alias: REF ANY _ NIL, -- should be an ATOM or NIL. closer: Properties _ NIL, infix: BOOL _ FALSE, prefix: BOOL _ FALSE, postfix: BOOL _ FALSE, matchfix: BOOL _ FALSE, subfix: BOOL _ FALSE, busfix: BOOL _ FALSE, closefix: BOOL _ FALSE, bindingPower: INT _ 0, identifier: BOOL _ FALSE, unparserType: INT _ 0]; <> END.