18956: update a2ps completion for a2ps 4.13

2 files changed, 44 insertions, 26 deletions

diff --git a/ChangeLog b/ChangeLog
index ceccdd4a1..4b42b815c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-08-21  Oliver Kiddle  <opk@zsh.org>
+
+	* 18956: Completion/Unix/Command/_a2ps: update for a2ps 4.13
+
 2003-08-20  Peter Stephenson  <pws@csr.com>
 
 	* 18951: Completion/Unix/Command/_perforce: Improve 18948 to
diff --git a/Completion/Unix/Command/_a2ps b/Completion/Unix/Command/_a2ps
index 0bbfba2b2..d4e9ee469 100644
--- a/Completion/Unix/Command/_a2ps
+++ b/Completion/Unix/Command/_a2ps
@@ -2,38 +2,52 @@
 
 # This is for the GNU version of a2ps.
 
-if [[ "$words[1]" != "$_a2ps_cache_cmd" ]]; then
+if [[ "$words[1]" != "$_cache_a2ps_cmd" ]]; then
   local descr
 
-  _a2ps_cache_cmd="$words[1]"
+  _cache_a2ps_cmd="$words[1]"
 
   descr=( "${(@)${(f@)$(_call_program features LC_ALL=C $words[1] --list=features)//
  /	}:#}" )
 
-  _a2ps_cache_values=(
-      "${descr[(r)Known [Ss]tyle [Ss]heets*]#*	}"
-      "${descr[(r)Known [Ee]ncodings*]#*	}"
-      "${descr[(r)Known [Mm]edia*]#*	}"
-      "${descr[(r)Known [Pp]rologues*]#*	}"
-      "${descr[(r)Known PostScript Printer Descriptions*]#*	}"
-      "${descr[(r)Known [Oo]utput [Dd]estination*]#*	}"
-      "${descr[(r)Known [Uu]ser [Oo]ptions*]#*	}"
-      "${descr[(r)Known Variables*]#*	}"
+  _cache_a2ps_values=(
+    "${descr[(r)Known [Ss]tyle [Ss]heets*]#*	}"
+    "${descr[(r)Known [Ee]ncodings*]#*	}"
+    "${descr[(r)Known [Mm]edia*]#*	}"
+    "${descr[(r)Known [Pp]rologues*]#*	}"
+    "${descr[(r)Known PostScript Printer Descriptions*]#*	}"
+    "${descr[(r)Known [Oo]utputs*]#*	}"
+    "${descr[(r)Known [Uu]ser [Oo]ptions*]#*	}"
+    "${descr[(r)Known Variables*]#*	}"
   )
 fi
 
-_arguments '*:input file:_files' -- \
-           '*\*:toggle:(yes no)' \
-           '*=DIRECTION:direction:(rows columns)' \
-           '*=TYPE:type:(r n nr rn any)' \
-	   '--highlight-level*:highlight:(none normal heavy)' \
-	   '--version-control*:version control:(none off t numbered nil 
-		                                existing never simple)' \
-	   "--pretty-print*::style:(${_a2ps_cache_values[1]})" \
-	   "--encoding*:encoding:(${_a2ps_cache_values[2]})" \
-	   "--medium*::medium:(${_a2ps_cache_values[3]})" \
-	   "--prologue*::prologue:(${_a2ps_cache_values[4]})" \
-	   "--ppd*::printer description:(${_a2ps_cache_values[5]})" \
-	   "--printer*::printer:(${_a2ps_cache_values[6]})" \
-	   "--user-option*::user option:(${_a2ps_cache_values[7]})" \
-	   "--variable*::variable:(${_a2ps_cache_values[8]})"
+_arguments \
+  '(-E --pretty-print=)'{-E-,--pretty-print=}"[enable pretty-printing]::language:(${_cache_a2ps_values[1]})" \
+  \*{-D+,--define=}"[set or unset variable]:variable:(${_cache_a2ps_values[8]})" \
+  '(-d -P --printer)'{-P,--printer=}"[send output to printer]:printer:(${_cache_a2ps_values[6]})" \
+  '(-A --file-align)'{-A,--file-align=}'[specify alignment of separate files]:mode:(virtual rank page sheet)' \
+  '(-a --pages)'{-a-,--pages=}'[select pages to print]:page range' \
+  '(-q --quiet --silent -v --verbose)'{-q,--quiet,--silent}'[quiet output]' \
+  '(-q --quiet --silent -v --verbose)'{-v-,--verbose=}'[verbose output]:level' \
+  '(-b --header)'{-b-,--header=}'[set the page header]:text' \
+  '(-g)--highlight-level=:highlight:(none normal heavy)' \
+  '--list=:topic:(features delegations encodings media prologues printers style-sheets user-options variables)' \
+  "--user-option=:user option:(${_cache_a2ps_values[7]})" \
+  {-M,--medium=}":medium:(${_cache_a2ps_values[3]})" \
+  "--ppd=::printer description:(${_cache_a2ps_values[5]})" \
+  '--statusdict=:statusdict definition' \
+  '--setpagedevice=:page device definition' \
+  '--margin=:margin size (PostScript points)' \
+  '--toc=:format' \
+  --{{center,left,right}-title.underlay,{,left-,right-}footer}'=:text' \
+  '*:input file:_files' -- \
+  '*\*:toggle:(yes no)' \
+  '*=DIRECTION:direction:(rows columns)' \
+  '*=TYPE:type:((r\:CR mac\:CR unix\:LF n\:LF nr\:LFCR rn\:CRLF pc\:CRLF any auto))' \
+  '--version-control*:version control:(none off t numbered nil existing never simple)' \
+  '--strip-level*:strip level:((0\:everything\ is\ printed 1\:regular\ comments\ are\ not\ printed 2\:strong\ comments\ are\ not\ printed 3\:no\ comment\ is\ printed))' \
+  '--sides=*:mode:(simplex duplex tumble)' \
+  '--non-printable-format*:format:(caret space question-mark octal hexa emacs)' \
+  "--encoding*:encoding:(${_cache_a2ps_values[2]})" \
+  "--prologue*::prologue:(${_cache_a2ps_values[4]})"