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 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

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

"功能函数
function GoToTag()
        try
                "execute ":tag vector"
                execute "normal \"
                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 \"
                call AddIncludeClause(s:clause)
        catch
                echo "include header failure,please save file at first!"
        endtry
endfunction

"映射
nnoremap zx :call GoToTag()

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