17476: Matt Zimmerman's completion for GNU GLOBAL.

ChangeLog

@@ -1,3 +1,10 @@
+2002-07-22  Clint Adams  <clint@zsh.org>
+
+	* 17476: Completion/Unix/Command/.distfiles,
+	Completion/Unix/Command/_global,
+	Completion/Unix/Command/_global_tags: Matt Zimmerman's
+	completion for GNU GLOBAL.
+
 2002-07-16  Tanaka Akira  <akr@zsh.org>
 
 	* 17459: Completion/Unix/Command/_cvs: exclude file which have

Completion/Unix/Command/.distfiles

@@ -18,4 +18,5 @@ _last         _loadkeys     _modutils     _ruby         _sysctl _links _samba
 _user_admin   _rsync        _arping	  _spamassassin _mtools       _ifconfig
 _fsh          _chkconfig    _cdcd         _irssi        _mysqldiff    _sccs
 _netcat       _larch        _valgrind     _texinfo	_figlet
+_global       _global_tags
 '

Completion/Unix/Command/_global

@@ -0,0 +1,45 @@
+#compdef global
+
+_arguments \
+	'(--completion)-c[completion on prefix]:prefix:' \
+	'(-c)--completion:prefix:' \
+	'(--file)-f[print function definitions in file]' \
+	'(-f)--file' \
+	'(--grep)-g[print all lines which match pattern using grep]:pattern' \
+	'(-g)--grep' \
+	'(--idutils)-I[print all lines which match pattern using id-utils]:pattern' \
+	'(-I)--idutils' \
+	'(--print-dbpath)-p[print location of GTAGS]' \
+	'(-p)--print-dbpath' \
+	'(--path)-P[print paths matching pattern]:pattern:' \
+	'(-P)--path' \
+	'(--update)-u[locate tag files and update incrementally]' \
+	'(-u)--update' \
+	'(--absolute)-a[Print absolute path names]' \
+	'(-a)--absolute' \
+	'(--ignore-case)-i[ignore case in patterns]' \
+	'(-i)--ignore-case' \
+	'(--local)-l[Print just objects which exist under the current directory]' \
+	'(-l)--local' \
+	'(--nofilter)-n[Suppress sort filter and path conversion filter]' \
+	'(-n)--nofilter' \
+	'(--other)-o[Search in other files, not just source files (with -g)]' \
+	'(-o)--other' \
+	'(--quiet)-q[Quiet mode]' \
+	'(-q)--quiet' \
+	'(--reference --rootdir)-r[Find object references instead of definitions]' \
+	'(-r --rootdir)--rereference' \
+	'(-r --reference)--rootdir' \
+	'(--symbol)-s[Find symbols instead of function names]:pattern:' \
+	'(-s)--symbol' \
+	'(--tags)-t[Output in standard ctags format]' \
+	'(-t)--tags' \
+	'(--through -s -r -l)-T[Search through all tag files in GTAGSLIBPATH]' \
+	'(-T -s -r -l)--through' \
+	'(--verbose)-v[Verbose mode]' \
+	'(-v)--verbose' \
+	'(--cxref)-x[In addition to default output, list line number and contents]' \
+	'(-x)--cxref' \
+	'--version:show version number:' \
+	'--help:show help:' \
+	':word:_global_tags'

Completion/Unix/Command/_global_tags

@@ -0,0 +1,9 @@
+#autoload
+
+local globalresults
+
+[[ -z $words[CURRENT] ]] && return 1
+
+globalresults=($(global --completion $words[CURRENT]))
+
+compadd -M 'm:{a-zA-Z}={A-Za-z}' -a "$@" - globalresults