
DIRECTORY
Alloc USING [AddNotify, Base, DropNotify, Handle, InstanceData, Notifier],
CinderSysOps USING [Close, Open, OpenKind],
ConvertUnsafe USING [LS, SubString, SubStringToRope],
IO USING [STREAM],
MobComData USING [Data, data],
MobDefs USING [Base, FTIndex, FTNull, fttype, IMPIndex, IMPRecord, LFIndex, lftype, Link, LinkOffset, LinkTag, Mob, MobBase, MobOffset, ModuleIndex, MTIndex, MTNull, mttype, NameRecord, Selector, SGIndex, SGNull, sgtype, sstype, VersionStamp],
MobErrorDefs USING [InterfaceId],
MobOps USING [Configuration, Cookie, CookieObj, DoMobStream, DoSymbols, FileError, NoSymbols, WrongMobdefsVersion, WrongSymbolsVersion],
OSMiscOps USING [],
Rope USING [ActionType, Concat, FetchType, Find, MapType, MoveType, ROPE],
SymbolOps USING [DecodeBitAddr, DecodeCard, DecodeLink, FirstCtxSe, LinkMode, NextSe, STB, SubStringForName, UnderType],
Symbols USING [Base, BitAddress, BitCount, CSEIndex, CTXIndex, HashVector, ISEIndex, ISENull, Linkage, MDIndex, Name, nullName, nullType, nullUNSPEC, Type, TypeClass, UNSPEC],
SymbolTable USING [SymbolTableBaseRep],
SymbolTablePrivate USING [FGTEntryArray, FGTEntryArrayDesc, HashVectorPtr, STHeaderPtr, SymbolTableBase, SymbolTableBaseRep];

MobSymbolPack: PROGRAM
IMPORTS Alloc, CinderSysOps, ConvertUnsafe, Rope, MobComData, SymbolOps, MobOps
EXPORTS MobErrorDefs, SymbolTable = { 
OPEN MobDefs, MobComData;

mtb, lfb, sgb, ftb: MobDefs.Base;
ssb: LONG STRING;
Base: TYPE = REF SymbolTableBaseRep;
SymbolTableBaseRep: PUBLIC TYPE = SymbolTablePrivate.SymbolTableBaseRep;

Notifier: Alloc.Notifier ~ {
mtb ¬ base[mttype]; 
lfb ¬ base[lftype];
sgb ¬ base[sgtype]; 
ftb ¬ base[fttype];
ssb ¬ base[sstype]};

Initialize: PUBLIC PROC ~ {};

Finalize:  PUBLIC PROC ~ {};

ExportItemName: PUBLIC PROC[export: MobErrorDefs.InterfaceId, ep: CARDINAL, userProc: PROC[ConvertUnsafe.SubString]] ~ { 
(data.table).AddNotify[Notifier];
PrintNameFromInterface[export, ep, userProc];
(data.table).DropNotify[Notifier]};

ImportItemName: PUBLIC PROC[import: MobErrorDefs.InterfaceId, ep: CARDINAL, clientMti: MobDefs.MTIndex, linkOffset: CARDINAL, link: MobDefs.Link, userProc: PROC[ConvertUnsafe.SubString]] ~ { 
(data.table).AddNotify[Notifier];
IF clientMti = MobDefs.MTNull THEN RETURN;
IF mtb[clientMti].sseg # MobDefs.SGNull 
THEN PrintNameFromModule[import, clientMti, linkOffset, link, userProc]
ELSE PrintNameFromInterface[import, ep, userProc];
(data.table).DropNotify[Notifier]};
VersionForModuleIndex: PROC[impb, ftb: MobDefs.Base, modIndex: MobDefs.ModuleIndex]
RETURNS[MobDefs.VersionStamp] = {
FOR impi: MobDefs.IMPIndex ¬ MobDefs.IMPIndex.FIRST, 
impi + MobDefs.IMPRecord.SIZE DO
IF impb[impi].modIndex = modIndex THEN RETURN[ftb[impb[impi].file].version];
ENDLOOP };

PrintNameFromModule: PROC[
import: MobErrorDefs.InterfaceId,
importerMti: MobDefs.MTIndex,
linkOffset: CARDINAL,
link: MobDefs.Link,
userProc: PROC[ConvertUnsafe.SubString]] ~ { 
key: Symbols.BitAddress ~ ComputeAddress[importerMti, linkOffset];
mobimpb, mobftb: MobDefs.Base ¬ NIL;
DoSymbols: PROC[sym: Base] = {
OPEN Symbols;
Imported: PROC[sei: Symbols.ISEIndex] RETURNS[BOOL] ~ INLINE {
RETURN[sym.seb[sei].linkSpace AND ~sym.seb[sei].extended]};
LinksMatch: PROC[link, linkInSym: MobDefs.Link] RETURNS[BOOL] ~ {
RETURN[
linkInSym.tag = link.tag AND 
linkInSym.offset = link.offset AND 
ftb[import.fti].version = -- link.version
VersionForModuleIndex[mobimpb, mobftb, linkInSym.modIndex]]};
importCtx: CTXIndex;
sei: ISEIndex;
type: CSEIndex;
IF sym = NIL THEN RETURN;
importCtx ¬ sym.stHandle.importCtx;
FOR iSei: ISEIndex ¬ SymbolOps.FirstCtxSe[sym, importCtx], 
SymbolOps.NextSe[sym, iSei] UNTIL iSei = ISENull DO
type ¬ SymbolOps.UnderType[sym, sym.seb[iSei].idType];
WITH t~~sym.seb[type] SELECT FROM
definition =>
FOR sei ¬ SymbolOps.FirstCtxSe[sym, t.defCtx], 
SymbolOps.NextSe[sym, sei] UNTIL sei = ISENull DO
IF Imported[sei] AND 
LinksMatch[link, SymbolOps.DecodeLink[sym.seb[sei].idValue]]
THEN GO TO Found;
ENDLOOP;
ref =>
IF Imported[iSei] AND 
SymbolOps.DecodeBitAddr[sym.seb[iSei].idValue] = key
THEN {sei ¬ iSei;  GO TO Found};
ENDCASE => NULL;
REPEAT
Found => {
d: ConvertUnsafe.SubString;
d ¬ SymbolOps.SubStringForName[sym, sym.seb[sei].hash];
userProc[d ! UNWIND => {(data.table).DropNotify[Notifier]}]};
ENDLOOP};
DoMob: PROC[mob: MobDefs.MobBase, cookie: MobOps.Cookie] = {
IF mob = NIL THEN RETURN;
mobimpb ¬ LOOPHOLE[mob + mob.impOffset.units];
mobftb ¬ LOOPHOLE[mob + mob.ftOffset.units];
MobOps.DoSymbols[cookie, DoSymbols ! 
MobOps.Configuration => CONTINUE;
MobOps.NoSymbols => CONTINUE;
MobOps.WrongSymbolsVersion => CONTINUE]}; 
sgi: MobDefs.SGIndex = mtb[importerMti].sseg;
IF sgb[sgi].file # FTNull THEN {
name: Rope.ROPE ¬ GetMobName[ftb[sgb[sgi].file].name];
openFile: IO.STREAM ¬ CinderSysOps.Open[name, $read].stream;
Cleanup: PROC[] = {[] ¬ CinderSysOps.Close[openFile, FALSE]};
IF openFile # NIL THEN {
MobOps.DoMobStream[openFile, DoMob !
MobOps.FileError => {Cleanup[]; CONTINUE};
MobOps.WrongMobdefsVersion => {Cleanup[]; CONTINUE}];
Cleanup[];
};
};
};

