BcdUtilDefs.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite on November 5, 1985 2:38:10 pm PST
Lewis on 16-Dec-80 10:42:45
Maxwell, August 4, 1983 9:30 am
Paul Rovner, September 9, 1983 9:12 am
Russ Atkinson (RRA) March 7, 1985 0:06:04 am PST
DIRECTORY
Alloc: TYPE USING [Handle],
BcdDefs: TYPE USING [CTIndex, EXPIndex, FPIndex, FTIndex, IMPIndex, ModuleIndex, MTIndex, Namee, NameRecord, NameString, NTIndex, SGIndex, SGRecord, SPIndex, TMIndex, TYPIndex, VersionStamp],
ConvertUnsafe: TYPE USING [SubString],
Symbols: TYPE USING [CXIndex, HTIndex, STIndex],
Table: TYPE USING [Base],
Tree: TYPE USING [Link];
BcdUtilDefs: DEFINITIONS = {
OPEN BcdDefs;
HTIndex: TYPE~Symbols.HTIndex;
BcdBasePtr: TYPE~REF BcdBases;
BcdBases: TYPE~RECORD [
ctb, mtb, lfb, rfb, tfb, etb, itb, sgb, ftb, evb, tyb, tmb, ntb, spb, fpb: Table.Base,
ssb: BcdDefs.NameString];
BcdLimits: TYPE~RECORD [
ft: FTIndex,
ct: CTIndex,
mt: MTIndex,
et: EXPIndex,
it: IMPIndex,
sg: SGIndex,
nt: NTIndex,
tm: TMIndex,
sp: SPIndex,
fp: FPIndex];
bcd-specific operations
EnterConfig: PROC[bcd: BcdBasePtr, oldCti: CTIndex, name: HTIndex]
RETURNS[cti: CTIndex];
EnterExport: PROC[bcd: BcdBasePtr, oldEti: EXPIndex, copyName: BOOL]
RETURNS[eti: EXPIndex];
EnterFramePack: PROC[bcd: BcdBasePtr, oldFpi: FPIndex]
RETURNS[fpi: FPIndex];
EnterImport: PROC[bcd: BcdBasePtr, oldIti: IMPIndex, copyName: BOOL]
RETURNS[iti: IMPIndex];
EnterModule: PROC[bcd: BcdBasePtr, oldMti: MTIndex, name: HTIndex]
RETURNS[mti: MTIndex];
EnterSpace: PROC[bcd: BcdBasePtr, oldSpi: SPIndex]
RETURNS[spi: SPIndex];
EnterType: PROC[bcd: BcdBasePtr, oldTypi: TYPIndex]
RETURNS[typi: TYPIndex];
EnterTypeMap: PROC[bcd: BcdBasePtr, oldTmi: TMIndex]
RETURNS[tmi: TMIndex];
HtiForName: PROC[bcd: BcdBasePtr, n: NameRecord] RETURNS[HTIndex];
MapName: PROC[bcd: BcdBasePtr, n: NameRecord] RETURNS[NameRecord];
MergeFile: PROC[bcd: BcdBasePtr, oldFti: FTIndex] RETURNS[fti: FTIndex];
other operations
EnterName: PROC[ss: ConvertUnsafe.SubString] RETURNS[NameRecord];
NameForHti: PROC[hti: HTIndex] RETURNS[NameRecord];
NameForSti: PROC[sti: Symbols.STIndex] RETURNS[NameRecord];
EnterFile: PROC[name: LONG STRING] RETURNS[fti: FTIndex];
SetFileVersion: PROC[fti: FTIndex, v: BcdDefs.VersionStamp];
FileForVersion: PROC[v: BcdDefs.VersionStamp] RETURNS[fti: FTIndex];
EqVersions: PROC[fti1, fti2: FTIndex] RETURNS[BOOL];
EquivalentVersions: PROC[v1, v2: BcdDefs.VersionStamp] RETURNS[BOOL];
GftOverflow: SIGNAL;
GetGfi: PROC[n: CARDINAL] RETURNS[gfi: ModuleIndex];
GetDummyGfi: PROC[n: CARDINAL] RETURNS[gfi: CARDINAL];
NewContext: PROC RETURNS[cxi: Symbols.CXIndex];
ContextForTree: PROC[t: Tree.Link] RETURNS[Symbols.CXIndex];
NewSemanticEntry: PROC[hti: HTIndex] RETURNS[sti: Symbols.STIndex];
CreateInstanceName: PROC[hti: HTIndex, item: Namee];
InstanceName: PROC[item: Namee] RETURNS[NameRecord];
EnterSegment: PROC[seg: SGRecord] RETURNS[sgi: SGIndex];
administrative procedures
Init: PROC[ownTable: Alloc.Handle];
Reset: PROC;
}.