CodeLister.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 7, 1985 4:08:44 am PST
Satterthwaite March 7, 1986 5:36:05 pm PST
DIRECTORY
BcdDefs: TYPE USING [BCD],
IO: TYPE USING [STREAM],
Rope: TYPE USING [ROPE],
SymbolTable: TYPE USING [Base];
CodeLister:
DEFINITIONS =
BEGIN
RefBCD: TYPE = REF BcdDefs.BCD;
ROPE: TYPE = Rope.ROPE;
ListCode:
PROC [out, inStream:
IO.
STREAM, stb: SymbolTable.Base, bcd: RefBCD, pattern:
ROPE];
ListFGT:
PROC [out,inStream:
IO.
STREAM, stb: SymbolTable.Base, bcd: RefBCD];