
DIRECTORY
ConvertUnsafe USING [SubString],
IO USING [STREAM],
Literals USING [Base, LitDescriptor, LTIndex, LTNull, LTRecord, MSTIndex, STIndex, STNull],
MobDefs USING [Base, Link, Mob, MobBase, MTIndex, MTRecord, SGIndex, SGRecord, VersionStamp],
Rope USING [ROPE],
Symbols USING [Base, BitAddress, BodyRecord, BTIndex, ContextLevel, CSEIndex, CTXIndex, CTXNull, CTXRecord, ISEIndex, ISENull, lG, lL, lZ, MDIndex, Name, nullName, RootBti, SEIndex, SENull, SERecord, TransferMode, TypeClass, typeTYPE],
SymbolTable USING [Base],
Tree USING [Link, NodeName];

MobListerUtils: DEFINITIONS = BEGIN


BitAddress: TYPE = Symbols.BitAddress;
BTIndex: TYPE = Symbols.BTIndex;
BTRecord: TYPE = Symbols.BodyRecord;
CSEIndex: TYPE = Symbols.CSEIndex;
typeTYPE: CSEIndex = Symbols.typeTYPE;
ContextLevel: TYPE = Symbols.ContextLevel;
lZ: ContextLevel = Symbols.lZ;
lG: ContextLevel = Symbols.lG;
lL: ContextLevel = Symbols.lL;
CTXIndex: TYPE = Symbols.CTXIndex;
CTXNull: CTXIndex = Symbols.CTXNull;
CTXRecord: TYPE = Symbols.CTXRecord;
ISEIndex: TYPE = Symbols.ISEIndex;
ISENull: ISEIndex = Symbols.ISENull;
ISERecord: TYPE = SERecord.id;
LTIndex: TYPE = Literals.LTIndex;
LTNull: LTIndex = Literals.LTNull;
LTRecord: TYPE = Literals.LTRecord;
LitDescriptor: TYPE = Literals.LitDescriptor;
MDIndex: TYPE = Symbols.MDIndex;
MSTIndex: TYPE = Literals.MSTIndex;
MSTNull: MSTIndex = LOOPHOLE[Literals.STNull];
MTIndex: TYPE = MobDefs.MTIndex;
MTRecord: TYPE = MobDefs.MTRecord;
Name: TYPE = Symbols.Name;
nullName: Name = Symbols.nullName;
NodeName: TYPE = Tree.NodeName;
RefMob: TYPE = REF MobDefs.Mob;
RefMTRecord: TYPE = REF MTRecord;
RefSGRecord: TYPE = REF SGRecord;
RootBti: BTIndex = Symbols.RootBti;
ROPE: TYPE = Rope.ROPE;
SEIndex: TYPE = Symbols.SEIndex;
SENull: SEIndex = Symbols.SENull;
SERecord: TYPE = Symbols.SERecord;
SGIndex: TYPE = MobDefs.SGIndex;
SGRecord: TYPE = MobDefs.SGRecord;
STIndex: TYPE = Literals.STIndex;
STREAM: TYPE = IO.STREAM;
SubString: TYPE = ConvertUnsafe.SubString;
SymbolTableBase: TYPE = SymbolTable.Base;
TransferMode: TYPE = Symbols.TransferMode;
TypeClass: TYPE = Symbols.TypeClass;
VersionStamp: TYPE = MobDefs.VersionStamp;


MobErr: ERROR [err: Rope.ROPE];

InitMobTab: PROC;

ReadMob: PROC [name: Rope.ROPE] RETURNS [mob: MobDefs.MobBase];

FreeMob: PROC [mob: MobDefs.MobBase];
PrintSE: PROC[sei: ISEIndex, nBlanks: CARDINAL, definitionsOnly: BOOL, stream: STREAM, stb: SymbolTableBase];

PrintSei: PROC[sei: ISEIndex, stream: STREAM, stb: SymbolTableBase];

PrintType: PROC[sei: SEIndex, stream: STREAM, stb: SymbolTableBase];

PrintTypeInfo: PROC[sei: SEIndex, nBlanks: CARDINAL, stream: STREAM, stb: SymbolTableBase];

PrintTree: PROC[tree: Tree.Link, nBlanks: NAT, stream: STREAM, stb: SymbolTableBase];

