mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 11:15:14 -07:00
8aad4b8425
Unlike Vim's job_stop(), Nvim's jobstop() does not take a signal argument, and always sends SIGTERM/KILL. :Stop and Ctrl-C in prompt mode is supposed to interrupt the program like in terminal mode, not kill GDB. Also, maybe libuv's kill() works on Windows? If so, the logic above could be removed, but I don't have a Windows machine available to test that. Also "set nomodified" when ending prompt mode, like Vim (avoids E37).
1848 lines
55 KiB
VimL
1848 lines
55 KiB
VimL
" Debugger plugin using gdb.
|
|
"
|
|
" Author: Bram Moolenaar
|
|
" Copyright: Vim license applies, see ":help license"
|
|
" Last Change: 2023 Jun 24
|
|
"
|
|
" WORK IN PROGRESS - The basics works stable, more to come
|
|
" Note: In general you need at least GDB 7.12 because this provides the
|
|
" frame= response in MI thread-selected events we need to sync stack to file.
|
|
" The one included with "old" MingW is too old (7.6.1), you may upgrade it or
|
|
" use a newer version from http://www.equation.com/servlet/equation.cmd?fa=gdb
|
|
"
|
|
" There are two ways to run gdb:
|
|
" - In a terminal window; used if possible, does not work on MS-Windows
|
|
" Not used when g:termdebug_use_prompt is set to 1.
|
|
" - Using a "prompt" buffer; may use a terminal window for the program
|
|
"
|
|
" For both the current window is used to view source code and shows the
|
|
" current statement from gdb.
|
|
"
|
|
" USING A TERMINAL WINDOW
|
|
"
|
|
" Opens two visible terminal windows:
|
|
" 1. runs a pty for the debugged program, as with ":term NONE"
|
|
" 2. runs gdb, passing the pty of the debugged program
|
|
" A third terminal window is hidden, it is used for communication with gdb.
|
|
"
|
|
" USING A PROMPT BUFFER
|
|
"
|
|
" Opens a window with a prompt buffer to communicate with gdb.
|
|
" Gdb is run as a job with callbacks for I/O.
|
|
" On Unix another terminal window is opened to run the debugged program
|
|
" On MS-Windows a separate console is opened to run the debugged program
|
|
"
|
|
" The communication with gdb uses GDB/MI. See:
|
|
" https://sourceware.org/gdb/current/onlinedocs/gdb/GDB_002fMI.html
|
|
"
|
|
" For neovim compatibility, the vim specific calls were replaced with neovim
|
|
" specific calls:
|
|
" term_start -> termopen
|
|
" term_sendkeys -> chansend
|
|
" term_getline -> getbufline
|
|
" job_info && term_getjob -> using linux command ps to get the tty
|
|
" balloon -> nvim floating window
|
|
"
|
|
" The code for opening the floating window was taken from the beautiful
|
|
" implementation of LanguageClient-Neovim:
|
|
" https://github.com/autozimu/LanguageClient-neovim/blob/0ed9b69dca49c415390a8317b19149f97ae093fa/autoload/LanguageClient.vim#L304
|
|
"
|
|
" Neovim terminal also works seamlessly on windows, which is why the ability
|
|
" Author: Bram Moolenaar
|
|
" Copyright: Vim license applies, see ":help license"
|
|
|
|
" In case this gets sourced twice.
|
|
if exists(':Termdebug')
|
|
finish
|
|
endif
|
|
|
|
" The terminal feature does not work with gdb on win32.
|
|
if !has('win32')
|
|
let s:way = 'terminal'
|
|
else
|
|
let s:way = 'prompt'
|
|
endif
|
|
|
|
let s:keepcpo = &cpo
|
|
set cpo&vim
|
|
|
|
" The command that starts debugging, e.g. ":Termdebug vim".
|
|
" To end type "quit" in the gdb window.
|
|
command -nargs=* -complete=file -bang Termdebug call s:StartDebug(<bang>0, <f-args>)
|
|
command -nargs=+ -complete=file -bang TermdebugCommand call s:StartDebugCommand(<bang>0, <f-args>)
|
|
|
|
let s:pc_id = 12
|
|
let s:asm_id = 13
|
|
let s:break_id = 14 " breakpoint number is added to this
|
|
let s:stopped = 1
|
|
let s:running = 0
|
|
|
|
let s:parsing_disasm_msg = 0
|
|
let s:asm_lines = []
|
|
let s:asm_addr = ''
|
|
|
|
" Take a breakpoint number as used by GDB and turn it into an integer.
|
|
" The breakpoint may contain a dot: 123.4 -> 123004
|
|
" The main breakpoint has a zero subid.
|
|
func s:Breakpoint2SignNumber(id, subid)
|
|
return s:break_id + a:id * 1000 + a:subid
|
|
endfunction
|
|
|
|
" Define or adjust the default highlighting, using background "new".
|
|
" When the 'background' option is set then "old" has the old value.
|
|
func s:Highlight(init, old, new)
|
|
let default = a:init ? 'default ' : ''
|
|
if a:new ==# 'light' && a:old !=# 'light'
|
|
exe "hi " . default . "debugPC term=reverse ctermbg=lightblue guibg=lightblue"
|
|
elseif a:new ==# 'dark' && a:old !=# 'dark'
|
|
exe "hi " . default . "debugPC term=reverse ctermbg=darkblue guibg=darkblue"
|
|
endif
|
|
endfunc
|
|
|
|
" Define the default highlighting, using the current 'background' value.
|
|
func s:InitHighlight()
|
|
call s:Highlight(1, '', &background)
|
|
hi default debugBreakpoint term=reverse ctermbg=red guibg=red
|
|
hi default debugBreakpointDisabled term=reverse ctermbg=gray guibg=gray
|
|
endfunc
|
|
|
|
" Setup an autocommand to redefine the default highlight when the colorscheme
|
|
" is changed.
|
|
func s:InitAutocmd()
|
|
augroup TermDebug
|
|
autocmd!
|
|
autocmd ColorScheme * call s:InitHighlight()
|
|
augroup END
|
|
endfunc
|
|
|
|
" Get the command to execute the debugger as a list, defaults to ["gdb"].
|
|
func s:GetCommand()
|
|
if exists('g:termdebug_config')
|
|
let cmd = get(g:termdebug_config, 'command', 'gdb')
|
|
elseif exists('g:termdebugger')
|
|
let cmd = g:termdebugger
|
|
else
|
|
let cmd = 'gdb'
|
|
endif
|
|
|
|
return type(cmd) == v:t_list ? copy(cmd) : [cmd]
|
|
endfunc
|
|
|
|
func s:Echoerr(msg)
|
|
echohl ErrorMsg | echom '[termdebug] ' .. a:msg | echohl None
|
|
endfunc
|
|
|
|
func s:StartDebug(bang, ...)
|
|
" First argument is the command to debug, second core file or process ID.
|
|
call s:StartDebug_internal({'gdb_args': a:000, 'bang': a:bang})
|
|
endfunc
|
|
|
|
func s:StartDebugCommand(bang, ...)
|
|
" First argument is the command to debug, rest are run arguments.
|
|
call s:StartDebug_internal({'gdb_args': [a:1], 'proc_args': a:000[1:], 'bang': a:bang})
|
|
endfunc
|
|
|
|
func s:StartDebug_internal(dict)
|
|
if exists('s:gdbwin')
|
|
call s:Echoerr('Terminal debugger already running, cannot run two')
|
|
return
|
|
endif
|
|
let gdbcmd = s:GetCommand()
|
|
if !executable(gdbcmd[0])
|
|
call s:Echoerr('Cannot execute debugger program "' .. gdbcmd[0] .. '"')
|
|
return
|
|
endif
|
|
|
|
let s:ptywin = 0
|
|
let s:pid = 0
|
|
let s:asmwin = 0
|
|
let s:asmbuf = 0
|
|
let s:varwin = 0
|
|
let s:varbuf = 0
|
|
|
|
if exists('#User#TermdebugStartPre')
|
|
doauto <nomodeline> User TermdebugStartPre
|
|
endif
|
|
|
|
" Uncomment this line to write logging in "debuglog".
|
|
" call ch_logfile('debuglog', 'w')
|
|
|
|
let s:sourcewin = win_getid()
|
|
|
|
" Remember the old value of 'signcolumn' for each buffer that it's set in, so
|
|
" that we can restore the value for all buffers.
|
|
let b:save_signcolumn = &signcolumn
|
|
let s:signcolumn_buflist = [bufnr()]
|
|
|
|
let s:save_columns = 0
|
|
let s:allleft = 0
|
|
let wide = 0
|
|
if exists('g:termdebug_config')
|
|
let wide = get(g:termdebug_config, 'wide', 0)
|
|
elseif exists('g:termdebug_wide')
|
|
let wide = g:termdebug_wide
|
|
endif
|
|
if wide > 0
|
|
if &columns < wide
|
|
let s:save_columns = &columns
|
|
let &columns = wide
|
|
" If we make the Vim window wider, use the whole left half for the debug
|
|
" windows.
|
|
let s:allleft = 1
|
|
endif
|
|
let s:vertical = 1
|
|
else
|
|
let s:vertical = 0
|
|
endif
|
|
|
|
" Override using a terminal window by setting g:termdebug_use_prompt to 1.
|
|
let use_prompt = 0
|
|
if exists('g:termdebug_config')
|
|
let use_prompt = get(g:termdebug_config, 'use_prompt', 0)
|
|
elseif exists('g:termdebug_use_prompt')
|
|
let use_prompt = g:termdebug_use_prompt
|
|
endif
|
|
if !has('win32') && !use_prompt
|
|
let s:way = 'terminal'
|
|
else
|
|
let s:way = 'prompt'
|
|
endif
|
|
|
|
if s:way == 'prompt'
|
|
call s:StartDebug_prompt(a:dict)
|
|
else
|
|
call s:StartDebug_term(a:dict)
|
|
endif
|
|
|
|
if s:GetDisasmWindow()
|
|
let curwinid = win_getid()
|
|
call s:GotoAsmwinOrCreateIt()
|
|
call win_gotoid(curwinid)
|
|
endif
|
|
|
|
if s:GetVariablesWindow()
|
|
let curwinid = win_getid()
|
|
call s:GotoVariableswinOrCreateIt()
|
|
call win_gotoid(curwinid)
|
|
endif
|
|
|
|
if exists('#User#TermdebugStartPost')
|
|
doauto <nomodeline> User TermdebugStartPost
|
|
endif
|
|
endfunc
|
|
|
|
" Use when debugger didn't start or ended.
|
|
func s:CloseBuffers()
|
|
exe 'bwipe! ' . s:ptybuf
|
|
if s:asmbuf > 0 && bufexists(s:asmbuf)
|
|
exe 'bwipe! ' . s:asmbuf
|
|
endif
|
|
if s:varbuf > 0 && bufexists(s:varbuf)
|
|
exe 'bwipe! ' . s:varbuf
|
|
endif
|
|
s:running = 0
|
|
unlet! s:gdbwin
|
|
endfunc
|
|
|
|
func s:CheckGdbRunning()
|
|
if !s:gdb_running
|
|
call s:Echoerr(string(s:GetCommand()[0]) . ' exited unexpectedly')
|
|
call s:CloseBuffers()
|
|
return ''
|
|
endif
|
|
return 'ok'
|
|
endfunc
|
|
|
|
" Open a terminal window without a job, to run the debugged program in.
|
|
func s:StartDebug_term(dict)
|
|
execute s:vertical ? 'vnew' : 'new'
|
|
let s:pty_job_id = termopen('tail -f /dev/null;#gdb program')
|
|
if s:pty_job_id == 0
|
|
call s:Echoerr('Invalid argument (or job table is full) while opening terminal window')
|
|
return
|
|
elseif s:pty_job_id == -1
|
|
call s:Echoerr('Failed to open the program terminal window')
|
|
return
|
|
endif
|
|
let pty_job_info = nvim_get_chan_info(s:pty_job_id)
|
|
let s:ptybuf = pty_job_info['buffer']
|
|
let pty = pty_job_info['pty']
|
|
let s:ptywin = win_getid()
|
|
if s:vertical
|
|
" Assuming the source code window will get a signcolumn, use two more
|
|
" columns for that, thus one less for the terminal window.
|
|
exe (&columns / 2 - 1) . "wincmd |"
|
|
if s:allleft
|
|
" use the whole left column
|
|
wincmd H
|
|
endif
|
|
endif
|
|
|
|
" Create a hidden terminal window to communicate with gdb
|
|
let s:comm_job_id = jobstart('tail -f /dev/null;#gdb communication', {
|
|
\ 'on_stdout': function('s:JobOutCallback', {'last_line': '', 'real_cb': function('s:CommOutput')}),
|
|
\ 'pty': v:true,
|
|
\ })
|
|
" hide terminal buffer
|
|
if s:comm_job_id == 0
|
|
call s:Echoerr('Invalid argument (or job table is full) while opening communication terminal window')
|
|
exe 'bwipe! ' . s:ptybuf
|
|
return
|
|
elseif s:comm_job_id == -1
|
|
call s:Echoerr('Failed to open the communication terminal window')
|
|
exe 'bwipe! ' . s:ptybuf
|
|
return
|
|
endif
|
|
let comm_job_info = nvim_get_chan_info(s:comm_job_id)
|
|
let commpty = comm_job_info['pty']
|
|
|
|
let gdb_args = get(a:dict, 'gdb_args', [])
|
|
let proc_args = get(a:dict, 'proc_args', [])
|
|
|
|
let gdb_cmd = s:GetCommand()
|
|
|
|
if exists('g:termdebug_config') && has_key(g:termdebug_config, 'command_add_args')
|
|
let gdb_cmd = g:termdebug_config.command_add_args(gdb_cmd, pty)
|
|
else
|
|
" Add -quiet to avoid the intro message causing a hit-enter prompt.
|
|
let gdb_cmd += ['-quiet']
|
|
" Disable pagination, it causes everything to stop at the gdb
|
|
let gdb_cmd += ['-iex', 'set pagination off']
|
|
" Interpret commands while the target is running. This should usually only
|
|
" be exec-interrupt, since many commands don't work properly while the
|
|
" target is running (so execute during startup).
|
|
let gdb_cmd += ['-iex', 'set mi-async on']
|
|
" Open a terminal window to run the debugger.
|
|
let gdb_cmd += ['-tty', pty]
|
|
" Command executed _after_ startup is done, provides us with the necessary
|
|
" feedback
|
|
let gdb_cmd += ['-ex', 'echo startupdone\n']
|
|
endif
|
|
|
|
if exists('g:termdebug_config') && has_key(g:termdebug_config, 'command_filter')
|
|
let gdb_cmd = g:termdebug_config.command_filter(gdb_cmd)
|
|
endif
|
|
|
|
" Adding arguments requested by the user
|
|
let gdb_cmd += gdb_args
|
|
|
|
execute 'new'
|
|
" call ch_log('executing "' . join(gdb_cmd) . '"')
|
|
let s:gdb_job_id = termopen(gdb_cmd, {'on_exit': function('s:EndTermDebug')})
|
|
if s:gdb_job_id == 0
|
|
call s:Echoerr('Invalid argument (or job table is full) while opening gdb terminal window')
|
|
exe 'bwipe! ' . s:ptybuf
|
|
return
|
|
elseif s:gdb_job_id == -1
|
|
call s:Echoerr('Failed to open the gdb terminal window')
|
|
call s:CloseBuffers()
|
|
return
|
|
endif
|
|
let s:gdb_running = v:true
|
|
let s:starting = v:true
|
|
let gdb_job_info = nvim_get_chan_info(s:gdb_job_id)
|
|
let s:gdbbuf = gdb_job_info['buffer']
|
|
let s:gdbwin = win_getid()
|
|
|
|
" Wait for the "startupdone" message before sending any commands.
|
|
let try_count = 0
|
|
while 1
|
|
if s:CheckGdbRunning() != 'ok'
|
|
return
|
|
endif
|
|
|
|
for lnum in range(1, 200)
|
|
if get(getbufline(s:gdbbuf, lnum), 0, '') =~ 'startupdone'
|
|
let try_count = 9999
|
|
break
|
|
endif
|
|
endfor
|
|
let try_count += 1
|
|
if try_count > 300
|
|
" done or give up after five seconds
|
|
break
|
|
endif
|
|
sleep 10m
|
|
endwhile
|
|
|
|
" Set arguments to be run.
|
|
if len(proc_args)
|
|
call chansend(s:gdb_job_id, 'server set args ' . join(proc_args) . "\r")
|
|
endif
|
|
|
|
" Connect gdb to the communication pty, using the GDB/MI interface.
|
|
" Prefix "server" to avoid adding this to the history.
|
|
call chansend(s:gdb_job_id, 'server new-ui mi ' . commpty . "\r")
|
|
|
|
" Wait for the response to show up, users may not notice the error and wonder
|
|
" why the debugger doesn't work.
|
|
let try_count = 0
|
|
while 1
|
|
if s:CheckGdbRunning() != 'ok'
|
|
return
|
|
endif
|
|
|
|
let response = ''
|
|
for lnum in range(1, 200)
|
|
let line1 = get(getbufline(s:gdbbuf, lnum), 0, '')
|
|
let line2 = get(getbufline(s:gdbbuf, lnum + 1), 0, '')
|
|
if line1 =~ 'new-ui mi '
|
|
" response can be in the same line or the next line
|
|
let response = line1 . line2
|
|
if response =~ 'Undefined command'
|
|
call s:Echoerr('Sorry, your gdb is too old, gdb 7.12 is required')
|
|
" CHECKME: possibly send a "server show version" here
|
|
call s:CloseBuffers()
|
|
return
|
|
endif
|
|
if response =~ 'New UI allocated'
|
|
" Success!
|
|
break
|
|
endif
|
|
elseif line1 =~ 'Reading symbols from' && line2 !~ 'new-ui mi '
|
|
" Reading symbols might take a while, try more times
|
|
let try_count -= 1
|
|
endif
|
|
endfor
|
|
if response =~ 'New UI allocated'
|
|
break
|
|
endif
|
|
let try_count += 1
|
|
if try_count > 100
|
|
call s:Echoerr('Cannot check if your gdb works, continuing anyway')
|
|
break
|
|
endif
|
|
sleep 10m
|
|
endwhile
|
|
|
|
let s:starting = v:false
|
|
|
|
" Set the filetype, this can be used to add mappings.
|
|
set filetype=termdebug
|
|
|
|
call s:StartDebugCommon(a:dict)
|
|
endfunc
|
|
|
|
" Open a window with a prompt buffer to run gdb in.
|
|
func s:StartDebug_prompt(dict)
|
|
if s:vertical
|
|
vertical new
|
|
else
|
|
new
|
|
endif
|
|
let s:gdbwin = win_getid()
|
|
let s:promptbuf = bufnr('')
|
|
call prompt_setprompt(s:promptbuf, 'gdb> ')
|
|
set buftype=prompt
|
|
file gdb
|
|
call prompt_setcallback(s:promptbuf, function('s:PromptCallback'))
|
|
call prompt_setinterrupt(s:promptbuf, function('s:PromptInterrupt'))
|
|
|
|
if s:vertical
|
|
" Assuming the source code window will get a signcolumn, use two more
|
|
" columns for that, thus one less for the terminal window.
|
|
exe (&columns / 2 - 1) . "wincmd |"
|
|
endif
|
|
|
|
let gdb_args = get(a:dict, 'gdb_args', [])
|
|
let proc_args = get(a:dict, 'proc_args', [])
|
|
|
|
let gdb_cmd = s:GetCommand()
|
|
" Add -quiet to avoid the intro message causing a hit-enter prompt.
|
|
let gdb_cmd += ['-quiet']
|
|
" Disable pagination, it causes everything to stop at the gdb, needs to be run early
|
|
let gdb_cmd += ['-iex', 'set pagination off']
|
|
" Interpret commands while the target is running. This should usually only
|
|
" be exec-interrupt, since many commands don't work properly while the
|
|
" target is running (so execute during startup).
|
|
let gdb_cmd += ['-iex', 'set mi-async on']
|
|
" directly communicate via mi2
|
|
let gdb_cmd += ['--interpreter=mi2']
|
|
|
|
" Adding arguments requested by the user
|
|
let gdb_cmd += gdb_args
|
|
|
|
" call ch_log('executing "' . join(gdb_cmd) . '"')
|
|
let s:gdbjob = jobstart(gdb_cmd, {
|
|
\ 'on_exit': function('s:EndPromptDebug'),
|
|
\ 'on_stdout': function('s:JobOutCallback', {'last_line': '', 'real_cb': function('s:GdbOutCallback')}),
|
|
\ })
|
|
if s:gdbjob == 0
|
|
call s:Echoerr('Invalid argument (or job table is full) while starting gdb job')
|
|
exe 'bwipe! ' . s:ptybuf
|
|
return
|
|
elseif s:gdbjob == -1
|
|
call s:Echoerr('Failed to start the gdb job')
|
|
call s:CloseBuffers()
|
|
return
|
|
endif
|
|
|
|
let s:ptybuf = 0
|
|
if has('win32')
|
|
" MS-Windows: run in a new console window for maximum compatibility
|
|
call s:SendCommand('set new-console on')
|
|
else
|
|
" Unix: Run the debugged program in a terminal window. Open it below the
|
|
" gdb window.
|
|
belowright new
|
|
let s:pty_job_id = termopen('tail -f /dev/null;#gdb program')
|
|
if s:pty_job_id == 0
|
|
call s:Echoerr('Invalid argument (or job table is full) while opening terminal window')
|
|
return
|
|
elseif s:pty_job_id == -1
|
|
call s:Echoerr('Failed to open the program terminal window')
|
|
return
|
|
endif
|
|
let pty_job_info = nvim_get_chan_info(s:pty_job_id)
|
|
let s:ptybuf = pty_job_info['buffer']
|
|
let pty = pty_job_info['pty']
|
|
let s:ptywin = win_getid()
|
|
call s:SendCommand('tty ' . pty)
|
|
|
|
" Since GDB runs in a prompt window, the environment has not been set to
|
|
" match a terminal window, need to do that now.
|
|
call s:SendCommand('set env TERM = xterm-color')
|
|
call s:SendCommand('set env ROWS = ' . winheight(s:ptywin))
|
|
call s:SendCommand('set env LINES = ' . winheight(s:ptywin))
|
|
call s:SendCommand('set env COLUMNS = ' . winwidth(s:ptywin))
|
|
call s:SendCommand('set env COLORS = ' . &t_Co)
|
|
call s:SendCommand('set env VIM_TERMINAL = ' . v:version)
|
|
endif
|
|
call s:SendCommand('set print pretty on')
|
|
call s:SendCommand('set breakpoint pending on')
|
|
|
|
" Set arguments to be run
|
|
if len(proc_args)
|
|
call s:SendCommand('set args ' . join(proc_args))
|
|
endif
|
|
|
|
call s:StartDebugCommon(a:dict)
|
|
startinsert
|
|
endfunc
|
|
|
|
func s:StartDebugCommon(dict)
|
|
" Sign used to highlight the line where the program has stopped.
|
|
" There can be only one.
|
|
call sign_define('debugPC', #{linehl: 'debugPC'})
|
|
|
|
" Install debugger commands in the text window.
|
|
call win_gotoid(s:sourcewin)
|
|
call s:InstallCommands()
|
|
call win_gotoid(s:gdbwin)
|
|
|
|
" Contains breakpoints that have been placed, key is a string with the GDB
|
|
" breakpoint number.
|
|
" Each entry is a dict, containing the sub-breakpoints. Key is the subid.
|
|
" For a breakpoint that is just a number the subid is zero.
|
|
" For a breakpoint "123.4" the id is "123" and subid is "4".
|
|
" Example, when breakpoint "44", "123", "123.1" and "123.2" exist:
|
|
" {'44': {'0': entry}, '123': {'0': entry, '1': entry, '2': entry}}
|
|
let s:breakpoints = {}
|
|
|
|
" Contains breakpoints by file/lnum. The key is "fname:lnum".
|
|
" Each entry is a list of breakpoint IDs at that position.
|
|
let s:breakpoint_locations = {}
|
|
|
|
augroup TermDebug
|
|
au BufRead * call s:BufRead()
|
|
au BufUnload * call s:BufUnloaded()
|
|
au OptionSet background call s:Highlight(0, v:option_old, v:option_new)
|
|
augroup END
|
|
|
|
" Run the command if the bang attribute was given and got to the debug
|
|
" window.
|
|
if get(a:dict, 'bang', 0)
|
|
call s:SendResumingCommand('-exec-run')
|
|
call win_gotoid(s:ptywin)
|
|
endif
|
|
endfunc
|
|
|
|
" Send a command to gdb. "cmd" is the string without line terminator.
|
|
func s:SendCommand(cmd)
|
|
"call ch_log('sending to gdb: ' . a:cmd)
|
|
if s:way == 'prompt'
|
|
call chansend(s:gdbjob, a:cmd . "\n")
|
|
else
|
|
call chansend(s:comm_job_id, a:cmd . "\r")
|
|
endif
|
|
endfunc
|
|
|
|
" This is global so that a user can create their mappings with this.
|
|
func TermDebugSendCommand(cmd)
|
|
if s:way == 'prompt'
|
|
call chansend(s:gdbjob, a:cmd . "\n")
|
|
else
|
|
let do_continue = 0
|
|
if !s:stopped
|
|
let do_continue = 1
|
|
if s:way == 'prompt'
|
|
" Need to send a signal to get the UI to listen. Strangely this is only
|
|
" needed once.
|
|
call jobstop(s:gdbjob)
|
|
else
|
|
Stop
|
|
endif
|
|
sleep 10m
|
|
endif
|
|
" TODO: should we prepend CTRL-U to clear the command?
|
|
call chansend(s:gdb_job_id, a:cmd . "\r")
|
|
if do_continue
|
|
Continue
|
|
endif
|
|
endif
|
|
endfunc
|
|
|
|
" Send a command that resumes the program. If the program isn't stopped the
|
|
" command is not sent (to avoid a repeated command to cause trouble).
|
|
" If the command is sent then reset s:stopped.
|
|
func s:SendResumingCommand(cmd)
|
|
if s:stopped
|
|
" reset s:stopped here, it may take a bit of time before we get a response
|
|
let s:stopped = 0
|
|
" call ch_log('assume that program is running after this command')
|
|
call s:SendCommand(a:cmd)
|
|
" else
|
|
" call ch_log('dropping command, program is running: ' . a:cmd)
|
|
endif
|
|
endfunc
|
|
|
|
" Function called when entering a line in the prompt buffer.
|
|
func s:PromptCallback(text)
|
|
call s:SendCommand(a:text)
|
|
endfunc
|
|
|
|
" Function called when pressing CTRL-C in the prompt buffer and when placing a
|
|
" breakpoint.
|
|
func s:PromptInterrupt()
|
|
" call ch_log('Interrupting gdb')
|
|
if has('win32')
|
|
" Using job_stop() does not work on MS-Windows, need to send SIGTRAP to
|
|
" the debugger program so that gdb responds again.
|
|
if s:pid == 0
|
|
call s:Echoerr('Cannot interrupt gdb, did not find a process ID')
|
|
else
|
|
call debugbreak(s:pid)
|
|
endif
|
|
else
|
|
call v:lua.vim.uv.kill(jobpid(s:gdbjob), 'sigint')
|
|
endif
|
|
endfunc
|
|
|
|
" Wrapper around job callback that handles partial lines (:h channel-lines).
|
|
" It should be called from a Dictionary with the following keys:
|
|
" - last_line: the last (partial) line received
|
|
" - real_cb: a callback that assumes full lines
|
|
func s:JobOutCallback(jobid, data, event) dict
|
|
let eof = (a:data == [''])
|
|
let msgs = a:data
|
|
let msgs[0] = self.last_line .. msgs[0]
|
|
if eof
|
|
let self.last_line = ''
|
|
else
|
|
let self.last_line = msgs[-1]
|
|
unlet msgs[-1]
|
|
endif
|
|
call self.real_cb(a:jobid, msgs, a:event)
|
|
endfunc
|
|
|
|
" Function called when gdb outputs text.
|
|
func s:GdbOutCallback(job_id, msgs, event)
|
|
"call ch_log('received from gdb: ' . a:text)
|
|
|
|
let comm_msgs = []
|
|
let lines = []
|
|
|
|
for msg in a:msgs
|
|
" Disassembly messages need to be forwarded as-is.
|
|
if s:parsing_disasm_msg || msg =~ '^&"disassemble'
|
|
call s:CommOutput(a:job_id, [msg], a:event)
|
|
continue
|
|
endif
|
|
|
|
" Drop the gdb prompt, we have our own.
|
|
" Drop status and echo'd commands.
|
|
if msg == '(gdb) ' || msg == '^done' || msg[0] == '&'
|
|
continue
|
|
endif
|
|
|
|
if msg =~ '^\^error,msg='
|
|
if exists('s:evalexpr')
|
|
\ && s:DecodeMessage(msg[11:], v:false)
|
|
\ =~ 'A syntax error in expression, near\|No symbol .* in current context'
|
|
" Silently drop evaluation errors.
|
|
unlet s:evalexpr
|
|
continue
|
|
endif
|
|
elseif msg[0] == '~'
|
|
call add(lines, s:DecodeMessage(msg[1:], v:false))
|
|
continue
|
|
endif
|
|
|
|
call add(comm_msgs, msg)
|
|
endfor
|
|
|
|
let curwinid = win_getid()
|
|
call win_gotoid(s:gdbwin)
|
|
|
|
" Add the output above the current prompt.
|
|
for line in lines
|
|
call append(line('$') - 1, line)
|
|
endfor
|
|
if !empty(lines)
|
|
set modified
|
|
endif
|
|
|
|
call win_gotoid(curwinid)
|
|
call s:CommOutput(a:job_id, comm_msgs, a:event)
|
|
endfunc
|
|
|
|
" Decode a message from gdb. "quotedText" starts with a ", return the text up
|
|
" to the next unescaped ", unescaping characters:
|
|
" - remove line breaks (unless "literal" is v:true)
|
|
" - change \" to "
|
|
" - change \\t to \t (unless "literal" is v:true)
|
|
" - change \0xhh to \xhh (disabled for now)
|
|
" - change \ooo to octal
|
|
" - change \\ to \
|
|
func s:DecodeMessage(quotedText, literal)
|
|
if a:quotedText[0] != '"'
|
|
call s:Echoerr('DecodeMessage(): missing quote in ' . a:quotedText)
|
|
return
|
|
endif
|
|
let msg = a:quotedText
|
|
\ ->substitute('^"\|[^\\]\zs".*', '', 'g')
|
|
\ ->substitute('\\"', '"', 'g')
|
|
"\ multi-byte characters arrive in octal form
|
|
"\ NULL-values must be kept encoded as those break the string otherwise
|
|
\ ->substitute('\\000', s:NullRepl, 'g')
|
|
\ ->substitute('\\\o\o\o', {-> eval('"' .. submatch(0) .. '"')}, 'g')
|
|
"\ Note: GDB docs also mention hex encodings - the translations below work
|
|
"\ but we keep them out for performance-reasons until we actually see
|
|
"\ those in mi-returns
|
|
"\ \ ->substitute('\\0x\(\x\x\)', {-> eval('"\x' .. submatch(1) .. '"')}, 'g')
|
|
"\ \ ->substitute('\\0x00', s:NullRepl, 'g')
|
|
\ ->substitute('\\\\', '\', 'g')
|
|
\ ->substitute(s:NullRepl, '\\000', 'g')
|
|
if !a:literal
|
|
return msg
|
|
\ ->substitute('\\t', "\t", 'g')
|
|
\ ->substitute('\\n', '', 'g')
|
|
else
|
|
return msg
|
|
endif
|
|
endfunc
|
|
const s:NullRepl = 'XXXNULLXXX'
|
|
|
|
" Extract the "name" value from a gdb message with fullname="name".
|
|
func s:GetFullname(msg)
|
|
if a:msg !~ 'fullname'
|
|
return ''
|
|
endif
|
|
let name = s:DecodeMessage(substitute(a:msg, '.*fullname=', '', ''), v:true)
|
|
if has('win32') && name =~ ':\\\\'
|
|
" sometimes the name arrives double-escaped
|
|
let name = substitute(name, '\\\\', '\\', 'g')
|
|
endif
|
|
return name
|
|
endfunc
|
|
|
|
" Extract the "addr" value from a gdb message with addr="0x0001234".
|
|
func s:GetAsmAddr(msg)
|
|
if a:msg !~ 'addr='
|
|
return ''
|
|
endif
|
|
let addr = s:DecodeMessage(substitute(a:msg, '.*addr=', '', ''), v:false)
|
|
return addr
|
|
endfunc
|
|
|
|
func s:EndTermDebug(job_id, exit_code, event)
|
|
let s:gdb_running = v:false
|
|
if s:starting
|
|
return
|
|
endif
|
|
|
|
if exists('#User#TermdebugStopPre')
|
|
doauto <nomodeline> User TermdebugStopPre
|
|
endif
|
|
|
|
unlet s:gdbwin
|
|
call s:EndDebugCommon()
|
|
endfunc
|
|
|
|
func s:EndDebugCommon()
|
|
let curwinid = win_getid()
|
|
|
|
if exists('s:ptybuf') && s:ptybuf
|
|
exe 'bwipe! ' . s:ptybuf
|
|
endif
|
|
if s:asmbuf > 0 && bufexists(s:asmbuf)
|
|
exe 'bwipe! ' . s:asmbuf
|
|
endif
|
|
if s:varbuf > 0 && bufexists(s:varbuf)
|
|
exe 'bwipe! ' . s:varbuf
|
|
endif
|
|
let s:running = 0
|
|
|
|
" Restore 'signcolumn' in all buffers for which it was set.
|
|
call win_gotoid(s:sourcewin)
|
|
let was_buf = bufnr()
|
|
for bufnr in s:signcolumn_buflist
|
|
if bufexists(bufnr)
|
|
exe bufnr .. "buf"
|
|
if exists('b:save_signcolumn')
|
|
let &signcolumn = b:save_signcolumn
|
|
unlet b:save_signcolumn
|
|
endif
|
|
endif
|
|
endfor
|
|
if bufexists(was_buf)
|
|
exe was_buf .. "buf"
|
|
endif
|
|
|
|
call s:DeleteCommands()
|
|
|
|
call win_gotoid(curwinid)
|
|
|
|
if s:save_columns > 0
|
|
let &columns = s:save_columns
|
|
endif
|
|
|
|
if exists('#User#TermdebugStopPost')
|
|
doauto <nomodeline> User TermdebugStopPost
|
|
endif
|
|
|
|
au! TermDebug
|
|
endfunc
|
|
|
|
func s:EndPromptDebug(job_id, exit_code, event)
|
|
if exists('#User#TermdebugStopPre')
|
|
doauto <nomodeline> User TermdebugStopPre
|
|
endif
|
|
|
|
let curwinid = win_getid()
|
|
call win_gotoid(s:gdbwin)
|
|
set nomodified
|
|
close
|
|
if curwinid != s:gdbwin
|
|
call win_gotoid(curwinid)
|
|
endif
|
|
|
|
call s:EndDebugCommon()
|
|
unlet s:gdbwin
|
|
"call ch_log("Returning from EndPromptDebug()")
|
|
endfunc
|
|
|
|
" - CommOutput: &"disassemble $pc\n"
|
|
" - CommOutput: ~"Dump of assembler code for function main(int, char**):\n"
|
|
" - CommOutput: ~" 0x0000555556466f69 <+0>:\tpush rbp\n"
|
|
" ...
|
|
" - CommOutput: ~" 0x0000555556467cd0:\tpop rbp\n"
|
|
" - CommOutput: ~" 0x0000555556467cd1:\tret \n"
|
|
" - CommOutput: ~"End of assembler dump.\n"
|
|
" - CommOutput: ^done
|
|
|
|
" - CommOutput: &"disassemble $pc\n"
|
|
" - CommOutput: &"No function contains specified address.\n"
|
|
" - CommOutput: ^error,msg="No function contains specified address."
|
|
func s:HandleDisasmMsg(msg)
|
|
if a:msg =~ '^\^done'
|
|
let curwinid = win_getid()
|
|
if win_gotoid(s:asmwin)
|
|
silent! %delete _
|
|
call setline(1, s:asm_lines)
|
|
set nomodified
|
|
set filetype=asm
|
|
|
|
let lnum = search('^' . s:asm_addr)
|
|
if lnum != 0
|
|
call sign_unplace('TermDebug', #{id: s:asm_id})
|
|
call sign_place(s:asm_id, 'TermDebug', 'debugPC', '%', #{lnum: lnum})
|
|
endif
|
|
|
|
call win_gotoid(curwinid)
|
|
endif
|
|
|
|
let s:parsing_disasm_msg = 0
|
|
let s:asm_lines = []
|
|
elseif a:msg =~ '^\^error,msg='
|
|
if s:parsing_disasm_msg == 1
|
|
" Disassemble call ran into an error. This can happen when gdb can't
|
|
" find the function frame address, so let's try to disassemble starting
|
|
" at current PC
|
|
call s:SendCommand('disassemble $pc,+100')
|
|
endif
|
|
let s:parsing_disasm_msg = 0
|
|
elseif a:msg =~ '^&"disassemble \$pc'
|
|
if a:msg =~ '+100'
|
|
" This is our second disasm attempt
|
|
let s:parsing_disasm_msg = 2
|
|
endif
|
|
elseif a:msg !~ '^&"disassemble'
|
|
let value = substitute(a:msg, '^\~\"[ ]*', '', '')
|
|
let value = substitute(value, '^=>[ ]*', '', '')
|
|
" Nvim already trims the final "\r" in s:CommOutput()
|
|
" let value = substitute(value, '\\n\"\r$', '', '')
|
|
let value = substitute(value, '\\n\"$', '', '')
|
|
let value = substitute(value, '\r', '', '')
|
|
let value = substitute(value, '\\t', ' ', 'g')
|
|
|
|
if value != '' || !empty(s:asm_lines)
|
|
call add(s:asm_lines, value)
|
|
endif
|
|
endif
|
|
endfunc
|
|
|
|
func s:ParseVarinfo(varinfo)
|
|
let dict = {}
|
|
let nameIdx = matchstrpos(a:varinfo, '{name="\([^"]*\)"')
|
|
let dict['name'] = a:varinfo[nameIdx[1] + 7 : nameIdx[2] - 2]
|
|
let typeIdx = matchstrpos(a:varinfo, ',type="\([^"]*\)"')
|
|
let dict['type'] = a:varinfo[typeIdx[1] + 7 : typeIdx[2] - 2]
|
|
let valueIdx = matchstrpos(a:varinfo, ',value="\(.*\)"}')
|
|
if valueIdx[1] == -1
|
|
let dict['value'] = 'Complex value'
|
|
else
|
|
let dict['value'] = a:varinfo[valueIdx[1] + 8 : valueIdx[2] - 3]
|
|
endif
|
|
return dict
|
|
endfunc
|
|
|
|
func s:HandleVariablesMsg(msg)
|
|
let curwinid = win_getid()
|
|
if win_gotoid(s:varwin)
|
|
|
|
silent! %delete _
|
|
let spaceBuffer = 20
|
|
call setline(1, 'Type' .
|
|
\ repeat(' ', 16) .
|
|
\ 'Name' .
|
|
\ repeat(' ', 16) .
|
|
\ 'Value')
|
|
let cnt = 1
|
|
let capture = '{name=".\{-}",\%(arg=".\{-}",\)\{0,1\}type=".\{-}"\%(,value=".\{-}"\)\{0,1\}}'
|
|
let varinfo = matchstr(a:msg, capture, 0, cnt)
|
|
while varinfo != ''
|
|
let vardict = s:ParseVarinfo(varinfo)
|
|
call setline(cnt + 1, vardict['type'] .
|
|
\ repeat(' ', max([20 - len(vardict['type']), 1])) .
|
|
\ vardict['name'] .
|
|
\ repeat(' ', max([20 - len(vardict['name']), 1])) .
|
|
\ vardict['value'])
|
|
let cnt += 1
|
|
let varinfo = matchstr(a:msg, capture, 0, cnt)
|
|
endwhile
|
|
endif
|
|
call win_gotoid(curwinid)
|
|
endfunc
|
|
|
|
func s:CommOutput(job_id, msgs, event)
|
|
for msg in a:msgs
|
|
" Nvim job lines are split on "\n", so trim a suffixed CR.
|
|
if msg[-1:] == "\r"
|
|
let msg = msg[:-2]
|
|
endif
|
|
|
|
if s:parsing_disasm_msg
|
|
call s:HandleDisasmMsg(msg)
|
|
elseif msg != ''
|
|
if msg =~ '^\(\*stopped\|\*running\|=thread-selected\)'
|
|
call s:HandleCursor(msg)
|
|
elseif msg =~ '^\^done,bkpt=' || msg =~ '^=breakpoint-created,'
|
|
call s:HandleNewBreakpoint(msg, 0)
|
|
elseif msg =~ '^=breakpoint-modified,'
|
|
call s:HandleNewBreakpoint(msg, 1)
|
|
elseif msg =~ '^=breakpoint-deleted,'
|
|
call s:HandleBreakpointDelete(msg)
|
|
elseif msg =~ '^=thread-group-started'
|
|
call s:HandleProgramRun(msg)
|
|
elseif msg =~ '^\^done,value='
|
|
call s:HandleEvaluate(msg)
|
|
elseif msg =~ '^\^error,msg='
|
|
call s:HandleError(msg)
|
|
elseif msg =~ '^&"disassemble'
|
|
let s:parsing_disasm_msg = 1
|
|
let s:asm_lines = []
|
|
call s:HandleDisasmMsg(msg)
|
|
elseif msg =~ '^\^done,variables='
|
|
call s:HandleVariablesMsg(msg)
|
|
endif
|
|
endif
|
|
endfor
|
|
endfunc
|
|
|
|
func s:GotoProgram()
|
|
if has('win32')
|
|
if executable('powershell')
|
|
call system(printf('powershell -Command "add-type -AssemblyName microsoft.VisualBasic;[Microsoft.VisualBasic.Interaction]::AppActivate(%d);"', s:pid))
|
|
endif
|
|
else
|
|
call win_gotoid(s:ptywin)
|
|
endif
|
|
endfunc
|
|
|
|
" Install commands in the current window to control the debugger.
|
|
func s:InstallCommands()
|
|
let save_cpo = &cpo
|
|
set cpo&vim
|
|
|
|
command -nargs=? Break call s:SetBreakpoint(<q-args>)
|
|
command Clear call s:ClearBreakpoint()
|
|
command Step call s:SendResumingCommand('-exec-step')
|
|
command Over call s:SendResumingCommand('-exec-next')
|
|
command -nargs=? Until call s:Until(<q-args>)
|
|
command Finish call s:SendResumingCommand('-exec-finish')
|
|
command -nargs=* Run call s:Run(<q-args>)
|
|
command -nargs=* Arguments call s:SendResumingCommand('-exec-arguments ' . <q-args>)
|
|
|
|
if s:way == 'prompt'
|
|
command Stop call s:PromptInterrupt()
|
|
command Continue call s:SendCommand('continue')
|
|
else
|
|
command Stop call s:SendCommand('-exec-interrupt')
|
|
" using -exec-continue results in CTRL-C in the gdb window not working,
|
|
" communicating via commbuf (= use of SendCommand) has the same result
|
|
"command Continue call s:SendCommand('-exec-continue')
|
|
command Continue call chansend(s:gdb_job_id, "continue\r")
|
|
endif
|
|
|
|
command -range -nargs=* Evaluate call s:Evaluate(<range>, <q-args>)
|
|
command Gdb call win_gotoid(s:gdbwin)
|
|
command Program call s:GotoProgram()
|
|
command Source call s:GotoSourcewinOrCreateIt()
|
|
command Asm call s:GotoAsmwinOrCreateIt()
|
|
command Var call s:GotoVariableswinOrCreateIt()
|
|
command Winbar call s:InstallWinbar(1)
|
|
|
|
let map = 1
|
|
if exists('g:termdebug_config')
|
|
let map = get(g:termdebug_config, 'map_K', 1)
|
|
elseif exists('g:termdebug_map_K')
|
|
let map = g:termdebug_map_K
|
|
endif
|
|
if map
|
|
" let s:k_map_saved = maparg('K', 'n', 0, 1)
|
|
let s:k_map_saved = {}
|
|
for map in nvim_get_keymap('n')
|
|
if map.lhs ==# 'K'
|
|
let s:k_map_saved = map
|
|
break
|
|
endif
|
|
endfor
|
|
nnoremap K :Evaluate<CR>
|
|
endif
|
|
|
|
if has('menu') && &mouse != ''
|
|
call s:InstallWinbar(0)
|
|
|
|
let popup = 1
|
|
if exists('g:termdebug_config')
|
|
let popup = get(g:termdebug_config, 'popup', 1)
|
|
elseif exists('g:termdebug_popup')
|
|
let popup = g:termdebug_popup
|
|
endif
|
|
if popup
|
|
let s:saved_mousemodel = &mousemodel
|
|
let &mousemodel = 'popup_setpos'
|
|
an 1.200 PopUp.-SEP3- <Nop>
|
|
an 1.210 PopUp.Set\ breakpoint :Break<CR>
|
|
an 1.220 PopUp.Clear\ breakpoint :Clear<CR>
|
|
an 1.230 PopUp.Run\ until :Until<CR>
|
|
an 1.240 PopUp.Evaluate :Evaluate<CR>
|
|
endif
|
|
endif
|
|
|
|
let &cpo = save_cpo
|
|
endfunc
|
|
|
|
" let s:winbar_winids = []
|
|
|
|
" Install the window toolbar in the current window.
|
|
func s:InstallWinbar(force)
|
|
" if has('menu') && &mouse != ''
|
|
" nnoremenu WinBar.Step :Step<CR>
|
|
" nnoremenu WinBar.Next :Over<CR>
|
|
" nnoremenu WinBar.Finish :Finish<CR>
|
|
" nnoremenu WinBar.Cont :Continue<CR>
|
|
" nnoremenu WinBar.Stop :Stop<CR>
|
|
" nnoremenu WinBar.Eval :Evaluate<CR>
|
|
" call add(s:winbar_winids, win_getid())
|
|
" endif
|
|
endfunc
|
|
|
|
" Delete installed debugger commands in the current window.
|
|
func s:DeleteCommands()
|
|
delcommand Break
|
|
delcommand Clear
|
|
delcommand Step
|
|
delcommand Over
|
|
delcommand Until
|
|
delcommand Finish
|
|
delcommand Run
|
|
delcommand Arguments
|
|
delcommand Stop
|
|
delcommand Continue
|
|
delcommand Evaluate
|
|
delcommand Gdb
|
|
delcommand Program
|
|
delcommand Source
|
|
delcommand Asm
|
|
delcommand Var
|
|
delcommand Winbar
|
|
|
|
if exists('s:k_map_saved')
|
|
if empty(s:k_map_saved)
|
|
nunmap K
|
|
else
|
|
" call mapset(s:k_map_saved)
|
|
call mapset('n', 0, s:k_map_saved)
|
|
endif
|
|
unlet s:k_map_saved
|
|
endif
|
|
|
|
if has('menu')
|
|
" Remove the WinBar entries from all windows where it was added.
|
|
" let curwinid = win_getid()
|
|
" for winid in s:winbar_winids
|
|
" if win_gotoid(winid)
|
|
" aunmenu WinBar.Step
|
|
" aunmenu WinBar.Next
|
|
" aunmenu WinBar.Finish
|
|
" aunmenu WinBar.Cont
|
|
" aunmenu WinBar.Stop
|
|
" aunmenu WinBar.Eval
|
|
" endif
|
|
" endfor
|
|
" call win_gotoid(curwinid)
|
|
" let s:winbar_winids = []
|
|
|
|
if exists('s:saved_mousemodel')
|
|
let &mousemodel = s:saved_mousemodel
|
|
unlet s:saved_mousemodel
|
|
aunmenu PopUp.-SEP3-
|
|
aunmenu PopUp.Set\ breakpoint
|
|
aunmenu PopUp.Clear\ breakpoint
|
|
aunmenu PopUp.Run\ until
|
|
aunmenu PopUp.Evaluate
|
|
endif
|
|
endif
|
|
|
|
call sign_unplace('TermDebug')
|
|
unlet s:breakpoints
|
|
unlet s:breakpoint_locations
|
|
|
|
call sign_undefine('debugPC')
|
|
call sign_undefine(s:BreakpointSigns->map("'debugBreakpoint' .. v:val"))
|
|
let s:BreakpointSigns = []
|
|
endfunc
|
|
|
|
" :Until - Execute until past a specified position or current line
|
|
func s:Until(at)
|
|
if s:stopped
|
|
" reset s:stopped here, it may take a bit of time before we get a response
|
|
let s:stopped = 0
|
|
" call ch_log('assume that program is running after this command')
|
|
" Use the fname:lnum format
|
|
let at = empty(a:at) ?
|
|
\ fnameescape(expand('%:p')) . ':' . line('.') : a:at
|
|
call s:SendCommand('-exec-until ' . at)
|
|
" else
|
|
" call ch_log('dropping command, program is running: exec-until')
|
|
endif
|
|
endfunc
|
|
|
|
" :Break - Set a breakpoint at the cursor position.
|
|
func s:SetBreakpoint(at)
|
|
" Setting a breakpoint may not work while the program is running.
|
|
" Interrupt to make it work.
|
|
let do_continue = 0
|
|
if !s:stopped
|
|
let do_continue = 1
|
|
Stop
|
|
sleep 10m
|
|
endif
|
|
|
|
" Use the fname:lnum format, older gdb can't handle --source.
|
|
let at = empty(a:at) ?
|
|
\ fnameescape(expand('%:p')) . ':' . line('.') : a:at
|
|
call s:SendCommand('-break-insert ' . at)
|
|
if do_continue
|
|
Continue
|
|
endif
|
|
endfunc
|
|
|
|
" :Clear - Delete a breakpoint at the cursor position.
|
|
func s:ClearBreakpoint()
|
|
let fname = fnameescape(expand('%:p'))
|
|
let lnum = line('.')
|
|
let bploc = printf('%s:%d', fname, lnum)
|
|
if has_key(s:breakpoint_locations, bploc)
|
|
let idx = 0
|
|
let nr = 0
|
|
for id in s:breakpoint_locations[bploc]
|
|
if has_key(s:breakpoints, id)
|
|
" Assume this always works, the reply is simply "^done".
|
|
call s:SendCommand('-break-delete ' . id)
|
|
for subid in keys(s:breakpoints[id])
|
|
call sign_unplace('TermDebug',
|
|
\ #{id: s:Breakpoint2SignNumber(id, subid)})
|
|
endfor
|
|
unlet s:breakpoints[id]
|
|
unlet s:breakpoint_locations[bploc][idx]
|
|
let nr = id
|
|
break
|
|
else
|
|
let idx += 1
|
|
endif
|
|
endfor
|
|
if nr != 0
|
|
if empty(s:breakpoint_locations[bploc])
|
|
unlet s:breakpoint_locations[bploc]
|
|
endif
|
|
echomsg 'Breakpoint ' . id . ' cleared from line ' . lnum . '.'
|
|
else
|
|
call s:Echoerr('Internal error trying to remove breakpoint at line ' . lnum . '!')
|
|
endif
|
|
else
|
|
echomsg 'No breakpoint to remove at line ' . lnum . '.'
|
|
endif
|
|
endfunc
|
|
|
|
func s:Run(args)
|
|
if a:args != ''
|
|
call s:SendResumingCommand('-exec-arguments ' . a:args)
|
|
endif
|
|
call s:SendResumingCommand('-exec-run')
|
|
endfunc
|
|
|
|
func s:SendEval(expr)
|
|
" check for "likely" boolean expressions, in which case we take it as lhs
|
|
if a:expr =~ "[=!<>]="
|
|
let exprLHS = a:expr
|
|
else
|
|
" remove text that is likely an assignment
|
|
let exprLHS = substitute(a:expr, ' *=.*', '', '')
|
|
endif
|
|
|
|
" encoding expression to prevent bad errors
|
|
let expr = a:expr
|
|
let expr = substitute(expr, '\\', '\\\\', 'g')
|
|
let expr = substitute(expr, '"', '\\"', 'g')
|
|
call s:SendCommand('-data-evaluate-expression "' . expr . '"')
|
|
let s:evalexpr = exprLHS
|
|
endfunc
|
|
|
|
" :Evaluate - evaluate what is specified / under the cursor
|
|
func s:Evaluate(range, arg)
|
|
let expr = s:GetEvaluationExpression(a:range, a:arg)
|
|
let s:ignoreEvalError = 0
|
|
call s:SendEval(expr)
|
|
endfunc
|
|
|
|
" get what is specified / under the cursor
|
|
func s:GetEvaluationExpression(range, arg)
|
|
if a:arg != ''
|
|
" user supplied evaluation
|
|
let expr = s:CleanupExpr(a:arg)
|
|
" DSW: replace "likely copy + paste" assignment
|
|
let expr = substitute(expr, '"\([^"]*\)": *', '\1=', 'g')
|
|
elseif a:range == 2
|
|
let pos = getcurpos()
|
|
let reg = getreg('v', 1, 1)
|
|
let regt = getregtype('v')
|
|
normal! gv"vy
|
|
let expr = s:CleanupExpr(@v)
|
|
call setpos('.', pos)
|
|
call setreg('v', reg, regt)
|
|
let s:evalFromBalloonExpr = 1
|
|
else
|
|
" no evaluation provided: get from C-expression under cursor
|
|
" TODO: allow filetype specific lookup #9057
|
|
let expr = expand('<cexpr>')
|
|
let s:evalFromBalloonExpr = 1
|
|
endif
|
|
return expr
|
|
endfunc
|
|
|
|
" clean up expression that may get in because of range
|
|
" (newlines and surrounding whitespace)
|
|
" As it can also be specified via ex-command for assignments this function
|
|
" may not change the "content" parts (like replacing contained spaces)
|
|
func s:CleanupExpr(expr)
|
|
" replace all embedded newlines/tabs/...
|
|
let expr = substitute(a:expr, '\_s', ' ', 'g')
|
|
|
|
if &filetype ==# 'cobol'
|
|
" extra cleanup for COBOL:
|
|
" - a semicolon nmay be used instead of a space
|
|
" - a trailing comma or period is ignored as it commonly separates/ends
|
|
" multiple expr
|
|
let expr = substitute(expr, ';', ' ', 'g')
|
|
let expr = substitute(expr, '[,.]\+ *$', '', '')
|
|
endif
|
|
|
|
" get rid of leading and trailing spaces
|
|
let expr = substitute(expr, '^ *', '', '')
|
|
let expr = substitute(expr, ' *$', '', '')
|
|
return expr
|
|
endfunc
|
|
|
|
let s:ignoreEvalError = 0
|
|
let s:evalFromBalloonExpr = 0
|
|
let s:evalFromBalloonExprResult = ''
|
|
|
|
" Handle the result of data-evaluate-expression
|
|
func s:HandleEvaluate(msg)
|
|
let value = a:msg
|
|
\ ->substitute('.*value="\(.*\)"', '\1', '')
|
|
\ ->substitute('\\"', '"', 'g')
|
|
\ ->substitute('\\\\', '\\', 'g')
|
|
"\ multi-byte characters arrive in octal form, replace everything but NULL values
|
|
\ ->substitute('\\000', s:NullRepl, 'g')
|
|
\ ->substitute('\\\o\o\o', {-> eval('"' .. submatch(0) .. '"')}, 'g')
|
|
"\ Note: GDB docs also mention hex encodings - the translations below work
|
|
"\ but we keep them out for performance-reasons until we actually see
|
|
"\ those in mi-returns
|
|
"\ ->substitute('\\0x00', s:NullRep, 'g')
|
|
"\ ->substitute('\\0x\(\x\x\)', {-> eval('"\x' .. submatch(1) .. '"')}, 'g')
|
|
\ ->substitute(s:NullRepl, '\\000', 'g')
|
|
\ ->substitute('
|
|
', '\1', '')
|
|
if s:evalFromBalloonExpr
|
|
if s:evalFromBalloonExprResult == ''
|
|
let s:evalFromBalloonExprResult = s:evalexpr . ': ' . value
|
|
else
|
|
let s:evalFromBalloonExprResult .= ' = ' . value
|
|
endif
|
|
let s:evalFromBalloonExprResult = split(s:evalFromBalloonExprResult, '\\n')
|
|
call s:OpenHoverPreview(s:evalFromBalloonExprResult, v:null)
|
|
let s:evalFromBalloonExprResult = ''
|
|
else
|
|
echomsg '"' . s:evalexpr . '": ' . value
|
|
endif
|
|
|
|
if s:evalexpr[0] != '*' && value =~ '^0x' && value != '0x0' && value !~ '"$'
|
|
" Looks like a pointer, also display what it points to.
|
|
let s:ignoreEvalError = 1
|
|
call s:SendEval('*' . s:evalexpr)
|
|
else
|
|
let s:evalFromBalloonExprResult = ''
|
|
endif
|
|
endfunc
|
|
|
|
function! s:ShouldUseFloatWindow() abort
|
|
if exists('*nvim_open_win') && (get(g:, 'termdebug_useFloatingHover', 1) == 1)
|
|
return v:true
|
|
else
|
|
return v:false
|
|
endif
|
|
endfunction
|
|
|
|
function! s:CloseFloatingHoverOnCursorMove(win_id, opened) abort
|
|
if getpos('.') == a:opened
|
|
" Just after opening floating window, CursorMoved event is run.
|
|
" To avoid closing floating window immediately, check the cursor
|
|
" was really moved
|
|
return
|
|
endif
|
|
autocmd! nvim_termdebug_close_hover
|
|
let winnr = win_id2win(a:win_id)
|
|
if winnr == 0
|
|
return
|
|
endif
|
|
call nvim_win_close(a:win_id, v:true)
|
|
endfunction
|
|
|
|
function! s:CloseFloatingHoverOnBufEnter(win_id, bufnr) abort
|
|
let winnr = win_id2win(a:win_id)
|
|
if winnr == 0
|
|
" Float window was already closed
|
|
autocmd! nvim_termdebug_close_hover
|
|
return
|
|
endif
|
|
if winnr == winnr()
|
|
" Cursor is moving into floating window. Do not close it
|
|
return
|
|
endif
|
|
if bufnr('%') == a:bufnr
|
|
" When current buffer opened hover window, it's not another buffer. Skipped
|
|
return
|
|
endif
|
|
autocmd! nvim_termdebug_close_hover
|
|
call nvim_win_close(a:win_id, v:true)
|
|
endfunction
|
|
|
|
" Open preview window. Window is open in:
|
|
" - Floating window on Neovim (0.4.0 or later)
|
|
" - Preview window on Neovim (0.3.0 or earlier) or Vim
|
|
function! s:OpenHoverPreview(lines, filetype) abort
|
|
" Use local variable since parameter is not modifiable
|
|
let lines = a:lines
|
|
let bufnr = bufnr('%')
|
|
|
|
let use_float_win = s:ShouldUseFloatWindow()
|
|
if use_float_win
|
|
let pos = getpos('.')
|
|
|
|
" Calculate width and height
|
|
let width = 0
|
|
for index in range(len(lines))
|
|
let line = lines[index]
|
|
let lw = strdisplaywidth(line)
|
|
if lw > width
|
|
let width = lw
|
|
endif
|
|
let lines[index] = line
|
|
endfor
|
|
|
|
let height = len(lines)
|
|
|
|
" Calculate anchor
|
|
" Prefer North, but if there is no space, fallback into South
|
|
let bottom_line = line('w0') + winheight(0) - 1
|
|
if pos[1] + height <= bottom_line
|
|
let vert = 'N'
|
|
let row = 1
|
|
else
|
|
let vert = 'S'
|
|
let row = 0
|
|
endif
|
|
|
|
" Prefer West, but if there is no space, fallback into East
|
|
if pos[2] + width <= &columns
|
|
let hor = 'W'
|
|
let col = 0
|
|
else
|
|
let hor = 'E'
|
|
let col = 1
|
|
endif
|
|
|
|
let buf = nvim_create_buf(v:false, v:true)
|
|
call nvim_buf_set_lines(buf, 0, -1, v:true, lines)
|
|
" using v:true for second argument of nvim_open_win make the floating
|
|
" window disappear
|
|
let float_win_id = nvim_open_win(buf, v:false, {
|
|
\ 'relative': 'cursor',
|
|
\ 'anchor': vert . hor,
|
|
\ 'row': row,
|
|
\ 'col': col,
|
|
\ 'width': width,
|
|
\ 'height': height,
|
|
\ 'style': 'minimal',
|
|
\ })
|
|
|
|
if a:filetype isnot v:null
|
|
call nvim_set_option_value('filetype', a:filetype, { 'win' : float_win_id })
|
|
endif
|
|
|
|
call nvim_set_option_value('modified', v:false, { 'buf' : buf })
|
|
call nvim_set_option_value('modifiable', v:false, { 'buf' : buf })
|
|
|
|
" Unlike preview window, :pclose does not close window. Instead, close
|
|
" hover window automatically when cursor is moved.
|
|
let call_after_move = printf('<SID>CloseFloatingHoverOnCursorMove(%d, %s)', float_win_id, string(pos))
|
|
let call_on_bufenter = printf('<SID>CloseFloatingHoverOnBufEnter(%d, %d)', float_win_id, bufnr)
|
|
augroup nvim_termdebug_close_hover
|
|
execute 'autocmd CursorMoved,CursorMovedI,InsertEnter <buffer> call ' . call_after_move
|
|
execute 'autocmd BufEnter * call ' . call_on_bufenter
|
|
augroup END
|
|
else
|
|
echomsg a:lines[0]
|
|
endif
|
|
endfunction
|
|
|
|
" Handle an error.
|
|
func s:HandleError(msg)
|
|
if s:ignoreEvalError
|
|
" Result of s:SendEval() failed, ignore.
|
|
let s:ignoreEvalError = 0
|
|
let s:evalFromBalloonExpr = 0
|
|
return
|
|
endif
|
|
let msgVal = substitute(a:msg, '.*msg="\(.*\)"', '\1', '')
|
|
call s:Echoerr(substitute(msgVal, '\\"', '"', 'g'))
|
|
endfunc
|
|
|
|
func s:GotoSourcewinOrCreateIt()
|
|
if !win_gotoid(s:sourcewin)
|
|
new
|
|
let s:sourcewin = win_getid()
|
|
call s:InstallWinbar(0)
|
|
endif
|
|
endfunc
|
|
|
|
func s:GetDisasmWindow()
|
|
if exists('g:termdebug_config')
|
|
return get(g:termdebug_config, 'disasm_window', 0)
|
|
endif
|
|
if exists('g:termdebug_disasm_window')
|
|
return g:termdebug_disasm_window
|
|
endif
|
|
return 0
|
|
endfunc
|
|
|
|
func s:GetDisasmWindowHeight()
|
|
if exists('g:termdebug_config')
|
|
return get(g:termdebug_config, 'disasm_window_height', 0)
|
|
endif
|
|
if exists('g:termdebug_disasm_window') && g:termdebug_disasm_window > 1
|
|
return g:termdebug_disasm_window
|
|
endif
|
|
return 0
|
|
endfunc
|
|
|
|
func s:GotoAsmwinOrCreateIt()
|
|
if !win_gotoid(s:asmwin)
|
|
if win_gotoid(s:sourcewin)
|
|
exe 'rightbelow new'
|
|
else
|
|
exe 'new'
|
|
endif
|
|
|
|
let s:asmwin = win_getid()
|
|
|
|
setlocal nowrap
|
|
setlocal number
|
|
setlocal noswapfile
|
|
setlocal buftype=nofile
|
|
setlocal bufhidden=wipe
|
|
setlocal signcolumn=no
|
|
setlocal modifiable
|
|
|
|
if s:asmbuf > 0 && bufexists(s:asmbuf)
|
|
exe 'buffer' . s:asmbuf
|
|
else
|
|
silent file Termdebug-asm-listing
|
|
let s:asmbuf = bufnr('Termdebug-asm-listing')
|
|
endif
|
|
|
|
if s:GetDisasmWindowHeight() > 0
|
|
exe 'resize ' .. s:GetDisasmWindowHeight()
|
|
endif
|
|
endif
|
|
|
|
if s:asm_addr != ''
|
|
let lnum = search('^' . s:asm_addr)
|
|
if lnum == 0
|
|
if s:stopped
|
|
call s:SendCommand('disassemble $pc')
|
|
endif
|
|
else
|
|
call sign_unplace('TermDebug', #{id: s:asm_id})
|
|
call sign_place(s:asm_id, 'TermDebug', 'debugPC', '%', #{lnum: lnum})
|
|
endif
|
|
endif
|
|
endfunc
|
|
|
|
func s:GetVariablesWindow()
|
|
if exists('g:termdebug_config')
|
|
return get(g:termdebug_config, 'variables_window', 0)
|
|
endif
|
|
if exists('g:termdebug_disasm_window')
|
|
return g:termdebug_variables_window
|
|
endif
|
|
return 0
|
|
endfunc
|
|
|
|
func s:GetVariablesWindowHeight()
|
|
if exists('g:termdebug_config')
|
|
return get(g:termdebug_config, 'variables_window_height', 0)
|
|
endif
|
|
if exists('g:termdebug_variables_window') && g:termdebug_variables_window > 1
|
|
return g:termdebug_variables_window
|
|
endif
|
|
return 0
|
|
endfunc
|
|
|
|
func s:GotoVariableswinOrCreateIt()
|
|
if !win_gotoid(s:varwin)
|
|
if win_gotoid(s:sourcewin)
|
|
exe 'rightbelow new'
|
|
else
|
|
exe 'new'
|
|
endif
|
|
|
|
let s:varwin = win_getid()
|
|
|
|
setlocal nowrap
|
|
setlocal noswapfile
|
|
setlocal buftype=nofile
|
|
setlocal bufhidden=wipe
|
|
setlocal signcolumn=no
|
|
setlocal modifiable
|
|
|
|
if s:varbuf > 0 && bufexists(s:varbuf)
|
|
exe 'buffer' . s:varbuf
|
|
else
|
|
silent file Termdebug-variables-listing
|
|
let s:varbuf = bufnr('Termdebug-variables-listing')
|
|
endif
|
|
|
|
if s:GetVariablesWindowHeight() > 0
|
|
exe 'resize ' .. s:GetVariablesWindowHeight()
|
|
endif
|
|
endif
|
|
|
|
if s:running
|
|
call s:SendCommand('-stack-list-variables 2')
|
|
endif
|
|
endfunc
|
|
|
|
" Handle stopping and running message from gdb.
|
|
" Will update the sign that shows the current position.
|
|
func s:HandleCursor(msg)
|
|
let wid = win_getid()
|
|
|
|
if a:msg =~ '^\*stopped'
|
|
"call ch_log('program stopped')
|
|
let s:stopped = 1
|
|
if a:msg =~ '^\*stopped,reason="exited-normally"'
|
|
let s:running = 0
|
|
endif
|
|
elseif a:msg =~ '^\*running'
|
|
"call ch_log('program running')
|
|
let s:stopped = 0
|
|
let s:running = 1
|
|
endif
|
|
|
|
if a:msg =~ 'fullname='
|
|
let fname = s:GetFullname(a:msg)
|
|
else
|
|
let fname = ''
|
|
endif
|
|
|
|
if a:msg =~ 'addr='
|
|
let asm_addr = s:GetAsmAddr(a:msg)
|
|
if asm_addr != ''
|
|
let s:asm_addr = asm_addr
|
|
|
|
let curwinid = win_getid()
|
|
if win_gotoid(s:asmwin)
|
|
let lnum = search('^' . s:asm_addr)
|
|
if lnum == 0
|
|
call s:SendCommand('disassemble $pc')
|
|
else
|
|
call sign_unplace('TermDebug', #{id: s:asm_id})
|
|
call sign_place(s:asm_id, 'TermDebug', 'debugPC', '%', #{lnum: lnum})
|
|
endif
|
|
|
|
call win_gotoid(curwinid)
|
|
endif
|
|
endif
|
|
endif
|
|
|
|
if s:running && s:stopped && bufwinnr('Termdebug-variables-listing') != -1
|
|
call s:SendCommand('-stack-list-variables 2')
|
|
endif
|
|
|
|
if a:msg =~ '^\(\*stopped\|=thread-selected\)' && filereadable(fname)
|
|
let lnum = substitute(a:msg, '.*line="\([^"]*\)".*', '\1', '')
|
|
if lnum =~ '^[0-9]*$'
|
|
call s:GotoSourcewinOrCreateIt()
|
|
if expand('%:p') != fnamemodify(fname, ':p')
|
|
echomsg 'different fname: "' .. expand('%:p') .. '" vs "' .. fnamemodify(fname, ':p') .. '"'
|
|
augroup Termdebug
|
|
" Always open a file read-only instead of showing the ATTENTION
|
|
" prompt, since it is unlikely we want to edit the file.
|
|
" The file may be changed but not saved, warn for that.
|
|
au SwapExists * echohl WarningMsg
|
|
\ | echo 'Warning: file is being edited elsewhere'
|
|
\ | echohl None
|
|
\ | let v:swapchoice = 'o'
|
|
augroup END
|
|
if &modified
|
|
" TODO: find existing window
|
|
exe 'split ' . fnameescape(fname)
|
|
let s:sourcewin = win_getid()
|
|
call s:InstallWinbar(0)
|
|
else
|
|
exe 'edit ' . fnameescape(fname)
|
|
endif
|
|
augroup Termdebug
|
|
au! SwapExists
|
|
augroup END
|
|
endif
|
|
exe lnum
|
|
normal! zv
|
|
call sign_unplace('TermDebug', #{id: s:pc_id})
|
|
call sign_place(s:pc_id, 'TermDebug', 'debugPC', fname,
|
|
\ #{lnum: lnum, priority: 110})
|
|
if !exists('b:save_signcolumn')
|
|
let b:save_signcolumn = &signcolumn
|
|
call add(s:signcolumn_buflist, bufnr())
|
|
endif
|
|
setlocal signcolumn=yes
|
|
endif
|
|
elseif !s:stopped || fname != ''
|
|
call sign_unplace('TermDebug', #{id: s:pc_id})
|
|
endif
|
|
|
|
call win_gotoid(wid)
|
|
endfunc
|
|
|
|
let s:BreakpointSigns = []
|
|
|
|
func s:CreateBreakpoint(id, subid, enabled)
|
|
let nr = printf('%d.%d', a:id, a:subid)
|
|
if index(s:BreakpointSigns, nr) == -1
|
|
call add(s:BreakpointSigns, nr)
|
|
if a:enabled == "n"
|
|
let hiName = "debugBreakpointDisabled"
|
|
else
|
|
let hiName = "debugBreakpoint"
|
|
endif
|
|
let label = ''
|
|
if exists('g:termdebug_config')
|
|
let label = get(g:termdebug_config, 'sign', '')
|
|
endif
|
|
if label == ''
|
|
let label = substitute(nr, '\..*', '', '')
|
|
if strlen(label) > 2
|
|
let label = strpart(label, strlen(label) - 2)
|
|
endif
|
|
endif
|
|
call sign_define('debugBreakpoint' .. nr,
|
|
\ #{text: strpart(label, 0, 2),
|
|
\ texthl: hiName})
|
|
endif
|
|
endfunc
|
|
|
|
func! s:SplitMsg(s)
|
|
return split(a:s, '{.\{-}}\zs')
|
|
endfunction
|
|
|
|
" Handle setting a breakpoint
|
|
" Will update the sign that shows the breakpoint
|
|
func s:HandleNewBreakpoint(msg, modifiedFlag)
|
|
if a:msg !~ 'fullname='
|
|
" a watch or a pending breakpoint does not have a file name
|
|
if a:msg =~ 'pending='
|
|
let nr = substitute(a:msg, '.*number=\"\([0-9.]*\)\".*', '\1', '')
|
|
let target = substitute(a:msg, '.*pending=\"\([^"]*\)\".*', '\1', '')
|
|
echomsg 'Breakpoint ' . nr . ' (' . target . ') pending.'
|
|
endif
|
|
return
|
|
endif
|
|
for msg in s:SplitMsg(a:msg)
|
|
let fname = s:GetFullname(msg)
|
|
if empty(fname)
|
|
continue
|
|
endif
|
|
let nr = substitute(msg, '.*number="\([0-9.]*\)\".*', '\1', '')
|
|
if empty(nr)
|
|
return
|
|
endif
|
|
|
|
" If "nr" is 123 it becomes "123.0" and subid is "0".
|
|
" If "nr" is 123.4 it becomes "123.4.0" and subid is "4"; "0" is discarded.
|
|
let [id, subid; _] = map(split(nr . '.0', '\.'), 'v:val + 0')
|
|
let enabled = substitute(msg, '.*enabled="\([yn]\)".*', '\1', '')
|
|
call s:CreateBreakpoint(id, subid, enabled)
|
|
|
|
if has_key(s:breakpoints, id)
|
|
let entries = s:breakpoints[id]
|
|
else
|
|
let entries = {}
|
|
let s:breakpoints[id] = entries
|
|
endif
|
|
if has_key(entries, subid)
|
|
let entry = entries[subid]
|
|
else
|
|
let entry = {}
|
|
let entries[subid] = entry
|
|
endif
|
|
|
|
let lnum = substitute(msg, '.*line="\([^"]*\)".*', '\1', '')
|
|
let entry['fname'] = fname
|
|
let entry['lnum'] = lnum
|
|
|
|
let bploc = printf('%s:%d', fname, lnum)
|
|
if !has_key(s:breakpoint_locations, bploc)
|
|
let s:breakpoint_locations[bploc] = []
|
|
endif
|
|
let s:breakpoint_locations[bploc] += [id]
|
|
|
|
if bufloaded(fname)
|
|
call s:PlaceSign(id, subid, entry)
|
|
let posMsg = ' at line ' . lnum . '.'
|
|
else
|
|
let posMsg = ' in ' . fname . ' at line ' . lnum . '.'
|
|
endif
|
|
if !a:modifiedFlag
|
|
let actionTaken = 'created'
|
|
elseif enabled == 'n'
|
|
let actionTaken = 'disabled'
|
|
else
|
|
let actionTaken = 'enabled'
|
|
endif
|
|
echomsg 'Breakpoint ' . nr . ' ' . actionTaken . posMsg
|
|
endfor
|
|
endfunc
|
|
|
|
func s:PlaceSign(id, subid, entry)
|
|
let nr = printf('%d.%d', a:id, a:subid)
|
|
call sign_place(s:Breakpoint2SignNumber(a:id, a:subid), 'TermDebug',
|
|
\ 'debugBreakpoint' .. nr, a:entry['fname'],
|
|
\ #{lnum: a:entry['lnum'], priority: 110})
|
|
let a:entry['placed'] = 1
|
|
endfunc
|
|
|
|
" Handle deleting a breakpoint
|
|
" Will remove the sign that shows the breakpoint
|
|
func s:HandleBreakpointDelete(msg)
|
|
let id = substitute(a:msg, '.*id="\([0-9]*\)\".*', '\1', '') + 0
|
|
if empty(id)
|
|
return
|
|
endif
|
|
if has_key(s:breakpoints, id)
|
|
for [subid, entry] in items(s:breakpoints[id])
|
|
if has_key(entry, 'placed')
|
|
call sign_unplace('TermDebug',
|
|
\ #{id: s:Breakpoint2SignNumber(id, subid)})
|
|
unlet entry['placed']
|
|
endif
|
|
endfor
|
|
unlet s:breakpoints[id]
|
|
echomsg 'Breakpoint ' . id . ' cleared.'
|
|
endif
|
|
endfunc
|
|
|
|
" Handle the debugged program starting to run.
|
|
" Will store the process ID in s:pid
|
|
func s:HandleProgramRun(msg)
|
|
let nr = substitute(a:msg, '.*pid="\([0-9]*\)\".*', '\1', '') + 0
|
|
if nr == 0
|
|
return
|
|
endif
|
|
let s:pid = nr
|
|
"call ch_log('Detected process ID: ' . s:pid)
|
|
endfunc
|
|
|
|
" Handle a BufRead autocommand event: place any signs.
|
|
func s:BufRead()
|
|
let fname = expand('<afile>:p')
|
|
for [id, entries] in items(s:breakpoints)
|
|
for [subid, entry] in items(entries)
|
|
if entry['fname'] == fname
|
|
call s:PlaceSign(id, subid, entry)
|
|
endif
|
|
endfor
|
|
endfor
|
|
endfunc
|
|
|
|
" Handle a BufUnloaded autocommand event: unplace any signs.
|
|
func s:BufUnloaded()
|
|
let fname = expand('<afile>:p')
|
|
for [id, entries] in items(s:breakpoints)
|
|
for [subid, entry] in items(entries)
|
|
if entry['fname'] == fname
|
|
let entry['placed'] = 0
|
|
endif
|
|
endfor
|
|
endfor
|
|
endfunc
|
|
|
|
call s:InitHighlight()
|
|
call s:InitAutocmd()
|
|
|
|
let &cpo = s:keepcpo
|
|
unlet s:keepcpo
|