DIRECTORY Buttons, CodeDefs, Containers, IO, Labels, ListerUtils, Menus, Rope, Symbols USING [ContextLevel, ISEIndex, ISENull], Table USING [Base, chunkType, Selector], ViewerClasses; MDebugDefs: DEFINITIONS = BEGIN OPEN CodeDefs; NumberCell, TextCell: TYPE = ViewerClasses.Viewer; Cmd: TYPE = Buttons.Button; ROPE: TYPE = Rope.ROPE; BYTE: TYPE = [0..256); DataRec: TYPE = RECORD [ outer: Containers.Container _ NIL, msg: Labels.Label, cmd: CommandViewer, -- the commands ts: ViewerClasses.Viewer, -- the typescript in, out: IO.STREAM, opData: ListerUtils.OpCodeArray, height: INT _ 0, showLinks: REF BOOL, infoVar: REF UNSPECIFIED, stopFlag: BOOLEAN _ FALSE, lastId: Symbols.ISEIndex _ Symbols.ISENull, charsOnLine: INT _ 0, dying: BOOL _ FALSE, en: INT ]; CommandViewer: TYPE = RECORD [ dVal: NumberCell]; CmdIndex: TYPE = {tree, lbl, lii, mdi, hti, cti, bti, sei, nextse, rep, body, stmt, expr, gFrames, source, stop}; Handle: TYPE = REF DataRec; MDebugInterface: PROGRAM; GetSelectionValue: PROCEDURE [h: Handle] RETURNS [val: UNSPECIFIED]; GetLongSelectionValue: PROCEDURE [h: Handle] RETURNS [val: INT]; CellCard: PROC [handle: Handle, n: NumberCell] RETURNS [CARDINAL]; MDebugCommands: PROGRAM; DoCommand: PROC [h: Handle, cmd: CmdIndex, button: Menus.MouseButton]; MDebugGlobals: PROGRAM; ClearCachedFrames: PUBLIC PROC [h: Handle]; CurContext: PROCEDURE [h: Handle] RETURNS [Symbols.ContextLevel]; GFrameSheet: PROC [h: Handle]; LabelStack: PROCEDURE [h: Handle] RETURNS [CodeDefs.LabelInfoIndex]; PutCurrentBody: PROCEDURE [h: Handle]; PutCurrentExpr: PROCEDURE [h: Handle]; PutCurrentSource: PROCEDURE [h: Handle]; PrintNextLine: PROCEDURE [h: Handle]; PrintPrevLine: PROCEDURE [h: Handle]; PutCurrentStmt: PROCEDURE [h: Handle]; PutTempState: PROCEDURE [h: Handle]; TableBase: PROCEDURE [h: Handle, table: Table.Selector _ Table.chunkType] RETURNS [Table.Base]; CDCopyRead: PROC [h: Handle, from: LONG POINTER, nwords: CARDINAL, to: LONG POINTER]; CDRead: PROC [Handle, LONG POINTER] RETURNS [UNSPECIFIED]; MDebugLabels: PROGRAM; PutLabelState: PROCEDURE [h: Handle]; PutAsLabelInfoIndex: PROCEDURE [h: Handle, lii: CodeDefs.LabelInfoIndex]; END. ΪMDebugDefs.mesa Edited by Bruce, October 14, 1980 4:17 PM Edited by Sweet, 22-Nov-81 17:21:24 Sweet June 2, 1986 10:25:13 am PDT from MDebugInterface from MDebugCommands from MDebugGlobals from MDebugLabels Κy˜Icodešœ™Kšœ+™+šœ$™$K™"—K˜šΟk ˜ Kšœ˜K˜ Kšœ ˜ Kšœ˜K˜K˜ K˜K˜Kšœœ#˜0Kšœœ˜(Kšœ˜—K˜šœ  œ˜Kšœœ ˜Kšœœ˜2Kšœœ˜Kšœœœ˜Kšœœ ˜K˜šœ œœ˜Kšœ˜"Kšœ˜KšœΟc˜$Kšœž˜+Kšœ  œ˜Kšœ ˜ Kšœœ˜Kšœ œ˜Kšœ œ œ˜Kšœ œœ˜K˜+Kšœ œ˜Kšœœœ˜Kšœ˜Kšœ˜—šœœœ˜Kšœ˜K˜—šœq˜qK˜—Kšœœœ ˜K˜K˜šœ™K˜Kšœœ˜KšΟnœ œ œ œ˜DKšŸœ œ œœ˜@KšŸœœ!œœ˜BK˜—šœ™K˜Kšœœ˜KšŸ œœ7˜FK˜—šœ™K˜Kšœœ˜KšŸœ œ ˜+KšŸ œ œ œ˜AKšŸ œœ ˜KšŸ œ œ œ˜DKšŸœ œ ˜&KšŸœ œ ˜&KšŸœ œ ˜(KšŸ œ œ ˜%KšŸ œ œ ˜%KšŸœ œ ˜&KšŸ œ œ ˜$KšŸ œ œ5œ˜_KšŸ œœœœ œœœ˜UKš Ÿœœ œœœ œ˜:K˜K˜—šœ™K˜Kšœœ˜KšŸ œ œ ˜%KšŸœ œ+˜IK˜—Kšœ˜—K˜—…—„ Χ