Vim插件之引入头文件

这几天一直在折腾Vim开发环境，Vim下面无法引入头文件，eclipse 的CDT好歹还有头文件提示（ominicomplete貌似我是无法完成的），eclipse JDT更是能够import类包

于是动手自己写了一个vim插件，其实也不是很方便，这个插件依赖A.vim和taglist.vim，基本原理是在某个单词（函数或类）tag上输入命令，先自动跳转到tag定义的文件，然后找到头文件，取出该文件的绝对路径，与tags目录进行比较，得到相对于tag的相对路径，所以，这也要求tags的设置是头文件的寻找路径，并且存在一定错误的几率，不过聊胜于无，能省力多少就省力多少吧。熟悉一下vim插件的开发

if exists("loaded_generate_include_corey")
finish
endif
let loaded_generate_include_corey=1

"将include语句添加到当前include语句之后
function <SID>AddIncludeClause(includeClause)
let s:curline=line(".")
while s:curline>0
let s:line=getline(s:curline)
if stridx(s:line,"#include")>=0
break
else
let s:curline-=1
endif
endwhile
call append(s:curline,a:includeClause)
endfunction

"判断是否为绝对路径
function IsAbsPath(path)
let s:firstChar=strpart(a:path,0,1)
if s:firstChar=="/"
return 1
else
return 0
endif
endfunction

"获取绝对路径，如果是相对路径会进行转换
function GetAbsPath(path)
let s:fc=strpart(a:path,0,1)
if IsAbsPath(a:path)
return a:path
elseif s:fc=="."
return substitute(a:path,"^\.",getcwd(),"")
else
return getcwd()."/".a:path
endif
endfunction

"是否是头文件
function IsHeadFile(path)
let s:extendname=strpart(a:path,strlen(a:path)-2,2)
if s:extendname==".h" || s:extendname==".H"
return 1
else
return 0
endif
endfunction

"获取tags变量的绝对路径
function GetTags()
let s:tagpaths=split(&tags,",")
let s:index=0
let s:abspaths=s:tagpaths
while s:index<len(s:tagpaths)
let s:abspath=GetAbsPath(get(s:tagpaths,s:index))
let s:abspathdir=GetCurDir(s:abspath)
"echo s:abspathdir
let s:abspaths[s:index]=s:abspathdir
"echo s:abspaths[s:index]
let s:index+=1
"add(s:abspaths,s:abspathdir)

endwhile
return s:abspaths
endfunction

"获取当前路径的文件夹
function GetCurDir(path)
return strpart(a:path,0,strridx(a:path,"/")+1)
endfunction

"打印tags，用于调试
function ShowTags()
echo GetTags()
endfunction

"获取头文件的相对路径
function GetHeaderFileName(headerFileAbsPath)
let index=0
let s:tl=GetTags()
while index<len(s:tl)
let _tag=get(s:tl,index)
if stridx(a:headerFileAbsPath,_tag)>=0
return substitute(a:headerFileAbsPath,_tag,"","")
else
let index+=1
endif
endwhile
return a:headerFileAbsPath
endfunction

"功能函数
function <SID>GoToTag()
try
"execute ":tag vector"
execute "normal \<C-]>"
if !IsHeadFile(bufname("%"))
execute ":A"
endif
let s:headname=bufname("%")
let s:absheadname=GetAbsPath(s:headname)
let s:relheadname=GetHeaderFileName(s:absheadname)

let s:clause="#include <". s:relheadname .">"
call setreg('',s:clause)
execute "normal \<C-t>"
call <SID>AddIncludeClause(s:clause)
catch
echo "include header failure,please save file at first!"
endtry
endfunction

"映射
nnoremap zx :call <SID>GoToTag()<CR>

我们只需要在响应的tag按下zz,就会将include <***>语句添加到当前文件的已有include语句后面