PrintLiteral: PROC[lti: Literals.LTIndex, stream: STREAM, stb: SymbolTableBase];

PrintStringLiteral: PROC[sti: Literals.STIndex, stream: STREAM, stb: SymbolTableBase];

PrintMobLink: PROC[link: MobDefs.Link, stream: STREAM];

PrintTreeLink: PROC[link: Tree.Link, stream: STREAM];

PrintName: PROC[name: Name, stream: STREAM, stb: SymbolTableBase];

WriteNodeName: PROC[n: NodeName, stream: STREAM];

WriteTypeName: PROC[n: TypeClass, stream: STREAM];

WriteModeName: PROC[n: TransferMode, stream: STREAM];

OutCtx: PROC[message: Rope.ROPE, ctx: CTXIndex, stream: STREAM];

OutArgType: PROC[message: ROPE, sei: CSEIndex, stream: STREAM, stb: SymbolTableBase];

PrintVersion: PROC[stamp: VersionStamp, stream: STREAM, useTime: BOOL м FALSE];

PrintStringFromTable: PROC[index: CARDINAL, stream: STREAM, stb: SymbolTableBase];

PrintString: PROC[str: LONG STRING, stream: STREAM];

PrintSubString: PROC[ss: SubString, stream: STREAM];

PrintIndex: PROC[index: UNSPECIFIED, stream: STREAM];

PrintLongIndex: PROC[index: Symbols.Base RELATIVE LONG POINTER, stream: STREAM];
Indent: PROC[stream: STREAM, nBlanks: NAT];

DescriptorValue: PROC[stb: SymbolTableBase, lti: LTIndex] RETURNS[LitDescriptor];

MasterString: PROC[stb: SymbolTableBase, sti: STIndex] RETURNS[MSTIndex м MSTNull];

ShortName: PROC[rope: ROPE] RETURNS[ROPE];

END.

   ь  
MobListerUtils.mesa
Copyright ╙ 1985, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson, March 7, 1985 4:08:25 am PST
Satterthwaite March 10, 1986 5:30:25 pm PST
Andy Litman March 3, 1988 3:35:27 pm PST
JKF January 11, 1989 8:20:38 am PST
T Y P E S  &  C O N S T A N T S
Utility procedures
Some of these utility routines were cloned from various places to allow stream: STREAM and stb: SymbolTableBase as arguments, so we don't have to use global variables.
must call Init to before calling ReadMob.
can raise MobErr
can raise MobErr

Prints out the information for the given sei.  The indentation level is given by nBlanks.  For a definitions file, definitionsOnly = TRUE.
Just prints out the name for the given ISEIndex.
Prints out the short form of the type, including its base ISEIndex.
Prints out the long form of the type.  The indentation level is given by nBlanks.
Prints out the tree.  The indentation level is given by nBlanks.
Prints out the literal.
Prints out the literal.
Prints the link, distinguishing between proc, type, and var varieties.
Prints the link in short form, distinguishing between subtree (default), hash, symbol, and literal varieties.
Prints the name.
Prints the NodeName in its readable form. 
Prints the TypeClass in its readable form. 
Prints the TransferMode in its readable form. 
Prints the ctx in short form (" ctx: %g"). 
Prints the message and sei in short form ("%g: %g").  Special consideration for NIL and ANY.
Prints the version stamp.  If useTime, then the time associated with the stamp is also printed (useful only for source files).
Prints the string at the given index.
Prints the given long string.
Prints the given substring.
Prints the given index as a decimal unsigned number.
Prints the given index as a decimal unsigned number.

