command -nargs=1 -complete=dir DlcPro call s:ProjectSet('dlcpro', '') command -nargs=1 -complete=dir DlcProShg call s:ProjectSet('shg', '') command -nargs=1 -complete=dir DlcProGui call s:ProjectSet('dlcpro-gui', '') command -nargs=1 -complete=dir DlcProCan call s:ProjectSet('dlcpro-can', '') command -nargs=1 -complete=dir DlcProSpecalyser call s:ProjectSet('dlcpro-specalyser', '') command DlcproEmissionOn call s:DlcproEmission('1') command DlcproEmissionOff call s:DlcproEmission('0') command -nargs=1 -complete=dir Topmode call s:ProjectSet('topmode', '') command -nargs=1 -complete=dir TopmodeGui call s:ProjectSet('topmode-gui', '') function s:ProjectSet(project_type, project_base_dir) let g:project_type = a:project_type " directories if a:project_base_dir != '' if (isdirectory(fnamemodify(a:project_base_dir, ':p:h:h').'/src')) let s:ProjectBaseDir = fnamemodify(a:project_base_dir, ':p:h:h') elseif (isdirectory(fnamemodify(a:project_base_dir, ':p:h').'/src')) let s:ProjectBaseDir = fnamemodify(a:project_base_dir, ':p:h') else let s:ProjectBaseDir = fnamemodify(a:project_base_dir, ':p') endif else " defaults if (g:project_type == 'dlcpro') let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware' elseif (g:project_type == 'dlcpro-can') let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware' elseif (g:project_type == 'dlcpro-specalyser') let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware' elseif (g:project_type == 'shg') let s:ProjectBaseDir = '/home/stefan/dlcpro/shg-firmware' elseif (g:project_type == 'dlcpro-gui') let s:ProjectBaseDir = '/home/stefan/dlcpro/pc-gui' elseif (g:project_type == 'topmode') let s:ProjectBaseDir = '/home/stefan/topmode/firmware' elseif (g:project_type == 'topmode-gui') let s:ProjectBaseDir = '/home/stefan/topmode/pc-gui' else echo "no project" endif endif if (g:project_type == 'dlcpro') let s:Program = '/device-control/device-control' let g:ProgramRemote = '/opt/app/bin/device-control' set wildignore+=**/shg-firmware/** elseif (g:project_type == 'dlcpro-can') let s:Program = '/canopen/can-updater' let g:ProgramRemote = '/opt/app/bin/can-updater' set wildignore+=**/shg-firmware/** elseif (g:project_type == 'dlcpro-specalyser') let s:Program = '/specalyser/specalyser' let g:ProgramRemote = '/opt/app/bin/specalyser' set wildignore+=**/shg-firmware/** elseif (g:project_type == '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/** elseif (g:project_type == 'dlcpro-gui') let s:Program = '/TOPAS_DLC_pro' elseif (g:project_type == 'topmode') let s:Program = '/topmode' let g:ProgramRemote = '/usr/toptica/topmode' elseif (g:project_type == 'topmode-gui') let s:Program = '/TOPAS_Topmode' else echo "no project" endif let g:ProjectSrcDirRel = 'src' let s:ProjectSrcDir = s:ProjectBaseDir.'/'.g:ProjectSrcDirRel let g:ProjectBuildDir = s:ProjectBaseDir.'/build' " vim path execute 'cd '.s:ProjectSrcDir execute 'set path-=./**' execute 'set path+=' . s:ProjectSrcDir.'/**' execute 'set path+=' . g:ProjectBuildDir.'/**' execute 'set path+=/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/sysroot-arm-cortexa8-linux-gnueabi/usr/include' " editor settings set spell spelllang=en,de set expandtab set cinoptions=l1,g2,h2,N-2,t0,+0,(0,w1,Ws,m1,)100,*100 set textwidth=120 " python tags execute "set tags+=" . s:ProjectBaseDir . '/tags' " compiler compiler gcc let s:makegoals = ['artifacts', 'device-control', 'user-interface', 'doxygen', 'fw-updates', 'shg-firmware', 'can-updater', 'specalyser', 'docu-ul0', 'code-generation', 'dependency-graphs', 'clean', 'distclean', 'help', 'jamplayer', 'dlcpro-slot'] let s:makeopts = ['-j3', 'VERBOSE=1'] let g:Program = g:ProjectBuildDir.s:Program command! -complete=custom,GetAllMakeCompletions -nargs=* Make call s:Make('', 0) command! MakeTestBuild call s:MakeTestBuild() " cmake command! -nargs=1 -complete=custom,CmakeBuildTypes Cmake call s:Cmake('', 0) function! CmakeBuildTypes(ArgLead, CmdLine, CorsorPos) return join(['Debug', 'RelWithDebInfo'], "\n") endfunction " configure quickfix window for asyncrun augroup QuickfixStatus autocmd BufWinEnter quickfix setlocal \ statusline=%t\ [%{g:asyncrun_status}]\ %{exists('w:quickfix_title')?\ '\ '.w:quickfix_title\ :\ ''}\ %=%-15(%l,%c%V%)\ %P augroup END " debugger if (g:project_type == 'topmode') let g:DeviceIP = 'topmode_stefan' let g:GdbPort = '2345' let g:GdbRoot = "/opt/OSELAS.Toolchain-2011.11.3/arm-cortexa8-linux-gnueabi/gcc-4.6.2-glibc-2.14.1-binutils-2.21.1a-kernel-2.6.39-sanitized" let g:SshOpts = "" let g:SshOpts2 = "" elseif (g:project_type == 'shg') let g:DeviceIP = 'dlcpro_stefan' let g:GdbPort = '6666' let g:GdbRoot = "/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" let g:SshOpts = '-o ForwardAgent=yes -o ProxyCommand="ssh -q -W shg:22 root@%h" -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null -o LogLevel=ERROR' let g:SshOpts2 = "-L localhost:1998:localhost:1998 -L localhost:1999:localhost:1999" else let g:DeviceIP = 'dlcpro_stefan' let g:GdbPort = '2345' let g:GdbRoot = "/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" let g:SshOpts = "" let g:SshOpts2 = "" endif let g:ConqueGdb_GdbExe = g:GdbRoot.'/bin/arm-cortexa8-linux-gnueabi-gdb' command! DeviceFirmwareUpdate call s:DeviceFirmwareUpdateStart() command! DeviceDebug call s:DeviceDebug(0) command! DeviceDebugAttach call s:DeviceDebug(1) command! DeviceGdbDebug call s:DeviceGdbDebug() command! DeviceGdbDebugAttach call s:DeviceGdbDebugAttach() " vc-plugin let g:vc_branch_url = ['https://svn.toptica.com/svn/DiSiRa/SW/firmware/branches'] let g:vc_trunk_url = 'https://svn.toptica.com/svn/DiSiRa/SW/firmware/trunk' " update device-contol.xml for Topas-GUI command! DlcProUpdateTopasXml '!svnmucc put -m \'update "device-control.xml"\' ".g:ProjectBuildDir.'/device-control/device-control.xml https://svn.toptica.com/svn/topas_dlc_pro/trunk/res/device-control.xml' " YouCompleteMe plugin "set completeopt-=preview "let g:ycm_add_preview_to_completeopt = 0 "let g:ycm_autoclose_preview_window_after_completion = 0 "let g:ycm_autoclose_preview_window_after_insertion = 0 "let g:ycm_key_previous_completion = ['', '', ''] let g:ycm_extra_conf_globlist = [ \s:ProjectBaseDir.'/.ycm_extra_conf.py', \'!~/tools/vimsuite/vimfiles.YouCompleteMe/*', \] " rtags command! RtagsIncludeTree execute('!rc --dependencies %') " little helpers command! -nargs=? BuildDirStash call s:BuildDirStash('') command! -nargs=? BuildDirUnStash call s:BuildDirUnStash('') endfunction " ==== " Make " ==== function GetAllMakeCompletions(ArgLead, CmdLine, CursorPos) return join(s:makegoals + s:makeopts + glob(a:ArgLead.'*', 1, 1), "\n") endfunction function s:Make(args, async_mode) call asyncrun#quickfix_toggle(10, 1) execute 'AsyncRun -mode='.a:async_mode.' -save=2 -program=make @ --directory='.g:ProjectBuildDir.' '.a:args endfunction function s:MakeTestBuild() call s:BuildDirStash('save') call s:Cmake('Release', 1) call s:Make('-j4 device-control artifacts doxygen user-interface', 1) call s:BuildDirStash('release-test') call s:BuildDirUnStash('save') endfunction function s:Cmake(build_type, async_mode) if !isdirectory(g:ProjectBuildDir) call mkdir(g:ProjectBuildDir) endif execute "!rm ".g:ProjectBuildDir."/build-type*" execute "!touch ".g:ProjectBuildDir."/build-type:".a:build_type call asyncrun#quickfix_toggle(10, 1) let args = "" let args .= " ../".g:ProjectSrcDirRel."/" let args .= " --graphviz=dependencies.dot" let args .= " -DCMAKE_BUILD_TYPE=".a:build_type let args .= " -DCMAKE_EXPORT_COMPILE_COMMANDS=1" if (g:project_type == 'dlcpro') let args .= " -DCMAKE_TOOLCHAIN_FILE=../".g:ProjectSrcDirRel."/Toolchain-target.cmake" let args .= " -DBUILD_TARGET=target" let args .= " -DQT5_INSTALL_PATH=dlcpro-sdk/sysroot-target/usr/local/Qt-5.4.1" elseif (g:project_type == 'topmode') let args .= " -DCMAKE_TOOLCHAIN_FILE=../".g:ProjectSrcDirRel."/Toolchain-target.cmake" let args .= " -DSYSROOT=~/topmode/topmode-sdk/sysroot-target" elseif (g:project_type == 'topmode-gui') endif execute 'AsyncRun -mode='.a:async_mode.' -save=2 -cwd='.g:ProjectBuildDir.' @ cmake '.args endfunction function s:Call_and_log(cmd) echom a:cmd let r = system(a:cmd) let e = v:shell_error if (e != 0) echom 'return value: '.e.', output: "'.r.'"' endif return v:shell_error endfunction "function s:CopyFirmware(command) " let command = 'bash '.s:GdbSlave.' -h '.g:DeviceIP.' '.a:command "" if a:command == 'update' || a:command == 'start-debug' " let command .= ' '.g:Program "" endif " echom command " call system(command) "endfunction function s:DlcproEmission(state) call s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "echo '.state.' > /sys/bus/i2c/devices/200-0028/emission_button_state"') endfunction function s:DeviceUpdateProgram() call s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "killall -q gdbserver start-dc.sh '.fnamemodify(g:ProgramRemote, ':t').'"') sleep 2 " call s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "killall -q -9 gdbserver start-dc.sh '.g:ProgramRemote.'"') call s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "killall -q -9 gdbserver start-dc.sh '.fnamemodify(g:ProgramRemote, ':t').'"') let r = s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "mount -o rw,remount / && rm -f '.g:ProgramRemote.'" && scp '.g:SshOpts.' "'.g:Program.'" "root@'.g:DeviceIP.':'.g:ProgramRemote.'"') return r endfunction function s:DeviceFirmwareUpdateStart() let r = s:DeviceUpdateProgram() if (r == 0) call s:Call_and_log('ssh '.g:SshOpts.' -f root@'.g:DeviceIP.' "{ exec '.g:ProgramRemote.' 2>&1 | logger -t "'.g:ProgramRemote.'" -p user.err; } &"') endif endfunction function s:DeviceGdbDebug() call s:Call_and_log('pkill --full gdbserver') call s:Call_and_log('ssh '.g:SshOpts.' root@'.g:DeviceIP.' "killall -q -9 gdbserver start-dc.sh '.fnamemodify(g:ProgramRemote, ':t').'"') call s:Call_and_log('ssh '.g:SshOpts.' -L localhost:'.g:GdbPort.':localhost:'.g:GdbPort.' "root@'.g:DeviceIP.'" '.g:SshOpts2.' gdbserver --multi localhost:'.g:GdbPort.' &') endfunction function s:DeviceGdbDebugAttach() call s:Call_and_log('pkill --full gdbserver') call s:Call_and_log('ssh '.g:SshOpts.' -L localhost:'.g:GdbPort.':localhost:'.g:GdbPort.' "root@'.g:DeviceIP.'" '.g:SshOpts2.' "gdbserver localhost:'.g:GdbPort.' --attach \`pidof '.fnamemodify(g:ProgramRemote, ':t').'\` &"') endfunction let g:DlcProBasePath = "/jenkins/workspace/pro--firmware_release_1.9.0-DCESJ5C5R577IG5QFEWTML22UFDDZCJDGFLMDA4DCD3V2ZAGVEJA/source/" function s:DeviceDebug(attach) if (a:attach == 0) let r = s:DeviceUpdateProgram() if (r != 0) echoerr "DeviceUpdateProgram() failed!" else call s:DeviceGdbDebug() sleep 2 ConqueGdbTab execute "ConqueGdbCommand target extended-remote localhost:".g:GdbPort execute "ConqueGdbCommand set remote exec-file ".g:ProgramRemote execute "ConqueGdbCommand file ".g:Program ConqueGdbCommand break main ConqueGdbCommand run endif else call s:DeviceGdbDebugAttach() sleep 1 execute "ConqueGdbTab ".g:Program execute "ConqueGdbCommand target remote localhost:".g:GdbPort " get remote src path with gdb: info sources or gdb: break main execute "ConqueGdbCommand set substitute-path ".g:DlcProBasePath." ".s:ProjectSrcDir endif execute "ConqueGdbCommand set solib-search-path ".g:GdbRoot."/arm-cortexa8-linux-gnueabi/lib/".":".g:GdbRoot."/sysroot-arm-cortexa8-linux-gnueabi/lib/".":".g:GdbRoot."/sysroot-arm-cortexa8-linux-gnueabi/usr/lib/" ConqueGdbCommand set can-use-hw-watchpoints 0 endfunction " ================ " Regression Tests " ================ command -nargs=1 -complete=file DlcProRegtest call s:DlcProRegtest('g:DeviceIP', '', '0', '1', 'DLpro', '--capture=no', '') command -nargs=1 -complete=file DlcProRegtestDlPro call s:DlcProRegtest('192.168.54.24', 'elab-dlcpro', '2', '1', 'DLpro', '', '') command -nargs=1 -complete=file DlcProRegtestTaPro call s:DlcProRegtest('192.168.54.9', 'elab-dlcpro', '3', '1', 'TApro', '-m "not usb and not usbstick"', '') command -nargs=1 -complete=file DlcProRegtestCtl call s:DlcProRegtest('192.168.54.27', 'elab-dlcpro', '1', '1', 'CTL', '-m "not usb and not usbstick"', '') command -nargs=1 -complete=file DlcProRegtestDualDl call s:DlcProRegtest('192.168.54.28', 'elab-dlcpro', '4', '2', 'DLpro', '-m "not usb and not usbstick"', '') command -nargs=1 -complete=file DlcProRegtestDualDl1 call s:DlcProRegtest('192.168.54.28', 'elab-dlcpro', '4', '1', 'DLpro', '-m "not usb and not usbstick"', '') command -nargs=1 -complete=file DlcProRegtestShgPro call s:DlcProRegtest('192.168.54.29', 'elab-dlcpro', '5', '1', 'TA-SHGpro', '-m "not usb and not usbstick"', '') function s:DlcProRegtest(ip, powerswitch_ip, powerplug, laser_count, laser_type, opts, arguments) execute "wa" if (a:ip == 'g:DeviceIP') let ip = g:DeviceIP else let ip = a:ip endif let archive_dir = g:ProjectBuildDir."/artifacts" " Build license tool let license_builddir = s:ProjectBaseDir.'/build.license' let licensetool = license_builddir."/libdlcprolicense/dlcprolicense-tool" let license_cmake = "cmake -DLICENSE_TOOL=1 -DCMAKE_BUILD_TYPE=Release ".s:ProjectSrcDir."/license" let license_make = "make dlcprolicense-tool" if !executable(licensetool) call mkdir(license_builddir, "p") call term_start(license_cmake, {'cwd' : license_builddir}) sleep 2 call term_start(license_make, {'cwd' : license_builddir}) sleep 5 endif " Execute pytest let test_dir = s:ProjectSrcDir."/test" let test_cmd = \"python3 -u -m pytest ". \"--showlocals --tb=long --verbose --cache-clear ". \"--junit-xml=regtest.".a:laser_type.".xml ". \"--laser_count=".a:laser_count." ". \"--laser1_type=".a:laser_type." ". \"--log_file=regtest.".a:laser_type.".log ". \"--target_ip=".ip." ". \"--powerswitch_ip=".a:powerswitch_ip." ". \"--powerswitch_passwd=nimda ". \"--power_plug=".a:powerplug." ". \"--power_plug_fan=8"." ". \"--version_file=".archive_dir."/VERSION ". \"--vcsid_file=".archive_dir."/vcsid.h ". \"--firmware_file=".archive_dir."/DLCpro-archive.fw ". \"--license_tool=".licensetool." ". \"--license_keyfile=".s:ProjectSrcDir."/license/libdlcprolicense/rsa-private.key ". \"--skip_shutdown_after_test ". \"--skip_fw_update ". \"--override log_cli=1 --override log_cli_level=DEBUG --override log_file_level=DEBUG ". \a:opts." ".a:arguments echom test_cmd call term_start(test_cmd, {'cwd' : test_dir}) endfunction " ====== " Pytest " ====== command -nargs=* Pytest call s:Pytest('') function s:Pytest(testscripts) let async_mode = 0 let archive_dir = g:ProjectBuildDir."/artifacts" call asyncrun#quickfix_toggle(10, 1) let args = '' let args .= ' --target_ip="'.g:DeviceIP.'"' let args .= ' --version_file="'.archive_dir.'/VERSION'.'"' let args .= ' --svnrevision_file="'.archive_dir.'/svnrevision.h'.'"' let args .= ' --firmware_file="'.archive_dir.'/DLCpro-archive.fw'.'"' let args .= ' --capture=no' execute 'AsyncRun -mode='.async_mode.' -save=2 -cwd='.s:ProjectSrcDir.'/test @ python3 -m pytest '.args.' '.a:testscripts endfunction " ------------- " YouCompleteMe " ------------- let g:ycm_max_diagnostics_to_display = 1000 let g:ycm_filter_diagnostics = { \ "cpp": { \ "regex": [ \ "'auto_ptr' is deprecated", \ "'boost/tuple.hpp' file not found", \ "no template named 'tuple' in namespace 'boost'", \ "no matching function for call to 'throw_exception'", \ "variable templates are a C\\+\\+14 extension", \ "inline variables are a C\\+\\+17 extension", \ "expected ',' or '>' in template-parameter-list", \ "expected a qualified name after 'typename'", \ "expected ';' at end of declaration list", \ "'std::unordered_set::_Hashtable' \\(aka 'int'\\) is not a class, namespace, or enumeration", \ "no template named '__uset_hashtable'", \ ], \ } \} " =============== " Stash / Unstash " =============== function s:BuildDirStash(suffix) if a:suffix != '' let suffix = a:suffix else let suffix = fugitive#head() endif let target_dir = g:ProjectBuildDir.'.'.suffix let subsuffix = 1 while isdirectory(target_dir) let target_dir = g:ProjectBuildDir.'.'.suffix.'.'.subsuffix let subsuffix += 1 endwhile call rename(g:ProjectBuildDir, target_dir) " create new build dir and copy eclipse files call mkdir(g:ProjectBuildDir) call execute('!cp '.target_dir.'/.cproject '.g:ProjectBuildDir, 'silent!') call execute('!cp '.target_dir.'/.project '.g:ProjectBuildDir, 'silent!') endfunction function s:BuildDirUnStash(suffix) if a:suffix != '' let suffix = a:suffix else let suffix = fugitive#head() endif let source_dir = g:ProjectBuildDir.'.'.suffix if !isdirectory(source_dir) echoerr 'source directory '.source_dir.' not found' elseif isdirectory(g:ProjectBuildDir) && !empty(globpath(g:ProjectBuildDir, '*', 0, 1)) echoerr 'target directory '.g:ProjectBuildDir.' exists and is not empty' else echom 'restore '.source_dir.' to '.g:ProjectBuildDir call delete(expand(g:ProjectBuildDir), 'rf') call rename(expand(source_dir), expand(g:ProjectBuildDir)) endif endfunction " update PDH-firmware "/opt/app/bin/jamplayer -sm3 -aconfigure PDD.jam "/opt/app/bin/jamplayer -sm3 -aprogram PDD.jam "/opt/app/bin/jamplayer -sm3 -areconfigure /opt/app/fpga-configurations/reconfigure.jam " read/write eeprom "/opt/app/bin/eepromio " update python tags " cd ~/dclpro/firmware " ctags --recurse --languages=python src " ------ " Pandoc " ------ command TopticaBeamer execute('!pandoc -s -t beamer -H toptica-style.tex -o %:r.pdf %')