625
|
1 " Vim completion script
|
|
2 " Language: All languages, uses existing syntax highlighting rules
|
|
3 " Maintainer: David Fishburn <fishburn@ianywhere.com>
|
|
4 " Version: 1.0
|
|
5 " Last Change: Sun Jan 08 2006 10:17:51 PM
|
|
6
|
|
7 " Set completion with CTRL-X CTRL-O to autoloaded function.
|
|
8 if exists('&ofu')
|
|
9 setlocal ofu=syntaxcomplete#Complete
|
|
10 endif
|
|
11
|
|
12 if exists('g:loaded_syntax_completion')
|
|
13 finish
|
|
14 endif
|
|
15 let g:loaded_syntax_completion = 1
|
|
16
|
|
17 " This script will build a completion list based on the syntax
|
|
18 " elements defined by the files in $VIMRUNTIME/syntax.
|
|
19
|
|
20 let s:syn_remove_words = 'match,matchgroup=,contains,'.
|
|
21 \ 'links to,start=,end=,nextgroup='
|
|
22
|
|
23 let s:cache_name = []
|
|
24 let s:cache_list = []
|
|
25
|
|
26 " This function is used for the 'omnifunc' option.
|
|
27 function! syntaxcomplete#Complete(findstart, base)
|
|
28
|
|
29 if a:findstart
|
|
30 " Locate the start of the item, including "."
|
|
31 let line = getline('.')
|
|
32 let start = col('.') - 1
|
|
33 let lastword = -1
|
|
34 while start > 0
|
|
35 if line[start - 1] =~ '\w'
|
|
36 let start -= 1
|
|
37 elseif line[start - 1] =~ '\.'
|
|
38 " The user must be specifying a column name
|
|
39 if lastword == -1
|
|
40 let lastword = start
|
|
41 endif
|
|
42 let start -= 1
|
|
43 let b:sql_compl_type = 'column'
|
|
44 else
|
|
45 break
|
|
46 endif
|
|
47 endwhile
|
|
48
|
|
49 " Return the column of the last word, which is going to be changed.
|
|
50 " Remember the text that comes before it in s:prepended.
|
|
51 if lastword == -1
|
|
52 let s:prepended = ''
|
|
53 return start
|
|
54 endif
|
|
55 let s:prepended = strpart(line, start, lastword - start)
|
|
56 return lastword
|
|
57 endif
|
|
58
|
|
59 let base = s:prepended . a:base
|
|
60
|
|
61 let list_idx = index(s:cache_name, &filetype, 0, &ignorecase)
|
|
62 if list_idx > -1
|
|
63 let compl_list = s:cache_list[list_idx]
|
|
64 else
|
|
65 let compl_list = s:SyntaxList()
|
|
66 let s:cache_name = add( s:cache_name, &filetype )
|
|
67 let s:cache_list = add( s:cache_list, compl_list )
|
|
68 endif
|
|
69
|
|
70 " Return list of matches.
|
|
71
|
|
72 if base =~ '\w'
|
|
73 let compstr = join(compl_list, ' ')
|
|
74 let compstr = substitute(compstr, '\<\%('.base.'\)\@!\w\+\s*', '', 'g')
|
|
75 let compl_list = split(compstr, '\s\+')
|
|
76 endif
|
|
77
|
|
78 return compl_list
|
|
79 endfunc
|
|
80
|
|
81 function! s:SyntaxList()
|
|
82 let saveL = @l
|
|
83
|
|
84 " Loop through all the syntax groupnames, and build a
|
|
85 " syntax file which contains these names. This can
|
|
86 " work generically for any filetype that does not already
|
|
87 " have a plugin defined.
|
|
88 " This ASSUMES the syntax groupname BEGINS with the name
|
|
89 " of the filetype. From my casual viewing of the vim7\sytax
|
|
90 " directory.
|
|
91 redir @l
|
|
92 silent! exec 'syntax list '
|
|
93 redir END
|
|
94
|
|
95 let syntax_groups = @l
|
|
96 let @l = saveL
|
|
97
|
|
98 if syntax_groups =~ 'E28'
|
|
99 \ || syntax_groups =~ 'E411'
|
|
100 \ || syntax_groups =~ 'E415'
|
|
101 \ || syntax_groups =~ 'No sytax items'
|
|
102 return -1
|
|
103 endif
|
|
104
|
|
105 " Abort names - match, links to, matchgroup=, start=, contains=, contained,
|
|
106 " cluster=, nextgroup=, end=
|
|
107 let next_group_regex = '\n' .
|
|
108 \ '\zs'.&filetype.'\w\+\ze'.
|
|
109 \ '\s\+xxx\s\+'.
|
|
110 \ '\<\('.
|
|
111 \ substitute(s:syn_remove_words, ',', '\\|', 'g').
|
|
112 \ '\)\@!'
|
|
113 let syn_list = ''
|
|
114 let index = 0
|
|
115 let index = match(syntax_groups, next_group_regex, index)
|
|
116
|
|
117
|
|
118 while index > 0
|
|
119 let group_name = matchstr( syntax_groups, '\w\+', index )
|
|
120
|
|
121 let extra_syn_list = s:SyntaxGroupItems(group_name)
|
|
122
|
|
123 let syn_list = syn_list . extra_syn_list . "\n"
|
|
124
|
|
125 let index = index + strlen(group_name)
|
|
126 let index = match(syntax_groups, next_group_regex, index)
|
|
127 endwhile
|
|
128
|
|
129 return sort(split(syn_list))
|
|
130 endfunction
|
|
131
|
|
132 function! s:SyntaxGroupItems( group_name )
|
|
133 let saveL = @l
|
|
134
|
|
135 " Generate (based on the syntax highlight rules) a list of
|
|
136 " the Statements, functions, keywords and so on available
|
|
137 " If this needs updating, the syntax\sql.vim file should be
|
|
138 " updated
|
|
139 redir @l
|
|
140 silent! exec 'syntax list ' . a:group_name
|
|
141 redir END
|
|
142
|
|
143 if @l !~ 'E28'
|
|
144 " let syn_list = substitute( @l, '^.*xxx\s*\%(contained\s*\)\?', "", '' )
|
|
145 let syn_list = substitute( @l, '^.*xxx\s*', "", '' )
|
|
146
|
|
147 " We only want the words for the lines begining with
|
|
148 " containedin, but there could be other items.
|
|
149
|
|
150 " Tried to remove all lines that do not begin with contained
|
|
151 " but this does not work in all cases since you can have
|
|
152 " contained nextgroup=...
|
|
153 " So this will strip off the ending of lines with known
|
|
154 " keywords.
|
|
155 let syn_list = substitute( syn_list, '\<\('.
|
|
156 \ substitute(
|
|
157 \ escape( s:syn_remove_words, '\\/.*$^~[]')
|
|
158 \ , ',', '\\|', 'g').
|
|
159 \ '\).\{-}\%($\|'."\n".'\)'
|
|
160 \ , "\n", 'g' )
|
|
161
|
|
162 " Now strip off the newline + blank space + contained
|
|
163 let syn_list = substitute( syn_list, '\%(^\|\n\)\@<=\s*\<\('.
|
|
164 \ 'contained\)'
|
|
165 \ , "", 'g' )
|
|
166
|
|
167 " There are a number of items which have non-word characters in
|
|
168 " them, *'T_F1'*. vim.vim is one such file.
|
|
169 " This will replace non-word characters with spaces.
|
|
170 let syn_list = substitute( syn_list, '[^0-9A-Za-z_ ]', ' ', 'g' )
|
|
171 else
|
|
172 let syn_list = ''
|
|
173 endif
|
|
174
|
|
175 let @l = saveL
|
|
176
|
|
177 return syn_list
|
|
178 endfunction
|
|
179
|