BcdComData.mesa
last edited by Satterthwaite on September 14, 1982 4:00 pm
Last Edited by: Maxwell, August 3, 1983 12:44 pm
Last Edited by: Paul Rovner, September 22, 1983 12:56 pm
DIRECTORY
Alloc: TYPE USING [Handle],
BcdDefs: TYPE USING [FTIndex, NameRecord, VersionStamp],
CommandUtil: TYPE USING [PairList],
FS: TYPE USING [OpenFile],
IO: TYPE USING [STREAM],
OSMiscOps: TYPE USING [Stamp],
Rope: TYPE USING [ROPE];
BcdComData: PROGRAM = PUBLIC {
mode
op: {bind, conc} ← $bind;
scratch storage
table: Alloc.Handle;
input
rootName: Rope.ROPE ← NIL;
sourceName: Rope.ROPE ← NIL;
sourceVersion: BcdDefs.VersionStamp;
sourceStream: IO.STREAM;
commandArgs: CommandUtil.PairList;
error reporting
logStream: IO.STREAM;
errorStream: IO.STREAM;
textIndex: CARDINAL;
currentName: BcdDefs.NameRecord;
errors: BOOL;
warnings: BOOL;
nErrors: CARDINAL;
nWarnings: CARDINAL;
aborted:  BOOL;
output
objectStream: IO.STREAM;
outputFile: FS.OpenFile;
outputFti: BcdDefs.FTIndex;
bcdName: Rope.ROPE ← NIL;
objectStamp: OSMiscOps.Stamp;
codeName: Rope.ROPE ← NIL;
symbolName: Rope.ROPE ← NIL;
nConfigs: CARDINAL;
nModules: CARDINAL;
nImports: CARDINAL;
nExports: CARDINAL;
nPages: CARDINAL;
typeExported: BOOL;
global info for config
binderVersion: BcdDefs.VersionStamp;
copyCode: BOOL;
copySymbols: BOOL;
debug: BOOL;
}.