|
707
|
1 " =============================================================================
|
|
|
2 " File: autoload/ctrlp/buffertag.vim
|
|
|
3 " Description: Buffer Tag extension
|
|
|
4 " Maintainer: Kien Nguyen <github.com/kien>
|
|
|
5 " Credits: Much of the code was taken from tagbar.vim by Jan Larres, plus
|
|
|
6 " a few lines from taglist.vim by Yegappan Lakshmanan and from
|
|
|
7 " buffertag.vim by Takeshi Nishida.
|
|
|
8 " =============================================================================
|
|
|
9
|
|
|
10 " Init {{{1
|
|
|
11 if exists('g:loaded_ctrlp_buftag') && g:loaded_ctrlp_buftag
|
|
|
12 fini
|
|
|
13 en
|
|
|
14 let g:loaded_ctrlp_buftag = 1
|
|
|
15
|
|
|
16 cal add(g:ctrlp_ext_vars, {
|
|
|
17 \ 'init': 'ctrlp#buffertag#init(s:crfile)',
|
|
|
18 \ 'accept': 'ctrlp#buffertag#accept',
|
|
|
19 \ 'lname': 'buffer tags',
|
|
|
20 \ 'sname': 'bft',
|
|
|
21 \ 'exit': 'ctrlp#buffertag#exit()',
|
|
|
22 \ 'type': 'tabs',
|
|
|
23 \ 'opts': 'ctrlp#buffertag#opts()',
|
|
|
24 \ })
|
|
|
25
|
|
|
26 let s:id = g:ctrlp_builtins + len(g:ctrlp_ext_vars)
|
|
|
27
|
|
|
28 let [s:pref, s:opts] = ['g:ctrlp_buftag_', {
|
|
|
29 \ 'systemenc': ['s:enc', &enc],
|
|
|
30 \ 'ctags_bin': ['s:bin', ''],
|
|
|
31 \ 'types': ['s:usr_types', {}],
|
|
|
32 \ }]
|
|
|
33
|
|
|
34 let s:bins = [
|
|
|
35 \ 'ctags-exuberant',
|
|
|
36 \ 'exuberant-ctags',
|
|
|
37 \ 'exctags',
|
|
|
38 \ '/usr/local/bin/ctags',
|
|
|
39 \ '/opt/local/bin/ctags',
|
|
|
40 \ 'ctags',
|
|
|
41 \ 'ctags.exe',
|
|
|
42 \ 'tags',
|
|
|
43 \ ]
|
|
|
44
|
|
|
45 let s:types = {
|
|
|
46 \ 'ant' : '%sant%sant%spt',
|
|
|
47 \ 'asm' : '%sasm%sasm%sdlmt',
|
|
|
48 \ 'aspperl': '%sasp%sasp%sfsv',
|
|
|
49 \ 'aspvbs' : '%sasp%sasp%sfsv',
|
|
|
50 \ 'awk' : '%sawk%sawk%sf',
|
|
|
51 \ 'beta' : '%sbeta%sbeta%sfsv',
|
|
|
52 \ 'c' : '%sc%sc%sdgsutvf',
|
|
|
53 \ 'cpp' : '%sc++%sc++%snvdtcgsuf',
|
|
|
54 \ 'cs' : '%sc#%sc#%sdtncEgsipm',
|
|
|
55 \ 'cobol' : '%scobol%scobol%sdfgpPs',
|
|
|
56 \ 'delphi' : '%spascal%spascal%sfp',
|
|
|
57 \ 'dosbatch': '%sdosbatch%sdosbatch%slv',
|
|
|
58 \ 'eiffel' : '%seiffel%seiffel%scf',
|
|
|
59 \ 'erlang' : '%serlang%serlang%sdrmf',
|
|
|
60 \ 'expect' : '%stcl%stcl%scfp',
|
|
|
61 \ 'fortran': '%sfortran%sfortran%spbceiklmntvfs',
|
|
|
62 \ 'go' : '%sgo%sgo%sfctv',
|
|
|
63 \ 'html' : '%shtml%shtml%saf',
|
|
|
64 \ 'java' : '%sjava%sjava%spcifm',
|
|
|
65 \ 'javascript': '%sjavascript%sjavascript%sf',
|
|
|
66 \ 'lisp' : '%slisp%slisp%sf',
|
|
|
67 \ 'lua' : '%slua%slua%sf',
|
|
|
68 \ 'make' : '%smake%smake%sm',
|
|
|
69 \ 'matlab' : '%smatlab%smatlab%sf',
|
|
|
70 \ 'ocaml' : '%socaml%socaml%scmMvtfCre',
|
|
|
71 \ 'pascal' : '%spascal%spascal%sfp',
|
|
|
72 \ 'perl' : '%sperl%sperl%sclps',
|
|
|
73 \ 'php' : '%sphp%sphp%scdvf',
|
|
|
74 \ 'python' : '%spython%spython%scmf',
|
|
|
75 \ 'rexx' : '%srexx%srexx%ss',
|
|
|
76 \ 'ruby' : '%sruby%sruby%scfFm',
|
|
|
77 \ 'rust' : '%srust%srust%sfTgsmctid',
|
|
|
78 \ 'scheme' : '%sscheme%sscheme%ssf',
|
|
|
79 \ 'sh' : '%ssh%ssh%sf',
|
|
|
80 \ 'csh' : '%ssh%ssh%sf',
|
|
|
81 \ 'zsh' : '%ssh%ssh%sf',
|
|
|
82 \ 'scala' : '%sscala%sscala%sctTmlp',
|
|
|
83 \ 'slang' : '%sslang%sslang%snf',
|
|
|
84 \ 'sml' : '%ssml%ssml%secsrtvf',
|
|
|
85 \ 'sql' : '%ssql%ssql%scFPrstTvfp',
|
|
|
86 \ 'tex' : '%stex%stex%sipcsubPGl',
|
|
|
87 \ 'tcl' : '%stcl%stcl%scfmp',
|
|
|
88 \ 'vera' : '%svera%svera%scdefgmpPtTvx',
|
|
|
89 \ 'verilog': '%sverilog%sverilog%smcPertwpvf',
|
|
|
90 \ 'vhdl' : '%svhdl%svhdl%sPctTrefp',
|
|
|
91 \ 'vim' : '%svim%svim%savf',
|
|
|
92 \ 'yacc' : '%syacc%syacc%sl',
|
|
|
93 \ }
|
|
|
94
|
|
|
95 cal map(s:types, 'printf(v:val, "--language-force=", " --", "-types=")')
|
|
|
96
|
|
|
97 if executable('jsctags')
|
|
|
98 cal extend(s:types, { 'javascript': { 'args': '-f -', 'bin': 'jsctags' } })
|
|
|
99 en
|
|
|
100
|
|
|
101 fu! ctrlp#buffertag#opts()
|
|
|
102 for [ke, va] in items(s:opts)
|
|
|
103 let {va[0]} = exists(s:pref.ke) ? {s:pref.ke} : va[1]
|
|
|
104 endfo
|
|
|
105 " Ctags bin
|
|
|
106 if empty(s:bin)
|
|
|
107 for bin in s:bins | if executable(bin)
|
|
|
108 let s:bin = bin
|
|
|
109 brea
|
|
|
110 en | endfo
|
|
|
111 el
|
|
|
112 let s:bin = expand(s:bin, 1)
|
|
|
113 en
|
|
|
114 " Types
|
|
|
115 cal extend(s:types, s:usr_types)
|
|
|
116 endf
|
|
|
117 " Utilities {{{1
|
|
|
118 fu! s:validfile(fname, ftype)
|
|
|
119 if ( !empty(a:fname) || !empty(a:ftype) ) && filereadable(a:fname)
|
|
|
120 \ && index(keys(s:types), a:ftype) >= 0 | retu 1 | en
|
|
|
121 retu 0
|
|
|
122 endf
|
|
|
123
|
|
|
124 fu! s:exectags(cmd)
|
|
|
125 if exists('+ssl')
|
|
|
126 let [ssl, &ssl] = [&ssl, 0]
|
|
|
127 en
|
|
|
128 if &sh =~ 'cmd\.exe'
|
|
|
129 let [sxq, &sxq, shcf, &shcf] = [&sxq, '"', &shcf, '/s /c']
|
|
|
130 en
|
|
|
131 let output = system(a:cmd)
|
|
|
132 if &sh =~ 'cmd\.exe'
|
|
|
133 let [&sxq, &shcf] = [sxq, shcf]
|
|
|
134 en
|
|
|
135 if exists('+ssl')
|
|
|
136 let &ssl = ssl
|
|
|
137 en
|
|
|
138 retu output
|
|
|
139 endf
|
|
|
140
|
|
|
141 fu! s:exectagsonfile(fname, ftype)
|
|
|
142 let [ags, ft] = ['-f - --sort=no --excmd=pattern --fields=nKs --extra= --file-scope=yes ', a:ftype]
|
|
|
143 if type(s:types[ft]) == 1
|
|
|
144 let ags .= s:types[ft]
|
|
|
145 let bin = s:bin
|
|
|
146 elsei type(s:types[ft]) == 4
|
|
|
147 let ags = s:types[ft]['args']
|
|
|
148 let bin = expand(s:types[ft]['bin'], 1)
|
|
|
149 en
|
|
|
150 if empty(bin) | retu '' | en
|
|
|
151 let cmd = s:esctagscmd(bin, ags, a:fname)
|
|
|
152 if empty(cmd) | retu '' | en
|
|
|
153 let output = s:exectags(cmd)
|
|
|
154 if v:shell_error || output =~ 'Warning: cannot open' | retu '' | en
|
|
|
155 retu output
|
|
|
156 endf
|
|
|
157
|
|
|
158 fu! s:esctagscmd(bin, args, ...)
|
|
|
159 if exists('+ssl')
|
|
|
160 let [ssl, &ssl] = [&ssl, 0]
|
|
|
161 en
|
|
|
162 let fname = a:0 ? shellescape(a:1) : ''
|
|
|
163 if (has('win32') || has('win64'))
|
|
|
164 let cmd = a:bin.' '.a:args.' '.fname
|
|
|
165 else
|
|
|
166 let cmd = shellescape(a:bin).' '.a:args.' '.fname
|
|
|
167 endif
|
|
|
168 if &sh =~ 'cmd\.exe'
|
|
|
169 let cmd = substitute(cmd, '[&()@^<>|]', '^\0', 'g')
|
|
|
170 en
|
|
|
171 if exists('+ssl')
|
|
|
172 let &ssl = ssl
|
|
|
173 en
|
|
|
174 if has('iconv')
|
|
|
175 let last = s:enc != &enc ? s:enc : !empty( $LANG ) ? $LANG : &enc
|
|
|
176 let cmd = iconv(cmd, &enc, last)
|
|
|
177 en
|
|
|
178 retu cmd
|
|
|
179 endf
|
|
|
180
|
|
|
181 fu! s:process(fname, ftype)
|
|
|
182 if !s:validfile(a:fname, a:ftype) | retu [] | endif
|
|
|
183 let ftime = getftime(a:fname)
|
|
|
184 if has_key(g:ctrlp_buftags, a:fname)
|
|
|
185 \ && g:ctrlp_buftags[a:fname]['time'] >= ftime
|
|
|
186 let lines = g:ctrlp_buftags[a:fname]['lines']
|
|
|
187 el
|
|
|
188 let data = s:exectagsonfile(a:fname, a:ftype)
|
|
|
189 let [raw, lines] = [split(data, '\n\+'), []]
|
|
|
190 for line in raw
|
|
|
191 if line !~# '^!_TAG_' && len(split(line, ';"')) == 2
|
|
|
192 let parsed_line = s:parseline(line)
|
|
|
193 if parsed_line != ''
|
|
|
194 cal add(lines, parsed_line)
|
|
|
195 en
|
|
|
196 en
|
|
|
197 endfo
|
|
|
198 let cache = { a:fname : { 'time': ftime, 'lines': lines } }
|
|
|
199 cal extend(g:ctrlp_buftags, cache)
|
|
|
200 en
|
|
|
201 retu lines
|
|
|
202 endf
|
|
|
203
|
|
|
204 fu! s:parseline(line)
|
|
|
205 let vals = matchlist(a:line,
|
|
|
206 \ '\v^([^\t]+)\t(.+)\t[?/]\^?(.{-1,})\$?[?/]\;\"\t(.+)\tline(no)?\:(\d+)\t?([^\t]*)')
|
|
|
207 if vals == [] | retu '' | en
|
|
|
208 let [bufnr, bufname] = [bufnr('^'.vals[2].'$'), fnamemodify(vals[2], ':p:t')]
|
|
|
209 if len(vals) > 7 && vals[7] != ''
|
|
|
210 retu vals[1].' '.vals[4].'|'.bufnr.':'.bufname.'|'.vals[6].'|'.vals[7].'| '.vals[3]
|
|
|
211 else
|
|
|
212 retu vals[1].' '.vals[4].'|'.bufnr.':'.bufname.'|'.vals[6].'| '.vals[3]
|
|
|
213 en
|
|
|
214 endf
|
|
|
215
|
|
|
216 fu! s:syntax()
|
|
|
217 if !ctrlp#nosy()
|
|
|
218 cal ctrlp#hicheck('CtrlPTagKind', 'Title')
|
|
|
219 cal ctrlp#hicheck('CtrlPBufName', 'Directory')
|
|
|
220 cal ctrlp#hicheck('CtrlPTabExtra', 'Comment')
|
|
|
221 sy match CtrlPTagKind '\zs[^\t|]\+\ze|\d\+:[^|]\+|\d\+|'
|
|
|
222 sy match CtrlPBufName '|\d\+:\zs[^|]\+\ze|\d\+|'
|
|
|
223 sy match CtrlPTabExtra '\zs\t.*\ze$' contains=CtrlPBufName,CtrlPTagKind
|
|
|
224 en
|
|
|
225 endf
|
|
|
226
|
|
|
227 fu! s:chknearby(pat)
|
|
|
228 if match(getline('.'), a:pat) < 0
|
|
|
229 let [int, forw, maxl] = [1, 1, line('$')]
|
|
|
230 wh !search(a:pat, 'W'.( forw ? '' : 'b' ))
|
|
|
231 if !forw
|
|
|
232 if int > maxl | brea | en
|
|
|
233 let int += int
|
|
|
234 en
|
|
|
235 let forw = !forw
|
|
|
236 endw
|
|
|
237 en
|
|
|
238 endf
|
|
|
239 " Public {{{1
|
|
|
240 fu! ctrlp#buffertag#init(fname)
|
|
|
241 let bufs = exists('s:btmode') && s:btmode
|
|
|
242 \ ? filter(ctrlp#buffers(), 'filereadable(v:val)')
|
|
|
243 \ : [exists('s:bufname') ? s:bufname : a:fname]
|
|
|
244 let lines = []
|
|
|
245 for each in bufs
|
|
|
246 let bname = fnamemodify(each, ':p')
|
|
|
247 let tftype = get(split(getbufvar('^'.bname.'$', '&ft'), '\.'), 0, '')
|
|
|
248 cal extend(lines, s:process(bname, tftype))
|
|
|
249 endfo
|
|
|
250 cal s:syntax()
|
|
|
251 retu lines
|
|
|
252 endf
|
|
|
253
|
|
|
254 fu! ctrlp#buffertag#accept(mode, str)
|
|
|
255 let vals = matchlist(a:str,
|
|
|
256 \ '\v^[^\t]+\t+[^\t|]+\|(\d+)\:[^\t|]+\|(\d+)%(\|[^\t|]+)?\|\s(.+)$')
|
|
|
257 let bufnr = str2nr(get(vals, 1))
|
|
|
258 if bufnr
|
|
|
259 cal ctrlp#acceptfile(a:mode, bufnr)
|
|
|
260 exe 'norm!' str2nr(get(vals, 2, line('.'))).'G'
|
|
|
261 cal s:chknearby('\V\C'.get(vals, 3, ''))
|
|
|
262 sil! norm! zvzz
|
|
|
263 en
|
|
|
264 endf
|
|
|
265
|
|
|
266 fu! ctrlp#buffertag#cmd(mode, ...)
|
|
|
267 let s:btmode = a:mode
|
|
|
268 if a:0 && !empty(a:1)
|
|
|
269 let s:btmode = 0
|
|
|
270 let bname = a:1 =~# '^%$\|^#\d*$' ? expand(a:1) : a:1
|
|
|
271 let s:bufname = fnamemodify(bname, ':p')
|
|
|
272 en
|
|
|
273 retu s:id
|
|
|
274 endf
|
|
|
275
|
|
|
276 fu! ctrlp#buffertag#exit()
|
|
|
277 unl! s:btmode s:bufname
|
|
|
278 endf
|
|
|
279 "}}}
|
|
|
280
|
|
|
281 " vim:fen:fdm=marker:fmr={{{,}}}:fdl=0:fdc=1:ts=2:sw=2:sts=2
|
