VIM 自动加载Tags脚本

最新推荐文章于 2023-10-29 16:39:45 发布

weixin_30338743

最新推荐文章于 2023-10-29 16:39:45 发布

阅读量293

点赞数

文章标签：开发工具

原文链接：http://www.cnblogs.com/ellusak/archive/2012/04/18/2455657.html

版权

 1 function! s:CheckAndAddTagFile(path)
 2     if stridx(a:path, '/') == (strlen(a:path) - 1)
 3         let l:tags = a:path . 'tags'
 4     else
 5         let l:tags = a:path . '/tags'
 6     endif
 7 
 8     if stridx(&tags, l:tags) != -1
 9         echo l:tags "already added"
10         return
11     endif
12 
13     if !filereadable(l:tags)
14         echo l:tags "not readable"
15         return
16     endif
17 
18     let &tags =  len(&tags) == 0 ? l:tags : &tags . ',' . l:tags
19     echo l:tags "added"
20 
21     unlet! l:tags
22 endfunction
23 
24 function! s:StrEndWith(str, pattern)
25     if strridx(a:str, a:pattern) == strlen(a:str) - strlen(a:pattern)
26         return 1
27     else
28         return 0
29     endif
30 endfunction
31 
32 function! s:SplitPath(path)
33     let l:start = 0
34     let l:list = []
35 
36     while 1 == 1
37         let l:idx = stridx(a:path, '/', l:start)
38         let l:start = l:idx + 1
39 
40         if l:idx == -1
41             break
42         endif
43 
44         let l:part = a:path[0:(l:idx > 0 ? l:idx - 1 : l:idx)]
45         call add(l:list, l:part)
46     endwhile
47 
48     if !s:StrEndWith(a:path, '/')
49         call add(l:list, a:path)
50     endif
51 
52     return l:list
53 endfunction
54 
55 function! AddTagsInCwdPath()
56     let l:cwd = tr(expand('%:p:h'), '\', '/')
57 
58     let l:pathes = s:SplitPath(l:cwd)
59 
60     for p in l:pathes
61         call s:CheckAndAddTagFile(p)
62     endfor
63 
64 endfunction
65 
66 " call AddTagsInCwdPath()