BcdLiterals.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, March 4, 1986 2:45:44 pm PST
Maxwell, August 4, 1983 9:32 am
Paul Rovner, September 22, 1983 11:40 am
Russ Atkinson (RRA) March 7, 1985 0:06:43 am PST
DIRECTORY
BcdDefs: TYPE USING [Base, BcdBase, FTIndex, RefLitIndex, SGIndex, TypeIndex],
IO: TYPE USING [STREAM];
BcdLiterals:
DEFINITIONS = {
LiteralState: TYPE = REF LiteralStateInfo;
LiteralStateInfo: TYPE;
input
MapLitLink: PROC[ls: LiteralState, old: BcdDefs.RefLitIndex] RETURNS[BcdDefs.RefLitIndex];
MapTypeLink: PROC[ls: LiteralState, old: BcdDefs.TypeIndex] RETURNS[BcdDefs.TypeIndex];
Load:
PROC[
ls: LiteralState,
bcdBase: BcdDefs.BcdBase,
MapFile: PROC[BcdDefs.FTIndex] RETURNS[BcdDefs.FTIndex],
MapSegment: PROC[BcdDefs.SGIndex] RETURNS[BcdDefs.SGIndex]]
RETURNS[success: BOOL];
Unload: PROC[ls: LiteralState];
output
EnterVersionFiles:
PROC[
ls: LiteralState,
ftb: BcdDefs.Base, ftLimit: BcdDefs.FTIndex,
MapFile: PROC[BcdDefs.FTIndex] RETURNS[BcdDefs.FTIndex]];
SegmentSize: PROC[ls: LiteralState] RETURNS[nWords: CARDINAL];
UpdateSegments: PROC[ls: LiteralState, MapSegment: PROC[BcdDefs.SGIndex] RETURNS[BcdDefs.SGIndex]];
Write: PROC[ls: LiteralState, stream: IO.STREAM];
initialization
Create: PROC[] RETURNS[LiteralState];
SealLiterals: PROC[ls: LiteralState];
Finalize: PROC[ls: LiteralState];
}.