<<>> <> <> <> <> <> DIRECTORY C2CDefs, IntCodeDefs, Rope; C2CCodeDefsPrivate: CEDAR DEFINITIONS = BEGIN CodeRec: TYPE = RECORD [ base: LIST OF REF ANY, --ROPE, REF TEXT last: LIST OF REF ANY, precedence: C2CDefs.Precedence ¬ C2CDefs.lowestCPrecedence, <> delayedX: BOOL ¬ FALSE, delayedDeref: BOOL ¬ FALSE, --delayed dereferencing delayedCRef: BOOL ¬ FALSE, --delayed cast to pointer delayedCWord: BOOL ¬ FALSE, --delayed cast to word pointeeBits: INT ¬ -1, <<--has.. describes base of code before any delayed nonsense is added; >> <<--usage optional to reduce casting >> hasCRefBits: INT ¬ -1, hasCRef: BOOL ¬ FALSE, --never both hasCRef and hasCWord hasCWord: BOOL ¬ FALSE, adressable: BOOL ¬ FALSE, isAdress: BOOL ¬ FALSE, dead: BOOL ¬ FALSE, whiteSpaceOnly: BOOL ¬ FALSE, class: IntCodeDefs.ArithClass ¬ [lastExtension, FALSE, 0], usageInhibited: BOOL ¬ FALSE ]; END.