private void RSession_AfterRequest(object sender, RRequestEventArgs e)
{
_currentBrowseEventArgs = null;
}
private async Task ProcessBrowsePromptWorker(IRSessionInteraction inter)
{
var frames = await GetStackFramesAsync();
// If there's .doTrace(rtvs:::breakpoint) anywhere on the stack, we're inside the internal machinery
// that triggered Browse> prompt when hitting a breakpoint. We need to step out of it until we're
// back at the frame where the breakpoint was actually set, so that those internal frames do not show
// on the call stack, and further stepping does not try to step through them.
// Since browserSetDebug-based step out is not reliable in the presence of loops, we'll just keep
// stepping over with "n" until we're all the way out. Every step will trigger a new prompt, and
// we will come back to this method again.
var doTraceFrame = frames.FirstOrDefault(frame => frame.FrameKind == DebugStackFrameKind.DoTrace);
if (doTraceFrame != null)
{
// Save the .doTrace frame so that we can report file / line number info correctly later, once we're fully stepped out.
// TODO: remove this hack when injected breakpoints get proper source info (#570).
_bpHitFrame = doTraceFrame;
await inter.RespondAsync(Invariant($"n\n"));
return;
}
IReadOnlyCollection <DebugBreakpoint> breakpointsHit = null;
var lastFrame = frames.LastOrDefault();
if (lastFrame != null)
{
// Report breakpoints first, so that by the time step completion is reported, all actions associated
// with breakpoints (e.g. printing messages for tracepoints) have already been completed.
if (lastFrame.FileName != null && lastFrame.LineNumber != null)
{
var location = new DebugBreakpointLocation(lastFrame.FileName, lastFrame.LineNumber.Value);
DebugBreakpoint bp;
if (_breakpoints.TryGetValue(location, out bp))
{
bp.RaiseBreakpointHit();
breakpointsHit = Enumerable.Repeat(bp, bp.UseCount).ToArray();
}
}
}
bool isStepCompleted = false;
if (_stepTcs != null)
{
var stepTcs = _stepTcs;
_stepTcs = null;
stepTcs.TrySetResult(breakpointsHit == null || breakpointsHit.Count == 0);
isStepCompleted = true;
}
EventHandler <DebugBrowseEventArgs> browse;
lock (_browseLock) {
browse = _browse;
}
var eventArgs = new DebugBrowseEventArgs(inter.Contexts, isStepCompleted, breakpointsHit);
_currentBrowseEventArgs = eventArgs;
browse?.Invoke(this, eventArgs);
}
