@wangjun403 分享的一键编译运行的函数写得真心不错

求指正，修改成这样有没有问题？ @VimMSF @wangjun403
if has("win32") || has("win95") || has("win64") || has("win16")
let s:isWindows=1
else
let s:isWindows=0
endif
function! CompileFile()
if expand("%:p:h")!=getcwd()
echohl WarningMsg
\| echo "Fail to make! This file is not in the current directory!"
\| echohl None
return
endif
let sourcefileename=expand("%:t")
if (sourcefileename=="" || (&filetype!="cpp" && &filetype!="c"))
echohl WarningMsg
\| echo "Fail to make! Please select the right file!"
\| echohl None
return
endif
let deletedspacefilename=substitute(sourcefileename,' ','','g')
if strlen(deletedspacefilename)!=strlen(sourcefileename)
echohl WarningMsg
\| echo "Fail to make! Please delete the spaces in the filename!"
\| echohl None
return
endif
if &filetype=="c"
if s:isWindows==1
setlocal makeprg=gcc\ -Wall\ -Wconversion\ -o\ %<.exe\ %
else
setlocal makeprg=gcc\ -Wall\ -Wconversion\ -o\ %<\ %
endif
elseif &filetype=="cpp"
if s:isWindows==1
setlocal makeprg=g++\ -o\ %<.exe\ %
else
setlocal makeprg=g++\ -o\ %<\ %
endif
" elseif &filetype=="cs"
" setlocal makeprg=csc\ \/nologo\ \/out:%<.exe\ %
endif
if(s:isWindows==1)
let outfilename=substitute(sourcefileename,'\(\.[^.]*\)' ,'.exe','g')
let toexename=outfilename
else
let outfilename=substitute(sourcefileename,'\(\.[^.]*\)' ,'','g')
let toexename=outfilename
endif
if filereadable(outfilename)
if(s:isWindows==1)
let outdeletedsuccess=delete(getcwd()."\\".outfilename)
else
let outdeletedsuccess=delete("./".outfilename)
endif
if(outdeletedsuccess!=0)
setlocal makeprg=make
echohl WarningMsg
\| echo "Fail to make! I cannot delete the ".outfilename
\| echohl None
return
endif
endif
execute "make"
setlocal makeprg=make
if getqflist() == [] "compile successfully and no warning
let l:flag = 0
silent execute "cclose"
execute "normal :"
if filereadable(outfilename)
if(s:isWindows==1)
execute "!".toexename
else
execute "!./".toexename
endif
endif
else
for l:inx in getqflist()
for l:val in values(l:inx)
if l:val =~ 'error'
let l:flag = 1
break
elseif l:val =~ 'warning'
let l:flag = 2
else
let l:flag = 0
endif
endfor
if l:val =~ 'error'
break
endif
endfor
endif
if l:flag == 1
execute "cwindow"
elseif l:flag == 2
let l:select = input('There are warnings! [r]un or [s]olve? ')
if l:select == 'r'
execute "normal :"
if filereadable(outfilename)
if(s:isWindows==1)
execute "!".toexename
else
execute "!./".toexename
endif
endif
execute "cwindow"
elseif l:select == 's'
execute "cwindow"
else
echohl WarningMsg
\| echo "Input error!"
\| echohl None
endif
else
execute "cwindow"
endif
endfunction

行不行，试下不就知道了