13250: _dict completion

ChangeLog

@@ -1,3 +1,8 @@
+2000-12-13  Clint Adams  <schizo@debian.org>
+
+	* 13250: Completion/User/.distfiles, Completion/User/_dict:
+	completion for dict.
+
 2000-12-06  Peter Stephenson  <pws@csr.com>
 
 	* unposted: Src/jobs.c: rename waitjob() to zwaitjob() to avoid

Completion/User/.distfiles

@@ -1,7 +1,7 @@
 DISTFILES_SRC='
     .distfiles
     _a2ps _archie _arp _bison _bzip2 _chown _compress
-    _configure _cvs _dd _diff _diff_options _dir_list _dirs
+    _configure _cvs _dd _dict _diff _diff_options _dir_list _dirs
     _domains _dvi _enscript
     _find _finger _fakeroot _flex _gcc _gdb  _getconf _gprof _groups
     _gs _gv _gzip _hosts _imagemagick _ispell

Completion/User/_dict

@@ -0,0 +1,66 @@
+#compdef dict
+
+local expl dictresults dictwords j dict
+
+_dictwords() {
+
+[[ -z $words[CURRENT] ]] && return 1
+
+dictresults=(${${(f)${"$(dict -m $words[CURRENT])":gs/    
+  / /}}:#[0-9]*matches found})
+
+for j in ${dictresults}
+do
+dict=${j%%:*}
+dictwords=(${(z)j#*:})
+
+_wanted $dict expl "words from $dict" \
+  compadd -M 'm:{a-zA-Z}={A-Za-z} r:|=*' -a "$@" - dictwords
+done
+}
+
+_arguments \
+	'(--host)-h[host]:dict server:_hosts' \
+	'(-h)--host:dict server:_hosts' \
+	'(--port)-p[port]:service:' \
+	'(-p)--port:service:' \
+	'(--database)-d[database]:db name:' \
+	'(-d)--database:db name:' \
+	'(--match)-m[match]' \
+	'(-m)--match' \
+	'(--strategy)-s[strategy]:strategy:' \
+	'(-s)--strategy:strategy:' \
+	'(--nocorrect)-C[nocorrect]' \
+	'(-C)--nocorrect' \
+	'(--config)-c[config]:config file:_files' \
+	'(-c)--config:config file:_files' \
+	'(--dbs)-D[list dbs]' \
+	'(-D)--dbs' \
+	'(--strats)-S[strats]' \
+	'(-S)--strats' \
+	'(--serverhelp)-H[server help]' \
+	'(-H)--serverhelp' \
+	'(--info)-i[db info]:db name:' \
+	'(-i)--info:db name:' \
+	'(--noauth)-a[disable authentication]' \
+	'(-a)--noauth' \
+	'(--user)-u[user]:user name:' \
+	'(-u)--user:user name:' \
+	'(--key)-k[key]:shared secret:' \
+	'(-k)--key:shared secret:' \
+	'(--version)-V[display version]' \
+	'(-V)--version' \
+	'(--license)-L[display license]' \
+	'(-L)--license' \
+	'--help' \
+	'(--verbose)-v[be verbose]' \
+	'(-v)--verbose' \
+	'(--raw)-r[be very verbose]' \
+	'(-r)--raw' \
+	'(--pager)-P[pager]:program:_command_names -e' \
+	'(-P)--pager:_command_names -e:' \
+	'--html' \
+	'--pipesize:buffer size:' \
+	'--client:client text:' \
+	'--debug:debug flag:(verbose raw scan parse pipe serial time)' \
+	':word:_dictwords'