
<<STDebugDefs.mesa    Edited by Sweet, 11-Sep-81 15:52:14>>
<<Edited by JGS, 11-Sep-81 10:58:44>>
<<Edited by Bruce, 18-Sep-81 19:59:19>>
    <<Sweet February 11, 1986 10:52:04 am PST>>

DIRECTORY
BcdDefs USING [VersionStamp],
ConvertUnsafe USING [SubString],
Literals USING [LitIndex],
RESOut USING [Handle],
Symbols USING [
BTIndex, CTXIndex, HTIndex, ISEIndex, MDIndex, SEIndex, TransferMode, 
TypeClass],
Table USING [Base, Selector],
Tree USING [Link];

STDebugDefs: DEFINITIONS =
BEGIN
Handle: TYPE = RESOut.Handle;
SubString: TYPE = ConvertUnsafe.SubString;

STDebugMisc: PROGRAM;
HashForSei: PROC [h: Handle, sei: Symbols.ISEIndex] RETURNS [hti: Symbols.HTIndex];
PSTSubString: PROC [h: Handle, ss: SubString];
PSTString: PROC [h: Handle, s: LONG STRING];
PutAsVariousRep: PROC [h: Handle, n: LONG UNSPECIFIED];
PutHashString: PROC [h: Handle, hti: Symbols.HTIndex];
PutNodeName: PROC [h: Handle, n: UNSPECIFIED];
PutTypeName: PROC [h: Handle, n: Symbols.TypeClass];
PutModeName: PROC [h: Handle, n: Symbols.TransferMode];
SubStringForHash: PROC [h: Handle, hti: Symbols.HTIndex] RETURNS [SubString];


STDebugSymbols: PROGRAM;
PutAsSei: PROC [h: Handle, sei: Symbols.SEIndex] RETURNS [id: BOOL];
NextSe: PROC [h: Handle, sei: Symbols.ISEIndex] RETURNS [Symbols.ISEIndex];
PutAsHti: PROC [h: Handle, hti: Symbols.HTIndex];
PutAsCti: PROC [h: Handle, cti: Symbols.CTXIndex];
PutAsBti: PROC [h: Handle, bti: Symbols.BTIndex];
PutAsMdi: PROC [h: Handle, mdi: Symbols.MDIndex];
PutVersion: PROC [h: Handle, stamp: BcdDefs.VersionStamp];

STDebugTrees: PROGRAM;
PutAsTree: PROC [h: Handle, t: Tree.Link];
PutAsLti: PROC [h: Handle, lti: Literals.LitIndex];

<<supplied by user>>

STCopyRead: PROC [h: Handle, from: LONG POINTER, nwords: CARDINAL, to: LONG POINTER];
STRead: PROC [Handle, LONG POINTER] RETURNS [UNSPECIFIED];
TableBase: PROC [Handle, Table.Selector] RETURNS [Table.Base];
TableSize: PROC [Handle, Table.Selector] RETURNS [CARDINAL];
ShowLinks: PROC [Handle] RETURNS [BOOLEAN];
TreeDepth: PROC [Handle] RETURNS [CARDINAL];

END.