complete.tcsh revision 59243
1#
2# $Id: complete.tcsh,v 1.32 1999/06/09 19:09:12 christos Exp $
3# example file using the new completion code
4#
5
6onintr -
7if (! $?prompt) goto end
8
9if ($?tcsh) then
10    if ($tcsh != 1) then
11   	set rev=$tcsh:r
12	set rel=$rev:e
13	set pat=$tcsh:e
14	set rev=$rev:r
15    endif
16    if ($rev > 5 && $rel > 1) then
17	set complete=1
18    endif
19    unset rev rel pat
20endif
21
22if ($?complete) then
23    set noglob
24    set hosts
25    foreach f ($HOME/.hosts /usr/local/etc/csh.hosts $HOME/.rhosts /etc/hosts.equiv)
26        if ( -r $f ) then
27	    set hosts = ($hosts `grep -v "+" $f | tr -s " " "	" | cut -f 1`)
28	endif
29    end
30    if ( -r $HOME/.netrc ) then
31	set f=`awk '/machine/ { print $2 }' < $HOME/.netrc` >& /dev/null
32	set hosts=($hosts $f)
33    endif
34    unset f
35    if ( ! $?hosts ) then
36	set hosts=(hyperion.ee.cornell.edu phaeton.ee.cornell.edu \
37		   guillemin.ee.cornell.edu vangogh.cs.berkeley.edu \
38		   ftp.uu.net prep.ai.mit.edu export.lcs.mit.edu \
39		   labrea.stanford.edu sumex-aim.stanford.edu \
40		   tut.cis.ohio-state.edu)
41    endif
42
43    complete ywho  	n/*/\$hosts/	# argument from list in $hosts
44    complete rsh	p/1/\$hosts/ c/-/"(l n)"/   n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
45    complete ssh	p/1/\$hosts/ c/-/"(l n)"/   n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
46    complete xrsh	p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
47    complete rlogin 	p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/
48    complete telnet 	p/1/\$hosts/ p/2/x:'<port>'/ n/*/n/
49
50    complete cd  	p/1/d/		# Directories only
51    complete chdir 	p/1/d/
52    complete pushd 	p/1/d/
53    complete popd 	p/1/d/
54    complete pu 	p/1/d/
55    complete po 	p/1/d/
56    complete complete 	p/1/X/		# Completions only
57    complete uncomplete	n/*/X/
58    complete exec 	p/1/c/		# Commands only
59    complete trace 	p/1/c/
60    complete strace 	p/1/c/
61    complete which	n/*/c/
62    complete where	n/*/c/
63    complete skill 	p/1/c/
64    complete dde	p/1/c/ 
65    complete adb	c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/
66    complete sdb	p/1/c/
67    complete dbx	c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/
68    complete xdb	p/1/c/
69    complete gdb	n/-d/d/ n/*/c/
70    complete ups	p/1/c/
71    complete set	'c/*=/f/' 'p/1/s/=' 'n/=/f/'
72    complete unset	n/*/s/
73    complete alias 	p/1/a/		# only aliases are valid
74    complete unalias	n/*/a/
75    complete xdvi 	n/*/f:*.dvi/	# Only files that match *.dvi
76    complete dvips 	n/*/f:*.dvi/
77    complete tex 	n/*/f:*.tex/	# Only files that match *.tex
78    complete latex 	n/*/f:*.{tex,ltx}/
79    complete su		c/--/"(login fast preserve-environment command shell \
80			help version)"/	c/-/"(f l m p c s -)"/ \
81			n/{-c,--command}/c/ \
82			n@{-s,--shell}@'`cat /etc/shells`'@ n/*/u/
83    complete cc 	c/-[IL]/d/ \
84              c@-l@'`\ls -1 /usr/lib/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \
85			c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/
86    complete acc 	c/-[IL]/d/ \
87       c@-l@'`\ls -1 /usr/lang/SC1.0/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \
88			c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/
89    complete gcc 	c/-[IL]/d/ \
90		 	c/-f/"(caller-saves cse-follow-jumps delayed-branch \
91		               elide-constructors expensive-optimizations \
92			       float-store force-addr force-mem inline \
93			       inline-functions keep-inline-functions \
94			       memoize-lookups no-default-inline \
95			       no-defer-pop no-function-cse omit-frame-pointer \
96			       rerun-cse-after-loop schedule-insns \
97			       schedule-insns2 strength-reduce \
98			       thread-jumps unroll-all-loops \
99			       unroll-loops syntax-only all-virtual \
100			       cond-mismatch dollars-in-identifiers \
101			       enum-int-equiv no-asm no-builtin \
102			       no-strict-prototype signed-bitfields \
103			       signed-char this-is-variable unsigned-bitfields \
104			       unsigned-char writable-strings call-saved-reg \
105			       call-used-reg fixed-reg no-common \
106			       no-gnu-binutils nonnull-objects \
107			       pcc-struct-return pic PIC shared-data \
108			       short-enums short-double volatile)"/ \
109		 	c/-W/"(all aggregate-return cast-align cast-qual \
110		      	       comment conversion enum-clash error format \
111		      	       id-clash-len implicit missing-prototypes \
112		      	       no-parentheses pointer-arith return-type shadow \
113		      	       strict-prototypes switch uninitialized unused \
114		      	       write-strings)"/ \
115		 	c/-m/"(68000 68020 68881 bitfield fpa nobitfield rtd \
116			       short c68000 c68020 soft-float g gnu unix fpu \
117			       no-epilogue)"/ \
118		 	c/-d/"(D M N)"/ \
119		 	c/-/"(f W vspec v vpath ansi traditional \
120			      traditional-cpp trigraphs pedantic x o l c g L \
121			      I D U O O2 C E H B b V M MD MM i dynamic \
122			      nodtdlib static nostdinc undef)"/ \
123		 	c/-l/f:*.a/ \
124		 	n/*/f:*.{c,C,cc,o,a,s,i}/
125    complete g++ 	n/*/f:*.{C,cc,o,s,i}/
126    complete CC 	n/*/f:*.{C,cc,o,s,i}/
127    complete rm 	c/--/"(directory force interactive verbose \
128			recursive help version)"/ c/-/"(d f i v r R -)"/ \
129			n/*/f:^*.{c,cc,C,h,in}/	# Protect precious files
130    complete vi 	n/*/f:^*.[oa]/
131    complete bindkey    N/-a/b/ N/-c/c/ n/-[ascr]/'x:<key-sequence>'/ \
132			n/-[svedlr]/n/ c/-[vedl]/n/ c/-/"(a s k c v e d l r)"/\
133			n/-k/"(left right up down)"/ p/2-/b/ \
134			p/1/'x:<key-sequence or option>'/
135
136    complete find 	n/-fstype/"(nfs 4.2)"/ n/-name/f/ \
137		  	n/-type/"(c b d f p l s)"/ n/-user/u/ n/-group/g/ \
138			n/-exec/c/ n/-ok/c/ n/-cpio/f/ n/-ncpio/f/ n/-newer/f/ \
139		  	c/-/"(fstype name perm prune type user nouser \
140		  	     group nogroup size inum atime mtime ctime exec \
141			     ok print ls cpio ncpio newer xdev depth \
142			     daystart follow maxdepth mindepth noleaf version \
143			     anewer cnewer amin cmin mmin true false uid gid \
144			     ilname iname ipath iregex links lname empty path \
145			     regex used xtype fprint fprint0 fprintf \
146			     print0 printf not a and o or)"/ \
147			     n/*/d/
148
149    complete -%*	c/%/j/			# fill in the jobs builtin
150    complete {fg,bg,stop}	c/%/j/ p/1/"(%)"//
151
152    complete limit	c/-/"(h)"/ n/*/l/
153    complete unlimit	c/-/"(h)"/ n/*/l/
154
155    complete -co*	p/0/"(compress)"/	# make compress completion
156						# not ambiguous
157    complete zcat	n/*/f:*.Z/
158    complete nm		n/*/f:^*.{h,C,c,cc}/
159
160    complete finger	c/*@/\$hosts/ n/*/u/@ 
161    complete ping	p/1/\$hosts/
162    complete traceroute	p/1/\$hosts/
163
164    complete {talk,ntalk,phone}	p/1/'`users | tr " " "\012" | uniq`'/ \
165		n/*/\`who\ \|\ grep\ \$:1\ \|\ awk\ \'\{\ print\ \$2\ \}\'\`/
166
167    complete ftp	c/-/"(d i g n v)"/ n/-/\$hosts/ p/1/\$hosts/ n/*/n/
168
169    # this one is simple...
170    #complete rcp c/*:/f/ C@[./\$~]*@f@ n/*/\$hosts/:
171    # From Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> 
172    # This one will rsh to the file to fetch the list of files!
173    complete rcp 'c%*@*:%`set q=$:-0;set q="$q:s/@/ /";set q="$q:s/:/ /";set q=($q " ");rsh $q[2] -l $q[1] ls -dp $q[3]\*`%' 'c%*:%`set q=$:-0;set q="$q:s/:/ /";set q=($q " ");rsh $q[1] ls -dp $q[2]\*`%' 'c%*@%$hosts%:' 'C@[./$~]*@f@'  'n/*/$hosts/:'
174
175    complete dd c/--/"(help version)"/ c/[io]f=/f/ \
176		c/conv=*,/"(ascii ebcdic ibm block unblock \
177			    lcase notrunc ucase swab noerror sync)"/,\
178		c/conv=/"(ascii ebcdic ibm block unblock \
179			  lcase notrunc ucase swab noerror sync)"/,\
180	        c/*=/x:'<number>'/ \
181		n/*/"(if of conv ibs obs bs cbs files skip file seek count)"/=
182
183    complete nslookup   p/1/x:'<host>'/ p/2/\$hosts/
184
185    complete ar c/[dmpqrtx]/"(c l o u v a b i)"/ p/1/"(d m p q r t x)"// \
186		p/2/f:*.a/ p/*/f:*.o/
187
188    # these should be merged with the MH completion hacks below - jgotts
189    complete {sprev,snext} \
190		c@+@F:$HOME/Mail/@
191
192    # these and interrupt handling from Jaap Vermeulen <jaap@sequent.com>
193    complete {rexec,rxexec,rxterm,rmterm} \
194			'p/1/$hosts/' 'c/-/(l L E)/' 'n/-l/u/' 'n/-L/f/' \
195			'n/-E/e/' 'n/*/c/'
196    complete kill	'c/-/S/' 'c/%/j/' \
197			'n/*/`ps -u $LOGNAME | awk '"'"'{print $1}'"'"'`/'
198
199    # these from Marc Horowitz <marc@cam.ov.com>
200    complete attach 'n/-mountpoint/d/' 'n/-m/d/' 'n/-type/(afs nfs rvd ufs)/' \
201		    'n/-t/(afs nfs rvd ufs)/' 'n/-user/u/' 'n/-U/u/' \
202		    'c/-/(verbose quiet force printpath lookup debug map \
203			  nomap remap zephyr nozephyr readonly write \
204			  mountpoint noexplicit explicit type mountoptions \
205			  nosetuid setuid override skipfsck lock user host)/' \
206		    'n/-e/f/' 'n/*/()/'
207    complete hesinfo	'p/1/u/' \
208			'p/2/(passwd group uid grplist pcap pobox cluster \
209			      filsys sloc service)/'
210
211    # these from E. Jay Berkenbilt <ejb@ERA.COM>
212    # = isn't always followed by a filename or a path anymore - jgotts
213    complete ./configure 'c/--*=/f/' 'c/--{cache-file,prefix,exec-prefix,\
214    				bindir,sbindir,libexecdir,datadir,\
215				sysconfdir,sharedstatedir,localstatedir,\
216				libdir,includedir,oldincludedir,infodir,\
217				mandir,srcdir}/(=)//' \
218			 'c/--/(cache-file verbose prefix exec-prefix bindir \
219			 	sbindir libexecdir datadir sysconfdir \
220				sharedstatedir localstatedir libdir \
221				includedir oldincludedir infodir mandir \
222				srcdir)//'
223    complete gs 'c/-sDEVICE=/(x11 cdjmono cdj550 epson eps9high epsonc \
224			      dfaxhigh dfaxlow laserjet ljet4 sparc pbm \
225			      pbmraw pgm pgmraw ppm ppmraw bit)/' \
226		'c/-sOutputFile=/f/' 'c/-s/(DEVICE OutputFile)/=' \
227		'c/-d/(NODISPLAY NOPLATFONTS NOPAUSE)/' 'n/*/f/'
228    complete perl	'n/-S/c/'
229    complete printenv	'n/*/e/'
230    complete sccs	p/1/"(admin cdc check clean comb deledit delget \
231			delta diffs edit enter fix get help info \
232			print prs prt rmdel sccsdiff tell unedit \
233			unget val what)"/
234    complete setenv	'p/1/e/' 'c/*:/f/'
235
236    # these and method of setting hosts from Kimmo Suominen <kim@tac.nyc.ny.us>
237    if ( -f $HOME/.mh_profile && -x "`which folders`" ) then 
238
239    if ( ! $?FOLDERS ) setenv FOLDERS "`folders -fast -recurse`"
240    if ( ! $?MHA )     setenv MHA     "`ali | sed -e '/^ /d' -e 's/:.*//'`"
241
242    set folders = ( $FOLDERS )
243    set mha = ( $MHA )
244
245    complete ali \
246        'c/-/(alias nolist list nonormalize normalize nouser user help)/' \
247        'n,-alias,f,'
248
249    complete anno \
250        'c/-/(component noinplace inplace nodate date text help)/' \
251        'c,+,$folders,'  \
252        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
253
254    complete burst \
255        'c/-/(noinplace inplace noquiet quiet noverbose verbose help)/' \
256        'c,+,$folders,'  \
257        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
258
259    complete comp \
260        'c/-/(draftfolder draftmessage nodraftfolder editor noedit file form nouse use whatnowproc nowhatnowproc help)/' \
261        'c,+,$folders,'  \
262        'n,-whatnowproc,c,'  \
263        'n,-file,f,'\
264        'n,-form,f,'\
265        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
266
267    complete dist \
268        'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit form noinplace inplace whatnowproc nowhatnowproc help)/' \
269        'c,+,$folders,'  \
270        'n,-whatnowproc,c,'  \
271        'n,-form,f,'\
272        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
273
274    complete folder \
275        'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \
276        'c,+,$folders,'  \
277        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
278
279    complete folders \
280        'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \
281        'c,+,$folders,'  \
282        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
283
284    complete forw \
285        'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit filter form noformat format noinplace inplace digest issue volume whatnowproc nowhatnowproc help)/' \
286        'c,+,$folders,'  \
287        'n,-whatnowproc,c,'  \
288        'n,-filter,f,'\
289        'n,-form,f,'\
290        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
291
292    complete inc \
293        'c/-/(audit file noaudit nochangecur changecur file form format nosilent silent notruncate truncate width help)/' \
294        'c,+,$folders,'  \
295        'n,-audit,f,'\
296        'n,-form,f,'
297
298    complete mark \
299        'c/-/(add delete list sequence nopublic public nozero zero help)/' \
300        'c,+,$folders,'  \
301        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
302
303    complete mhmail \
304        'c/-/(body cc from subject help)/' \
305        'n,-cc,$mha,'  \
306        'n,-from,$mha,'  \
307        'n/*/$mha/'
308
309    complete mhpath \
310        'c/-/(help)/' \
311        'c,+,$folders,'  \
312        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
313
314    complete msgchk \
315        'c/-/(nodate date nonotify notify help)/' 
316
317    complete msh \
318        'c/-/(prompt noscan scan notopcur topcur help)/' 
319
320    complete next \
321        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
322        'c,+,$folders,'  \
323        'n,-moreproc,c,'  \
324        'n,-showproc,c,'  \
325        'n,-form,f,'
326
327    complete packf \
328        'c/-/(file help)/' \
329        'c,+,$folders,'  \
330        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
331
332    complete pick \
333        'c/-/(and or not lbrace rbrace cc date from search subject to othercomponent after before datefield sequence nopublic public nozero zero nolist list help)/' \
334        'c,+,$folders,'  \
335        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
336
337    complete prev \
338        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
339        'c,+,$folders,'  \
340        'n,-moreproc,c,'  \
341        'n,-showproc,c,'  \
342        'n,-form,f,'
343
344    complete prompter \
345        'c/-/(erase kill noprepend prepend norapid rapid nodoteof doteof help)/' 
346
347    complete refile \
348        'c/-/(draft nolink link nopreserve preserve src file help)/' \
349        'c,+,$folders,'  \
350        'n,-file,f,'\
351        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
352
353    complete rmf \
354        'c/-/(nointeractive interactive help)/' \
355        'c,+,$folders,'  
356
357    complete rmm \
358        'c/-/(help)/' \
359        'c,+,$folders,'  \
360        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
361
362    complete scan \
363        'c/-/(noclear clear form format noheader header width noreverse reverse file help)/' \
364        'c,+,$folders,'  \
365        'n,-form,f,'\
366        'n,-file,f,'\
367        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
368
369    complete send \
370        'c/-/(alias draft draftfolder draftmessage nodraftfolder filter nofilter noformat format noforward forward nomsgid msgid nopush push noverbose verbose nowatch watch width help)/' \
371        'n,-alias,f,'\
372        'n,-filter,f,'
373
374    complete show \
375        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
376        'c,+,$folders,'  \
377        'n,-moreproc,c,'  \
378        'n,-showproc,c,'  \
379        'n,-form,f,'\
380        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
381
382    complete sortm \
383        'c/-/(datefield textfield notextfield limit nolimit noverbose verbose help)/' \
384        'c,+,$folders,'  \
385        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
386
387    complete vmh \
388        'c/-/(prompt vmhproc novmhproc help)/' \
389        'n,-vmhproc,c,'  
390
391    complete whatnow \
392        'c/-/(draftfolder draftmessage nodraftfolder editor noedit prompt help)/' 
393
394    complete whom \
395        'c/-/(alias nocheck check draft draftfolder draftmessage nodraftfolder help)/' \
396        'n,-alias,f,'
397
398    complete plum \
399        'c/-/()/' \
400        'c,+,$folders,'  \
401        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
402
403    complete mail \
404        'c/-/()/' \
405        'n/*/$mha/'
406
407    endif
408
409    #from Dan Nicolaescu <dann@ics.uci.edu>
410    if ( $?MODULESHOME ) then
411
412	alias Compl_module ' set q = "$MODULEPATH:as/:/ /" ; find $q -name .version -o -name .modulea\* -prune -o -print  | sed `echo "-e s@"$MODULEPATH:as%:%/\*@@g -e s@%"/\*@@g"`'
413
414	complete module 'p%1%(add load unload switch display avail use unuse update purge list clear help initadd initrm initswitch initlist initclear)%' \
415    'n%unload%`echo "$LOADEDMODULES:as/:/ /"`%' \
416    'n%{lo*,sw*,di*,he*,inita*,initr*,inits*}%`eval Compl_module`%' \
417    'N%{sw*,initsw*}%`eval Compl_module`%' 'C%-%(-append)%' 'n%{use,unu*,av*}%d%' 'n%-append%d%' \
418    'C%[^-]*%`eval Compl_module`%'
419    endif
420
421    # these from Tom Warzeka <waz@quahog.npt.nuwc.navy.mil>
422    # you may need to set the following variables for your host
423    set _elispdir = /usr/local/share/emacs/20.2/lisp # GNU Emacs lisp directory
424    set _maildir = /var/spool/mail  # Post Office: /var/spool/mail or /usr/mail
425    set _ypdir  = /var/yp	# directory where NIS (YP) maps are kept
426    set _domain = "`domainname`"
427
428    # this one works but is slow and doesn't descend into subdirectories
429    # complete	cd	C@[./\$~]*@d@ \
430    #			p@1@'`\ls -1F . $cdpath | grep /\$ | sort -u`'@ n@*@n@
431
432    if ( -r /etc/shells ) then
433        complete setenv	p@1@e@ n@DISPLAY@\$hosts@: n@SHELL@'`cat /etc/shells`'@
434    else
435	complete setenv	p@1@e@ n@DISPLAY@\$hosts@:
436    endif
437    complete unsetenv	n/*/e/
438
439    if (-r $HOME/.mailrc) then
440        complete mail	c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \
441			c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \
442			n@-u@T:$_maildir@ n/-f/f/ \
443			n@*@'`sed -n s/alias//p $HOME/.mailrc | tr -s " " "	" | cut -f 2`'@
444    else
445        complete mail	c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \
446			c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \
447			n@-u@T:$_maildir@ n/-f/f/ n/*/u/
448    endif
449
450    complete man	    n@1@'`\ls -1 /usr/man/man1 | sed s%\\.1.\*\$%%`'@ \
451			    n@2@'`\ls -1 /usr/man/man2 | sed s%\\.2.\*\$%%`'@ \
452			    n@3@'`\ls -1 /usr/man/man3 | sed s%\\.3.\*\$%%`'@ \
453			    n@4@'`\ls -1 /usr/man/man4 | sed s%\\.4.\*\$%%`'@ \
454			    n@5@'`\ls -1 /usr/man/man5 | sed s%\\.5.\*\$%%`'@ \
455			    n@6@'`\ls -1 /usr/man/man6 | sed s%\\.6.\*\$%%`'@ \
456			    n@7@'`\ls -1 /usr/man/man7 | sed s%\\.7.\*\$%%`'@ \
457			    n@8@'`\ls -1 /usr/man/man8 | sed s%\\.8.\*\$%%`'@ \
458    n@9@'`[ -r /usr/man/man9 ] && \ls -1 /usr/man/man9 | sed s%\\.9.\*\$%%`'@ \
459    n@0@'`[ -r /usr/man/man0 ] && \ls -1 /usr/man/man0 | sed s%\\.0.\*\$%%`'@ \
460  n@new@'`[ -r /usr/man/mann ] && \ls -1 /usr/man/mann | sed s%\\.n.\*\$%%`'@ \
461  n@old@'`[ -r /usr/man/mano ] && \ls -1 /usr/man/mano | sed s%\\.o.\*\$%%`'@ \
462n@local@'`[ -r /usr/man/manl ] && \ls -1 /usr/man/manl | sed s%\\.l.\*\$%%`'@ \
463n@public@'`[ -r /usr/man/manp ]&& \ls -1 /usr/man/manp | sed s%\\.p.\*\$%%`'@ \
464		c/-/"(- f k M P s t)"/ n/-f/c/ n/-k/x:'<keyword>'/ n/-[MP]/d/ \
465		N@-[MP]@'`\ls -1 $:-1/man? | sed s%\\..\*\$%%`'@ n/*/c/
466
467    complete ps	        c/-t/x:'<tty>'/ c/-/"(a c C e g k l S t u v w x)"/ \
468			n/-k/x:'<kernel>'/ N/-k/x:'<core_file>'/ n/*/x:'<PID>'/
469    complete compress	c/-/"(c f v b)"/ n/-b/x:'<max_bits>'/ n/*/f:^*.Z/
470    complete uncompress	c/-/"(c f v)"/                        n/*/f:*.Z/
471
472    complete xhost	c/[+-]/\$hosts/ n/*/\$hosts/
473
474    # these conform to the latest GNU versions available at press time ...
475    # updates by John Gotts <jgotts@engin.umich.edu>
476
477    complete emacs	c/-/"(batch d f funcall i insert kill l load \
478			no-init-file nw q t u user)"/ c/+/x:'<line_number>'/ \
479			n/-d/x:'<display>'/ n/-f/x:'<lisp_function>'/ n/-i/f/ \
480			n@-l@F:$_elispdir@ n/-t/x:'<terminal>'/ \
481			n/-u/u/ n/*/f:^*[\#~]/
482
483    complete gzcat	c/--/"(force help license quiet version)"/ \
484			c/-/"(f h L q V -)"/ n/*/f:*.{gz,Z,z,zip}/
485    complete gzip	c/--/"(stdout to-stdout decompress uncompress \
486			force help list license no-name quiet recurse \
487			suffix test verbose version fast best)"/ \
488			c/-/"(c d f h l L n q r S t v V 1 2 3 4 5 6 7 8 9 -)"/\
489			n/{-S,--suffix}/x:'<file_name_suffix>'/ \
490			n/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \
491			N/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \
492			n/*/f:^*.{gz,Z,z,zip,taz,tgz}/
493    complete {gunzip,ungzip} c/--/"(stdout to-stdout force help list license \
494			no-name quiet recurse suffix test verbose version)"/ \
495			c/-/"(c f h l L n q r S t v V -)"/ \
496			n/{-S,--suffix}/x:'<file_name_suffix>'/ \
497			n/*/f:*.{gz,Z,z,zip,taz,tgz}/
498    complete zgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
499			c/-/"(A b B c C e f h i l n s v V w x)"/ \
500			p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \
501			n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/
502    complete zegrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
503			c/-/"(A b B c C e f h i l n s v V w x)"/ \
504			p/1/x:'<full_regular_expression>'/ N/-*e/f/ \
505			n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/
506    complete zfgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
507			c/-/"(A b B c C e f h i l n s v V w x)"/ \
508			p/1/x:'<fixed_string>'/ N/-*e/f/ \
509			n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/
510    complete znew	c/-/"(f t v 9 P K)"/ n/*/f:*.Z/
511    complete zmore	n/*/f:*.{gz,Z,z,zip}/
512    complete zfile	n/*/f:*.{gz,Z,z,zip,taz,tgz}/
513    complete ztouch	n/*/f:*.{gz,Z,z,zip,taz,tgz}/
514    complete zforce	n/*/f:^*.{gz,tgz}/
515
516    complete grep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
517			c/--/"(extended-regexp fixed-regexp basic-regexp \
518			regexp file ignore-case word-regexp line-regexp \
519			no-messages revert-match version help byte-offset \
520			line-number with-filename no-filename quiet silent \
521			text directories recursive files-without-match \
522			files-with-matches count before-context after-context \
523			context binary unix-byte-offsets)"/ \
524			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
525				v w x)"/ \
526			p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \
527			n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/
528    complete egrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
529			c/--/"(extended-regexp fixed-regexp basic-regexp \
530			regexp file ignore-case word-regexp line-regexp \
531			no-messages revert-match version help byte-offset \
532			line-number with-filename no-filename quiet silent \
533			text directories recursive files-without-match \
534			files-with-matches count before-context after-context \
535			context binary unix-byte-offsets)"/ \
536			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
537				v w x)"/ \
538			p/1/x:'<full_regular_expression>'/ N/-*e/f/ \
539			n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/
540    complete fgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
541			c/--/"(extended-regexp fixed-regexp basic-regexp \
542			regexp file ignore-case word-regexp line-regexp \
543			no-messages revert-match version help byte-offset \
544			line-number with-filename no-filename quiet silent \
545			text directories recursive files-without-match \
546			files-with-matches count before-context after-context \
547			context binary unix-byte-offsets)"/ \
548			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
549				v w x)"/ \
550			p/1/x:'<fixed_string>'/ N/-*e/f/ \
551			n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/
552
553    complete users	c/--/"(help version)"/ p/1/x:'<accounting_file>'/
554    complete who	c/--/"(heading idle count mesg message writable help \
555    			version)"/ c/-/"(H i m q s T w u -)"/ \
556			p/1/x:'<accounting_file>'/ n/am/"(i)"/ n/are/"(you)"/
557
558    complete chown	c/--/"(changes dereference no-dereference silent \
559    			quiet reference recursive verbose help version)"/ \
560			c/-/"(c f h R v -)"/ C@[./\$~]@f@ c/*[.:]/g/ \
561			n/-/u/. p/1/u/. n/*/f/
562    complete chgrp	c/--/"(changes no-dereference silent quiet reference \
563    			recursive verbose help version)"/ \
564			c/-/"(c f h R v -)"/ n/-/g/ p/1/g/ n/*/f/
565    complete chmod	c/--/"(changes silent quiet verbose reference \
566    			recursive help version)"/ c/-/"(c f R v)"/
567    complete df		c/--/"(all block-size human-readable si inodes \
568			kilobytes local megabytes no-sync portability sync \
569			type print-type exclude-type help version)"/ \
570			c/-/"(a H h i k l m P T t v x)"/
571    complete du		c/--/"(all block-size bytes total dereference-args \
572    			human-readable si kilobytes count-links dereference \
573			megabytes separate-dirs summarize one-file-system \
574			exclude-from exclude max-depth help version"/ \
575			c/-/"(a b c D H h k L l m S s X x)"/
576
577    complete cat	c/--/"(number-nonblank number squeeze-blank show-all \
578			show-nonprinting show-ends show-tabs help version)"/ \
579			c/-/"(A b E e n s T t u v -)"/ n/*/f/
580    complete mv		c/--/"(backup force interactive update verbose suffix \
581			version-control help version)"/ \
582			c/-/"(b f i S u V v -)"/ \
583			n/{-S,--suffix}/x:'<suffix>'/ \
584			n/{-V,--version-control}/"(t numbered nil existing \
585			never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/
586    complete cp		c/--/"(archive backup no-dereference force \
587    			interactive link preserve parents sparse recursive \
588			symbolic-link suffix update verbose version-control \
589			one-file-system help version)"/ \
590			c/-/"(a b d f i l P p R r S s u V v x -)"/ \
591			n/-*r/d/ n/{-S,--suffix}/x:'<suffix>'/ \
592			n/{-V,--version-control}/"(t numbered nil existing \
593			never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/
594    complete ln		c/--/"(backup directory force no-dereference \
595    			interactive symbolic suffix verbose version-control \
596			help version)"/ \
597			c/-/"(b d F f i n S s V v -)"/ \
598			n/{-S,--suffix}/x:'<suffix>'/ \
599			n/{-V,--version-control}/"(t numbered nil existing \
600			never simple)"/ n/-/f/ N/-/x:'<link_name>'/ \
601			p/1/f/ p/2/x:'<link_name>'/
602    complete touch	c/--/"(date reference time help version)"/ \
603			c/-/"(a c d f m r t -)"/ \
604			n/{-d,--date}/x:'<date_string>'/ \
605			c/--time/"(access atime mtime modify use)"/ \
606			n/{-r,--file}/f/ n/-t/x:'<time_stamp>'/ n/*/f/
607    complete mkdir	c/--/"(mode parents verbose help version)"/ \
608    			c/-/"(p m -)"/ \
609			n/{-m,--mode}/x:'<mode>'/ n/*/d/
610    complete rmdir	c/--/"(ignore-fail-on-non-empty parents verbose help \
611    			version)"/ c/-/"(p -)"/ n/*/d/
612
613    complete tar	c/-[Acru]*/"(b B C f F g G h i l L M N o P \
614			R S T v V w W X z Z)"/ \
615			c/-[dtx]*/"( B C f F g G i k K m M O p P \
616			R s S T v w x X z Z)"/ \
617			p/1/"(A c d r t u x -A -c -d -r -t -u -x \
618			--catenate --concatenate --create --diff --compare \
619			--delete --append --list --update --extract --get \
620			--help --version)"/ \
621			c/--/"(catenate concatenate create diff compare \
622			delete append list update extract get atime-preserve \
623			block-size read-full-blocks directory checkpoint file \
624			force-local info-script new-volume-script incremental \
625			listed-incremental dereference ignore-zeros \
626			ignore-failed-read keep-old-files starting-file \
627			one-file-system tape-length modification-time \
628			multi-volume after-date newer old-archive portability \
629			to-stdout same-permissions preserve-permissions \
630			absolute-paths preserve record-number remove-files \
631			same-order preserve-order same-owner sparse \
632			files-from null totals verbose label version \
633			interactive confirmation verify exclude exclude-from \
634			compress uncompress gzip ungzip use-compress-program \
635			block-compress help version)"/ \
636			c/-/"(b B C f F g G h i k K l L m M N o O p P R s S \
637			T v V w W X z Z 0 1 2 3 4 5 6 7 -)"/ \
638			n/-c*f/x:'<new_tar_file, device_file, or "-">'/ \
639			n/{-[Adrtux]*f,--file}/f:*.tar/ \
640			N/{-x*f,--file}/'`tar -tf $:-1`'/ \
641			n/--use-compress-program/c/ \
642			n/{-b,--block-size}/x:'<block_size>'/ \
643			n/{-V,--label}/x:'<volume_label>'/ \
644			n/{-N,--{after-date,newer}}/x:'<date>'/ \
645			n/{-L,--tape-length}/x:'<tape_length_in_kB>'/ \
646			n/{-C,--directory}/d/ \
647			N/{-C,--directory}/'`\ls $:-1`'/ \
648			n/-[0-7]/"(l m h)"/
649
650    # SVR4 filesystems
651    #complete  mount	c/-/"(a F m o O p r v V)"/ n/-p/n/ n/-v/n/ \
652    #			n/-o/x:'<FSType_options>'/ \
653    #			n@-F@'`\ls -1 /usr/lib/fs`'@ \
654    #			n@*@'`grep -v "^#" /etc/vfstab | tr -s " " "	 " | cut -f 3`'@
655    #complete umount	c/-/"(a o V)"/ n/-o/x:'<FSType_options>'/ \
656    #			n/*/'`mount | cut -d " " -f 1`'/
657    #complete  mountall	c/-/"(F l r)"/ n@-F@'`\ls -1 /usr/lib/fs`'@
658    #complete umountall	c/-/"(F h k l r s)"/ n@-F@'`\ls -1 /usr/lib/fs`'@ \
659    #			n/-h/'`df -k | cut -s -d ":" -f 1 | sort -u`'/
660    # BSD 4.3 filesystems
661    complete  mount	c/-/"(a r t v)"/ n/-t/"(4.2 nfs)"/ \
662			n@*@'`grep -v "^#" /etc/fstab | tr -s " " "	" | cut -f 2`'@
663    complete umount	c/-/"(a h t v)"/ n/-t/"(4.2 nfs)"/ \
664			n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \
665			n/*/'`mount | cut -d " " -f 3`'/
666    # BSD 4.2 filesystems
667    #complete  mount	c/-/"(a r t v)"/ n/-t/"(ufs nfs)"/ \
668    #			n@*@'`cut -d ":" -f 2 /etc/fstab`'@
669    #complete umount	c/-/"(a h t v)"/ n/-t/"(ufs nfs)"/ \
670    #			n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \
671    #			n/*/'`mount | cut -d " " -f 3`'/
672
673    # these deal with NIS (formerly YP); if it's not running you don't need 'em
674    complete domainname	p@1@D:$_ypdir@" " n@*@n@
675    complete ypcat	c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
676	    N@-d@\`\\ls\ -1\ $_ypdir/\$:-1\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \
677	  n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@
678    complete ypmatch	c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
679	            N@-d@x:'<key ...>'@ n@-@x:'<key ...>'@ p@1@x:'<key ...>'@ \
680	  n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@
681    complete ypwhich	c@-@"(d m t x V1 V2)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
682	 n@-m@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \
683			N@-m@n@ n@*@\$hosts@
684
685    # there's no need to clutter the user's shell with these
686    unset _elispdir _maildir _ypdir _domain
687
688    complete make \
689	'n/-f/f/' \
690      	'c/*=/f/' \
691	'n@*@`cat -s GNUmakefile Makefile makefile |& sed -n -e "/No such file/d" -e "/^[^     #].*:/s/:.*//p"`@'
692
693    if ( -f /etc/printcap ) then
694	set printers=(`sed -n -e "/^[^     #].*:/s/:.*//p" /etc/printcap`)
695
696	complete lpr    'c/-P/$printers/'
697	complete lpq    'c/-P/$printers/'
698	complete lprm   'c/-P/$printers/'
699	complete lpquota        'p/1/(-Qprlogger)/' 'c/-P/$printers/'
700	complete dvips  'c/-P/$printers/' 'n/-o/f:*.{ps,PS}/' 'n/*/f:*.dvi/'
701    endif
702
703    unset noglob
704    unset complete
705endif
706
707end:
708	onintr
709