Prints a '\n, followed by nBlanks blanks.
Gets the literal descriptor associated with the given LTIndex.
Gets the master string for the given STIndex.
Strips off version and directory information from the given file name.
 Э╩Ъ  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ	╧eЬ6ЩBKЪЬ(╧kЩ+KЪЬ(ЮЩ+KЪЬ%ЮЩ(KЪЮЬ Щ#ЧKШ ЪЮ	Ш	KЪЬЮЬШ KЪЮЬЮЬЮЬШKЪЬ	ЮЬMШ[KЪЬЮЬPШ]KЪЬЮЬЮЬШKЪЬЮЬ▐ШыKЪЬЮЬШKЪЬЮЬШЧKШ KЪ╧nЬЮЬЮШ#KШ ЪЬЩKШ KЪЬЮЬШ&KЪЬ	ЮЬШ KЪЬ
ЮЬШ$ЪЬ
ЮЬШ"KЪЬ&Ш&ЧЪЬЮЬШ*KЪЬШKЪЬШKЪЬШЧЪЬ
ЮЬШ"KЪЯЬШ$ЧKЪЬЮЬШ$ЪЬ
ЮЬШ"KЪЯЬШ$ЧKЪЬЮЬШЪЬ	ЮЬШ!KЪЯЬШ"ЧKЪЬ
ЮЬШ#KЪЬЮЬШ-KЪЬ	ЮЬШ ЪЬ
ЮЬШ#KЪЯЬЮЬШ.ЧKЪЬ	ЮЬШ KЪЬ
ЮЬШ"ЪЬЮЬШKЪЬ"Ш"ЧKЪЬ
ЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬ
Ш!KЪЬЮЬЮЬ
Ш!KЪЯЬШ#KЪЮЬЮЬЮЬШЪЬ	ЮЬШ KЪЯЬШ!ЧKЪЬ
ЮЬШ"KЪЬ	ЮЬШ KЪЬ
ЮЬШ"KЪЬ	ЮЬШ!KЪЮЬЮЬЮЬЮЬШKЪЬЮЬШ*KЪЬЮЬШ)KЪЬЮЬШ*KЪЬЮЬШ$KЪЬЮЬШ*KШ ЧЪЬЩKЪЬPЮЬQЩзKШ KЪЯЬЮЬЮЬШЧШ ЪЯ
ЬЮЬШKЪЬ)Щ)KШ ЧЪЯЬЮЬЮЬЮЬШ?KЪЬЩЧKШ ЪЯЬЮЬШ%KЪЬЩKЩ ЧЪ
ЯЬЮЬЮЬЮЬ
ЮЬШmKЪЬЕЮЬЩКKШ ЧЪЯЬЮЬЮЬШDKЪЬ0Щ0KШ ЧЪЯ	ЬЮЬЮЬШDKЪЬCЩCKШ ЧЪЯЬЮЬЮЬ
ЮЬШ[KЪЬQЩQKШ ЧЪЯ	ЬЮЬЮЬ
ЮЬШUKЪЬ@Щ@ЧKШ ЪЯЬЮЬ ЮЬШPKЪЬЩKШ ЧЪЯЬЮЬ ЮЬШVKЪЬЩЧKШ ЪЯЬЮЬЮЬШ7KЪЬFЩFKШ ЧЪЯЬЮЬЮЬШ5KЪЬmЩmKШ ЧЪЯ	ЬЮЬЮЬШBKЪЬЩKШ ЧЪЯЬЮЬЮЬШ1KЪЬ*Щ*KШ ЧЪЯЬЮЬЮЬШ2KЪЬ+Щ+KШ ЧЪЯЬЮЬЮЬШ5KЪЬ.Щ.KШ ЧЪЯЬЮЬЮЬЮЬШ@KЪЬ+Щ+KШ ЧЪЯ
ЬЮЬ
ЮЬЮЬШUЪЬPЮЬЮЬЩ\KШ ЧЧЪ
ЯЬЮЬЮЬЮЬЮЬШOKЪЬ~Щ~KШ ЧЪЯЬЮЬЮЬ
ЮЬШRKЪЬ%Щ%KШ ЧЪ
ЯЬЮЬЮЬЮЬ
ЮЬШ4KЪЬЩKШ ЧЪЯЬЮЬЮЬШ4KЪЬЩKШ ЧЪЯ
ЬЮЬЮЬ
ЮЬШ5KЪЬ4Щ4KШ ЧЪЯЬЮЬЮЬЮЬЮЬ
ЮЬШPKЪЬ4Щ4ЧKЩ ЪЯЬЮЬ	ЮЬЮЬШ+KЪЬ)Щ)KШ ЧЪЯЬЮЬ%ЮЬШQЪЬ>Щ>KШ ЧЧЪЯЬЮЬ%ЮЬШSKЪЬ-Щ-KШ ЧЪ
Я	ЬЮЬЮЬЮЬЮЬШ*KЪЬFЩFKШ ЧЧKЪЮЬШKШ Ч ЕЧ    ю  t  