[Indigo]<Cedar>UserExec>BBVExtras.mesa!2

Edited by Teitelman on April 5, 1983 8:08 pm

DIRECTORY

BBAction USING [Action],

BBBreak USING [BreakIndex, BreakId],

BBContext USING [Context],

BBVForUserExec USING [ReportProc],

IO USING [STREAM],

RTBasic USING [TV],

ViewerClasses USING [Viewer],

WorldVM USING [World]

;

BBVExtras: CEDAR DEFINITIONS =

BEGIN

ReportProc: TYPE = BBVForUserExec.ReportProc;

ShowBreakPoint: PROCEDURE [break: BBBreak.BreakIndex, report: BBVForUserExec.ReportProc];

ClearSelectedBreakPoint: PROC [world: WorldVM.World, report: BBVForUserExec.ReportProc];

ClearActionBreakPoint: PROC [action: BBAction.Action, report: BBVForUserExec.ReportProc];

ClearAllBreaks: PROC [report: BBVForUserExec.ReportProc];

ShowSource: PROC [tv: RTBasic.TV, report: BBVForUserExec.ReportProc, onlyIfAlreadyOpen: BOOL ← FALSE];

WalkContext: PROC [action: BBAction.Action, context: BBContext.Context, delta: INT, report: ReportProc] RETURNS [lf: RTBasic.TV];

ListBreaks: PROC [out: IO.STREAM];

PrintBreak: PROC [out: IO.STREAM, break: BBBreak.BreakId];

DisplayLocalFrame: PROC [out: IO.STREAM, lf: RTBasic.TV, report: BBVForUserExec.ReportProc, args, vars, allVars, globals, lfAndPc: BOOL ← FALSE];

SetBreakFromPosition: PROC[report: BBVForUserExec.ReportProc, viewer: ViewerClasses.Viewer, position: INT, world: WorldVM.World ← NIL, entry, exit: BOOL ← FALSE] RETURNS [break: BBBreak.BreakIndex];

END. -- BBVExtras