stefan/vimsuite
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve gdb and Regression-Test

Browse Source
This commit is contained in:
Stefan Liebl 2018-04-20 09:19:27 +02:00
parent b8b5bf5117
commit 23c0ea265b
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
vimfiles.stefan/plugin/toptica.vim
View File

@ -31,7 +31,8 @@ function s:ProjectDlcproSet(project_type, project_base_dir)
let g:ProgramRemote = '/opt/app/bin/device-control' let g:ProgramRemote = '/opt/app/bin/device-control'
set wildignore+=**/shg-firmware/** set wildignore+=**/shg-firmware/**
elseif (g:project_type == 'shg') elseif (g:project_type == 'shg')
let s:Program = '/device-control/device-control-shg' let s:Program = '/shg-firmware/device-control/device-control-shg'
let g:ProgramRemote = '/opt/app/bin/device-control-shg'
set wildignore+=**/firmware/src/device-control/** set wildignore+=**/firmware/src/device-control/**
elseif (g:project_type == 'topmode') elseif (g:project_type == 'topmode')
let s:Program = '/topmode' let s:Program = '/topmode'
@ -62,7 +63,7 @@ function s:ProjectDlcproSet(project_type, project_base_dir)
" compiler " compiler
compiler gcc compiler gcc
let s:makegoals = ['artifacts', 'device-control', 'user-interface', 'doxygen', 'shg-firmware', 'docu-ul0', 'code-generation', 'dependency-graphs', 'clean', 'distclean', 'help', 'jamplayer', 'dlcpro-slot'] let s:makegoals = ['artifacts', 'device-control', 'user-interface', 'doxygen', 'fw-updates', 'shg-firmware', 'docu-ul0', 'code-generation', 'dependency-graphs', 'clean', 'distclean', 'help', 'jamplayer', 'dlcpro-slot']
let s:makeopts = ['-j3', 'VERBOSE=1'] let s:makeopts = ['-j3', 'VERBOSE=1']
let g:Program = g:ProjectBuildDir.s:Program let g:Program = g:ProjectBuildDir.s:Program
command! -complete=custom,GetAllMakeCompletions -nargs=* Make call s:Make('<args>', 0) command! -complete=custom,GetAllMakeCompletions -nargs=* Make call s:Make('<args>', 0)
@ -81,13 +82,17 @@ function s:ProjectDlcproSet(project_type, project_base_dir)
augroup END augroup END
" debugger " debugger
let g:GdbPort = '2345'
if (g:project_type == 'topmode') if (g:project_type == 'topmode')
let g:GdbHost = 'topmode_stefan' let g:GdbHost = 'topmode_stefan'
let s:GdbSlave = '~/tools/gdb-slave-topmode.sh' let s:GdbSlave = '~/tools/gdb-slave-topmode.sh'
elseif (g:project_type == 'shg')
let g:GdbHost = 'dlcpro_stefan'
let s:GdbSlave = '~/tools/shgcntl'
let g:GdbPort = '6666'
else else
let g:GdbHost = 'dlcpro_stefan' let g:GdbHost = 'dlcpro_stefan'
let s:GdbSlave = '~/tools/gdb-slave.sh' let s:GdbSlave = '~/tools/gdb-slave.sh'
let g:GdbPort = '2345'
endif endif
let g:GdbPath = '/opt/OSELAS.Toolchain-2012.12.1/arm-cortexa8-linux-gnueabi/gcc-4.7.3-glibc-2.16.0-binutils-2.22-kernel-3.6-sanitized/bin/arm-cortexa8-linux-gnueabi-gdb' let g:GdbPath = '/opt/OSELAS.Toolchain-2012.12.1/arm-cortexa8-linux-gnueabi/gcc-4.7.3-glibc-2.16.0-binutils-2.22-kernel-3.6-sanitized/bin/arm-cortexa8-linux-gnueabi-gdb'
command! DlcProFirmwareUpdate call s:CopyFirmware('update') command! DlcProFirmwareUpdate call s:CopyFirmware('update')
@ -190,13 +195,10 @@ endfunction
function s:DlcProDebug(program) function s:DlcProDebug(program)
DlcProFirmwareDebug DlcProFirmwareDebug
sleep 1
ConqueGdbTab ConqueGdbTab
" execute "ConqueGdbCommand file ".g:Program " execute "ConqueGdbCommand target extended-remote ".g:GdbHost.":".g:GdbPort
" execute "ConqueGdbCommand target remote ".g:GdbHost.":".g:GdbPort execute "ConqueGdbCommand target extended-remote localhost:".g:GdbPort
" ConqueGdbCommand break main
" ConqueGdbCommand continue
execute "ConqueGdbCommand target extended-remote ".g:GdbHost.":".g:GdbPort
execute "ConqueGdbCommand set remote exec-file ".g:ProgramRemote execute "ConqueGdbCommand set remote exec-file ".g:ProgramRemote
execute "ConqueGdbCommand file ".g:Program execute "ConqueGdbCommand file ".g:Program
ConqueGdbCommand break main ConqueGdbCommand break main
@ -211,36 +213,37 @@ endfunction
" ================ " ================
" Regression Tests " Regression Tests
" ================ " ================
command -nargs=1 DlcProRegtest call s:DlcProRegtest(g:GdbHost, "", "", "dlpro", "1", "", "<args>") command -nargs=1 -complete=file DlcProRegtest call s:DlcProRegtest(g:GdbHost, '', '0', 'dlpro', '1', '', '<args>')
command -nargs=1 DlcProRegtestDlPro call s:DlcProRegtest("192.168.54.24", "elad-dlcpro", "2", "dlpro", "1", "", "<args>") command -nargs=1 -complete=file DlcProRegtestDlPro call s:DlcProRegtest('192.168.54.24', 'elab-dlcpro', '2', 'dlpro', '1', '', '<args>')
command -nargs=1 DlcProRegtestTaPro call s:DlcProRegtest("192.168.54.9", "elad-dlcpro", "3", "tapro", "1", "-m 'not usbstick'", "<args>") command -nargs=1 -complete=file DlcProRegtestTaPro call s:DlcProRegtest('192.168.54.9', 'elab-dlcpro', '3', 'tapro', '1', '-m "not usbstick"', '<args>')
command -nargs=1 DlcProRegtestCtl call s:DlcProRegtest("192.168.54.27", "elad-dlcpro", "1", "ctl", "1", "-m 'not usbstick'", "<args>") command -nargs=1 -complete=file DlcProRegtestCtl call s:DlcProRegtest('192.168.54.27', 'elab-dlcpro', '1', 'ctl', '1', '-m "not usbstick"', '<args>')
command -nargs=1 DlcProRegtestDualDl call s:DlcProRegtest("192.168.54.28", "elad-dlcpro", "4", "dlpro", "2", "-m 'not usbstick'", "<args>") command -nargs=1 -complete=file DlcProRegtestDualDl call s:DlcProRegtest('192.168.54.28', 'elab-dlcpro', '4', 'dlpro', '2', '-m "not usbstick"', '<args>')
command -nargs=1 DlcProRegtestShgPro call s:DlcProRegtest("192.168.54.29", "elad-dlcpro", "5", "shg", "1", "-m 'not usbstick'", "<args>") command -nargs=1 -complete=file DlcProRegtestShgPro call s:DlcProRegtest('192.168.54.29', 'elab-dlcpro', '5', 'shg', '1', '-m "not usbstick"', '<args>')
function s:DlcProRegtest(ip, powerswitch_ip, powerplug, tests, laser_no, opts, arguments) function s:DlcProRegtest(ip, powerswitch_ip, powerplug, tests, laser_no, opts, arguments)
execute "wa"
let archive_dir = g:ProjectBuildDir."/artifacts" let archive_dir = g:ProjectBuildDir."/artifacts"
let dlcprolicense_builddir = s:ProjectSrcDir."/build/libdlcprolicense" let dlcprolicense_builddir = s:ProjectSrcDir."/build/libdlcprolicense"
let dlcprolicensetool = dlcprolicense_builddir."/dlcprolicense-tool" let dlcprolicensetool = dlcprolicense_builddir."/dlcprolicense-tool"
let cmd = let cmd =
\"python3 -u -m pytest ". \"python3 -u -m pytest ".
\"--showlocals --tb=long --verbose --cache-clear ". \"--showlocals --tb=long --verbose --cache-clear ".
\"--junit-xml=".a:tests.".result.xml ". \"--junit-xml=regtest.".a:tests.".xml ".
\"--tests=".a:tests." ". \"--tests=".a:tests." ".
\"--laser_no=".a:laser_no." ". \"--laser_no=".a:laser_no." ".
\"--connection_type=network ". \"--log_file=regtest.".a:tests.".log ".
\"--log_file=".a:tests.".regtest.log ".
\"--target_ip=".a:ip." ". \"--target_ip=".a:ip." ".
\"--powerswitch_ip=".a:powerswitch_ip." ", \"--powerswitch_ip=".a:powerswitch_ip." ".
\"--power_plug=".a:powerplug." ".
\"--powerswitch_passwd=nimda ". \"--powerswitch_passwd=nimda ".
\"--power_plug=".a:powerplug." ".
\"--power_plug_fan=8"." ".
\"--version_file=".archive_dir."/VERSION ". \"--version_file=".archive_dir."/VERSION ".
\"--svnrevision=".archive_dir."/svnrevision.h ". \"--svnrevision=".archive_dir."/svnrevision.h ".
\"--firmware_file=".archive_dir."/DLCpro-archive.fw ". \"--firmware_file=".archive_dir."/DLCpro-archive.fw ".
\"--license_tool=".dlcprolicensetool." ". \"--license_tool=".dlcprolicensetool." ".
\"--license_keyfile=".s:ProjectSrcDir."/license/libdlcprolicense/rsa-private.key ". \"--license_keyfile=".s:ProjectSrcDir."/license/libdlcprolicense/rsa-private.key ".
\"--shutdown_after_test ". \"--skip_shutdown_after_test ".
\a:opts." ".a:arguments \a:opts." ".a:arguments
" echom cmd echom cmd
call term_start(cmd) call term_start(cmd)
endfunction endfunction