command -nargs=1 -complete=dir DlcPro call s:ProjectSet('dlcpro-new', '<args>')
command -nargs=1 -complete=dir DlcProOld call s:ProjectSet('dlcpro', '<args>')
command -nargs=1 -complete=dir DlcProShg call s:ProjectSet('shg', '<args>')
command -nargs=1 -complete=dir DlcProGui call s:ProjectSet('dlcpro-gui', '<args>')
command -nargs=1 -complete=dir DlcProTui call s:ProjectSet('dlcpro-tui', '<args>')
command -nargs=1 -complete=dir DlcProTuiSimulator call s:ProjectSet('dlcpro-tui-simulator', '<args>')
command -nargs=1 -complete=dir DlcProCan call s:ProjectSet('dlcpro-can', '<args>')
command -nargs=1 -complete=dir DlcProSpecalyser call s:ProjectSet('dlcpro-specalyser', '<args>')
command -nargs=1 -complete=dir Topmode call s:ProjectSet('topmode', '<args>')
command -nargs=1 -complete=dir TopmodeGui call s:ProjectSet('topmode-gui', '<args>')
command -nargs=1 -complete=dir DigiFalc call s:ProjectSet('digifalc', '<args>')
command -nargs=1 -complete=dir ServoBoard call s:ProjectSet('servoboard', '<args>')
command -nargs=1 -complete=dir DlMotor call s:ProjectSet('dl-motor', '<args>')
command -nargs=1 -complete=dir Pfd call s:ProjectSet('pfd', '<args>')
command -nargs=1 -complete=dir Tiny call s:ProjectSet('tiny', '<args>')
command -nargs=1 -complete=dir OperationPanelF1 call s:ProjectSet('operation-panel-f1', '<args>')
command -nargs=1 -complete=dir OperationPanelF4 call s:ProjectSet('operation-panel-f4', '<args>')
command -nargs=1 -complete=dir DeCoF call s:ProjectSet('decof', '<args>')
command DeviceFirmwareUpdate call s:DeviceFirmwareUpdate()
command -nargs=? -complete=file JenkinsLinter call s:Jenkins_linter('<args>')

let s:path_orig = $PATH
set titlestring=

