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;


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];


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];

}.

     
MimosaCopier.mesa (formerly just "Copier.mesa")
Copyright ╙ 1985, 1986, 1988, 1991 by Xerox Corporation.  All rights reserved.
Satterthwaite, June 18, 1986 10:59:14 am PDT
Russ Atkinson (RRA) August 17, 1988 12:50:40 pm PDT

implemented by FilePack
implemented by SymbolCopier
Э╩+  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬ/Щ/KЪЬ
╧eЬCЩNKЪ╧y,Щ,KЩ3KЩ Ъ╧k	Ш	KЪЬЯЬ
ШKЪЬ
ЯЬШ KЪЬЯЬШKЪЬЯЬЯЬШKЪЬШKЪЬЯЬШ!KШ ЧЧЪ╧nЬЯЬШKЪЯЬ	ШKШ KЪЬ	ЯЬЯЬШKЪЬЯЬ	ШKШ ЧKЪЬЩШ KЪаЬЯЬIШWKЪа	ЬЯЬШKШ KЪаЬЯЬЯЬШ!KЪа	ЬЯЬ/ЯЬЯЬШVKЪаЬЯЬGЯЬШkKЪаЬЯЬШ)KЪаЬЯЬЯЬШ:KЪа
ЬЯЬЯЬШAKЪаЬЯЬЯЬШ=KЪаЬЯЬШ&KШ KЪЬЯЬЯЬЯЬШ2KЪЬЯЬЯЬЯЬШ2KЪЬЯЬШ&KШ ЧKЪЬЩШ KЪа
ЬЯЬ-ЯЬЯ	ЬШ[KЪаЬЯЬШKШ KЪаЬЯЬШ1KЪаЬЯЬGШ]KЪаЬЯЬЯЬШ>KЪа
ЬЯЬ4ЯЬШ[KЪа	ЬЯЬ,Ш;KЪаЬЯЬЯЬШ,KЪаЬЯЬЯЬШ4KЪаЬЯЬЯЬЯЬШ2KЪаЬЯЬШKЪа
ЬЯЬ0Ш@KЪаЬЯЬЯЬШEKЪаЬЯЬЯЬШ;KЪаЬЯЬЯЬЯЬШIKЪа	ЬЯЬЯЬШ6KЪаЬЯЬЯЬШ9KЪа
ЬЯЬЯЬЯЬШ4KШ KЪЬЯЬШKЪЬЯЬШ%KШ KШKШ ЧЧ ЕЧ    t  ╗  