DIRECTORY
BcdDefs: TYPE USING [VersionStamp],
CBinary: TYPE USING [DebugTab],
CompilerUtil: TYPE USING [StreamId, TableId, PrintSymbols, PrintBodies],
FileSegment: TYPE USING [Pages, nullPages],
IO: TYPE USING [Close, int, Put, PutChar, PutRope, STREAM],
ListerOps: TYPE USING [],
ListerUtil:
TYPE
USING [
CreateStream, LoadBcd, LoadModule, Message, PutFileID, PutVersions,
SetExtension, SetRoutineSymbols, UnknownModule],
LiteralOps: TYPE USING [Initialize, Finalize],
OSMiscOps: TYPE USING [FindFile, FileError],
PrincOps: TYPE USING [PageNumber, PageCount],
PrincOpsUtils: TYPE USING [CodeBase, GlobalFrame],
Rope: TYPE USING [ROPE],
SymbolTable: TYPE USING [Acquire, Base, Release, SetCacheSize],
TreeOps: TYPE USING [Finalize, Initialize],
UnsafeStorage: TYPE USING [GetSystemUZone];
SLList:
PROGRAM
IMPORTS
CBinary, CompilerUtil, IO, ListerUtil, LiteralOps, OSMiscOps, PrincOpsUtils, SymbolTable, TreeOps, UnsafeStorage
EXPORTS CompilerUtil, ListerOps = {
OPEN ListerUtil;
output streams
out: IO.STREAM ← NIL;
OpenOutput:
PROC [output: Rope.
ROPE] = {
output ← ListerUtil.SetExtension[output, "sl"];
out ← ListerUtil.CreateStream[output]};
CloseOutput:
PROC = {
IO.Close[out]; out ← NIL};
symbol table bases
symbols: SymbolTable.Base ← NIL;
overall control
CommandOption: TYPE = {none, bodies, symbols, both};
MapOptions:
ARRAY
BOOL
OF
ARRAY
BOOL
OF CommandOption = [
[$none, $bodies], [$symbols, $both]];
SymbolSeg:
TYPE =
RECORD [
base: PrincOps.PageNumber,
pages: PrincOps.PageCount];
PrintSyms:
PROC [
sseg: FileSegment.Pages, option: CommandOption, versions: BOOL] = {
SymbolTable.SetCacheSize[0]; -- flush cache
symbols ← SymbolTable.Acquire[sseg];
ListerUtil.SetRoutineSymbols[symbols];
IF versions
THEN {
version, creator: BcdDefs.VersionStamp;
version ← symbols.stHandle.version;
creator ← symbols.stHandle.creator;
ListerUtil.PutVersions[out, @version, @creator]};
TreeOps.Initialize[NIL, NIL]; LiteralOps.Initialize[NIL, UnsafeStorage.GetSystemUZone[]];
IF option = $symbols
OR option = $both
THEN
CompilerUtil.PrintSymbols[NIL, symbols.stHandle.definitionsFile];
IF option = $bodies OR option = $both THEN CompilerUtil.PrintBodies[NIL];
LiteralOps.Finalize[]; TreeOps.Finalize[];
SymbolTable.Release[symbols]; symbols ← NIL};
DoSymbols:
PROC [root, output: Rope.
ROPE, option: CommandOption] = {
OPEN ListerUtil;
bcdFile: Rope.ROPE;
bcdSeg, sSeg: FileSegment.Pages;
bcdFile ← ListerUtil.SetExtension[root, "bcd"];
bcdSeg ← LoadBcd[bcdFile];
IF bcdSeg = FileSegment.nullPages THEN GO TO NoFile;
[symbols: sSeg] ← LoadModule[bcdSeg, root ! UnknownModule => {GOTO NoModule}];
IF sSeg = FileSegment.nullPages THEN GO TO NoSymbols;
OpenOutput[output];
ListerUtil.PutFileID[out];
PrintSyms[sSeg, option, FALSE];
CloseOutput[];
EXITS
NoFile => Message["File could not be opened"];
NoModule => {
Message["File does not contain module "]; Message[root]};
NoSymbols => Message["Symbols not available"]};
DoSymbolSegment:
PROC [
root: Rope.ROPE, pages: SymbolSeg, option: CommandOption] = {
bcdFile: Rope.ROPE;
sseg: FileSegment.Pages;
bcdFile ← ListerUtil.SetExtension[root, "bcd"];
sseg ← [
file: OSMiscOps.FindFile[bcdFile ! OSMiscOps.FileError => {GO TO NoFile}],
span: [pages.base, pages.pages] --! SwapProblem[] => {GO TO BadSegment}--];
OpenOutput[root];
IO.PutRope[out, "Symbol Table in file: "];
IO.PutRope[out, root];
IO.PutRope[out, ", base: "]; IO.Put[out, IO.int[pages.base]];
IO.PutRope[out, ", pages: "]; IO.Put[out, IO.int[pages.pages]];
IO.PutChar[out, '\n];
PrintSyms[sseg, option, TRUE];
EXITS
NoFile => Message["FS not found"];
--BadSegment => Message["Bad Segment"]--};
ListSymbols:
PUBLIC
PROC [root, output: Rope.
ROPE, symbols, trees:
BOOL] = {
DoSymbols[root, output, MapOptions[symbols][trees]]};