R/breakpointsHelpers.R

In ManuelHentschel/vscDebugger: Support for Visual Studio Code Debugger

#' @export
.vsc.preBreakpoint <- function(){
  # set some state in session?
  # logPrint('pre breakpoint!!!')
  # request `n`
  session$clearStackTree <- TRUE
  sendWriteToStdinForFlowControl('n')
  # sendWriteToStdinEvent('n', when = "browserPrompt")
  session$state$startPaused(pausedOn = "breakpoint")
  # send breakpoint event
  sendStoppedEvent('breakpoint')
}

#' @export
.vsc.preDebugSourceBreakpoint <- function(){
  if(tracingState()){
    # set some state in session?
    # logPrint('pre breakpoint!!!')
    # request `n`
    # sendWriteToStdinEvent('n', when = "browserPrompt")
    session$clearStackTree <- TRUE
    sendWriteToStdinForFlowControl('n')
    session$state$startPaused(pausedOn = "breakpoint")
    # send breakpoint event
    sendStoppedEvent('breakpoint')
  }
}