Vim7中的万能补全（Omni completion）
Table of Contents:
Vim7中的万能补全（Omni completion）自动补全是Vim的一项重要功能。但由于中文的特性，这项功能对很多中文用户来讲显得不那么实用。在中国这项功能几乎只局限于写程序时使用了。
1 万能补全基础
什么是万能补全？万能补全有什么作用呢？ 万能补全的使用方式是在插入模式下输入<C-x><C-o>（或者<C-x><C-u>）。不过在你使用这项功能前你得先在自定义函数中定义补全所使用的规则。并相应地设置'omnifunc'（或'completefunc'）。比如你自定义的规则在自定义的UCompl()函数中则设置： se ofu=UCompl 那这个自定义的函数或者说自定义的补全规则要怎么写呢？这就是我接下去要讲的最主要的内容。 这里先看一下自定义补全函数的基本框架： func! Mycomp(start,base) if a:start " 返回欲匹配字的起始位置。对于英文就是往前找到第一个非字母字符的位置。 else " 返回匹配列表。 endif endfunc 之所以有这种奇怪的结构是因为这个函数实际要干两件事，就是上面注释中写的那两件事。这个程序会被调两次。 这里有两个参数是Vim传给omnifunc的他们是start,base，（当然在自定义函数内部，你可以任意取名）这两个参数是只读的。start刚已经讲过了，而base表示的是要进行补全的内容。如 how ar_ ^^^ ^^ 这里用'_'来表示在插入模式下的光标（下面如无说明最后的'_'都是表示插入模式下的光标位置），在使用C-X，C-P后会出现补全列表──如果有的话。其对应的base就是'ar'，然后C-P在当前文档中寻找匹配base的单词。而omni与C-P的不同之处在于base的产生方法是由omnifunc决定的──即由用户决定的。前面我们说了omnifunc被调用了两次第一次返回的值，Vim会将之视为欲匹配字的起始位置，这个位置到光标所在栏之间的字串就是base。 使用万能补全用户需要在函数中定义起始位置的计算方式，而base会由编辑器自动计算，并在第二次调用函数时给出。还有一点要注意的就是当我们使用了补全功能后base部分的字串将会被补全所使用的项所替代。 我再给一个例子，输入： abcd_ 在上面的文本中，光标的位置是5（即该行第5个字符的位置）而'a'的位置是1。如果第一次调用函数返回的值是2，即字符'b'的位置，则column 2跟5之间的内容即"cd"就是第二次调用时base的值。现在做一个试验： func! Mycomp(st,base) if a:st return 2 else echo "base=" . a:base endif endfunc se omnifunc=Mycomp 运行上面的脚本并输入： abcd_ 因为是在插入模式，_表示光标所在的位置。这时如果我们输入C-X,C-O使用万能补全，可以从命令窗口看到base就是‘cd’。 现在你文该明白第一次调用是怎么一回事了。这个函数的前半部分定义了base的计算方式。那后半部分也很容易理解了，这一部分用来返回补全的列表。 func! Mycomp(st,base) if a:st return 2 else echo "base=" . a:base return ["XXX YYY"] endif endfunc se omnifunc=Mycomp abcd_ 补全的结果如下： abXXX_ 这个函数看上去不怎么实用，但功能完整。它“计算”base起始位置（其实它只是简单地返回2即返回'b'的位置，根本没进行什么计算），然后给出两个用来代替base的固定选项——只是它根本不考虑你前两个字符输入的是什么;-) 2 在返回的列表中使用字典自动补全返回的是列表，但列表项可以使用字典的形式。如： return [{"word":"abc","kind":"v","info":"变量"}, {"word":"eee","info":"也是变量"}]
其中word就是补全的值，而info是一些附加信息将会在preview窗口中显示。其他可以在返回列表项中使用的键（key）可以见*complete-items* 3 更多为了做出更智能的补全函数，我们要先赋于函数判断base的能力。对于编程或是英文书写的需要来说判断base很简单只要往前找到第一个空格的位置。为此我们需要取前一个位置的字符并判断是否是空格。不是则重复。文档中已经有了一段示例代码：*complete-functions* " locate the start of the word
let line = getline('.')
let start = col('.') - 1
" 直到找到非字母字符或行首
while start > 0 && line[start - 1] =~ '\a'
let start -= 1
endwhile
return start
计算起始位置的代码依不同的目的而有所不同但大体都是以这种形式出现。对大部分的应用来说也许更为重要的是如何返回有效的列表。 " find months matching with "a:base"
let res = []
for m in split("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec")
if m =~ '^' . a:base
call add(res, m)
endif
endfor
return res
其实Vim并不在乎你返回的结果是怎么计算出来的，它只在乎有没有返回列表。要计算返回的列表，有许多方式。在一般的情况下我们会先找（至少）一个大的匹配源，然后在这个源中找出匹配base的项并返回。而不同补全方式的主要差别也在于此。可以认为，C-P就是以当前buffer为匹配源。C-L以所有buffer为匹配源（同时，它的start总是0）。字典、tags以外部文件为匹配源。上面这个例子中匹配源在脚本中直接以列表的形式给出。 在omni中我们可以选择其中一种匹配源，也可以混合多种——这完全取决于我们的需要。比如我们写一个补全当前目录名的函数，当前目录就是匹配源。 下面的脚本根据已输入的字串补全目录名。 func! Dircompl(st,base)
if a:st
" 未进行起始位置的判断所以只限于在行首使用。
return 0
else
let res=[]
" 列出所有目录，并测试是否匹配
" （也可以直接用find）
for f_name in split(system("ls -m"),",")
" for f_name in split(system("dir /b"),"\n")
" 目录必须是以base开头的
if f_name=~ '^' . a:base
" 目录只须含base
" if f_name=~ a:base
call add(res, f_name)
endif
endfor
return res
endif
endfunc
se ofu=Dircompl
"se cfu=Dircompl
4 使用外部文件前面的两个例子中我们用了外部程序来产生匹配源，但更多情况下我们会将匹配源置于外部文件之中。补全函数再对外部文件进行过滤产生补全列表。那我们要如何在Vim脚本中读入或者说是使用外部文件呢？
5 实例最后我们用一个简单的例子来结束关于万能补全的讨论。这个脚本根据外部文件对html标签进行自动补全。这个外部文件共有三栏，栏与栏之间用<tab>隔开——与tags文件的格式一样，这样我们就可以使用taglist()读入数据。 <body html4 <body>标签 <blink deprecated 闪烁标签，w3c不推荐使用此标签 <br> html 换行标签 <br /> xhtml 换行标签 <table html table 表格标签，用来新建一个表格 <th html table header <td html table cell <tr html table row 下面是代码： func! Mycomp(st,base)
if a:st
let start=col('.')
let line=getline('.')
" 往前找到第一个'<'字符的位置
while start>0
if line[start-1]=='<'
" 返回该字符的前移一位的位置
return start-1
endif
let start-=1
endw
" 没找到。返回0这样在新起一行时可以显示全部列表
return 0
else
let res=[]
" 如果html标签文件的名称不是'tags'，可用用下面注
" 释掉的代码更改供taglist()抓tag的文件名
" let oritags=&tags
" se tags=./htmltags
" 抓出匹配base的tag
let tl=taglist("^" . a:base)
" let &tags=oritags
" 将抓的结果改为补全功能能接受的形式
" 为了避免逐一地修改，需要使用map()
call map(tl,'s:T2l(v:val)')
return tl
endif
endfunc
func! s:T2l(val)
let res={}
let res['word']= a:val['name']
let res['menu']= a:val['filename']
let res['info']= a:val['cmd']
let res['kind']= a:val['kind']
return res
endfunc
" se cfu=Mycomp
se ofu=Mycomp
这个脚本的作用就是根据tags文件的内容补全html标签。功能很简单但已经用到了许多构造强大补全函数所需的元素。更复杂的例子可以在vim7的autoload文件夹中找到。有兴趣的用户不防了解一下Vim自带的补全函数是如何工作的。截图见这里。 Appendix A 中文议题中文使用补全时的难点主要有三点，一个是起始位置的计算；二是字节与编码；三是数据文件的编码。 以utf-8编码为例，如果要以当前光标的前一个字为base： 这是示例文_ utf-8的中文有三个字节为了使上面例子中的base为“文”，必需返回col(".")-4，而对于euc-cn/cp936编码则是col('.')-3，因些在处理汉字时需要对编码进行判断。这显然又增加了复杂度。 最后是如果正在编辑的文件与匹配源使用的编码不同，同一个汉字也会出现不匹配或者列表为乱码的情况。为些在进行匹配操作时要先对匹配源的编码进行转换。 最后我们写一个使用字典文件的补全函数。这个字典文件是以utf-8编码保存的（即&enc=="utf-8"）。对于英文单词仍按一般方法返回base的起始位置——即往前找到第一个非字母字符的前一位置。而中文我们一律返回当前光标的前一个字。 先看一下字典，这是个中英文混合的字典（注意：是utf-8编码的）： hack head hello jack joke joseph 情形 情况 文化 文本 文明 文人 这是最后的函数： func! Mycomp(start,base)
if a:start
let start=col('.')
let line=getline('.')
" 如果是半角字符则照一般的英文规则，
" 往前找到第一个非字母字符
if line[start-2]=~'\a'
let start-=1
while start>0 && line[start-1]=~'\a'
let start -= 1
endwhile
return start
elseif line[start-2]=~'[[:punct:]\s\d ]'
" echo "space"|sleep 1
return -1
endif
" 如果不是字母也不是数字或空格标点则假设为汉字
" 固定返回前一个字符
if &encoding=="cp936" || &encoding=="euc-cn"
return start-3
elseif &encoding=="utf-8"
return start-4
endif
else
" echo a:base|sleep 1
let res = []
for line in readfile("words")
" 字典文件以utf8格式保存，需要进行编码转换
call add(res,iconv(line, "utf-8",&enc))
endfor
return filter(res,'v:val =~"^'.a:base.'"')
endif
endfunc
se ofu=Mycomp
提示：上面的自定义补全函数的行为与字典补全（<C-x><C-k>）的行为相似，除了两点：一处理汉字时我们的自定义补全函数并不是以前的第一个非空字符的位置作为base的起始位置（因为汉字并不以空格作为字词之间的分隔符），而是简单的往前移一个汉字。二字典补全在比较前并不进行编码的转换，因此在字典文件与当前编辑文件的编码不同时Vim不能正确给出匹配的汉字列表。当然这个函数的目的不在于取代字典补全而是演示在万能补全中处理汉字的一些注意事项。 Appendix B 用自动补全来计算结果自动补全并不一定要用来“补”。下面的函数通过外部程序进行计算并以补全的方式给出结果： func! Mycomp(st,base)
if a:st
" 未进行起始位置的判断所以只限于在行首使用。
return 0
else
let res=[]
call add(res,system("echo " . a:base .'|bc|tr -d \r\n'))
return res
endif
endfunc
运行结果（下划线表示插入模式下光标所在位置）： 2+2*3+(2+2)*2_ 按<C-x><C-o>返回16。 |