| " Vim completion script |
| " Language: C |
| " Maintainer: Bram Moolenaar <Bram@vim.org> |
| " Last Change: 2006 Feb 10 |
| |
| |
| " This function is used for the 'omnifunc' option. |
| function! ccomplete#Complete(findstart, base) |
| if a:findstart |
| " Locate the start of the item, including ".", "->" and "[...]". |
| let line = getline('.') |
| let start = col('.') - 1 |
| let lastword = -1 |
| while start > 0 |
| if line[start - 1] =~ '\w' |
| let start -= 1 |
| elseif line[start - 1] =~ '\.' |
| if lastword == -1 |
| let lastword = start |
| endif |
| let start -= 1 |
| elseif start > 1 && line[start - 2] == '-' && line[start - 1] == '>' |
| if lastword == -1 |
| let lastword = start |
| endif |
| let start -= 2 |
| elseif line[start - 1] == ']' |
| " Skip over [...]. |
| let n = 0 |
| let start -= 1 |
| while start > 0 |
| let start -= 1 |
| if line[start] == '[' |
| if n == 0 |
| break |
| endif |
| let n -= 1 |
| elseif line[start] == ']' " nested [] |
| let n += 1 |
| endif |
| endwhile |
| else |
| break |
| endif |
| endwhile |
| |
| " Return the column of the last word, which is going to be changed. |
| " Remember the text that comes before it in s:prepended. |
| if lastword == -1 |
| let s:prepended = '' |
| return start |
| endif |
| let s:prepended = strpart(line, start, lastword - start) |
| return lastword |
| endif |
| |
| " Return list of matches. |
| |
| let base = s:prepended . a:base |
| |
| " Don't do anything for an empty base, would result in all the tags in the |
| " tags file. |
| if base == '' |
| return [] |
| endif |
| |
| " Split item in words, keep empty word after "." or "->". |
| " "aa" -> ['aa'], "aa." -> ['aa', ''], "aa.bb" -> ['aa', 'bb'], etc. |
| " We can't use split, because we need to skip nested [...]. |
| let items = [] |
| let s = 0 |
| while 1 |
| let e = match(base, '\.\|->\|\[', s) |
| if e < 0 |
| if s == 0 || base[s - 1] != ']' |
| call add(items, strpart(base, s)) |
| endif |
| break |
| endif |
| if s == 0 || base[s - 1] != ']' |
| call add(items, strpart(base, s, e - s)) |
| endif |
| if base[e] == '.' |
| let s = e + 1 " skip over '.' |
| elseif base[e] == '-' |
| let s = e + 2 " skip over '->' |
| else |
| " Skip over [...]. |
| let n = 0 |
| let s = e |
| let e += 1 |
| while e < len(base) |
| if base[e] == ']' |
| if n == 0 |
| break |
| endif |
| let n -= 1 |
| elseif base[e] == '[' " nested [...] |
| let n += 1 |
| endif |
| let e += 1 |
| endwhile |
| let e += 1 |
| call add(items, strpart(base, s, e - s)) |
| let s = e |
| endif |
| endwhile |
| |
| " Find the variable items[0]. |
| " 1. in current function (like with "gd") |
| " 2. in tags file(s) (like with ":tag") |
| " 3. in current file (like with "gD") |
| let res = [] |
| if searchdecl(items[0], 0, 1) == 0 |
| " Found, now figure out the type. |
| " TODO: join previous line if it makes sense |
| let line = getline('.') |
| let col = col('.') |
| if len(items) == 1 |
| " Completing one word and it's a local variable: May add '[', '.' or |
| " '->'. |
| let match = items[0] |
| if match(line, match . '\s*\[') > 0 |
| let match .= '[' |
| else |
| let res = s:Nextitem(strpart(line, 0, col), [''], 0) |
| if len(res) > 0 |
| " There are members, thus add "." or "->". |
| if match(line, '\*[ \t(]*' . match . '\>') > 0 |
| let match .= '->' |
| else |
| let match .= '.' |
| endif |
| endif |
| endif |
| let res = [{'match': match, 'tagline' : ''}] |
| else |
| " Completing "var.", "var.something", etc. |
| let res = s:Nextitem(strpart(line, 0, col), items[1:], 0) |
| endif |
| endif |
| |
| if len(items) == 1 |
| " Only one part, no "." or "->": complete from tags file. |
| call extend(res, map(taglist('^' . base), 's:Tag2item(v:val)')) |
| endif |
| |
| if len(res) == 0 |
| " Find the variable in the tags file(s) |
| let diclist = taglist('^' . items[0] . '$') |
| |
| let res = [] |
| for i in range(len(diclist)) |
| " New ctags has the "typename" field. |
| if has_key(diclist[i], 'typename') |
| call extend(res, s:StructMembers(diclist[i]['typename'], items[1:])) |
| endif |
| |
| " For a variable use the command, which must be a search pattern that |
| " shows the declaration of the variable. |
| if diclist[i]['kind'] == 'v' |
| let line = diclist[i]['cmd'] |
| if line[0] == '/' && line[1] == '^' |
| let col = match(line, '\<' . items[0] . '\>') |
| call extend(res, s:Nextitem(strpart(line, 2, col - 2), items[1:], 0)) |
| endif |
| endif |
| endfor |
| endif |
| |
| if len(res) == 0 && searchdecl(items[0], 1) == 0 |
| " Found, now figure out the type. |
| " TODO: join previous line if it makes sense |
| let line = getline('.') |
| let col = col('.') |
| let res = s:Nextitem(strpart(line, 0, col), items[1:], 0) |
| endif |
| |
| " If the last item(s) are [...] they need to be added to the matches. |
| let last = len(items) - 1 |
| let brackets = '' |
| while last >= 0 |
| if items[last][0] != '[' |
| break |
| endif |
| let brackets = items[last] . brackets |
| let last -= 1 |
| endwhile |
| |
| return map(res, 's:Tagline2item(v:val, brackets)') |
| endfunc |
| |
| function! s:GetAddition(line, match, memarg, bracket) |
| " Guess if the item is an array. |
| if a:bracket && match(a:line, a:match . '\s*\[') > 0 |
| return '[' |
| endif |
| |
| " Check if the item has members. |
| if len(s:SearchMembers(a:memarg, [''])) > 0 |
| " If there is a '*' before the name use "->". |
| if match(a:line, '\*[ \t(]*' . a:match . '\>') > 0 |
| return '->' |
| else |
| return '.' |
| endif |
| endif |
| return '' |
| endfunction |
| |
| " Turn the tag info "val" into an item for completion. |
| " "val" is is an item in the list returned by taglist(). |
| " If it is a variable we may add "." or "->". Don't do it for other types, |
| " such as a typedef, by not including the info that s:GetAddition() uses. |
| function! s:Tag2item(val) |
| let x = s:Tagcmd2extra(a:val['cmd'], a:val['name'], a:val['filename']) |
| |
| if has_key(a:val, "kind") |
| if a:val["kind"] == 'v' |
| return {'match': a:val['name'], 'tagline': "\t" . a:val['cmd'], 'dict': a:val, 'extra': x} |
| endif |
| if a:val["kind"] == 'f' |
| return {'match': a:val['name'] . '(', 'tagline': "", 'extra': x} |
| endif |
| endif |
| return {'match': a:val['name'], 'tagline': '', 'extra': x} |
| endfunction |
| |
| " Turn a match item "val" into an item for completion. |
| " "val['match']" is the matching item. |
| " "val['tagline']" is the tagline in which the last part was found. |
| function! s:Tagline2item(val, brackets) |
| let line = a:val['tagline'] |
| let word = a:val['match'] . a:brackets . s:GetAddition(line, a:val['match'], [a:val], a:brackets == '') |
| if has_key(a:val, 'extra') |
| return {'word': word, 'menu': a:val['extra']} |
| endif |
| |
| " Isolate the command after the tag and filename. |
| let s = matchstr(line, '[^\t]*\t[^\t]*\t\zs\(/^.*$/\|[^\t]*\)\ze\(;"\t\|\t\|$\)') |
| if s != '' |
| return {'word': word, 'menu': s:Tagcmd2extra(s, a:val['match'], matchstr(line, '[^\t]*\t\zs[^\t]*\ze\t'))} |
| endif |
| return {'word': word} |
| endfunction |
| |
| " Turn a command from a tag line to something that is useful in the menu |
| function! s:Tagcmd2extra(cmd, name, fname) |
| if a:cmd =~ '^/^' |
| " The command is a search command, useful to see what it is. |
| let x = matchstr(a:cmd, '^/^\zs.*\ze$/') |
| let x = substitute(x, a:name, '@@', '') |
| let x = substitute(x, '\\\(.\)', '\1', 'g') |
| let x = x . ' - ' . a:fname |
| elseif a:cmd =~ '^\d*$' |
| " The command is a line number, the file name is more useful. |
| let x = a:fname . ' - ' . a:cmd |
| else |
| " Not recognized, use command and file name. |
| let x = a:cmd . ' - ' . a:fname |
| endif |
| return x |
| endfunction |
| |
| " Find composing type in "lead" and match items[0] with it. |
| " Repeat this recursively for items[1], if it's there. |
| " When resolving typedefs "depth" is used to avoid infinite recursion. |
| " Return the list of matches. |
| function! s:Nextitem(lead, items, depth) |
| |
| " Use the text up to the variable name and split it in tokens. |
| let tokens = split(a:lead, '\s\+\|\<') |
| |
| " Try to recognize the type of the variable. This is rough guessing... |
| let res = [] |
| for tidx in range(len(tokens)) |
| |
| " Recognize "struct foobar" and "union foobar". |
| if (tokens[tidx] == 'struct' || tokens[tidx] == 'union') && tidx + 1 < len(tokens) |
| let res = s:StructMembers(tokens[tidx] . ':' . tokens[tidx + 1], a:items) |
| break |
| endif |
| |
| " TODO: add more reserved words |
| if index(['int', 'short', 'char', 'float', 'double', 'static', 'unsigned', 'extern'], tokens[tidx]) >= 0 |
| continue |
| endif |
| |
| " Use the tags file to find out if this is a typedef. |
| let diclist = taglist('^' . tokens[tidx] . '$') |
| for tagidx in range(len(diclist)) |
| " New ctags has the "typename" field. |
| if has_key(diclist[tagidx], 'typename') |
| call extend(res, s:StructMembers(diclist[tagidx]['typename'], a:items)) |
| continue |
| endif |
| |
| " Only handle typedefs here. |
| if diclist[tagidx]['kind'] != 't' |
| continue |
| endif |
| |
| " For old ctags we recognize "typedef struct aaa" and |
| " "typedef union bbb" in the tags file command. |
| let cmd = diclist[tagidx]['cmd'] |
| let ei = matchend(cmd, 'typedef\s\+') |
| if ei > 1 |
| let cmdtokens = split(strpart(cmd, ei), '\s\+\|\<') |
| if len(cmdtokens) > 1 |
| if cmdtokens[0] == 'struct' || cmdtokens[0] == 'union' |
| let name = '' |
| " Use the first identifier after the "struct" or "union" |
| for ti in range(len(cmdtokens) - 1) |
| if cmdtokens[ti] =~ '^\w' |
| let name = cmdtokens[ti] |
| break |
| endif |
| endfor |
| if name != '' |
| call extend(res, s:StructMembers(cmdtokens[0] . ':' . name, a:items)) |
| endif |
| elseif a:depth < 10 |
| " Could be "typedef other_T some_T". |
| call extend(res, s:Nextitem(cmdtokens[0], a:items, a:depth + 1)) |
| endif |
| endif |
| endif |
| endfor |
| if len(res) > 0 |
| break |
| endif |
| endfor |
| |
| return res |
| endfunction |
| |
| |
| " Search for members of structure "typename" in tags files. |
| " Return a list with resulting matches. |
| " Each match is a dictionary with "match" and "tagline" entries. |
| function! s:StructMembers(typename, items) |
| " Todo: What about local structures? |
| let fnames = join(map(tagfiles(), 'escape(v:val, " \\")')) |
| if fnames == '' |
| return [] |
| endif |
| |
| let typename = a:typename |
| let qflist = [] |
| while 1 |
| exe 'silent! vimgrep /\t' . typename . '\(\t\|$\)/j ' . fnames |
| let qflist = getqflist() |
| if len(qflist) > 0 || match(typename, "::") < 0 |
| break |
| endif |
| " No match for "struct:context::name", remove "context::" and try again. |
| let typename = substitute(typename, ':[^:]*::', ':', '') |
| endwhile |
| |
| let matches = [] |
| for l in qflist |
| let memb = matchstr(l['text'], '[^\t]*') |
| if memb =~ '^' . a:items[0] |
| call add(matches, {'match': memb, 'tagline': l['text']}) |
| endif |
| endfor |
| |
| if len(matches) > 0 |
| " Skip over [...] items |
| let idx = 1 |
| while 1 |
| if idx >= len(a:items) |
| return matches " No further items, return the result. |
| endif |
| if a:items[idx][0] != '[' |
| break |
| endif |
| let idx += 1 |
| endwhile |
| |
| " More items following. For each of the possible members find the |
| " matching following members. |
| return s:SearchMembers(matches, a:items[idx :]) |
| endif |
| |
| " Failed to find anything. |
| return [] |
| endfunction |
| |
| " For matching members, find matches for following items. |
| function! s:SearchMembers(matches, items) |
| let res = [] |
| for i in range(len(a:matches)) |
| let typename = '' |
| if has_key(a:matches[i], 'dict') |
| if has_key(a:matches[i].dict, 'typename') |
| let typename = a:matches[i].dict['typename'] |
| endif |
| let line = "\t" . a:matches[i].dict['cmd'] |
| else |
| let line = a:matches[i]['tagline'] |
| let e = matchend(line, '\ttypename:') |
| if e > 0 |
| " Use typename field |
| let typename = matchstr(line, '[^\t]*', e) |
| endif |
| endif |
| if typename != '' |
| call extend(res, s:StructMembers(typename, a:items)) |
| else |
| " Use the search command (the declaration itself). |
| let s = match(line, '\t\zs/^') |
| if s > 0 |
| let e = match(line, '\<' . a:matches[i]['match'] . '\>', s) |
| if e > 0 |
| call extend(res, s:Nextitem(strpart(line, s, e - s), a:items, 0)) |
| endif |
| endif |
| endif |
| endfor |
| return res |
| endfunc |