file: ListerUtil.mesa
last edited by Satterthwaite, May 12, 1983 8:44 am
Last Edited by: Maxwell, August 5, 1983 8:51 am
DIRECTORY
BasicTime: TYPE USING [GMT],
BcdDefs: TYPE USING [BcdBase, MTIndex, VersionStamp],
FileSegment: TYPE USING [Pages],
IO: TYPE USING [STREAM],
Rope: TYPE USING [ROPE],
Symbols: TYPE USING [Name, ISEIndex],
SymbolTable: TYPE USING [Base],
VM: TYPE USING [Interval];
ListerUtil: DEFINITIONS = {
SetExtension: PROC [root, extension: Rope.ROPE] RETURNS[name: Rope.ROPE];
CreateStream: PROC [name: Rope.ROPE] RETURNS [IO.STREAM];
LoadBcd: PROC [fileId: Rope.ROPE] RETURNS [bcd: FileSegment.Pages];
LoadModule: PROC [bcd: FileSegment.Pages, typeId: Rope.ROPE]
RETURNS [mti: BcdDefs.MTIndex, code, symbols: FileSegment.Pages];
UnknownModule: ERROR;
MapPages: PROC [FileSegment.Pages] RETURNS [VM.Interval];
PutTime: PROC [out: IO.STREAM, time: BasicTime.GMT];
PutMachine: PROC [out: IO.STREAM, stamp: BcdDefs.VersionStamp];
PutVersionId: PROC [out: IO.STREAM, stamp: BcdDefs.VersionStamp];
PutVersions: PROC [
out: IO.STREAM,
version, creator, source: LONG POINTER TO BcdDefs.VersionStamp ← NIL];
SetRoutineSymbols: PROC [s: SymbolTable.Base];
PutFileID: PROC [out: IO.STREAM];
PutName: PROC [out: IO.STREAM, name: Symbols.Name];
PutSei: PROC [out: IO.STREAM, sei: Symbols.ISEIndex];
TTY interface
Message: PROC [Rope.ROPE];
SetTypescript: PROC [typescript: IO.STREAM];
GetTypescript: PROC RETURNS [IO.STREAM];
bcd utilities
PrintRTBcd: PROC [dest: IO.STREAM, bcd: BcdDefs.BcdBase, sorted: BOOL];
}.