CodeLister.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 7, 1985 4:08:44 am PST
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.