lhark/rc
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity
rc/vim/autoload/javacomplete.vim

2933 lines
87 KiB
VimL
Raw Normal View History

Added vim folder for plugins content and language specific config
2015-08-08 20:45:40 +00:00
" Vim completion script - hit 80% complete tasks
" Version: 0.77.1.2
" Language: Java
" Maintainer: cheng fang <fangread@yahoo.com.cn>
" Last Change: 2011-01-30
" Copyright: Copyright (C) 2006-2007 cheng fang. All rights reserved.
" License: Vim License (see vim's :help license)
" constants {{{1
" input context type
let s:CONTEXT_AFTER_DOT = 1
let s:CONTEXT_METHOD_PARAM = 2
let s:CONTEXT_IMPORT = 3
let s:CONTEXT_IMPORT_STATIC = 4
let s:CONTEXT_PACKAGE_DECL = 6
let s:CONTEXT_NEED_TYPE = 7
let s:CONTEXT_OTHER = 0
let s:ARRAY_TYPE_MEMBERS = [
\ {'kind': 'm', 'word': 'clone(', 'abbr': 'clone()', 'menu': 'Object clone()', },
\ {'kind': 'm', 'word': 'equals(', 'abbr': 'equals()', 'menu': 'boolean equals(Object)', },
\ {'kind': 'm', 'word': 'getClass(', 'abbr': 'getClass()', 'menu': 'Class Object.getClass()', },
\ {'kind': 'm', 'word': 'hashCode(', 'abbr': 'hashCode()', 'menu': 'int hashCode()', },
\ {'kind': 'f', 'word': 'length', 'menu': 'int'},
\ {'kind': 'm', 'word': 'notify(', 'abbr': 'notify()', 'menu': 'void Object.notify()', },
\ {'kind': 'm', 'word': 'notifyAll(', 'abbr': 'notifyAll()', 'menu': 'void Object.notifyAll()', },
\ {'kind': 'm', 'word': 'toString(', 'abbr': 'toString()', 'menu': 'String toString()', },
\ {'kind': 'm', 'word': 'wait(', 'abbr': 'wait()', 'menu': 'void Object.wait() throws InterruptedException', },
\ {'kind': 'm', 'dup': 1, 'word': 'wait(', 'abbr': 'wait()', 'menu': 'void Object.wait(long timeout) throws InterruptedException', },
\ {'kind': 'm', 'dup': 1, 'word': 'wait(', 'abbr': 'wait()', 'menu': 'void Object.wait(long timeout, int nanos) throws InterruptedException', }]
let s:ARRAY_TYPE_INFO = {'tag': 'CLASSDEF', 'name': '[', 'ctors': [],
\ 'fields': [{'n': 'length', 'm': '1', 't': 'int'}],
\ 'methods':[
\ {'n': 'clone', 'm': '1', 'r': 'Object', 'p': [], 'd': 'Object clone()'},
\ {'n': 'equals', 'm': '1', 'r': 'boolean', 'p': ['Object'], 'd': 'boolean Object.equals(Object obj)'},
\ {'n': 'getClass', 'm': '100010001', 'r': 'Class', 'p': [], 'd': 'Class Object.getClass()'},
\ {'n': 'hashCode', 'm': '100000001', 'r': 'int', 'p': [], 'd': 'int Object.hashCode()'},
\ {'n': 'notify', 'm': '100010001', 'r': 'void', 'p': [], 'd': 'void Object.notify()'},
\ {'n': 'notifyAll','m': '100010001', 'r': 'void', 'p': [], 'd': 'void Object.notifyAll()'},
\ {'n': 'toString', 'm': '1', 'r': 'String', 'p': [], 'd': 'String Object.toString()'},
\ {'n': 'wait', 'm': '10001', 'r': 'void', 'p': [], 'd': 'void Object.wait() throws InterruptedException'},
\ {'n': 'wait', 'm': '100010001', 'r': 'void', 'p': ['long'], 'd': 'void Object.wait(long timeout) throws InterruptedException'},
\ {'n': 'wait', 'm': '10001', 'r': 'void', 'p': ['long','int'], 'd': 'void Object.wait(long timeout, int nanos) throws InterruptedException'},
\ ]}
let s:PRIMITIVE_TYPE_INFO = {'tag': 'CLASSDEF', 'name': '!', 'fields': [{'n': 'class','m': '1','t': 'Class'}]}
let s:JSP_BUILTIN_OBJECTS = {'session': 'javax.servlet.http.HttpSession',
\ 'request': 'javax.servlet.http.HttpServletRequest',
\ 'response': 'javax.servlet.http.HttpServletResponse',
\ 'pageContext': 'javax.servlet.jsp.PageContext',
\ 'application': 'javax.servlet.ServletContext',
\ 'config': 'javax.servlet.ServletConfig',
\ 'out': 'javax.servlet.jsp.JspWriter',
\ 'page': 'javax.servlet.jsp.HttpJspPage', }
let s:PRIMITIVE_TYPES = ['boolean', 'byte', 'char', 'int', 'short', 'long', 'float', 'double']
let s:KEYWORDS_MODS = ['public', 'private', 'protected', 'static', 'final', 'synchronized', 'volatile', 'transient', 'native', 'strictfp', 'abstract']
let s:KEYWORDS_TYPE = ['class', 'interface', 'enum']
let s:KEYWORDS = s:PRIMITIVE_TYPES + s:KEYWORDS_MODS + s:KEYWORDS_TYPE + ['super', 'this', 'void'] + ['assert', 'break', 'case', 'catch', 'const', 'continue', 'default', 'do', 'else', 'extends', 'finally', 'for', 'goto', 'if', 'implements', 'import', 'instanceof', 'interface', 'new', 'package', 'return', 'switch', 'throw', 'throws', 'try', 'while', 'true', 'false', 'null']
let s:PATH_SEP = ':'
let s:FILE_SEP = '/'
if has("win32") || has("win64") || has("win16") || has("dos32") || has("dos16")
let s:PATH_SEP = ';'
let s:FILE_SEP = '\'
endif
let s:RE_BRACKETS = '\%(\s*\[\s*\]\)'
let s:RE_IDENTIFIER = '[a-zA-Z_$][a-zA-Z0-9_$]*'
let s:RE_QUALID = s:RE_IDENTIFIER. '\%(\s*\.\s*' .s:RE_IDENTIFIER. '\)*'
let s:RE_REFERENCE_TYPE = s:RE_QUALID . s:RE_BRACKETS . '*'
let s:RE_TYPE = s:RE_REFERENCE_TYPE
let s:RE_TYPE_ARGUMENT = '\%(?\s\+\%(extends\|super\)\s\+\)\=' . s:RE_TYPE
let s:RE_TYPE_ARGUMENTS = '<' . s:RE_TYPE_ARGUMENT . '\%(\s*,\s*' . s:RE_TYPE_ARGUMENT . '\)*>'
let s:RE_TYPE_WITH_ARGUMENTS_I = s:RE_IDENTIFIER . '\s*' . s:RE_TYPE_ARGUMENTS
let s:RE_TYPE_WITH_ARGUMENTS = s:RE_TYPE_WITH_ARGUMENTS_I . '\%(\s*' . s:RE_TYPE_WITH_ARGUMENTS_I . '\)*'
let s:RE_TYPE_MODS = '\%(public\|protected\|private\|abstract\|static\|final\|strictfp\)'
let s:RE_TYPE_DECL_HEAD = '\(class\|interface\|enum\)[ \t\n\r ]\+'
let s:RE_TYPE_DECL = '\<\C\(\%(' .s:RE_TYPE_MODS. '\s\+\)*\)' .s:RE_TYPE_DECL_HEAD. '\(' .s:RE_IDENTIFIER. '\)[< \t\n\r ]'
let s:RE_ARRAY_TYPE = '^\s*\(' .s:RE_QUALID . '\)\(' . s:RE_BRACKETS . '\+\)\s*$'
let s:RE_SELECT_OR_ACCESS = '^\s*\(' . s:RE_IDENTIFIER . '\)\s*\(\[.*\]\)\=\s*$'
let s:RE_ARRAY_ACCESS = '^\s*\(' . s:RE_IDENTIFIER . '\)\s*\(\[.*\]\)\+\s*$'
let s:RE_CASTING = '^\s*(\(' .s:RE_QUALID. '\))\s*\(' . s:RE_IDENTIFIER . '\)\>'
let s:RE_KEYWORDS = '\<\%(' . join(s:KEYWORDS, '\|') . '\)\>'
" local variables {{{1
let b:context_type = s:CONTEXT_OTHER
"let b:statement = '' " statement before cursor
let b:dotexpr = '' " expression ends with '.'
let b:incomplete = '' " incomplete word: 1. dotexpr.method(|) 2. new classname(|) 3. dotexpr.ab|, 4. ja|, 5. method(|
let b:errormsg = ''
" script variables {{{1
let s:cache = {} " FQN -> member list, e.g. {'java.lang.StringBuffer': classinfo, 'java.util': packageinfo, '/dir/TopLevelClass.java': compilationUnit}
let s:files = {} " srouce file path -> properties, e.g. {filekey: {'unit': compilationUnit, 'changedtick': tick, }}
let s:history = {} "
" This function is used for the 'omnifunc' option. {{{1
function! javacomplete#Complete(findstart, base)
if a:findstart
let s:et_whole = reltime()
let start = col('.') - 1
let s:log = []
" reset enviroment
let b:dotexpr = ''
let b:incomplete = ''
let b:context_type = s:CONTEXT_OTHER
let statement = s:GetStatement()
call s:WatchVariant('statement: "' . statement . '"')
if statement =~ '[.0-9A-Za-z_]\s*$'
let valid = 1
if statement =~ '\.\s*$'
let valid = statement =~ '[")0-9A-Za-z_\]]\s*\.\s*$' && statement !~ '\<\H\w\+\.\s*$' && statement !~ '\<\(abstract\|assert\|break\|case\|catch\|const\|continue\|default\|do\|else\|enum\|extends\|final\|finally\|for\|goto\|if\|implements\|import\|instanceof\|interface\|native\|new\|package\|private\|protected\|public\|return\|static\|strictfp\|switch\|synchronized\|throw\|throws\|transient\|try\|volatile\|while\|true\|false\|null\)\.\s*$'
endif
if !valid
return -1
endif
let b:context_type = s:CONTEXT_AFTER_DOT
" import or package declaration
if statement =~# '^\s*\(import\|package\)\s\+'
let statement = substitute(statement, '\s\+\.', '.', 'g')
let statement = substitute(statement, '\.\s\+', '.', 'g')
if statement =~ '^\s*import\s\+'
let b:context_type = statement =~# '\<static\s\+' ? s:CONTEXT_IMPORT_STATIC : s:CONTEXT_IMPORT
let b:dotexpr = substitute(statement, '^\s*import\s\+\(static\s\+\)\?', '', '')
else
let b:context_type = s:CONTEXT_PACKAGE_DECL
let b:dotexpr = substitute(statement, '\s*package\s\+', '', '')
endif
" String literal
elseif statement =~ '"\s*\.\s*$'
let b:dotexpr = substitute(statement, '\s*\.\s*$', '\.', '')
return start - strlen(b:incomplete)
else
" type declaration NOTE: not supported generic yet.
let idx_type = matchend(statement, '^\s*' . s:RE_TYPE_DECL)
if idx_type != -1
let b:dotexpr = strpart(statement, idx_type)
" return if not after extends or implements
if b:dotexpr !~ '^\(extends\|implements\)\s\+'
return -1
endif
let b:context_type = s:CONTEXT_NEED_TYPE
endif
let b:dotexpr = s:ExtractCleanExpr(statement)
endif
" all cases: " java.ut|" or " java.util.|" or "ja|"
let b:incomplete = strpart(b:dotexpr, strridx(b:dotexpr, '.')+1)
let b:dotexpr = strpart(b:dotexpr, 0, strridx(b:dotexpr, '.')+1)
return start - strlen(b:incomplete)
" method parameters, treat methodname or 'new' as an incomplete word
elseif statement =~ '(\s*$'
" TODO: Need to exclude method declaration?
let b:context_type = s:CONTEXT_METHOD_PARAM
let pos = strridx(statement, '(')
let s:padding = strpart(statement, pos+1)
let start = start - (len(statement) - pos)
let statement = substitute(statement, '\s*(\s*$', '', '')
" new ClassName?
let str = matchstr(statement, '\<new\s\+' . s:RE_QUALID . '$')
if str != ''
let str = substitute(str, '^new\s\+', '', '')
if !s:IsKeyword(str)
let b:incomplete = '+'
let b:dotexpr = str
return start - len(b:dotexpr)
endif
" normal method invocations
else
let pos = match(statement, '\s*' . s:RE_IDENTIFIER . '$')
" case: "method(|)", "this(|)", "super(|)"
if pos == 0
let statement = substitute(statement, '^\s*', '', '')
" treat "this" or "super" as a type name.
if statement == 'this' || statement == 'super'
let b:dotexpr = statement
let b:incomplete = '+'
return start - len(b:dotexpr)
elseif !s:IsKeyword(statement)
let b:incomplete = statement
return start - strlen(b:incomplete)
endif
" case: "expr.method(|)"
elseif statement[pos-1] == '.' && !s:IsKeyword(strpart(statement, pos))
let b:dotexpr = s:ExtractCleanExpr(strpart(statement, 0, pos))
let b:incomplete = strpart(statement, pos)
return start - strlen(b:incomplete)
endif
endif
endif
return -1
endif
" Return list of matches.
call s:WatchVariant('b:context_type: "' . b:context_type . '" b:incomplete: "' . b:incomplete . '" b:dotexpr: "' . b:dotexpr . '"')
if b:dotexpr =~ '^\s*$' && b:incomplete =~ '^\s*$'
return []
endif
let result = []
if b:dotexpr !~ '^\s*$'
if b:context_type == s:CONTEXT_AFTER_DOT
let result = s:CompleteAfterDot(b:dotexpr)
elseif b:context_type == s:CONTEXT_IMPORT || b:context_type == s:CONTEXT_IMPORT_STATIC || b:context_type == s:CONTEXT_PACKAGE_DECL || b:context_type == s:CONTEXT_NEED_TYPE
let result = s:GetMembers(b:dotexpr[:-2])
elseif b:context_type == s:CONTEXT_METHOD_PARAM
if b:incomplete == '+'
let result = s:GetConstructorList(b:dotexpr)
else
let result = s:CompleteAfterDot(b:dotexpr)
endif
endif
" only incomplete word
elseif b:incomplete !~ '^\s*$'
" only need methods
if b:context_type == s:CONTEXT_METHOD_PARAM
let methods = s:SearchForName(b:incomplete, 0, 1)[1]
call extend(result, eval('[' . s:DoGetMethodList(methods) . ']'))
else
let result = s:CompleteAfterWord(b:incomplete)
endif
" then no filter needed
let b:incomplete = ''
endif
if len(result) > 0
" filter according to b:incomplete
if len(b:incomplete) > 0 && b:incomplete != '+'
let result = filter(result, "type(v:val) == type('') ? v:val =~ '^" . b:incomplete . "' : v:val['word'] =~ '^" . b:incomplete . "'")
endif
if exists('s:padding') && !empty(s:padding)
for item in result
if type(item) == type("")
let item .= s:padding
else
let item.word .= s:padding
endif
endfor
unlet s:padding
endif
call s:Debug('finish completion' . reltimestr(reltime(s:et_whole)) . 's')
return result
endif
if strlen(b:errormsg) > 0
echoerr 'javacomplete error: ' . b:errormsg
let b:errormsg = ''
endif
endfunction
" Precondition: incomplete must be a word without '.'.
" return all the matched, variables, fields, methods, types, packages
fu! s:CompleteAfterWord(incomplete)
" packages in jar files
if !exists('s:all_packages_in_jars_loaded')
call s:DoGetInfoByReflection('-', '-P')
let s:all_packages_in_jars_loaded = 1
endif
let pkgs = []
let types = []
for key in keys(s:cache)
if key =~# '^' . a:incomplete
if type(s:cache[key]) == type('') || get(s:cache[key], 'tag', '') == 'PACKAGE'
call add(pkgs, {'kind': 'P', 'word': key})
" filter out type info
elseif b:context_type != s:CONTEXT_PACKAGE_DECL && b:context_type != s:CONTEXT_IMPORT && b:context_type != s:CONTEXT_IMPORT_STATIC
call add(types, {'kind': 'C', 'word': key})
endif
endif
endfor
let pkgs += s:DoGetPackageInfoInDirs(a:incomplete, b:context_type == s:CONTEXT_PACKAGE_DECL, 1)
" add accessible types which name beginning with the incomplete in source files
" TODO: remove the inaccessible
if b:context_type != s:CONTEXT_PACKAGE_DECL
" single type import
for fqn in s:GetImports('imports_fqn')
let name = fqn[strridx(fqn, ".")+1:]
if name =~ '^' . a:incomplete
call add(types, {'kind': 'C', 'word': name})
endif
endfor
" current file
let lnum_old = line('.')
let col_old = col('.')
call cursor(1, 1)
while 1
let lnum = search('\<\C\(class\|interface\|enum\)[ \t\n\r ]\+' . a:incomplete . '[a-zA-Z0-9_$]*[< \t\n\r ]', 'W')
if lnum == 0
break
elseif s:InCommentOrLiteral(line('.'), col('.'))
continue
else
normal w
call add(types, {'kind': 'C', 'word': matchstr(getline(line('.'))[col('.')-1:], s:RE_IDENTIFIER)})
endif
endwhile
call cursor(lnum_old, col_old)
" other files
let filepatterns = ''
for dirpath in s:GetSourceDirs(expand('%:p'))
let filepatterns .= escape(dirpath, ' \') . '/*.java '
endfor
exe 'vimgrep /\s*' . s:RE_TYPE_DECL . '/jg ' . filepatterns
for item in getqflist()
if item.text !~ '^\s*\*\s\+'
let text = matchstr(s:Prune(item.text, -1), '\s*' . s:RE_TYPE_DECL)
if text != ''
let subs = split(substitute(text, '\s*' . s:RE_TYPE_DECL, '\1;\2;\3', ''), ';', 1)
if subs[2] =~# '^' . a:incomplete && (subs[0] =~ '\C\<public\>' || fnamemodify(bufname(item.bufnr), ':p:h') == expand('%:p:h'))
call add(types, {'kind': 'C', 'word': subs[2]})
endif
endif
endif
endfor
endif
let result = []
" add variables and members in source files
if b:context_type == s:CONTEXT_AFTER_DOT
let matches = s:SearchForName(a:incomplete, 0, 0)
let result += sort(eval('[' . s:DoGetFieldList(matches[2]) . ']'))
let result += sort(eval('[' . s:DoGetMethodList(matches[1]) . ']'))
endif
let result += sort(pkgs)
let result += sort(types)
return result
endfu
" Precondition: expr must end with '.'
" return members of the value of expression
function! s:CompleteAfterDot(expr)
let items = s:ParseExpr(a:expr) " TODO: return a dict containing more than items
if empty(items)
return []
endif
" 0. String literal
call s:Info('P0. "str".|')
if items[-1] =~ '"$'
return s:GetMemberList("java.lang.String")
endif
let ti = {}
let ii = 1 " item index
let itemkind = 0
"
" optimized process
"
" search the longest expr consisting of ident
let i = 1
let k = i
while i < len(items) && items[i] =~ '^\s*' . s:RE_IDENTIFIER . '\s*$'
let ident = substitute(items[i], '\s', '', 'g')
if ident == 'class' || ident == 'this' || ident == 'super'
let k = i
" return when found other keywords
elseif s:IsKeyword(ident)
return []
endif
let items[i] = substitute(items[i], '\s', '', 'g')
let i += 1
endwhile
if i > 1
" cases: "this.|", "super.|", "ClassName.this.|", "ClassName.super.|", "TypeName.class.|"
if items[k] ==# 'class' || items[k] ==# 'this' || items[k] ==# 'super'
call s:Info('O1. ' . items[k] . ' ' . join(items[:k-1], '.'))
let ti = s:DoGetClassInfo(items[k] == 'class' ? 'java.lang.Class' : join(items[:k-1], '.'))
if !empty(ti)
let itemkind = items[k] ==# 'this' ? 1 : items[k] ==# 'super' ? 2 : 0
let ii = k+1
else
return []
endif
" case: "java.io.File.|"
else
let fqn = join(items[:i-1], '.')
let srcpath = join(s:GetSourceDirs(expand('%:p'), s:GetPackageName()), ',')
call s:Info('O2. ' . fqn)
call s:DoGetTypeInfoForFQN([fqn], srcpath)
if get(get(s:cache, fqn, {}), 'tag', '') == 'CLASSDEF'
let ti = s:cache[fqn]
let itemkind = 11
let ii = i
endif
endif
endif
"
" first item
"
if empty(ti)
" cases:
" 1) "int.|", "void.|" - primitive type or pseudo-type, return `class`
" 2) "this.|", "super.|" - special reference
" 3) "var.|" - variable or field
" 4) "String.|" - type imported or defined locally
" 5) "java.|" - package
if items[0] =~ '^\s*' . s:RE_IDENTIFIER . '\s*$'
let ident = substitute(items[0], '\s', '', 'g')
if s:IsKeyword(ident)
" 1)
call s:Info('F1. "' . ident . '.|"')
if ident ==# 'void' || s:IsBuiltinType(ident)
let ti = s:PRIMITIVE_TYPE_INFO
let itemkind = 11
" 2)
call s:Info('F2. "' . ident . '.|"')
elseif ident ==# 'this' || ident ==# 'super'
let itemkind = ident ==# 'this' ? 1 : ident ==# 'super' ? 2 : 0
let ti = s:DoGetClassInfo(ident)
endif
else
" 3)
let typename = s:GetDeclaredClassName(ident)
call s:Info('F3. "' . ident . '.|" typename: "' . typename . '"')
if (typename != '')
if typename[0] == '[' || typename[-1:] == ']'
let ti = s:ARRAY_TYPE_INFO
elseif typename != 'void' && !s:IsBuiltinType(typename)
let ti = s:DoGetClassInfo(typename)
endif
else
" 4)
call s:Info('F4. "TypeName.|"')
let ti = s:DoGetClassInfo(ident)
let itemkind = 11
if get(ti, 'tag', '') != 'CLASSDEF'
let ti = {}
endif
" 5)
if empty(ti)
call s:Info('F5. "package.|"')
unlet ti
let ti = s:GetMembers(ident) " s:DoGetPackegInfo(ident)
let itemkind = 20
endif
endif
endif
" method invocation: "method().|" - "this.method().|"
elseif items[0] =~ '^\s*' . s:RE_IDENTIFIER . '\s*('
let ti = s:MethodInvocation(items[0], ti, itemkind)
" array type, return `class`: "int[] [].|", "java.lang.String[].|", "NestedClass[].|"
elseif items[0] =~# s:RE_ARRAY_TYPE
call s:Info('array type. "' . items[0] . '"')
let qid = substitute(items[0], s:RE_ARRAY_TYPE, '\1', '')
if s:IsBuiltinType(qid) || (!s:HasKeyword(qid) && !empty(s:DoGetClassInfo(qid)))
let ti = s:PRIMITIVE_TYPE_INFO
let itemkind = 11
endif
" class instance creation expr: "new String().|", "new NonLoadableClass().|"
" array creation expr: "new int[i=1] [val()].|", "new java.lang.String[].|"
elseif items[0] =~ '^\s*new\s\+'
call s:Info('creation expr. "' . items[0] . '"')
let subs = split(substitute(items[0], '^\s*new\s\+\(' .s:RE_QUALID. '\)\s*\([([]\)', '\1;\2', ''), ';')
if subs[1][0] == '['
let ti = s:ARRAY_TYPE_INFO
elseif subs[1][0] == '('
let ti = s:DoGetClassInfo(subs[0])
" exclude interfaces and abstract class. TODO: exclude the inaccessible
if get(ti, 'flags', '')[-10:-10] || get(ti, 'flags', '')[-11:-11]
echo 'cannot instantiate the type ' . subs[0]
let ti = {}
return []
endif
endif
" casting conversion: "(Object)o.|"
elseif items[0] =~ s:RE_CASTING
call s:Info('Casting conversion. "' . items[0] . '"')
let subs = split(substitute(items[0], s:RE_CASTING, '\1;\2', ''), ';')
let ti = s:DoGetClassInfo(subs[0])
" array access: "var[i][j].|" Note: "var[i][]" is incorrect
elseif items[0] =~# s:RE_ARRAY_ACCESS
let subs = split(substitute(items[0], s:RE_ARRAY_ACCESS, '\1;\2', ''), ';')
if get(subs, 1, '') !~ s:RE_BRACKETS
let typename = s:GetDeclaredClassName(subs[0])
call s:Info('ArrayAccess. "' .items[0]. '.|" typename: "' . typename . '"')
if (typename != '')
let ti = s:ArrayAccess(typename, items[0])
endif
endif
endif
endif
"
" next items
"
while !empty(ti) && ii < len(items)
" method invocation: "PrimaryExpr.method(parameters)[].|"
if items[ii] =~ '^\s*' . s:RE_IDENTIFIER . '\s*('
let ti = s:MethodInvocation(items[ii], ti, itemkind)
let itemkind = 0
let ii += 1
continue
" expression of selection, field access, array access
elseif items[ii] =~ s:RE_SELECT_OR_ACCESS
let subs = split(substitute(items[ii], s:RE_SELECT_OR_ACCESS, '\1;\2', ''), ';')
let ident = subs[0]
let brackets = get(subs, 1, '')
" package members
if itemkind/10 == 2 && empty(brackets) && !s:IsKeyword(ident)
let qn = join(items[:ii], '.')
if type(ti) == type([])
let idx = s:Index(ti, ident, 'word')
if idx >= 0
if ti[idx].kind == 'P'
unlet ti
let ti = s:GetMembers(qn)
let ii += 1
continue
elseif ti[idx].kind == 'C'
unlet ti
let ti = s:DoGetClassInfo(qn)
let itemkind = 11
let ii += 1
continue
endif
endif
endif
" type members
elseif itemkind/10 == 1 && empty(brackets)
if ident ==# 'class' || ident ==# 'this' || ident ==# 'super'
let ti = s:DoGetClassInfo(ident == 'class' ? 'java.lang.Class' : join(items[:ii-1], '.'))
let itemkind = ident ==# 'this' ? 1 : ident ==# 'super' ? 2 : 0
let ii += 1
continue
elseif !s:IsKeyword(ident) && type(ti) == type({}) && get(ti, 'tag', '') == 'CLASSDEF'
" accessible static field
"let idx = s:Index(get(ti, 'fields', []), ident, 'n')
"if idx >= 0 && s:IsStatic(ti.fields[idx].m)
" let ti = s:ArrayAccess(ti.fields[idx].t, items[ii])
let members = s:SearchMember(ti, ident, 1, itemkind, 1, 0)
if !empty(members[2])
let ti = s:ArrayAccess(members[2][0].t, items[ii])
let itemkind = 0
let ii += 1
continue
endif
" accessible nested type
"if !empty(filter(copy(get(ti, 'classes', [])), 'strpart(v:val, strridx(v:val, ".")) ==# "' . ident . '"'))
if !empty(members[0])
let ti = s:DoGetClassInfo(join(items[:ii], '.'))
let ii += 1
continue
endif
endif
" instance members
elseif itemkind/10 == 0 && !s:IsKeyword(ident)
if type(ti) == type({}) && get(ti, 'tag', '') == 'CLASSDEF'
"let idx = s:Index(get(ti, 'fields', []), ident, 'n')
"if idx >= 0
" let ti = s:ArrayAccess(ti.fields[idx].t, items[ii])
let members = s:SearchMember(ti, ident, 1, itemkind, 1, 0)
let itemkind = 0
if !empty(members[2])
let ti = s:ArrayAccess(members[2][0].t, items[ii])
let ii += 1
continue
endif
endif
endif
endif
return []
endwhile
" type info or package info --> members
if !empty(ti)
if type(ti) == type({})
if get(ti, 'tag', '') == 'CLASSDEF'
if get(ti, 'name', '') == '!'
return [{'kind': 'f', 'word': 'class', 'menu': 'Class'}]
elseif get(ti, 'name', '') == '['
return s:ARRAY_TYPE_MEMBERS
elseif itemkind < 20
return s:DoGetMemberList(ti, itemkind)
endif
elseif get(ti, 'tag', '') == 'PACKAGE'
" TODO: ti -> members, in addition to packages in dirs
return s:GetMembers( substitute(join(items, '.'), '\s', '', 'g') )
endif
elseif type(ti) == type([])
return ti
endif
endif
return []
endfunction
fu! s:MethodInvocation(expr, ti, itemkind)
let subs = split(substitute(a:expr, '\s*\(' . s:RE_IDENTIFIER . '\)\s*\((.*\)', '\1;\2', ''), ';')
" all methods matched
if empty(a:ti)
let methods = s:SearchForName(subs[0], 0, 1)[1]
elseif type(a:ti) == type({}) && get(a:ti, 'tag', '') == 'CLASSDEF'
let methods = s:SearchMember(a:ti, subs[0], 1, a:itemkind, 1, 0, a:itemkind == 2)[1]
" let methods = s:filter(get(a:ti, 'methods', []), 'item.n == "' . subs[0] . '"')
" if a:itemkind == 1 || a:itemkind == 2
" let methods += s:filter(get(a:ti, 'declared_methods', []), 'item.n == "' . subs[0] . '"')
" endif
else
let methods = []
endif
let method = s:DetermineMethod(methods, subs[1])
if !empty(method)
return s:ArrayAccess(method.r, a:expr)
endif
return {}
endfu
fu! s:ArrayAccess(arraytype, expr)
if a:expr =~ s:RE_BRACKETS | return {} | endif
let typename = a:arraytype
let dims = 0
if typename[0] == '[' || typename[-1:] == ']' || a:expr[-1:] == ']'
let dims = s:CountDims(a:expr) - s:CountDims(typename)
if dims == 0
let typename = matchstr(typename, s:RE_IDENTIFIER)
elseif dims < 0
return s:ARRAY_TYPE_INFO
else
"echoerr 'dims exceeds'
endif
endif
if dims == 0
if typename != 'void' && !s:IsBuiltinType(typename)
return s:DoGetClassInfo(typename)
endif
endif
return {}
endfu
" Quick information {{{1
function! MyBalloonExpr()
if (searchdecl(v:beval_text, 1, 0) == 0)
return s:GetVariableDeclaration()
endif
return ''
" return 'Cursor is at line ' . v:beval_lnum .
" \', column ' . v:beval_col .
" \ ' of file ' . bufname(v:beval_bufnr) .
" \ ' on word "' . v:beval_text . '"'
endfunction
"set bexpr=MyBalloonExpr()
"set ballooneval
" parameters information {{{1
fu! javacomplete#CompleteParamsInfo(findstart, base)
if a:findstart
return col('.') - 1
endif
let mi = s:GetMethodInvocationExpr(s:GetStatement())
if empty(mi.method)
return []
endif
" TODO: how to determine overloaded functions
"let mi.params = s:EvalParams(mi.params)
if empty(mi.expr)
let methods = s:SearchForName(mi.method, 0, 1)[1]
let result = eval('[' . s:DoGetMethodList(methods) . ']')
elseif mi.method == '+'
let result = s:GetConstructorList(mi.expr)
else
let result = s:CompleteAfterDot(mi.expr)
endif
if !empty(result)
if !empty(mi.method) && mi.method != '+'
let result = filter(result, "type(v:val) == type('') ? v:val ==# '" . mi.method . "' : v:val['word'] ==# '" . mi.method . "('")
endif
return result
endif
endfu
" scanning and parsing {{{1
" Search back from the cursor position till meeting '{' or ';'.
" '{' means statement start, ';' means end of a previous statement.
" Return: statement before cursor
" Note: It's the base for parsing. And It's OK for most cases.
function! s:GetStatement()
if getline('.') =~ '^\s*\(import\|package\)\s\+'
return strpart(getline('.'), match(getline('.'), '\(import\|package\)'), col('.')-1)
endif
let lnum_old = line('.')
let col_old = col('.')
while 1
if search('[{};]\|<%\|<%!', 'bW') == 0
let lnum = 1
let col = 1
else
if s:InCommentOrLiteral(line('.'), col('.'))
continue
endif
normal w
let lnum = line('.')
let col = col('.')
endif
break
endwhile
silent call cursor(lnum_old, col_old)
return s:MergeLines(lnum, col, lnum_old, col_old)
endfunction
fu! s:MergeLines(lnum, col, lnum_old, col_old)
let lnum = a:lnum
let col = a:col
let str = ''
if lnum < a:lnum_old
let str = s:Prune(strpart(getline(lnum), a:col-1))
let lnum += 1
while lnum < a:lnum_old
let str .= s:Prune(getline(lnum))
let lnum += 1
endwhile
let col = 1
endif
let lastline = strpart(getline(a:lnum_old), col-1, a:col_old-col)
let str .= s:Prune(lastline, col)
let str = s:RemoveBlockComments(str)
" generic in JAVA 5+
while match(str, s:RE_TYPE_ARGUMENTS) != -1
let str = substitute(str, '\(' . s:RE_TYPE_ARGUMENTS . '\)', '\=repeat(" ", len(submatch(1)))', 'g')
endwhile
let str = substitute(str, '\s\s\+', ' ', 'g')
let str = substitute(str, '\([.()]\)[ \t]\+', '\1', 'g')
let str = substitute(str, '[ \t]\+\([.()]\)', '\1', 'g')
return s:Trim(str) . matchstr(lastline, '\s*$')
endfu
" Extract a clean expr, removing some non-necessary characters.
fu! s:ExtractCleanExpr(expr)
let cmd = substitute(a:expr, '[ \t\r\n ]\+\([.()[\]]\)', '\1', 'g')
let cmd = substitute(cmd, '\([.()[\]]\)[ \t\r\n ]\+', '\1', 'g')
let pos = strlen(cmd)-1
while pos >= 0 && cmd[pos] =~ '[a-zA-Z0-9_.)\]]'
if cmd[pos] == ')'
let pos = s:SearchPairBackward(cmd, pos, '(', ')')
elseif cmd[pos] == ']'
let pos = s:SearchPairBackward(cmd, pos, '[', ']')
endif
let pos -= 1
endwhile
" try looking back for "new"
let idx = match(strpart(cmd, 0, pos+1), '\<new[ \t\r\n ]*$')
return strpart(cmd, idx != -1 ? idx : pos+1)
endfu
fu! s:ParseExpr(expr)
let items = []
let s = 0
" recognize ClassInstanceCreationExpr as a whole
let e = matchend(a:expr, '^\s*new\s\+' . s:RE_QUALID . '\s*[([]')-1
if e < 0
let e = match(a:expr, '[.([]')
endif
let isparen = 0
while e >= 0
if a:expr[e] == '.'
let subexpr = strpart(a:expr, s, e-s)
call extend(items, isparen ? s:ProcessParentheses(subexpr) : [subexpr])
let isparen = 0
let s = e + 1
elseif a:expr[e] == '('
let e = s:GetMatchedIndexEx(a:expr, e, '(', ')')
let isparen = 1
if e < 0
break
else
let e = matchend(a:expr, '^\s*[.[]', e+1)-1
continue
endif
elseif a:expr[e] == '['
let e = s:GetMatchedIndexEx(a:expr, e, '[', ']')
if e < 0
break
else
let e = matchend(a:expr, '^\s*[.[]', e+1)-1
continue
endif
endif
let e = match(a:expr, '[.([]', s)
endwhile
let tail = strpart(a:expr, s)
if tail !~ '^\s*$'
call extend(items, isparen ? s:ProcessParentheses(tail) : [tail])
endif
return items
endfu
" Given optional argument, call s:ParseExpr() to parser the nonparentheses expr
fu! s:ProcessParentheses(expr, ...)
let s = matchend(a:expr, '^\s*(')
if s != -1
let e = s:GetMatchedIndexEx(a:expr, s-1, '(', ')')
if e >= 0
let tail = strpart(a:expr, e+1)
if tail =~ '^\s*[\=$'
return s:ProcessParentheses(strpart(a:expr, s, e-s), 1)
elseif tail =~ '^\s*\w'
return [strpart(a:expr, 0, e+1) . 'obj.']
endif
endif
" multi-dot-expr except for new expr
elseif a:0 > 0 && stridx(a:expr, '.') != match(a:expr, '\.\s*$') && a:expr !~ '^\s*new\s\+'
return s:ParseExpr(a:expr)
endif
return [a:expr]
endfu
" return {'expr': , 'method': , 'params': }
fu! s:GetMethodInvocationExpr(expr)
let idx = strlen(a:expr)-1
while idx >= 0
if a:expr[idx] == '('
break
elseif a:expr[idx] == ')'
let idx = s:SearchPairBackward(a:expr, idx, '(', ')')
elseif a:expr[idx] == ']'
let idx = s:SearchPairBackward(a:expr, idx, '[', ']')
endif
let idx -= 1
endwhile
let mi = {'expr': strpart(a:expr, 0, idx+1), 'method': '', 'params': strpart(a:expr, idx+1)}
let idx = match(mi.expr, '\<new\s\+' . s:RE_QUALID . '\s*(\s*$')
if idx >= 0
let mi.method = '+'
let mi.expr = substitute(matchstr(strpart(mi.expr, idx+4), s:RE_QUALID), '\s', '', 'g')
else
let idx = match(mi.expr, '\<' . s:RE_IDENTIFIER . '\s*(\s*$')
if idx >= 0
let subs = s:SplitAt(mi.expr, idx-1)
let mi.method = substitute(subs[1], '\s*(\s*$', '', '')
let mi.expr = s:ExtractCleanExpr(subs[0])
endif
endif
return mi
endfu
" imports {{{1
function! s:GenerateImports()
let imports = []
let lnum_old = line('.')
let col_old = col('.')
call cursor(1, 1)
if &ft == 'jsp'
while 1
let lnum = search('\<import\s*=[''"]', 'W')
if (lnum == 0)
break
endif
let str = getline(lnum)
if str =~ '<%\s*@\s*page\>' || str =~ '<jsp:\s*directive.page\>'
let str = substitute(str, '.*import=[''"]\([a-zA-Z0-9_$.*, \t]\+\)[''"].*', '\1', '')
for item in split(str, ',')
call add(imports, substitute(item, '\s', '', 'g'))
endfor
endif
endwhile
else
while 1
let lnum = search('\<import\>', 'W')
if (lnum == 0)
break
elseif !s:InComment(line("."), col(".")-1)
normal w
" TODO: search semicolon or import keyword, excluding comment
let stat = matchstr(getline(lnum)[col('.')-1:], '\(static\s\+\)\?\(' .s:RE_QUALID. '\%(\s*\.\s*\*\)\?\)\s*;')
if !empty(stat)
call add(imports, stat[:-2])
endif
endif
endwhile
endif
call cursor(lnum_old, col_old)
return imports
endfunction
fu! s:GetImports(kind, ...)
let filekey = a:0 > 0 && !empty(a:1) ? a:1 : s:GetCurrentFileKey()
let props = get(s:files, filekey, {})
if !has_key(props, a:kind)
let props['imports'] = filekey == s:GetCurrentFileKey() ? s:GenerateImports() : props.unit.imports
let props['imports_static'] = []
let props['imports_fqn'] = []
let props['imports_star'] = ['java.lang.']
if &ft == 'jsp' || filekey =~ '\.jsp$'
let props.imports_star += ['javax.servlet.', 'javax.servlet.http.', 'javax.servlet.jsp.']
endif
for import in props.imports
let subs = split(substitute(import, '^\s*\(static\s\+\)\?\(' .s:RE_QUALID. '\%(\s*\.\s*\*\)\?\)\s*$', '\1;\2', ''), ';', 1)
let qid = substitute(subs[1] , '\s', '', 'g')
if !empty(subs[0])
call add(props.imports_static, qid)
elseif qid[-1:] == '*'
call add(props.imports_star, qid[:-2])
else
call add(props.imports_fqn, qid)
endif
endfor
let s:files[filekey] = props
endif
return get(props, a:kind, [])
endfu
" search for name in
" return the fqn matched
fu! s:SearchSingleTypeImport(name, fqns)
let matches = s:filter(a:fqns, 'item =~# ''\<' . a:name . '$''')
if len(matches) == 1
return matches[0]
elseif !empty(matches)
echoerr 'Name "' . a:name . '" conflicts between ' . join(matches, ' and ')
return matches[0]
endif
return ''
endfu
" search for name in static imports, return list of members with the same name
" return [types, methods, fields]
fu! s:SearchStaticImports(name, fullmatch)
let result = [[], [], []]
let candidates = [] " list of the canonical name
for item in s:GetImports('imports_static')
if item[-1:] == '*' " static import on demand
call add(candidates, item[:-3])
elseif item[strridx(item, '.')+1:] ==# a:name
\ || (!a:fullmatch && item[strridx(item, '.')+1:] =~ '^' . a:name)
call add(candidates, item[:strridx(item, '.')])
endif
endfor
if empty(candidates)
return result
endif
" read type info which are not in cache
let commalist = ''
for typename in candidates
if !has_key(s:cache, typename)
let commalist .= typename . ','
endif
endfor
if commalist != ''
let res = s:RunReflection('-E', commalist, 's:SearchStaticImports in Batch')
if res =~ "^{'"
let dict = eval(res)
for key in keys(dict)
let s:cache[key] = s:Sort(dict[key])
endfor
endif
endif
" search in all candidates
for typename in candidates
let ti = get(s:cache, typename, 0)
if type(ti) == type({}) && get(ti, 'tag', '') == 'CLASSDEF'
let members = s:SearchMember(ti, a:name, a:fullmatch, 12, 1, 0)
let result[1] += members[1]
let result[2] += members[2]
"let pattern = 'item.n ' . (a:fullmatch ? '==# ''' : '=~# ''^') . a:name . ''' && s:IsStatic(item.m)'
"let result[1] += s:filter(get(ti, 'methods', []), pattern)
"let result[2] += s:filter(get(ti, 'fields', []), pattern)
else
" TODO: mark the wrong import declaration.
endif
endfor
return result
endfu
" search decl {{{1
" Return: The declaration of identifier under the cursor
" Note: The type of a variable must be imported or a fqn.
function! s:GetVariableDeclaration()
let lnum_old = line('.')
let col_old = col('.')
silent call search('[^a-zA-Z0-9$_.,?<>[\] \t\r\n ]', 'bW') " call search('[{};(,]', 'b')
normal w
let lnum = line('.')
let col = col('.')
if (lnum == lnum_old && col == col_old)
return ''
endif
" silent call search('[;){]')
" let lnum_end = line('.')
" let col_end = col('.')
" let declaration = ''
" while (lnum <= lnum_end)
" let declaration = declaration . getline(lnum)
" let lnum = lnum + 1
" endwhile
" let declaration = strpart(declaration, col-1)
" let declaration = substitute(declaration, '\.[ \t]\+', '.', 'g')
silent call cursor(lnum_old, col_old)
return s:MergeLines(lnum, col, lnum_old, col_old)
endfunction
function! s:FoundClassDeclaration(type)
let lnum_old = line('.')
let col_old = col('.')
call cursor(1, 1)
while 1
let lnum = search('\<\C\(class\|interface\|enum\)[ \t\n\r ]\+' . a:type . '[< \t\n\r ]', 'W')
if lnum == 0 || !s:InCommentOrLiteral(line('.'), col('.'))
break
endif
endwhile
" search mainly for the cases: " class /* block comment */ Ident"
" " class // comment \n Ident "
if lnum == 0
let found = 0
while !found
let lnum = search('\<\C\(class\|interface\|enum\)[ \t\n\r ]\+', 'W')
if lnum == 0
break
elseif s:InCommentOrLiteral(line('.'), col('.'))
continue
else
normal w
" skip empty line
while getline(line('.'))[col('.')-1] == ''
normal w
endwhile
let lnum = line('.')
let col = col('.')
while 1
if match(getline(lnum)[col-1:], '^[ \t\n\r ]*' . a:type . '[< \t\n\r ]') >= 0
let found = 1
" meets comment
elseif match(getline(lnum)[col-1:], '^[ \t\n\r ]*\(//\|/\*\)') >= 0
if getline(lnum)[col-1:col] == '//'
normal $eb
else
let lnum = search('\*\/', 'W')
if lnum == 0
break
endif
normal web
endif
let lnum = line('.')
let col = col('.')
continue
endif
break
endwhile
endif
endwhile
endif
silent call cursor(lnum_old, col_old)
return lnum
endfu
fu! s:FoundClassLocally(type)
" current path
if globpath(expand('%:p:h'), a:type . '.java') != ''
return 1
endif
"
let srcpath = javacomplete#GetSourcePath(1)
let file = globpath(srcpath, substitute(fqn, '\.', '/', 'g') . '.java')
if file != ''
return 1
endif
return 0
endfu
" regexp samples:
" echo search('\(\(public\|protected|private\)[ \t\n\r]\+\)\?\(\(static\)[ \t\n\r]\+\)\?\(\<class\>\|\<interface\>\)[ \t\n\r]\+HelloWorld[^a-zA-Z0-9_$]', 'W')
" echo substitute(getline('.'), '.*\(\(public\|protected\|private\)[ \t\n\r]\+\)\?\(\(static\)[ \t\n\r]\+\)\?\(\<class\>\|\<interface\>\)\s\+\([a-zA-Z0-9_]\+\)\s\+\(\(implements\|extends\)\s\+\([^{]\+\)\)\?\s*{.*', '["\1", "\2", "\3", "\4", "\5", "\6", "\8", "\9"]', '')
" code sample:
function! s:GetClassDeclarationOf(type)
call cursor(1, 1)
let decl = []
let lnum = search('\(\<class\>\|\<interface\>\)[ \t\n\r]\+' . a:type . '[^a-zA-Z0-9_$]', 'W')
if (lnum != 0)
" TODO: search back for optional 'public | private' and 'static'
" join lines till to '{'
let lnum_end = search('{')
if (lnum_end != 0)
let str = ''
while (lnum <= lnum_end)
let str = str . getline(lnum)
let lnum = lnum + 1
endwhile
exe "let decl = " . substitute(str, '.*\(\<class\>\|\<interface\>\)\s\+\([a-zA-Z0-9_]\+\)\s\+\(\(implements\|extends\)\s\+\([^{]\+\)\)\?\s*{.*', '["\1", "\2", "\4", "\5"]', '')
endif
endif
return decl
endfunction
" return list
" 0 class | interface
" 1 name
" [2 implements | extends ]
" [3 parent list ]
function! s:GetThisClassDeclaration()
let lnum_old = line('.')
let col_old = col('.')
while (1)
call search('\(\<class\C\>\|\<interface\C\>\|\<enum\C\>\)[ \t\r\n]\+', 'bW')
if !s:InComment(line("."), col(".")-1)
if getline('.')[col('.')-2] !~ '\S'
break
endif
end
endwhile
" join lines till to '{'
let str = ''
let lnum = line('.')
call search('{')
let lnum_end = line('.')
while (lnum <= lnum_end)
let str = str . getline(lnum)
let lnum = lnum + 1
endwhile
let declaration = substitute(str, '.*\(\<class\>\|\<interface\>\)\s\+\([a-zA-Z0-9_]\+\)\(\s\+\(implements\|extends\)\s\+\([^{]\+\)\)\?\s*{.*', '["\1", "\2", "\4", "\5"]', '')
call cursor(lnum_old, col_old)
if declaration !~ '^['
echoerr 'Some error occurs when recognizing this class:' . declaration
return ['', '']
endif
exe "let list = " . declaration
return list
endfunction
" searches for name of a var or a field and determines the meaning {{{1
" The standard search order of a variable or field is as follows:
" 1. Local variables declared in the code block, for loop, or catch clause
" from current scope up to the most outer block, a method or an initialization block
" 2. Parameters if the code is in a method or ctor
" 3. Fields of the type
" 4. Accessible inherited fields.
" 5. If the type is a nested type,
" local variables of the enclosing block or fields of the enclosing class.
" Note that if the type is a static nested type, only static members of an enclosing block or class are searched
" Reapply this rule to the upper block and class enclosing the enclosing type recursively
" 6. Accessible static fields imported.
" It is allowed that several fields with the same name.
" The standard search order of a method is as follows:
" 1. Methods of the type
" 2. Accessible inherited methods.
" 3. Methods of the enclosing class if the type is a nested type.
" 4. Accessible static methods imported.
" It is allowed that several methods with the same name and signature.
" first return at once if found one.
" fullmatch 1 - equal, 0 - match beginning
" return [types, methods, fields, vars]
fu! s:SearchForName(name, first, fullmatch)
let result = [[], [], [], []]
if s:IsKeyword(a:name)
return result
endif
" use java_parser.vim
if javacomplete#GetSearchdeclMethod() == 4
" declared in current file
let unit = javacomplete#parse()
let targetPos = java_parser#MakePos(line('.')-1, col('.')-1)
let trees = s:SearchNameInAST(unit, a:name, targetPos, a:fullmatch)
for tree in trees
if tree.tag == 'VARDEF'
call add(result[2], tree)
elseif tree.tag == 'METHODDEF'
call add(result[1], tree)
elseif tree.tag == 'CLASSDEF'
call add(result[0], tree.name)
endif
endfor
if a:first && result != [[], [], [], []] | return result | endif
" Accessible inherited members
let type = get(s:SearchTypeAt(unit, targetPos), -1, {})
if !empty(type)
let members = s:SearchMember(type, a:name, a:fullmatch, 2, 1, 0, 1)
let result[0] += members[0]
let result[1] += members[1]
let result[2] += members[2]
" "let ti = s:AddInheritedClassInfo({}, type)
" if !empty(ti)
" let comparator = a:fullmatch ? "=~# '^" : "==# '"
" let result[0] += s:filter(get(ti, 'classes', []), 'item ' . comparator . a:name . "'")
" let result[1] += s:filter(get(ti, 'methods', []), 'item.n ' . comparator . a:name . "'")
" let result[2] += s:filter(get(ti, 'fields', []), 'item.n ' . comparator . a:name . "'")
" if a:0 > 0
" let result[1] += s:filter(get(ti, 'declared_methods', []), 'item.n ' . comparator . a:name . "'")
" let result[2] += s:filter(get(ti, 'declared_fields', []), 'item.n ' . comparator . a:name . "'")
" endif
" if a:first && result != [[], [], [], []] | return result | endif
" endif
endif
" static import
let si = s:SearchStaticImports(a:name, a:fullmatch)
let result[1] += si[1]
let result[2] += si[2]
endif
return result
endfu
" TODO: how to determine overloaded functions
fu! s:DetermineMethod(methods, parameters)
return get(a:methods, 0, {})
endfu
" Parser.GetType() in insenvim
function! s:GetDeclaredClassName(var)
let var = s:Trim(a:var)
call s:Trace('GetDeclaredClassName for "' . var . '"')
if var =~# '^\(this\|super\)$'
return var
endif
" Special handling for builtin objects in JSP
if &ft == 'jsp'
if get(s:JSP_BUILTIN_OBJECTS, a:var, '') != ''
return s:JSP_BUILTIN_OBJECTS[a:var]
endif
endif
" use java_parser.vim
if javacomplete#GetSearchdeclMethod() == 4
let variable = get(s:SearchForName(var, 1, 1)[2], -1, {})
return get(variable, 'tag', '') == 'VARDEF' ? java_parser#type2Str(variable.vartype) : get(variable, 't', '')
endif
let ic = &ignorecase
setlocal noignorecase
let searched = javacomplete#GetSearchdeclMethod() == 2 ? s:Searchdecl(var, 1, 0) : searchdecl(var, 1, 0)
if (searched == 0)
" code sample:
" String tmp; java.
" lang. String str, value;
" for (int i = 0, j = 0; i < 10; i++) {
" j = 0;
" }
let declaration = s:GetVariableDeclaration()
" Assume it a class member, and remove modifiers
let class = substitute(declaration, '^\(public\s\+\|protected\s\+\|private\s\+\|abstract\s\+\|static\s\+\|final\s\+\|native\s\+\)*', '', '')
let class = substitute(class, '\s*\([a-zA-Z0-9_.]\+\)\(\[\]\)\?\s\+.*', '\1\2', '')
let class = substitute(class, '\([a-zA-Z0-9_.]\)<.*', '\1', '')
call s:Info('class: "' . class . '" declaration: "' . declaration . '" for ' . a:var)
let &ignorecase = ic
if class != '' && class !=# a:var && class !=# 'import' && class !=# 'class'
return class
endif
endif
let &ignorecase = ic
call s:Trace('GetDeclaredClassName: cannot find')
return ''
endfunction
" using java_parser.vim {{{1
" javacomplete#parse() {{{2
fu! javacomplete#parse(...)
let filename = a:0 == 0 ? '%' : a:1
let changed = 0
if filename == '%'
let filename = s:GetCurrentFileKey()
let props = get(s:files, filename, {})
if get(props, 'changedtick', -1) != b:changedtick
let changed = 1
let props.changedtick = b:changedtick
let lines = getline('^', '$')
endif
else
let props = get(s:files, filename, {})
if get(props, 'modifiedtime', 0) != getftime(filename)
let changed = 1
let props.modifiedtime = getftime(filename)
let lines = readfile(filename)
endif
endif
if changed
call java_parser#InitParser(lines)
call java_parser#SetLogLevel(5)
let props.unit = java_parser#compilationUnit()
let package = has_key(props.unit, 'package') ? props.unit.package . '.' : ''
call s:UpdateFQN(props.unit, package)
endif
let s:files[filename] = props
return props.unit
endfu
" update fqn for toplevel types or nested types.
" not for local type or anonymous type
fu! s:UpdateFQN(tree, qn)
if a:tree.tag == 'TOPLEVEL'
for def in a:tree.types
call s:UpdateFQN(def, a:qn)
endfor
elseif a:tree.tag == 'CLASSDEF'
let a:tree.fqn = a:qn . a:tree.name
for def in a:tree.defs
if def.tag == 'CLASSDEF'
call s:UpdateFQN(def, a:tree.fqn . '.')
endif
endfor
endif
endfu
" TreeVisitor {{{2
fu! s:visitTree(tree, param) dict
if type(a:tree) == type({})
exe get(self, get(a:tree, 'tag', ''), '')
elseif type(a:tree) == type([])
for tree in a:tree
call self.visit(tree, a:param)
endfor
endif
endfu
let s:TreeVisitor = {'visit': function('s:visitTree'),
\ 'TOPLEVEL' : 'call self.visit(a:tree.types, a:param)',
\ 'BLOCK' : 'let stats = a:tree.stats | if stats == [] | call java_parser#GotoPosition(a:tree.pos) | let stats = java_parser#block().stats | endif | call self.visit(stats, a:param)',
\ 'DOLOOP' : 'call self.visit(a:tree.body, a:param) | call self.visit(a:tree.cond, a:param)',
\ 'WHILELOOP' : 'call self.visit(a:tree.cond, a:param) | call self.visit(a:tree.body, a:param)',
\ 'FORLOOP' : 'call self.visit(a:tree.init, a:param) | call self.visit(a:tree.cond, a:param) | call self.visit(a:tree.step, a:param) | call self.visit(a:tree.body, a:param)',
\ 'FOREACHLOOP' : 'call self.visit(a:tree.var, a:param) | call self.visit(a:tree.expr, a:param) | call self.visit(a:tree.body, a:param)',
\ 'LABELLED' : 'call self.visit(a:tree.body, a:param)',
\ 'SWITCH' : 'call self.visit(a:tree.selector, a:param) | call self.visit(a:tree.cases, a:param)',
\ 'CASE' : 'call self.visit(a:tree.pat, a:param) | call self.visit(a:tree.stats, a:param)',
\ 'SYNCHRONIZED': 'call self.visit(a:tree.lock, a:param) | call self.visit(a:tree.body, a:param)',
\ 'TRY' : 'call self.visit(a:tree.body, a:param) | call self.visit(a:tree.catchers, a:param) | call self.visit(a:tree.finalizer, a:param) ',
\ 'CATCH' : 'call self.visit(a:tree.param,a:param) | call self.visit(a:tree.body, a:param)',
\ 'CONDEXPR' : 'call self.visit(a:tree.cond, a:param) | call self.visit(a:tree.truepart, a:param) | call self.visit(a:tree.falsepart, a:param)',
\ 'IF' : 'call self.visit(a:tree.cond, a:param) | call self.visit(a:tree.thenpart, a:param) | if has_key(a:tree, "elsepart") | call self.visit(a:tree.elsepart, a:param) | endif',
\ 'EXEC' : 'call self.visit(a:tree.expr, a:param)',
\ 'APPLY' : 'call self.visit(a:tree.meth, a:param) | call self.visit(a:tree.args, a:param)',
\ 'NEWCLASS' : 'call self.visit(a:tree.def, a:param)'
\}
let s:TV_CMP_POS = 'a:tree.pos <= a:param.pos && a:param.pos <= get(a:tree, "endpos", -1)'
let s:TV_CMP_POS_BODY = 'has_key(a:tree, "body") && a:tree.body.pos <= a:param.pos && a:param.pos <= get(a:tree.body, "endpos", -1)'
" Return a stack of enclosing types (including local or anonymous classes).
" Given the optional argument, return all (toplevel or static member) types besides enclosing types.
fu! s:SearchTypeAt(tree, targetPos, ...)
let s:TreeVisitor.CLASSDEF = 'if a:param.allNonLocal || ' . s:TV_CMP_POS . ' | call add(a:param.result, a:tree) | call self.visit(a:tree.defs, a:param) | endif'
let s:TreeVisitor.METHODDEF = 'if ' . s:TV_CMP_POS_BODY . ' | call self.visit(a:tree.body, a:param) | endif'
let s:TreeVisitor.VARDEF = 'if has_key(a:tree, "init") && !a:param.allNonLocal && ' . s:TV_CMP_POS . ' | call self.visit(a:tree.init, a:param) | endif'
let result = []
call s:TreeVisitor.visit(a:tree, {'result': result, 'pos': a:targetPos, 'allNonLocal': a:0 == 0 ? 0 : 1})
return result
endfu
" a:1 match beginning
" return a stack of matching name
fu! s:SearchNameInAST(tree, name, targetPos, fullmatch)
let comparator = a:fullmatch ? '==#' : '=~# "^" .'
let cmd = 'if a:tree.name ' .comparator. ' a:param.name | call add(a:param.result, a:tree) | endif'
let s:TreeVisitor.CLASSDEF = 'if ' . s:TV_CMP_POS . ' | ' . cmd . ' | call self.visit(a:tree.defs, a:param) | endif'
let s:TreeVisitor.METHODDEF = cmd . ' | if ' . s:TV_CMP_POS_BODY . ' | call self.visit(a:tree.params, a:param) | call self.visit(a:tree.body, a:param) | endif'
let s:TreeVisitor.VARDEF = cmd . ' | if has_key(a:tree, "init") && ' . s:TV_CMP_POS . ' | call self.visit(a:tree.init, a:param) | endif'
let result = []
call s:TreeVisitor.visit(a:tree, {'result': result, 'pos': a:targetPos, 'name': a:name})
"call s:Info(a:name . ' ' . string(result) . ' line: ' . line('.') . ' col: ' . col('.')) . ' ' . a:targetPos
return result
endfu
" javacomplete#Searchdecl {{{2
" TODO:
fu! javacomplete#Searchdecl()
let var = expand('<cword>')
let line = line('.')-1
let col = col('.')-1
if var =~# '^\(this\|super\)$'
if &ft == 'jsp'
return ''
endif
let matchs = s:SearchTypeAt(javacomplete#parse(), java_parser#MakePos(line, col))
let stat = s:GetStatement()
for t in matchs
if stat =~ t.name
let coor = java_parser#DecodePos(t.pos)
return var . '(' . (coor.line+1) . ',' . (coor.col) . ') ' . getline(coor.line+1)
endif
endfor
if len(matchs) > 0
let coor = java_parser#DecodePos(matchs[len(matchs)-1].pos)
return var . '(' . (coor.line+1) . ',' . (coor.col) . ') ' . getline(coor.line+1)
endif
return ''
endif
" Type.this.
" new Type()
" new Type(param1, param2)
" this.field
" super.field
let s:log = []
" It may be an imported class.
let imports = []
for fqn in s:GetImports('imports_fqn')
if fqn =~# '\<' . var . '\>$'
call add(imports, fqn)
endif
endfor
if len(imports) > 1
echoerr 'Imports conflicts between ' . join(imports, ' and ')
endif
" Search in this buffer
let matchs = s:SearchNameInAST(javacomplete#parse(), var, java_parser#MakePos(line, col), 1)
let hint = var . ' '
if !empty(matchs)
let tree = matchs[len(matchs)-1]
let coor = java_parser#DecodePos(tree.pos)
let hint .= '(' . (coor.line+1) . ',' . (coor.col) . ') '
let hint .= getline(coor.line+1) "string(tree)
else
for fqn in imports
let ci = s:DoGetClassInfo(fqn)
if !empty(ci)
let hint .= ' ' . fqn
endif
" TODO: get javadoc
endfor
endif
return hint
endfu
" java {{{1
fu! s:IsBuiltinType(name)
return index(s:PRIMITIVE_TYPES, a:name) >= 0
endfu
fu! s:IsKeyword(name)
return index(s:KEYWORDS, a:name) >= 0
endfu
fu! s:HasKeyword(name)
return a:name =~# s:RE_KEYWORDS
endfu
fu! s:TailOfQN(qn)
return a:qn[strridx(a:qn, '.')+1:]
endfu
" options {{{1
" Methods to search declaration {{{2
" 1 - by builtin searchdecl()
" 2 - by special Searchdecl()
" 4 - by java_parser
fu! javacomplete#GetSearchdeclMethod()
if &ft == 'jsp'
return 1
endif
return exists('s:searchdecl') ? s:searchdecl : 4
endfu
fu! javacomplete#SetSearchdeclMethod(method)
let s:searchdecl = a:method
endfu
" JDK1.1 {{{2
fu! javacomplete#UseJDK11()
let s:isjdk11 = 1
endfu
" java compiler {{{2
fu! javacomplete#GetCompiler()
return exists('s:compiler') && s:compiler !~ '^\s*$' ? s:compiler : 'javac'
endfu
fu! javacomplete#SetCompiler(compiler)
let s:compiler = a:compiler
endfu
" jvm launcher {{{2
fu! javacomplete#GetJVMLauncher()
return exists('s:interpreter') && s:interpreter !~ '^\s*$' ? s:interpreter : 'java'
endfu
fu! javacomplete#SetJVMLauncher(interpreter)
if javacomplete#GetJVMLauncher() != a:interpreter
let s:cache = {}
endif
let s:interpreter = a:interpreter
endfu
" sourcepath {{{2
fu! javacomplete#AddSourcePath(s)
if !isdirectory(a:s)
echoerr 'invalid source path: ' . a:s
return
endif
let path = fnamemodify(a:s, ':p:h')
if !exists('s:sourcepath')
let s:sourcepath = [path]
elseif index(s:sourcepath, path) == -1
call add(s:sourcepath, path)
endif
endfu
fu! javacomplete#DelSourcePath(s)
if !exists('s:sourcepath') || !isdirectory(a:s)| return | endif
let idx = index(s:sourcepath, a:s)
if idx != -1
call remove(s:sourcepath, idx)
endif
endfu
fu! javacomplete#SetSourcePath(s)
let paths = type(a:s) == type([]) ? a:s : split(a:s, javacomplete#GetClassPathSep())
let s:sourcepath = []
for path in paths
if isdirectory(path)
call add(s:sourcepath, fnamemodify(path, ':p:h'))
endif
endfor
endfu
" return the sourcepath. Given argument, add current path or default package root path
" NOTE: Avoid path duplicate, otherwise globpath() will return duplicate result.
fu! javacomplete#GetSourcePath(...)
return join(s:GetSourceDirs(a:0 > 0 && a:1 ? expand('%:p') : ''), s:PATH_SEP)
endfu
fu! s:GetSourceDirs(filepath, ...)
let dirs = exists('s:sourcepath') ? s:sourcepath : []
if !empty(a:filepath)
let filepath = fnamemodify(a:filepath, ':p:h')
" get source path according to file path and package name
let packageName = a:0 > 0 ? a:1 : s:GetPackageName()
if packageName != ''
let path = fnamemodify(substitute(filepath, packageName, '', 'g'), ':p:h')
if index(dirs, path) < 0
call add(dirs, path)
endif
endif
" Consider current path as a sourcepath
if index(dirs, filepath) < 0
call add(dirs, filepath)
endif
endif
return dirs
endfu
" classpath {{{2
fu! javacomplete#AddClassPath(s)
if !isdirectory(a:s)
echoerr 'invalid classpath: ' . a:s
return
endif
if !exists('s:classpath')
let s:classpath = [a:s]
elseif index(s:classpath, a:s) == -1
call add(s:classpath, a:s)
endif
let s:cache = {}
endfu
fu! javacomplete#DelClassPath(s)
if !exists('s:classpath') | return | endif
let idx = index(s:classpath, a:s)
if idx != -1
call remove(s:classpath, idx)
endif
endfu
fu! javacomplete#SetClassPath(s)
if type(a:s) == type("")
let s:classpath = split(a:s, javacomplete#GetClassPathSep())
elseif type(a:s) == type([])
let s:classpath = a:s
endif
let s:cache = {}
endfu
fu! javacomplete#GetClassPathSep()
return s:PATH_SEP
endfu
fu! javacomplete#GetClassPath()
return exists('s:classpath') ? join(s:classpath, javacomplete#GetClassPathSep()) : ''
endfu
" s:GetClassPath() {{{2
fu! s:GetClassPath()
let path = s:GetJavaCompleteClassPath() . javacomplete#GetClassPathSep()
if &ft == 'jsp'
let path .= s:GetClassPathOfJsp()
endif
if exists('b:classpath') && b:classpath !~ '^\s*$'
return path . b:classpath
endif
if exists('s:classpath')
return path . javacomplete#GetClassPath()
endif
if exists('g:java_classpath') && g:java_classpath !~ '^\s*$'
return path . g:java_classpath
endif
return path . $CLASSPATH
endfu
fu! s:GetJavaCompleteClassPath()
" remove *.class from wildignore if it exists, so that globpath doesn't ignore Reflection.class
" vim versions >= 702 can add the 1 flag to globpath which ignores '*.class" in wildingore
let has_class = 0
if &wildignore =~# "*.class"
set wildignore-=*.class
let has_class = 1
endif
let classfile = globpath(&rtp, 'autoload/Reflection.class')
if classfile == ''
let classfile = globpath($HOME, 'Reflection.class')
endif
if classfile == ''
" try to find source file and compile to $HOME
let srcfile = globpath(&rtp, 'autoload/Reflection.java')
if srcfile != ''
exe '!' . javacomplete#GetCompiler() . ' -d "' . $HOME . '" "' . srcfile . '"'
let classfile = globpath($HOME, 'Reflection.class')
if classfile == ''
echo srcfile . ' can not be compiled. Please check it'
endif
else
echo 'No Reflection.class found in $HOME or any autoload directory of the &rtp. And no Reflection.java found in any autoload directory of the &rtp to compile.'
endif
endif
" add *.class to wildignore if it existed before
if has_class == 1
set wildignore+=*.class
endif
return fnamemodify(classfile, ':p:h')
endfu
fu! s:GetClassPathOfJsp()
if exists('b:classpath_jsp')
return b:classpath_jsp
endif
let b:classpath_jsp = ''
let path = expand('%:p:h')
while 1
if isdirectory(path . '/WEB-INF' )
if isdirectory(path . '/WEB-INF/classes')
let b:classpath_jsp .= s:PATH_SEP . path . '/WEB-INF/classes'
endif
if isdirectory(path . '/WEB-INF/lib')
let libs = globpath(path . '/WEB-INF/lib', '*.jar')
if libs != ''
let b:classpath_jsp .= s:PATH_SEP . substitute(libs, "\n", s:PATH_SEP, 'g')
endif
endif
return b:classpath_jsp
endif
let prev = path
let path = fnamemodify(path, ":p:h:h")
if path == prev
break
endif
endwhile
return ''
endfu
" return only classpath which are directories
fu! s:GetClassDirs()
let dirs = []
for path in split(s:GetClassPath(), s:PATH_SEP)
if isdirectory(path)
call add(dirs, fnamemodify(path, ':p:h'))
endif
endfor
return dirs
endfu
" s:GetPackageName() {{{2
fu! s:GetPackageName()
let lnum_old = line('.')
let col_old = col('.')
call cursor(1, 1)
let lnum = search('^\s*package[ \t\r\n]\+\([a-zA-Z][a-zA-Z0-9.]*\);', 'w')
let packageName = substitute(getline(lnum), '^\s*package\s\+\([a-zA-Z][a-zA-Z0-9.]*\);', '\1', '')
call cursor(lnum_old, col_old)
return packageName
endfu
fu! s:IsStatic(modifier)
return a:modifier[strlen(a:modifier)-4]
endfu
" utilities {{{1
" Convert a file name into the unique form.
" Similar with fnamemodify(). NOTE that ':gs' should not be used.
fu! s:fnamecanonize(fname, mods)
return fnamemodify(a:fname, a:mods . ':gs?[\\/]\+?/?')
endfu
" Similar with filter(), but returns a new list instead of operating in-place.
" `item` has the value of the current item.
fu! s:filter(expr, string)
if type(a:expr) == type([])
let result = []
for item in a:expr
if eval(a:string)
call add(result, item)
endif
endfor
return result
else
let result = {}
for item in items(a:expr)
if eval(a:string)
let result[item[0]] = item[1]
endif
endfor
return result
endif
endfu
fu! s:Index(list, expr, key)
let i = 0
while i < len(a:list)
if get(a:list[i], a:key, '') == a:expr
return i
endif
let i += 1
endwhile
return -1
endfu
fu! s:Match(list, expr, key)
let i = 0
while i < len(a:list)
if get(a:list[i], a:key, '') =~ a:expr
return i
endif
let i += 1
endwhile
return -1
endfu
fu! s:KeepCursor(cmd)
let lnum_old = line('.')
let col_old = col('.')
exe a:cmd
call cursor(lnum_old, col_old)
endfu
fu! s:InCommentOrLiteral(line, col)
if has("syntax") && &ft != 'jsp'
return synIDattr(synID(a:line, a:col, 1), "name") =~? '\(Comment\|String\|Character\)'
endif
endfu
function! s:InComment(line, col)
if has("syntax") && &ft != 'jsp'
return synIDattr(synID(a:line, a:col, 1), "name") =~? 'comment'
endif
" if getline(a:line) =~ '\s*\*'
" return 1
" endif
" let idx = strridx(getline(a:line), '//')
" if idx >= 0 && idx < a:col
" return 1
" endif
" return 0
endfunction
" set string literal empty, remove comments, trim begining or ending spaces
" test case: ' sb. /* block comment*/ append( "stringliteral" ) // comment '
function! s:Prune(str, ...)
if a:str =~ '^\s*$' | return '' | endif
let str = substitute(a:str, '"\(\\\(["\\''ntbrf]\)\|[^"]\)*"', '""', 'g')
let str = substitute(str, '\/\/.*', '', 'g')
let str = s:RemoveBlockComments(str)
return a:0 > 0 ? str : str . ' '
endfunction
" Given argument, replace block comments with spaces of same number
fu! s:RemoveBlockComments(str, ...)
let result = a:str
let ib = match(result, '\/\*')
let ie = match(result, '\*\/')
while ib != -1 && ie != -1 && ib < ie
let result = strpart(result, 0, ib) . (a:0 == 0 ? ' ' : repeat(' ', ie-ib+2)) . result[ie+2: ]
let ib = match(result, '\/\*')
let ie = match(result, '\*\/')
endwhile
return result
endfu
fu! s:Trim(str)
let str = substitute(a:str, '^\s*', '', '')
return substitute(str, '\s*$', '', '')
endfu
fu! s:SplitAt(str, index)
return [strpart(a:str, 0, a:index+1), strpart(a:str, a:index+1)]
endfu
" TODO: search pair used in string, like
" 'create(ao.fox("("), new String).foo().'
function! s:GetMatchedIndexEx(str, idx, one, another)
let pos = a:idx
while 0 <= pos && pos < len(a:str)
let pos = match(a:str, '['. a:one . escape(a:another, ']') .']', pos+1)
if pos != -1
if a:str[pos] == a:one
let pos = s:GetMatchedIndexEx(a:str, pos, a:one, a:another)
elseif a:str[pos] == a:another
break
endif
endif
endwhile
return 0 <= pos && pos < len(a:str) ? pos : -3
endfunction
function! s:SearchPairBackward(str, idx, one, another)
let idx = a:idx
let n = 0
while idx >= 0
let idx -= 1
if a:str[idx] == a:one
if n == 0
break
endif
let n -= 1
elseif a:str[idx] == a:another " nested
let n += 1
endif
endwhile
return idx
endfunction
fu! s:CountDims(str)
if match(a:str, '[[\]]') == -1
return 0
endif
" int[] -> [I, String[] ->
let dims = len(matchstr(a:str, '^[\+'))
if dims == 0
let idx = len(a:str)-1
while idx >= 0 && a:str[idx] == ']'
let dims += 1
let idx = s:SearchPairBackward(a:str, idx, '[', ']')-1
endwhile
endif
return dims
endfu
fu! s:GotoUpperBracket()
let searched = 0
while (!searched)
call search('[{}]', 'bW')
if getline('.')[col('.')-1] == '}'
normal %
else
let searched = 1
endif
endwhile
endfu
" Improve recognition of variable declaration using my version of searchdecl() for accuracy reason.
" TODO:
fu! s:Searchdecl(name, ...)
let global = a:0 > 0 ? a:1 : 0
let thisblock = a:0 > 1 ? a:2 : 1
call search('\<' . a:name . '\>', 'bW')
let lnum_old = line('.')
let col_old = col('.')
call s:GotoUpperBracket()
let lnum_bracket = line('.')
let col_bracket = col('.')
call search('\<' . a:name . '\>', 'W', lnum_old)
if line('.') != lnum_old || col('.') != col_old
return 0
endif
" search globally
if global
call cursor(lnum_bracket, col_bracket)
" search backward
while (1)
if search('\([{}]\|\<' . a:name . '\>\)', 'bW') == 0
break
endif
if s:InComment(line('.'), col('.')) "|| s:InStringLiteral()
continue
endif
let cword = expand('<cword>')
if cword == a:name
return 0
endif
if getline('.')[col('.')-1] == '}'
normal %
endif
endwhile
call cursor(lnum_old, col_old)
" search forward
call search('[{};]', 'W')
while (1)
if search('\([{}]\|\<' . a:name . '\>\)', 'W') == 0
break
endif
if s:InComment(line('.'), col('.')) "|| s:InStringLiteral()
continue
endif
let cword = expand('<cword>')
if cword == a:name
return 0
endif
if getline('.')[col('.')-1] == '{'
normal %
endif
endwhile
endif
return 1
endfu
"nmap <F8> :call <SID>Searchdecl(expand('<cword>'))<CR>
fu! javacomplete#Exe(cmd)
exe a:cmd
endfu
" cache utilities {{{1
" key of s:files for current buffer. It may be the full path of current file or the bufnr of unnamed buffer, and is updated when BufEnter, BufLeave.
fu! s:GetCurrentFileKey()
return has("autocmd") ? s:curfilekey : empty(expand('%')) ? bufnr('%') : expand('%:p')
endfu
fu! s:SetCurrentFileKey()
let s:curfilekey = empty(expand('%')) ? bufnr('%') : expand('%:p')
endfu
call s:SetCurrentFileKey()
if has("autocmd")
autocmd BufEnter *.java call s:SetCurrentFileKey()
autocmd FileType java call s:SetCurrentFileKey()
endif
" Log utilities {{{1
fu! s:WatchVariant(variant)
"echoerr a:variant
endfu
" level
" 5 off/fatal
" 4 error
" 3 warn
" 2 info
" 1 debug
" 0 trace
fu! javacomplete#SetLogLevel(level)
let s:loglevel = a:level
endfu
fu! javacomplete#GetLogLevel()
return exists('s:loglevel') ? s:loglevel : 3
endfu
fu! javacomplete#GetLogContent()
return s:log
endfu
fu! s:Trace(msg)
call s:Log(0, a:msg)
endfu
fu! s:Debug(msg)
call s:Log(1, a:msg)
endfu
fu! s:Info(msg)
call s:Log(2, a:msg)
endfu
fu! s:Log(level, key, ...)
if a:level >= javacomplete#GetLogLevel()
echo a:key
call add(s:log, a:key)
endif
endfu
fu! s:System(cmd, caller)
call s:WatchVariant(a:cmd)
let t = reltime()
let res = system(a:cmd)
call s:Debug(reltimestr(reltime(t)) . 's to exec "' . a:cmd . '" by ' . a:caller)
return res
endfu
" functions to get information {{{1
" utilities {{{2
fu! s:MemberCompare(m1, m2)
return a:m1['n'] == a:m2['n'] ? 0 : a:m1['n'] > a:m2['n'] ? 1 : -1
endfu
fu! s:Sort(ci)
let ci = a:ci
if has_key(ci, 'fields')
call sort(ci['fields'], 's:MemberCompare')
endif
if has_key(ci, 'methods')
call sort(ci['methods'], 's:MemberCompare')
endif
return ci
endfu
" Function to run Reflection {{{2
fu! s:RunReflection(option, args, log)
let classpath = ''
if !exists('s:isjdk11')
let classpath = ' -classpath "' . s:GetClassPath() . '" '
endif
let cmd = javacomplete#GetJVMLauncher() . classpath . ' Reflection ' . a:option . ' "' . a:args . '"'
return s:System(cmd, a:log)
endfu
" class information {{{2
" The standard search order of a FQN is as follows:
" 1. a file-name toplevel type or static member type accessed by the file-name type declared in source files
" 2. other types declared in source files
" 3. an accessible loadable type.
" parameters:
" fqns - list of fqn
" srcpaths - a comma-separated list of directory names.
" a:1 - search all.
" return a dict of fqn -> type info
" precondition:
" NOTE: call expand() to convert path to standard form
fu! s:DoGetTypeInfoForFQN(fqns, srcpath, ...)
if empty(a:fqns) || empty(a:srcpath)
return
endif
" 1
let files = {} " fqn -> java file path
for fqn in a:fqns
" toplevel type
let filepath = globpath(a:srcpath, substitute(fqn, '\.', '/', 'g') . '.java')
if filepath != ''
let files[fqn] = expand(filepath)
" nested type
elseif stridx(fqn, '.') >= 0
let idents = split(fqn, '\.')
let i = len(idents)-2
while i >= 0
let filepath = globpath(a:srcpath, join(idents[:i], '/') . '.java')
if filepath != ''
let files[fqn] = expand(filepath)
break
endif
let i -= 1
endwhile
endif
endfor
" 2
let dirs = {} " dir.idents -> names of nested type
" dir.qfitems -> items of quick fix
" dir.fqn -> fqn
for fqn in a:fqns
if !has_key(files, fqn)
for path in split(a:srcpath, ',')
let idents = split(fqn, '\.')
let i = len(idents)-2
while i >= 0
let dirpath = path . '/' . join(idents[:i], '/')
" it is a package
if isdirectory(dirpath)
let dirs[fnamemodify(dirpath, ':p:h:gs?[\\/]\+?/?')] = {'fqn': fqn, 'idents': idents[i+1:]}
break
endif
let i -= 1
endwhile
endfor
endif
endfor
if !empty(dirs)
let items = {} " dir -> items of quick fix
let filepatterns = ''
for dirpath in keys(dirs)
let filepatterns .= escape(dirpath, ' \') . '/*.java '
endfor
let cwd = fnamemodify(expand('%:p:h'), ':p:h:gs?[\\/]\+?/?')
exe 'vimgrep /\s*' . s:RE_TYPE_DECL . '/jg ' . filepatterns
for item in getqflist()
if item.text !~ '^\s*\*\s\+'
let text = matchstr(s:Prune(item.text, -1), '\s*' . s:RE_TYPE_DECL)
if text != ''
let subs = split(substitute(text, '\s*' . s:RE_TYPE_DECL, '\1;\2;\3', ''), ';', 1)
let dirpath = fnamemodify(bufname(item.bufnr), ':p:h:gs?[\\/]\+?/?')
let idents = dirs[dirpath].idents
if index(idents, subs[2]) >= 0 && (subs[0] =~ '\C\<public\>' || dirpath == cwd) " FIXME?
let item.subs = subs
let dirs[dirpath].qfitems = get(dirs[dirpath], 'qfitems', []) + [item]
endif
endif
endif
endfor
for dirpath in keys(dirs)
" a. names of nested type must be existed in the same file
" PackageName.NonFileNameTypeName.NestedType.NestedNestedType
let qfitems = get(dirs[dirpath], 'qfitems', [])
let nr = 0
for ident in dirs[dirpath].idents
for item in qfitems
if item.subs[2] == ident
let nr += 1
endif
endfor
endfor
if nr == len(dirs[dirpath].idents)
" b. TODO: Check whether one enclosed another is correct
let files[fqn] = expand(bufname(qfitems[0].bufnr))
endif
endfor
endif
call s:Info('FQN1&2: ' . string(keys(files)))
for fqn in keys(files)
if !has_key(s:cache, fqn) || get(get(s:files, files[fqn], {}), 'modifiedtime', 0) != getftime(files[fqn])
let ti = s:GetClassInfoFromSource(fqn[strridx(fqn, '.')+1:], files[fqn])
if !empty(ti)
let s:cache[fqn] = s:Sort(ti)
endif
endif
if (a:0 == 0 || !a:1)
return
endif
endfor
" 3
let commalist = ''
for fqn in a:fqns
if has_key(s:cache, fqn) && (a:0 == 0 || !a:1)
return
else "if stridx(fqn, '.') >= 0
let commalist .= fqn . ','
endif
endfor
if !empty(commalist)
let res = s:RunReflection('-E', commalist, 'DoGetTypeInfoForFQN in Batch')
if res =~ "^{'"
let dict = eval(res)
for key in keys(dict)
if !has_key(s:cache, key)
if type(dict[key]) == type({})
let s:cache[key] = s:Sort(dict[key])
elseif type(dict[key]) == type([])
let s:cache[key] = sort(dict[key])
endif
endif
endfor
endif
endif
endfu
" a:1 filepath
" a:2 package name
fu! s:DoGetClassInfo(class, ...)
if has_key(s:cache, a:class)
return s:cache[a:class]
endif
" array type: TypeName[] or '[I' or '[[Ljava.lang.String;'
if a:class[-1:] == ']' || a:class[0] == '['
return s:ARRAY_TYPE_INFO
endif
" either this or super is not qualified
if a:class == 'this' || a:class == 'super'
if &ft == 'jsp'
let ci = s:DoGetReflectionClassInfo('javax.servlet.jsp.HttpJspPage')
if a:class == 'this'
" TODO: search methods defined in <%! [declarations] %>
" search methods defined in other jsp files included
" avoid including self directly or indirectly
endif
return ci
endif
call s:Info('A0. ' . a:class)
" this can be a local class or anonymous class as well as static type
let t = get(s:SearchTypeAt(javacomplete#parse(), java_parser#MakePos(line('.')-1, col('.')-1)), -1, {})
if !empty(t)
" What will be returned for super?
" - the protected or public inherited fields and methods. No ctors.
" - the (public static) fields of interfaces.
" - the methods of the Object class.
" What will be returned for this?
" - besides the above, all fields and methods of current class. No ctors.
return s:Sort(s:Tree2ClassInfo(t))
"return s:Sort(s:AddInheritedClassInfo(a:class == 'this' ? s:Tree2ClassInfo(t) : {}, t, 1))
endif
return {}
endif
if a:class !~ '^\s*' . s:RE_QUALID . '\s*$' || s:HasKeyword(a:class)
return {}
endif
let typename = substitute(a:class, '\s', '', 'g')
let filekey = a:0 > 0 ? a:1 : s:GetCurrentFileKey()
let packagename = a:0 > 1 ? a:2 : s:GetPackageName()
let srcpath = join(s:GetSourceDirs(a:0 > 0 && a:1 != bufnr('%') ? a:1 : expand('%:p'), packagename), ',')
let names = split(typename, '\.')
" remove the package name if in the same packge
if len(names) > 1
if packagename == join(names[:-2], '.')
let names = names[-1:]
endif
endif
" a FQN
if len(names) > 1
call s:DoGetTypeInfoForFQN([typename], srcpath)
let ci = get(s:cache, typename, {})
if get(ci, 'tag', '') == 'CLASSDEF'
return s:cache[typename]
elseif get(ci, 'tag', '') == 'PACKAGE'
return {}
endif
endif
" The standard search order of a simple type name is as follows:
" 1. The current type including inherited types.
" 2. A nested type of the current type.
" 3. Explicitly named imported types (single type import).
" 4. Other types declared in the same package. Not only current directory.
" 5. Implicitly named imported types (import on demand).
" 1 & 2.
" NOTE: inherited types are treated as normal
if filekey == s:GetCurrentFileKey()
let simplename = typename[strridx(typename, '.')+1:]
if s:FoundClassDeclaration(simplename) != 0
call s:Info('A1&2')
let ci = s:GetClassInfoFromSource(simplename, '%')
" do not cache it
if !empty(ci)
return ci
endif
endif
else
let ci = s:GetClassInfoFromSource(typename, filekey)
if !empty(ci)
return ci
endif
endif
" 3.
" NOTE: PackageName.Ident, TypeName.Ident
let fqn = s:SearchSingleTypeImport(typename, s:GetImports('imports_fqn', filekey))
if !empty(fqn)
call s:Info('A3')
call s:DoGetTypeInfoForFQN([fqn], srcpath)
let ti = get(s:cache, fqn, {})
if get(ti, 'tag', '') != 'CLASSDEF'
" TODO: mark the wrong import declaration.
endif
return ti
endif
" 4 & 5
" NOTE: Keeps the fqn of the same package first!!
call s:Info('A4&5')
let fqns = [empty(packagename) ? typename : packagename . '.' . typename]
for p in s:GetImports('imports_star', filekey)
call add(fqns, p . typename)
endfor
call s:DoGetTypeInfoForFQN(fqns, srcpath)
for fqn in fqns
if has_key(s:cache, fqn)
return get(s:cache[fqn], 'tag', '') == 'CLASSDEF' ? s:cache[fqn] : {}
endif
endfor
return {}
endfu
" Rules of overriding and hiding:
" 1. Fields cannot be overridden; they can only be hidden.
" In the subclass, the hidden field of superclass can no longer be accessed
" directly by its simple name. `super` or another reference must be used.
" 2. A method can be overriden only if it is accessible.
" When overriding methods, both the signature and return type must be the
" same as in the superclass.
" 3. Static members cannot be overridden; they can only be hidden
" -- whether a field or a method. But hiding static members has little effect,
" because static should be accessed via the name of its declaring class.
" Given optional argument, add protected, default (package) access, private members.
"fu! s:MergeClassInfo(ci, another, ...)
" if empty(a:another) | return a:ci | endif
"
" if empty(a:ci)
" let ci = copy(a:another)
"" if a:0 > 0 && a:1
"" call extend(ci.fields, get(a:another, 'declared_fields', []))
"" call extend(ci.methods, get(a:another, 'declared_methods', []))
"" endif
" return ci
" endif
"
" call extend(a:ci.methods, a:another.methods)
"
" for f in a:another.fields
" if s:Index(a:ci.fields, f.n, 'n') < 0
" call add(a:ci.fields, f)
" endif
" endfor
" return a:ci
"endfu
" Parameters:
" class the qualified class name
" Return: TClassInfo or {} when not found
" See ClassInfoFactory.getClassInfo() in insenvim.
function! s:DoGetReflectionClassInfo(fqn)
if !has_key(s:cache, a:fqn)
let res = s:RunReflection('-C', a:fqn, 's:DoGetReflectionClassInfo')
if res =~ '^{'
let s:cache[a:fqn] = s:Sort(eval(res))
elseif res =~ '^['
for type in eval(res)
if get(type, 'name', '') != ''
let s:cache[type.name] = s:Sort(type)
endif
endfor
else
let b:errormsg = res
endif
endif
return get(s:cache, a:fqn, {})
endfunction
fu! s:GetClassInfoFromSource(class, filename)
let ci = {}
if len(tagfiles()) > 0
let ci = s:DoGetClassInfoFromTags(a:class)
endif
if empty(ci)
call s:Info('Use java_parser.vim to generate class information')
let unit = javacomplete#parse(a:filename)
let targetPos = a:filename == '%' ? java_parser#MakePos(line('.')-1, col('.')-1) : -1
for t in s:SearchTypeAt(unit, targetPos, 1)
if t.name == a:class
let t.filepath = a:filename == '%' ? s:GetCurrentFileKey() : expand(a:filename)
return s:Tree2ClassInfo(t)
"return s:AddInheritedClassInfo(s:Tree2ClassInfo(t), t)
endif
endfor
endif
return ci
endfu
fu! s:Tree2ClassInfo(t)
let t = a:t
" fill fields and methods
let t.fields = []
let t.methods = []
let t.ctors = []
let t.classes = []
for def in t.defs
if def.tag == 'METHODDEF'
call add(def.n == t.name ? t.ctors : t.methods, def)
elseif def.tag == 'VARDEF'
call add(t.fields, def)
elseif def.tag == 'CLASSDEF'
call add(t.classes, t.fqn . '.' . def.name)
endif
endfor
" convert type name in extends to fqn for class defined in source files
if !has_key(a:t, 'classpath') && has_key(a:t, 'extends')
if has_key(a:t, 'filepath') && a:t.filepath != s:GetCurrentFileKey()
let filepath = a:t.filepath
let packagename = get(s:files[filepath].unit, 'package', '')
else
let filepath = expand('%:p')
let packagename = s:GetPackageName()
endif
let extends = a:t.extends
let i = 0
while i < len(extends)
let ci = s:DoGetClassInfo(java_parser#type2Str(extends[i]), filepath, packagename)
if has_key(ci, 'fqn')
let extends[i] = ci.fqn
endif
let i += 1
endwhile
endif
return t
endfu
"fu! s:AddInheritedClassInfo(ci, t, ...)
" let ci = a:ci
" " add inherited fields and methods
" let list = []
" for i in get(a:t, 'extends', [])
" call add(list, java_parser#type2Str(i))
" endfor
"
" if has_key(a:t, 'filepath') && a:t.filepath != expand('%:p')
" let filepath = a:t.filepath
" let props = get(s:files, a:t.filepath, {})
" let packagename = get(props.unit, 'package', '')
" else
" let filepath = expand('%:p')
" let packagename = s:GetPackageName()
" endif
"
" for id in list
" let ci = s:MergeClassInfo(ci, s:DoGetClassInfo(id, filepath, packagename), a:0 > 0 && a:1)
" endfor
" return ci
"endfu
" To obtain information of the class in current file or current folder, or
" even in current project.
function! s:DoGetClassInfoFromTags(class)
" find tag of a:class declaration
let tags = taglist('^' . a:class)
let filename = ''
let cmd = ''
for tag in tags
if has_key(tag, 'kind')
if tag['kind'] == 'c'
let filename = tag['filename']
let cmd = tag['cmd']
break
endif
endif
endfor
let tags = taglist('^' . (empty(b:incomplete) ? '.*' : b:incomplete) )
if filename != ''
call filter(tags, "v:val['filename'] == '" . filename . "' && has_key(v:val, 'class') ? v:val['class'] == '" . a:class . "' : 1")
endif
let ci = {'name': a:class}
" extends and implements
let ci['ctors'] = []
let ci['fields'] = []
let ci['methods'] = []
" members
for tag in tags
let member = {'n': tag['name']}
" determine kind
let kind = 'm'
if has_key(tag, 'kind')
let kind = tag['kind']
endif
let cmd = tag['cmd']
if cmd =~ '\<static\>'
let member['m'] = '1000'
else
let member['m'] = ''
endif
let desc = substitute(cmd, '/^\s*', '', '')
let desc = substitute(desc, '\s*{\?\s*$/$', '', '')
if kind == 'm'
" description
if cmd =~ '\<static\>'
let desc = substitute(desc, '\s\+static\s\+', ' ', '')
endif
let member['d'] = desc
let member['p'] = ''
let member['r'] = ''
if tag['name'] == a:class
call add(ci['ctors'], member)
else
call add(ci['methods'], member)
endif
elseif kind == 'f'
let member['t'] = substitute(desc, '\([a-zA-Z0-9_[\]]\)\s\+\<' . tag['name'] . '\>.*$', '\1', '')
call add(ci['fields'], member)
endif
endfor
return ci
endfu
" package information {{{2
fu! s:DoGetInfoByReflection(class, option)
if has_key(s:cache, a:class)
return s:cache[a:class]
endif
let res = s:RunReflection(a:option, a:class, 's:DoGetInfoByReflection')
if res =~ '^[{\[]'
let v = eval(res)
if type(v) == type([])
let s:cache[a:class] = sort(v)
elseif type(v) == type({})
if get(v, 'tag', '') =~# '^\(PACKAGE\|CLASSDEF\)$'
let s:cache[a:class] = v
else
call extend(s:cache, v, 'force')
endif
endif
unlet v
else
let b:errormsg = res
endif
return get(s:cache, a:class, {})
endfu
" search in members {{{2
" TODO: what about default access?
" public for all
" protected for this or super
" private for this
fu! s:CanAccess(mods, kind)
return (a:mods[-4:-4] || a:kind/10 == 0)
\ && (a:kind == 1 || a:mods[-1:]
\ || (a:mods[-3:-3] && (a:kind == 1 || a:kind == 2))
\ || (a:mods[-2:-2] && a:kind == 1))
endfu
fu! s:SearchMember(ci, name, fullmatch, kind, returnAll, memberkind, ...)
let result = [[], [], []]
if a:kind != 13
for m in (a:0 > 0 && a:1 ? [] : get(a:ci, 'fields', [])) + ((a:kind == 1 || a:kind == 2) ? get(a:ci, 'declared_fields', []) : [])
if empty(a:name) || (a:fullmatch ? m.n ==# a:name : m.n =~# '^' . a:name)
if s:CanAccess(m.m, a:kind)
call add(result[2], m)
endif
endif
endfor
for m in (a:0 > 0 && a:1 ? [] : get(a:ci, 'methods', [])) + ((a:kind == 1 || a:kind == 2) ? get(a:ci, 'declared_methods', []) : [])
if empty(a:name) || (a:fullmatch ? m.n ==# a:name : m.n =~# '^' . a:name)
if s:CanAccess(m.m, a:kind)
call add(result[1], m)
endif
endif
endfor
endif
if a:kind/10 != 0
let types = get(a:ci, 'classes', [])
for t in types
if empty(a:name) || (a:fullmatch ? t[strridx(t, '.')+1:] ==# a:name : t[strridx(t, '.')+1:] =~# '^' . a:name)
if !has_key(s:cache, t) || !has_key(s:cache[t], 'flags') || a:kind == 1 || s:cache[t].flags[-1:]
call add(result[0], t)
endif
endif
endfor
endif
" key `classpath` indicates it is a loaded class from classpath
" All public members of a loaded class are stored in current ci
if !has_key(a:ci, 'classpath') || (a:kind == 1 || a:kind == 2)
for i in get(a:ci, 'extends', [])
let ci = s:DoGetClassInfo(java_parser#type2Str(i))
let members = s:SearchMember(ci, a:name, a:fullmatch, a:kind == 1 ? 2 : a:kind, a:returnAll, a:memberkind)
let result[0] += members[0]
let result[1] += members[1]
let result[2] += members[2]
endfor
endif
return result
endfu
" generate member list {{{2
fu! s:DoGetFieldList(fields)
let s = ''
for field in a:fields
let s .= "{'kind':'" . (s:IsStatic(field.m) ? "F" : "f") . "','word':'" . field.n . "','menu':'" . field.t . "','dup':1},"
endfor
return s
endfu
fu! s:DoGetMethodList(methods, ...)
let paren = a:0 == 0 || !a:1 ? '(' : ''
let s = ''
for method in a:methods
let s .= "{'kind':'" . (s:IsStatic(method.m) ? "M" : "m") . "','word':'" . method.n . paren . "','abbr':'" . method.n . "()','menu':'" . method.d . "','dup':'1'},"
endfor
return s
endfu
" kind:
" 0 - for instance, 1 - this, 2 - super, 3 - class, 4 - array, 5 - method result, 6 - primitive type
" 11 - for type, with `class` and static member and nested types.
" 12 - for import static, no lparen for static methods
" 13 - for import or extends or implements, only nested types
" 20 - for package
fu! s:DoGetMemberList(ci, kind)
if type(a:ci) != type({}) || a:ci == {}
return []
endif
let s = a:kind == 11 ? "{'kind': 'C', 'word': 'class', 'menu': 'Class'}," : ''
let members = s:SearchMember(a:ci, '', 1, a:kind, 1, 0, a:kind == 2)
" add accessible member types
if a:kind / 10 != 0
" Use dup here for member type can share name with field.
for class in members[0]
"for class in get(a:ci, 'classes', [])
let v = get(s:cache, class, {})
if v == {} || v.flags[-1:]
let s .= "{'kind': 'C', 'word': '" . substitute(class, a:ci.name . '\.', '\1', '') . "','dup':1},"
endif
endfor
endif
if a:kind != 13
let fieldlist = []
let sfieldlist = []
for field in members[2]
"for field in get(a:ci, 'fields', [])
if s:IsStatic(field['m'])
call add(sfieldlist, field)
elseif a:kind / 10 == 0
call add(fieldlist, field)
endif
endfor
let methodlist = []
let smethodlist = []
for method in members[1]
if s:IsStatic(method['m'])
call add(smethodlist, method)
elseif a:kind / 10 == 0
call add(methodlist, method)
endif
endfor
if a:kind / 10 == 0
let s .= s:DoGetFieldList(fieldlist)
let s .= s:DoGetMethodList(methodlist)
endif
let s .= s:DoGetFieldList(sfieldlist)
let s .= s:DoGetMethodList(smethodlist, a:kind == 12)
let s = substitute(s, '\<' . a:ci.name . '\.', '', 'g')
let s = substitute(s, '\<java\.lang\.', '', 'g')
let s = substitute(s, '\<\(public\|static\|synchronized\|transient\|volatile\|final\|strictfp\|serializable\|native\)\s\+', '', 'g')
endif
return eval('[' . s . ']')
endfu
" interface {{{2
function! s:GetMemberList(class)
if s:IsBuiltinType(a:class)
return []
endif
return s:DoGetMemberList(s:DoGetClassInfo(a:class), 0)
endfunction
fu! s:GetStaticMemberList(class)
return s:DoGetMemberList(s:DoGetClassInfo(a:class), 11)
endfu
function! s:GetConstructorList(class)
let ci = s:DoGetClassInfo(a:class)
if empty(ci)
return []
endif
let s = ''
for ctor in get(ci, 'ctors', [])
let s .= "{'kind': '+', 'word':'". a:class . "(','abbr':'" . ctor.d . "','dup':1},"
endfor
let s = substitute(s, '\<java\.lang\.', '', 'g')
let s = substitute(s, '\<public\s\+', '', 'g')
return eval('[' . s . ']')
endfunction
" Name can be a (simple or qualified) package name, or a (simple or qualified)
" type name.
fu! s:GetMembers(fqn, ...)
let list = []
let isClass = 0
let v = s:DoGetInfoByReflection(a:fqn, '-E')
if type(v) == type([])
let list = v
elseif type(v) == type({}) && v != {}
if get(v, 'tag', '') == 'PACKAGE'
if b:context_type == s:CONTEXT_IMPORT_STATIC || b:context_type == s:CONTEXT_IMPORT
call add(list, {'kind': 'P', 'word': '*;'})
endif
if b:context_type != s:CONTEXT_PACKAGE_DECL
for c in sort(get(v, 'classes', []))
call add(list, {'kind': 'C', 'word': c})
endfor
endif
for p in sort(get(v, 'subpackages', []))
call add(list, {'kind': 'P', 'word': p})
endfor
else " elseif get(v, 'tag', '') == 'CLASSDEF'
let isClass = 1
let list += s:DoGetMemberList(v, b:context_type == s:CONTEXT_IMPORT || b:context_type == s:CONTEXT_NEED_TYPE ? 13 : b:context_type == s:CONTEXT_IMPORT_STATIC ? 12 : 11)
endif
endif
if !isClass
let list += s:DoGetPackageInfoInDirs(a:fqn, b:context_type == s:CONTEXT_PACKAGE_DECL)
endif
return list
endfu
" a:1 incomplete mode
" return packages in classes directories or source pathes
fu! s:DoGetPackageInfoInDirs(package, onlyPackages, ...)
let list = []
let pathes = s:GetSourceDirs(expand('%:p'))
for path in s:GetClassDirs()
if index(pathes, path) <= 0
call add(pathes, path)
endif
endfor
let globpattern = a:0 > 0 ? a:package . '*' : substitute(a:package, '\.', '/', 'g') . '/*'
let matchpattern = a:0 > 0 ? a:package : a:package . '[\\/]'
for f in split(globpath(join(pathes, ','), globpattern), "\n")
for path in pathes
let idx = matchend(f, escape(path, ' \') . '[\\/]\?\C' . matchpattern)
if idx != -1
let name = (a:0 > 0 ? a:package : '') . strpart(f, idx)
if f[-5:] == '.java'
if !a:onlyPackages
call add(list, {'kind': 'C', 'word': name[:-6]})
endif
elseif name =~ '^' . s:RE_IDENTIFIER . '$' && isdirectory(f) && f !~# 'CVS$'
call add(list, {'kind': 'P', 'word': name})
endif
endif
endfor
endfor
return list
endfu
" }}}
"}}}
" vim:set fdm=marker sw=2 nowrap:
Reference in a new issue Copy permalink