[Cyan]<Cedar6.1>Compiler>Copier.mesa!1

Copier.Mesa

Satterthwaite, February 18, 1983 9:19 am

Maxwell, August 2, 1983 2:39 pm

Paul Rovner, September 6, 1983 11:53 pm

Russ Atkinson (RRA) March 6, 1985 10:09:34 pm PST

DIRECTORY

Alloc USING [Handle],

FileParms USING [ActualId, Ops],

Rope USING [ROPE],

Symbols,

SymbolTable USING [Base, Handle],

TimeStamp USING [Stamp];

Copier: DEFINITIONS = {

OPEN Symbols;

SEToken: TYPE [1];

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 [id: HTIndex, version: TimeStamp.Stamp, 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];

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

CopySymbol: PROC [mdi: MDIndex, iSei: SEIndex, depth: Closure𡤏ull] RETURNS [sei: SEIndex];

CopyUnion: PROC [ctx: CTXIndex, depth: Closure←none];

CtxFirst: PROC [CTXIndex] RETURNS [SEToken];

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

CtxValue: PROC [CTXIndex, CARDINAL] 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 [CARDINAL];

TableRelocated: SIGNAL;

UnknownModule: SIGNAL [hti: HTIndex];