ComputeAddress: PROC[mti: MobDefs.MTIndex, linkOffset: CARDINAL] 
RETURNS[Symbols.BitAddress] ~ {
linkLength: CARDINAL ~ lfb[mtb[mti].links].length;
RETURN[[bd~((linkLength-1)-linkOffset)*BITS[MobDefs.Link]]]};

PrintNameFromInterface: PROC[
id: MobErrorDefs.InterfaceId,
ep: CARDINAL,
userProc: PROC[ConvertUnsafe.SubString]] ~ {
DoSymbols: PROC[sym: Base] = {
OPEN Symbols;
outerCtx: CTXIndex;
d: ConvertUnsafe.SubString;
IF sym = NIL THEN RETURN;
outerCtx ¬ sym.stHandle.outerCtx;
FOR sei: ISEIndex ¬ SymbolOps.FirstCtxSe[sym, outerCtx], 
SymbolOps.NextSe[sym, sei] UNTIL sei = ISENull DO
SELECT SymbolOps.LinkMode[sym, sei] FROM
$val, $ref, $type => 
IF SymbolOps.DecodeCard[sym.seb[sei].idValue] = ep THEN {
d ¬ SymbolOps.SubStringForName[sym, sym.seb[sei].hash];
userProc[d !
UNWIND => {(data.table).DropNotify[Notifier]}]};
ENDCASE;
ENDLOOP};
DoMob: PROC[mob: MobDefs.MobBase, cookie: MobOps.Cookie] = {
IF mob = NIL OR ~mob.definitions THEN RETURN;
MobOps.DoSymbols[cookie, DoSymbols ! 
MobOps.Configuration => CONTINUE;
MobOps.NoSymbols => CONTINUE;
MobOps.WrongSymbolsVersion => CONTINUE]}; 
IF id.fti # FTNull THEN {
name: Rope.ROPE ¬ GetMobName[ftb[id.fti].name];
openFile: IO.STREAM ¬ CinderSysOps.Open[name, $read].stream;
LocalCleanup: PROC[] = {[] ¬ CinderSysOps.Close[openFile, FALSE]};
IF openFile # NIL THEN {
MobOps.DoMobStream[openFile, DoMob !
MobOps.FileError => {LocalCleanup[]; CONTINUE};
MobOps.WrongMobdefsVersion => {LocalCleanup[]; CONTINUE}];
LocalCleanup[];
};
};
};

