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, 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. – C2CCodeDefsPrivate.mesa Copyright Σ 1987, 1988, 1989, 1990, 1991 by Xerox Corporation. All rights reserved. Christian Jacobi, March 30, 1989 2:09:10 pm PST Christian Jacobi, January 25, 1990 12:36:19 pm PST Jim Foote December 17, 1987 5:15:29 pm PST convention: operation of equal precedence --has.. describes base of code before any delayed nonsense is added; --usage optional to reduce casting Κι•NewlineDelimiter –(cedarcode) style™šœ™Icodešœ ΟeœI™TKšœ/™/Kšœ2™2K™*K˜—šΟk ˜ Kšœ˜Kšœ ˜ Kšœ˜—K˜KšΟnœžœž œ˜'Kšž˜K˜šœ žœžœ˜Kš œžœžœžœžœΟc˜'Kš œžœžœžœžœ˜šœ;˜;Kšœ)™)—šœ žœžœ˜Kšœžœžœ ˜3Kšœ žœžœ ˜4Kšœžœžœ ˜2Kšœ žœ˜—KšœE™Ešœ#™#Kšœ žœ˜Kšœ žœžœ "˜9Kšœ žœžœ˜—Kšœ žœžœ˜Kšœ žœžœ˜Kšœžœžœ˜Kšœžœžœ˜Kšœ0žœ˜:Kšœžœž˜K˜—K˜Kšžœ˜K˜—…—θg