CodeLister.mesa
Russ Atkinson, November 15, 1983 5:35 pm
DIRECTORY
BcdDefs USING [BCD],
IO USING [STREAM],
Rope USING [ROPE],
SymbolTable USING [Base];
CodeLister: DEFINITIONS = BEGIN
BCD: TYPE = BcdDefs.BCD;
RefBCD: TYPE = REF BCD;
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
SymbolTableBase: TYPE = SymbolTable.Base;
ListCode: PROC [out,inStream: STREAM, stb: SymbolTableBase, bcd: RefBCD, pattern: ROPE];
ListFGT: PROC [out,inStream: STREAM, stb: SymbolTableBase, bcd: RefBCD];
END.