
DIRECTORY
C2CAddressing,
C2CCodePlaces,
C2CDefs,
IntCodeDefs,
Rope;

C2CStateUtils: CEDAR DEFINITIONS =
BEGIN

ROPE: TYPE = Rope.ROPE;
Macro: TYPE = REF MacroRep;
MacroRep: TYPE;

DeclareVariable: PROC [place: C2CCodePlaces.CodePlace, bits: INT, prefix: ROPE ¬ NIL] RETURNS [name: ROPE];

DefineProcDesc: PROC [procName: ROPE] RETURNS [descAddr: ROPE];

ANewBitAddress: PROC [] RETURNS [C2CAddressing.AddressContainer];


DefineMacro: PROC [name: ROPE, def: C2CDefs.CodeOrRope] RETURNS [Macro];

MacroName: PROC [macro: Macro] RETURNS [ROPE];

END.

   –  
C2CStateUtils.mesa
Copyright Ó 1987, 1988, 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Christian Jacobi, March 10, 1988 2:41:32 pm PST
Christian Jacobi, December 11, 1992 1:24 pm PST
--declares a variable and return its name
--place specifies where; caller is responsible to use reasonable places only
--creates a declaration for a global procedure descriptor [to a outer level procedure]
--creates the declarations for a AddressContainer
--delayed declaration of
--#define name def /n 
--must be called statically; destructiv on def 
--PRECOMPUTATION ONCE FOR ALL COMPILATIONS 
--returns name of macro, and, declares macro if necessary
 Ê¸  –(cedarcode) style•NewlineDelimiter
™ šœ™Icodešœ
ÏeœI™TKšœ/™/K™/K˜ —šÏk	˜	Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜K˜ —KšÏnœžœžœ˜"Kšž˜Iimp˜ Kšžœžœžœ˜Kšœžœžœ
˜Kšœ
žœ˜K˜ šŸœžœ(žœ
žœžœžœžœ˜kKšÏc)™)K™L—K˜ š
Ÿœžœžœžœžœ˜?Kš V™V—K˜ šŸœžœžœ"˜AKš 1™1—K˜ K˜ šŸœžœžœžœ	˜HKš ™Kšœ™Kšœ/™/Kšœ+™+—K˜ šŸ	œžœžœžœ˜.Kš 9™9—K˜ Kšžœ˜K˜ — …—    (  v  