function! s:ProjectSet(project_type, project_base_dir)
    execute "DirenvExport"
    let g:project_type = a:project_type
    let g:jenkins_url = 'http://jenkins.toptica.com'

    " 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-new')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware'
        elseif (g:project_type == 'dlcpro')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware'
        elseif (g:project_type == 'dlcpro-tui')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware'
        elseif (g:project_type == 'dlcpro-tui-simulator')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/firmware.tui-simulator'
        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'
        elseif (g:project_type == 'digifalc')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/falc/firmware'
        elseif (g:project_type == 'servoboard')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/mta/firmware'
        elseif (g:project_type == 'dl-motor')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/dl-motor'
        elseif (g:project_type == 'pfd')
            let s:ProjectBaseDir = '/home/stefan/dlcpro/pfd/firmware'
        else
            echo "no project"
        endif
    endif

    let g:ProjectSrcDirRel = 'src'
    let s:ProjectSrcDir = s:ProjectBaseDir.'/'.g:ProjectSrcDirRel

    " Direnv
    let $DIRENV_DIR = s:ProjectBaseDir

    function! g:Compiler_version()
        if exists('g:ProjectBuildDir')
            let cmakefile = g:ProjectBuildDir . '/CMakeCache.txt'
            if filereadable(cmakefile)
                for line in readfile(cmakefile)
                    if match(line, 'NEW_COMPILER:BOOL=OFF') >= 0
                        return 'old'
                    elseif match(line, 'NEW_COMPILER:BOOL=ON') >= 0
                        return 'new'
                    endif
                endfor
            endif
        endif
        return 0
    endfunction

    " vim path
    execute 'cd '.s:ProjectSrcDir
    execute 'set path-=./**'
    execute 'set path+=' .  s:ProjectSrcDir.'/**'

    let s:invoke_options = '' " used for --project=...

    if (count(['pfd', 'tiny'], g:project_type) > 0)
        let g:ProjectBuildDir = s:ProjectSrcDir.'/.build/target/firmware/Debug'
        let g:DebugRemote = v:true
        let g:termdebugger = 'arm-none-eabi-gdb'
        let s:gdb_connect_script = g:ProjectBuildDir.'/gdbinit'
    elseif (count(['dlcpro', 'dlcpro-new'], g:project_type) > 0)
        let s:invoke_options = ' --project='.g:project_type
        set wildignore-=**/firmware/src/device-control/**
        set wildignore+=**/shg-firmware/**
        set titlestring=%<%t\ (%{expand('%:p:h')})%=project:\ %{g:project_type}\ \ \ \ compiler:\ %{g:Compiler_version()}
        let g:DeviceIP = 'dlc_pro__040083'
        let g:DebugRemote = v:true
        let g:ProjectBuildDir = s:ProjectSrcDir.'/.build/'.g:project_type
        if (g:project_type == 'dlcpro-new')
            let s:firware_file_name = 'DLCpro-archive-SSW7.fw'
        else
            let s:firware_file_name = 'DLCpro-archive.fw'
        endif
        let g:termdebugger = 'arm-none-eabi-gdb'
        let s:gdb_connect_script = g:ProjectBuildDir.'/gdbinit'
        command! DlcProGuiStart execute("!~/dlcpro/pc-gui/start-gui&")
    elseif ((g:project_type == 'dlcpro-tui') || (g:project_type == 'dlcpro-tui-simulator'))
        let s:Program = '/user-interface/src/user-interface'
        let s:Elffile = s:Program
        let g:ProgramRemote = '/opt/app/bin/user-interface'
        set wildignore-=**/firmware/src/device-control/**
        set wildignore+=**/shg-firmware/**
        let g:DeviceIP = 'dlc_pro__040083'
        let g:DebugRemote = v:true
    elseif (g:project_type == 'dlcpro-can')
        let s:Program = '/canopen/can-updater'
        let s:Elffile = s:Program
        let g:ProgramRemote = '/opt/app/bin/can-updater'
        set wildignore-=**/firmware/src/device-control/**
        set wildignore+=**/shg-firmware/**
        let g:DeviceIP = 'dlc_pro__040083'
        let g:DebugRemote = v:true
    elseif (g:project_type == 'dlcpro-specalyser')
        let s:Program = '/specalyser/specalyser'
        let s:Elffile = s:Program
        let g:ProgramRemote = '/opt/app/bin/specalyser'
        set wildignore-=**/firmware/src/device-control/**
        set wildignore+=**/shg-firmware/**
        let g:DeviceIP = 'dlc_pro__040083'
        let g:DebugRemote = v:true
    elseif (g:project_type == 'shg')
        let s:Program = '/shg-firmware/device-control/device-control-shg'
        let s:Elffile = s:Program
        let g:ProgramRemote = '/opt/app/bin/device-control-shg'
        set wildignore-=**/shg-firmware/**
        set wildignore+=**/firmware/src/device-control/**
        let g:DeviceIP = 'dlc_pro__040083'
        let g:DebugRemote = v:true
        " let g:GdbPort = '6666'
        " let g:SshOpts = '-o ForwardAgent=yes -o ProxyCommand="ssh -o RemoteCommand=none -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"
    elseif (g:project_type == 'dlcpro-gui')
        let g:ProjectBuildDir = s:ProjectSrcDir.'/.build' " FIXME (for DeviceDebug)
        let s:Program = '/TOPAS_DLC_pro'
        let s:Elffile = s:Program
        let g:termdebugger = 'gdb'
        let g:DebugRemote = v:false
        command! DlcProGuiStart execute("!~/dlcpro/pc-gui/start-gui&")
    elseif (g:project_type == 'topmode')
        let g:ProjectBuildDir = s:ProjectSrcDir.'/.build/'
        let g:DeviceIP = 'topmode_stefan'
        let g:DebugRemote = v:true
        let g:termdebugger = 'arm-none-eabi-gdb'
        let s:gdb_connect_script = g:ProjectBuildDir.'/gdbinit'
        let s:firware_file_name = 'TopMode-CHARM-Control-1.5.4-dev.fw'
        command! TopmodeGuiStart execute("!~/topmode/pc-gui/start-gui&")
    elseif (g:project_type == 'topmode-gui')
        let g:DebugRemote = v:false
        command! TopmodeGuiStart execute("!~/topmode/pc-gui/start-gui&")
    elseif (g:project_type == 'digifalc')
        let s:Program = '/digifalc-image.bin'
        let s:Elffile = '/application/digifalc.elf'
        let g:DebugRemote = v:true
        let g:termdebugger = 'arm-none-eabi-gdb'
    elseif (g:project_type == 'servoboard')
        let s:Program = '/servo-board-image.bin'
        let s:Elffile = '/application/servo-board.elf'
        let g:DebugRemote = v:true
        let g:termdebugger = 'arm-none-eabi-gdb'
    elseif (g:project_type == 'dl-motor')
        let s:Program = '/dl-motor-image.bin'
        let s:Elffile = '/application/dl-motor.elf'
        let g:DebugRemote = v:true
        let g:termdebugger = 'arm-none-eabi-gdb'
    elseif (g:project_type == 'operation-panel-f1')
        let g:stm32_target = 'STM32F10X'
        let s:Program = '/firmware/operation_panel_'.g:stm32_target.'.bin'
        let s:Elffile = '/firmware/operation_panel_'.g:stm32_target.'.elf'
        " let s:makegoals = ['artifacts']
        let g:DebugRemote = v:true
        " let g:GdbPort = '3333'
        let g:termdebugger = 'arm-none-eabi-gdb'
        " let s:stm_cfg = 'stm32f1x'
    elseif (g:project_type == 'operation-panel-f4')
        let g:stm32_target = 'STM32F4XX'
        let s:Program = '/firmware/operation_panel_'.g:stm32_target.'.bin'
        let s:Elffile = '/firmware/operation_panel_'.g:stm32_target.'.elf'
        " let s:makegoals = ['artifacts']
        let g:DebugRemote = v:true
        " let g:GdbPort = '3333'
        let g:termdebugger = 'arm-none-eabi-gdb'
        " let s:stm_cfg = 'stm32f4x'
    elseif (g:project_type == 'decof')
        " let s:makegoals = ['all']
        let g:DebugRemote = v:false
    else
        echo "no project"
    endif

    " Settings for invoke development
    let s:invoke = 'invoke'
    let s:tasks_file_dev = '/home/stefan/tools/invoke/'.g:project_type.'/tasks.py'
    if filereadable(s:tasks_file_dev)
        call system('cp '.s:tasks_file_dev.' tasks.py') " copy development version to project
    elseif filereadable('tasks.py')
        " do nothing
    else
        echoerr 'tasks.py not found'
    endif

    " 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
    if exists("s:Program")
        let g:Program = g:ProjectBuildDir.s:Program
        let g:Elffile = g:ProjectBuildDir.s:Elffile
    endif
    command! -complete=customlist,GetAllMakeCompletions -nargs=* MakeCmd call s:Make('<args>', 'async')

    " 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

    function! s:DeviceFirmwareUpdate()
        call s:Make('kill', 'bang')
        call s:Make('flash', 'bang')
        call s:Make('start', 'bang')
    endfunction

    command! DeviceDebug call s:DeviceDebug(0)
    command! DeviceDebugAttach call s:DeviceDebug(1)

    " little helpers
    let $QT_FONT_DPI=96 " Size for qt-application in debugger


endfunction

" ====
" Make
" ====

function! s:Make(args, async_mode)
    call asyncrun#quickfix_toggle(10, 1)
    let l:makeprg = s:invoke.' -e'
    let l:args = a:args
    if l:args == ''
        let l:args = 'build' " needed for --project
    endif

    let task = split(l:args)[0]
    let options = system(s:invoke.' --complete -- '.task.' -')

    " Add --project if necessary
    if options =~ '--project' && a:args !~ '--project'
        let l:args .= ' --project='.g:project_type
    endif
    " Add --device-ip if necessary
    if options =~ '--device-ip' && l:args !~ '--device-ip'
        let l:args .= ' --device-ip='.g:DeviceIP
    endif
    " Add --build-type=Debug
    if options =~ '--build-type' && l:args !~ '--build-type'
        let l:args .= ' --build-type=Debug'
    endif

    let &makeprg = l:makeprg
    execute 'AsyncRun -mode='.a:async_mode.' -save=2 -program=make @ '.l:args
endfunction

" Tab-completion is done with plugin vim-bash-completion
let $BASH_COMPLETION_DIR = '/home/stefan/.invoke'
function! GetAllMakeCompletions(ArgLead, CmdLine, CursorPos)
    let l:words = split(a:CmdLine)
    let l:words[0] = 'invoke'
    let l:command = join(l:words)
    return bash#complete(l:command)
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! g:JLinkSWOviewer()
    let cmd = '/JLinkSWOViewerCLExe -device STM32H743ZI -itmmask 0xffffffff -swofreq 450000'
    call asyncrun#quickfix_toggle(10, 1)
    execute 'AsyncRun -mode=async @ ' . cmd
endfunction

function! s:SendToDebugger(command)
    call term_sendkeys('', a:command . "\n")
endfunction

function! s:StartDebugger(elffile, attach)
    if (a:attach == 0)
        Termdebug
    else
        execute 'Termdebug ' . a:elffile
    endif
endfunction

let g:DlcproBasePath = "/jenkins/workspace/pro--firmware_release_1.9.0-DCESJ5C5R577IG5QFEWTML22UFDDZCJDGFLMDA4DCD3V2ZAGVEJA/source/"
function! s:DeviceDebug(attach)
    if g:DebugRemote
        let kill_cmd = s:invoke.' -e kill'
        if exists('g:DeviceIP')
            let kill_cmd .= ' --device-ip='.g:DeviceIP
        endif
        call system(kill_cmd)
        autocmd! User TermdebugStartPre
        autocmd! User TermdebugStartPost
        autocmd! User TermdebugStopPost
        let gdb_server_cmd = s:invoke.' -e gdb-server'
        if exists('g:DeviceIP')
            let gdb_server_cmd .= ' --device-ip='.g:DeviceIP
        endif
        let gdb_server_cmd .= s:invoke_options
        if v:true
            call system(gdb_server_cmd.'&')
        else
            call asyncrun#quickfix_toggle(3, 1)
            execute 'AsyncRun '.gdb_server_cmd
            autocmd User TermdebugStopPost execute 'AsyncStop'
        endif
        sleep 2
        if exists('s:gdb_connect_script')
            autocmd User TermdebugStartPost call term_sendkeys('',"source ".s:gdb_connect_script."\n")
        endif
        Termdebug
        call s:SendToDebugger('set confirm off')
        " Close Program window
        execute '2hide'
    else
        call s:StartDebugger(g:Elffile, a:attach)
        call s:SendToDebugger('file '.g:Elffile)
        call s:SendToDebugger('break main')
        call s:SendToDebugger('run')
    endif
endfunction

" ================
" Regression Tests
" ================

command -nargs=1 -complete=file DlcproRegtest    call s:DlcproRegtest(g:DeviceIP, 'DL-CBCpro', g:DlcproRegtest_marks, '<args>')
command -nargs=? -complete=file DlcproRegtestDL call s:DlcproRegtest('dl', 'DLpro', '', '<args>')
command -nargs=? -complete=file DlcproRegtestCTL call s:DlcproRegtest('ctl', 'CTL', '', '<args>')
command -nargs=? -complete=file DlcproRegtestSHG call s:DlcproRegtest('shg', 'TA-SHGpro', '', '<args>')
command -nargs=? -complete=file DlcproRegtestDual call s:DlcproRegtest('dual-dl', '', '', '<args>')
command -nargs=? -complete=file DlcproRegtestQuad call s:DlcproRegtest('quad-dl', 'DLpro', '', '<args>')

let g:DlcproRegtest_fast_restart = 1
let g:DlcproRegtest_smoke = 1
let g:DlcproRegtest_fw_update = 0
let g:DlcproRegtest_marks = 'usb, usbstick, si, si1, servo_control, eom, cavity, cell_spectroscopy, falc, pfd, smc'

let g:TopmodeRegtest_smoke = 0

function! s:DlcproRegtest(device_ip, laser1_type, marks, tests)
    execute "wa"

    let regtest_cmd = 'time'
                \.' '.s:invoke
                \.' -e'
                \.' regtest'
                \.' --device-ip='.a:device_ip
                \.' --laser1-type='.a:laser1_type

    let firmware_file = g:ProjectBuildDir.'/artifacts/'.s:firware_file_name
    if filereadable(firmware_file)
        let regtest_cmd .= ' --firmware-file='.firmware_file
                    \.' --version-file='.g:ProjectBuildDir.'/artifacts/VERSION'
    endif

    let regtest_cmd .= ' --marks="'.a:marks.'"'
    if g:DlcproRegtest_fast_restart == 1
        let regtest_cmd .= ' --fast-restart'
    endif
    if g:DlcproRegtest_fw_update == 1
        let regtest_cmd .= ' --do-fw-update'
    endif
    if g:DlcproRegtest_smoke == 1
        let regtest_cmd .= ' --smoke'
    endif
    if (a:tests != "")
        let regtest_cmd .= ' --tests="'.a:tests.'"'
    endif

    echo regtest_cmd
    execute "terminal ++shell " . regtest_cmd
endfunction

command -nargs=? -complete=file TopmodeRegtest call s:TopmodeRegtest('', '<args>')
function! s:TopmodeRegtest(marks, tests)
    execute "wa"

    let regtest_cmd = 'time'
                \.' '.s:invoke
                \.' -e'
                \.' regtest'
                \.' --device-ip='.g:DeviceIP
                " \.' --do-fw-update'
                " \.' --smoke'

    let firmware_file = g:ProjectBuildDir.'/artifacts/'.s:firware_file_name
    if filereadable(firmware_file)
        let regtest_cmd .= ' --firmware-file='.firmware_file
    endif
    if g:DlcproRegtest_fw_update == 1
        let regtest_cmd .= ' --do-fw-update'
    endif
    if g:TopmodeRegtest_smoke == 1
        let regtest_cmd .= ' --smoke'
    endif
    let regtest_cmd .= ' --marks="'.a:marks.'"'
    if (a:tests != "")
        let regtest_cmd .= ' --tests="'.a:tests.'"'
    endif

    echo regtest_cmd
    execute "terminal ++shell " . regtest_cmd
endfunction

" ------
" Pandoc
" ------
command TopticaBeamer execute('!pandoc -s -t beamer -H toptica-style.tex -o %:r.pdf %')

" -----------------
" Jenkins validator
" -----------------
function! s:Jenkins_linter(jenkinsfile)
    if a:jenkinsfile == ''
        let jenkinsfile = expand("%")
    else
        let jenkinsfile = a:jenkinsfile
    endif

    if !filereadable(jenkinsfile)
        echoerr("File not found: ".jenkinsfile)
        return
    endif

    if !exists("s:user")
        let s:user = input("jenkins-user:")
    endif
    if !exists("s:passwd")
        let s:passwd = inputsecret("password:")
        echo "\n"
    endif
    let user_pass = s:user.":".s:passwd

    let l:out = system("curl --no-progress-meter --user '".user_pass."' -X POST -F 'jenkinsfile=<".jenkinsfile."' ".g:jenkins_url."/pipeline-model-converter/validate")
    if match(l:out, "HTTP ERROR 401") >= 0
        " Forget credentials on authorization error
        unlet s:user
        unlet s:passwd
    endif
    echo l:out
endfunction