<<>> <> <> <> <> <> <> 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.