[Cyan]<CedarLang>Nucleus>Binder>BcdComData.mesa!1

BcdComData.mesa

last edited by Satterthwaite on September 14, 1982 4:00 pm

Last Edited by: Maxwell, August 3, 1983 12:44 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;

zone: UNCOUNTED ZONE;

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;

}.