<<>> <> <> <> <<>> DIRECTORY CardTab USING [Ref], IntCodeDefs USING [Node], Rope USING [ROPE]; IntCodeGen: CEDAR DEFINITIONS = BEGIN CodeGenerator: TYPE = PROC [ fileName: Rope.ROPE, moduleName: Rope.ROPE, versionStamp: Rope.ROPE, root: IntCodeDefs.Node, names: CardTab.Ref, labels: CardTab.Ref, data: REF, switches: PACKED ARRAY CHAR['a..'z] OF BOOL ] RETURNS [msg: Rope.ROPE ¬ NIL]; <> <> <> <> <> <> <> <> <> RegisterCodeGenerator: PROC [cg: CodeGenerator, data: REF]; <> <<>> GetCodeGenerator: PROC RETURNS [cg: CodeGenerator, data: REF]; <> END.