[_CDCSL_93-16_]<1>Cedar>release>MimosaOnly>MimosaCopier.mesa

MimosaCopier.mesa (formerly just "Copier.mesa")

Satterthwaite, June 18, 1986 10:59:14 am PDT

Russ Atkinson (RRA) August 17, 1988 12:50:40 pm PDT

DIRECTORY

Alloc USING [Handle],

FileParms USING [ActualId, Ops],

MobDefs USING [VersionStamp],

Rope USING [ROPE],

Symbols,

SymbolTable USING [Base, Handle];

MimosaCopier: DEFINITIONS = {

OPEN Symbols;

SEToken: TYPE [SIZE[ISEIndex]];

nullSEToken: READONLY SEToken;

implemented by FilePack

FileInit: PROC [
self: FileParms.ActualId,
ownTable: Alloc.Handle,
ops: FileParms.Ops];

FileReset: PROC;

CreateFileTable: PROC [CARDINAL];

EnterFile: PROC [formalId, typeId: HTIndex, defaultFile: Rope.ROPE] RETURNS [MDIndex];

FindMdEntry: PROC
[formalId, typeId: Name, version: MobDefs.VersionStamp, file: HTIndex]
RETURNS [MDIndex];

FreeSymbolTable: PROC [SymbolTable.Base];

GetSymbolTable: PROC [MDIndex] RETURNS [SymbolTable.Base];

MapSymbols: PROC [FileParms.ActualId] RETURNS [SymbolTable.Base];

TableForModule: PROC [MDIndex] RETURNS [SymbolTable.Handle];

UnmapSymbols: PROC [SymbolTable.Base];

FileProblem: SIGNAL [hti: HTIndex] RETURNS [BOOL];

FileVersion: SIGNAL [hti: HTIndex] RETURNS [BOOL];

FileVersionMix: SIGNAL [hti: HTIndex];

implemented by SymbolCopier

CopierInit: PROC [
ownTable: Alloc.Handle, symbolCachePages: CARDINAL, useMemo: BOOL¬TRUE];

CopierReset: PROC;

AugmentContext: PROC [IncludedCTXIndex, MDIndex];

CompleteContext: PROC
[ctx: IncludedCTXIndex, depth: Closure¬unit, parent: SEIndex ¬ SENull];

CopyExternalBody: PROC [MDIndex, CBTIndex] RETURNS [CBTIndex];

CopySymbol: PROC [mdi: MDIndex, iSei: SEIndex, depth: Closure¬full] RETURNS [sei: SEIndex];

CopyUnion: PROC [rSei: RecordSEIndex, depth: Closure¬none];

CtxFirst: PROC [CTXIndex] RETURNS [SEToken];

CtxNext: PROC [CTXIndex, SEToken] RETURNS [SEToken];

CtxValue: PROC [CTXIndex, CARD] RETURNS [SEToken];

Delink: PROC [ISEIndex];

FillModule: PROC [sei: ISEIndex, typeId: HTIndex, mdi: MDIndex];

FindExternalCtx: PROC [MDIndex, CTXIndex] RETURNS [IncludedCTXIndex];

Outer: PROC [mdi: MDIndex, inner: PROC [SymbolTable.Base]];

SearchFileCtx: PROC [HTIndex, IncludedCTXIndex] RETURNS [BOOL, ISEIndex];

TokenHash: PROC [CTXIndex, SEToken] RETURNS [HTIndex];

TokenSymbol: PROC [CTXIndex, SEToken] RETURNS [ISEIndex];

TokenValue: PROC [CTXIndex, SEToken] RETURNS [CARD];

TableRelocated: SIGNAL;

UnknownModule: SIGNAL [hti: HTIndex];