<> <> <> <> DIRECTORY Alloc: TYPE USING [Handle], BcdDefs: TYPE USING [Base, BcdBase, FTIndex, RFIndex, SGIndex, TFIndex], IO: TYPE USING [STREAM]; BcdLiterals: DEFINITIONS={ <> MapLitLinks: PROC [rfi: BcdDefs.RFIndex]; MapTypeLinks: PROC [tfi: BcdDefs.TFIndex]; LoadLiterals: PROC [ fti: BcdDefs.FTIndex, bcdBase: BcdDefs.BcdBase, MapFile: PROC [BcdDefs.FTIndex] RETURNS [BcdDefs.FTIndex], MapSegment: PROC [BcdDefs.SGIndex] RETURNS [BcdDefs.SGIndex]]; UnloadLiterals: PROC; <

> EnterVersionFiles: PROC [ ftb: BcdDefs.Base, ftLimit: BcdDefs.FTIndex, MapFile: PROC [BcdDefs.FTIndex] RETURNS [BcdDefs.FTIndex]]; LitSegSize: PROC RETURNS [nWords: CARDINAL]; UpdateSegments: PROC [MapSegment: PROC [BcdDefs.SGIndex] RETURNS [BcdDefs.SGIndex]]; WriteLiterals: PROC [stream: IO.STREAM]; <> Initialize: PROC [Alloc.Handle]; SealLiterals: PROC []; Finalize: PROC []; }.