GetMobName: PROC[name: NameRecord] RETURNS[rope: Rope.ROPE] ~ {
dotIndex: INT;
d: ConvertUnsafe.SubString ¬
[base~ssb, offset~name+1, length~MIN[ssb.text[name].ORD, 40]];
rope ¬ d.SubStringToRope;
dotIndex ¬ Rope.Find[rope, "."];
IF dotIndex < 0 THEN rope ¬ Rope.Concat[rope, ".mob"]};
}.

  r  MobSymbolPack.mesa
Copyright س 1985, 1989, 1991 by Xerox Corporation.  All rights reserved.
Satterthwaite on March 14, 1986 12:04:31 pm PST
Lewis on 27-Mar-81 10:04:27
Maxwell, August 11, 1983 2:24 pm
Paul Rovner, November 21, 1983 12:34 pm
Russ Atkinson (RRA) March 7, 1985 0:15:19 am PST
Andy Litman May 31, 1988 9:50:33 pm PDT
JKF July 22, 1989 3:56:14 pm PDT

‌ت‹  •NewlineDelimiter
–(cedarcode) styleک codeڑœ™Kڑœ
دeœ=™HKڑدy,ذky™/Kڑ‍™Kڑ‍ ™ Kڑ‍'™'Kڑœدkœ ™0Kڑ‍'™'K™ K™ —ڑ 	ک	Kڑœ œ?کJKڑœ œک+Kڑœ œ œک5Kڑ œ œ œکKڑœ œکKڑœ œوکَKڑœ œک!Kڑœ œ|کˆKڑœ
 œکKڑœ œ: œکJKڑœ
 œG œکxKڑœ œڑ œک¯Kڑœ œک'Kڑœ œeک}Kک —ڑدnœ کKڑ œHکOKڑ œک&Kڑ œکKک Kک!Kڑœ œ œکKڑœ œ œک$Kڑœ œ œ)کHKک ڑ،œکKکKکKکKکKک—Kک ڑ،
œ œ œکKک —Kڑ،œ œ œکKک ڑ
،œ œ œ' œ œکyKک!Kڑœ-ک-Kک#Kک —ڑ،œ œ œ' œ* œ  œک؟Kک!Kڑ œ œ œک*ڑ œ&ک(Kڑ œCکGKڑ œ.ک2—Kک$—ڑ،œ œ8کSKڑ œک!ڑ œ+ œک5Kڑœ œ ک Kڑ œ  œ œکLKڑ œک
——Kک ڑ،œ œکKڑœ!ک!KکKڑœ œکKکKڑœ
 œک-KکBKڑœ$ک$ڑ،	œ œکKڑ œ	کڑ
،œ œ œ œ œک>Kڑ œ œک;—ڑ،
œ œ  œ œکAڑ œکKڑœ œکKڑœ œک#ڑœدcک)Kڑœ=ک=———KڑœکKکKکKڑ œ œ œ œکKڑœ#ک#ڑ œ8ک;Kڑœ œ ک3Kڑœ6ک6ڑ œ œ ک!کڑ œ,ک/Kڑœ œ ک1ڑ œ œکKڑœ<ک<Kڑ œ œ œک—Kڑ œک——کڑ œ œکKڑœ4ک4Kڑ œ œ œک ——Kڑ œ œک—ڑ کک
KکKڑœ7ک7Kڑœ œ*ک=——Kڑ œک	—ڑ،œ œ1ک<Kڑ œ œ œ œکKڑœ
 œک.Kڑœ	 œک,ڑœ%ک%Kڑœ œک!Kڑœ œکKڑœ œک*——Kڑœ-ک-ڑ œ œک Kڑœ œ'ک6Kڑœ
 œ œ)ک<Kڑ،œ œ( œک=ڑ œ œ œکک$Kڑœ  œک*Kڑœ* œک5—Kک
Kڑœک—Kک—KکKک ——ڑ،œ œ# œکAKڑ œکKڑœ œک2Kڑ œ! œک=Kک —ڑ،œ œکKڑœکKڑœ œکKڑœ
 œک,ڑ،	œ œکKڑ œ	کKڑœکKڑœکKڑ œ œ œ œکKڑœ!ک!ڑ œ6ک9Kڑœ œ ک1ڑ œ ک(کڑ œ1 œک9Kڑœ7ک7کKڑ œ*ک0———Kڑ œک—Kڑ œک	——ڑ،œ œ1ک<Kڑ
 œ œ œ œ œک-ڑœ%ک%Kڑœ œک!Kڑœ œکKڑœ œک*——ڑ œ œکKڑœ œ ک/Kڑœ
 œ œ)ک<Kڑ،œ œ( œکBڑ œ œ œکڑœ$ک$Kڑœ% œک/Kڑœ/ œک:—KڑœکKڑœک—Kڑœک—کKک ——ڑ،
œ œ œ œک?Kڑœ
 œککKڑœ! œ œک>—KکKک Kڑ œ œ$ک8—KڑœکKک —— …—    ¬  #©  