BcdComData.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite on April 17, 1986 12:44:47 pm PST
Maxwell, August 3, 1983 12:44 pm
Paul Rovner, September 22, 1983 12:56 pm
Russ Atkinson (RRA) March 7, 1985 0:13:39 am PST
DIRECTORY
Alloc: TYPE USING [Handle],
BcdDefs: TYPE USING [FTIndex, NameRecord, VersionStamp],
BcdLiterals: TYPE USING [LiteralState],
CommandUtil: TYPE USING [PairList],
FS: TYPE USING [OpenFile],
IO: TYPE USING [STREAM],
OSMiscOps: TYPE USING [Stamp],
Rope: TYPE USING [ROPE];
BcdComData: PROGRAM = {
mode
op: PUBLIC {bind, conc} ← $bind;
scratch storage
table: PUBLIC Alloc.Handle;
input
rootName: PUBLIC Rope.ROPENIL;
sourceName: PUBLIC Rope.ROPENIL;
sourceVersion: PUBLIC BcdDefs.VersionStamp;
sourceStream: PUBLIC IO.STREAM;
commandArgs: PUBLIC CommandUtil.PairList;
error reporting
logStream: PUBLIC IO.STREAM;
errorStream: PUBLIC IO.STREAM;
textIndex: PUBLIC CARDINAL;
currentName: PUBLIC BcdDefs.NameRecord;
errors: PUBLIC BOOL;
warnings: PUBLIC BOOL;
nErrors: PUBLIC CARDINAL;
nWarnings: PUBLIC CARDINAL;
aborted:  PUBLIC BOOL;
output
objectStream: PUBLIC IO.STREAM;
outputFile: PUBLIC FS.OpenFile;
outputFti: PUBLIC BcdDefs.FTIndex;
bcdName: PUBLIC Rope.ROPENIL;
objectStamp: PUBLIC OSMiscOps.Stamp;
codeName: PUBLIC Rope.ROPENIL;
symbolName: PUBLIC Rope.ROPENIL;
nConfigs: PUBLIC CARDINAL;
nModules: PUBLIC CARDINAL;
nImports: PUBLIC CARDINAL;
nExports: PUBLIC CARDINAL;
nPages: PUBLIC CARDINAL;
typeExported: PUBLIC BOOL;
global info for config
binderVersion: PUBLIC BcdDefs.VersionStamp;
copyCode: PUBLIC BOOL;
copySymbols: PUBLIC BOOL;
debug: PUBLIC BOOL;
bcd literal management
literals: PUBLIC BcdLiterals.LiteralState ← NIL;
}.