22486: completion for dak (the debian-archive-kit).

2 files changed, 249 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index c4f6ea701..c4ba6cf8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-11  Clint Adams  <clint@zsh.org>
+
+	* 22486: Completion/Debian/Command/_dak: completion for
+	dak (the debian-archive-kit).
+
 2006-06-09  Clint Adams  <clint@zsh.org>
 
 	* users/10282: Oliver Kiddle: Completion/Unix/Command/_man: 
diff --git a/Completion/Debian/Command/_dak b/Completion/Debian/Command/_dak
new file mode 100644
index 000000000..63bf2d06e
--- /dev/null
+++ b/Completion/Debian/Command/_dak
@@ -0,0 +1,244 @@
+#compdef dak
+
+local curcontext="$curcontext" state line expl cmd args ret=1
+typeset -A opt_args
+
+_arguments -C \
+    '1: :->cmd' \
+    '*:: :->args' && ret=0
+
+if (( ! $+_dak_cmds )); then
+    typeset -gH _dak_cmds
+    _dak_cmds=(${${${(f)${"$(_call_program dak dak --help)"#*Availa#ble commands:}}#[^a-z] ##}%%[ 	]*})
+fi
+
+if [[ $state != 'args' ]]; then
+    _describe -t subcommand 'subcommand' _dak_cmds
+    return 0
+fi
+
+cmd="$words[1]"
+curcontext="${curcontext%:*:*}:dak-$cmd:"
+
+args=( '(-)'{--help,-h}'[show help message]' )
+
+case $cmd in
+(ls)
+    args+=(
+  '(-a --architecture)'{-a,--architecture=}':arch:_values -s , "architecture list" source all alpha amd64 arm hppa hurd-i386 i386 ia64 mips mipsel'
+  '(-b --binary-type)'{-b,--binary-type=}':type:(deb udeb)'
+  '(-c --component)'{-c,--component=}':component:_values -s , "component list" main contrib non-free'
+  '(-g --greaterorequal)'{-g,--greaterorequal}
+  '(-G --greaterthan)'{-G,--greaterthan}
+  '(-r --regex)'{-r,--regex}
+  '(-s --suite)'{-s,--suite=}':suite:_values -s , "suite list" oldstable stable testing unstable experimental'
+  '(-S, --source-and-binary)'{-S,--source-and-binary}
+  '*:package:_deb_packages avail'
+        )
+    ;;
+(override)
+    args+=(
+  '(-d --done)'{-d,--done=}'[send prioritys/section change as closure to bug]:bug number:'
+  '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+  '(-s --suite)'{-s,--suite=}':suite:_values -s , "suite list" oldstable stable testing unstable experimental'
+  ':package:_deb_packages avail'
+  ':section:(admin base comm contrib/admin contrib/comm contrib/devel contrib/doc contrib/games contrib/graphics contrib/interpreters contrib/kde contrib/libdevel contrib/libs contrib/mail contrib/math contrib/misc contrib/net contrib/otherosfs contrib/perl contrib/python contrib/science contrib/sound contrib/tex contrib/text contrib/utils contrib/web contrib/x11 devel doc editors electronics embedded games gnome graphics hamradio interpreters kde libdevel libs mail math misc net news non-free/admin non-free/base non-free/comm non-free/devel non-free/doc non-free/editors non-free/electronics non-free/games non-free/graphics non-free/hamradio non-free/libdevel non-free/libs non-free/mail non-free/math non-free/misc non-free/net non-free/news non-free/otherosfs non-free/python non-free/science non-free/sound non-free/tex non-free/text non-free/utils non-free/web non-free/x11 oldlibs otherosfs perl python science shells sound tex text utils web x11)'
+  ':priority:(extra important optional required standard)'
+    )
+    ;;
+(check-archive)
+    args+=(
+  '*:mode:((
+  md5sums\:validate\ the\ md5sums\ stored\ in\ the\ database
+  files\:check\ files\ in\ the\ database\ against\ what\ is\ in\ the\ archive
+  dsc-syntax\:validate\ the\ syntax\ of\ .dsc\ files\ in\ the\ archive
+  missing-overrides\:check\ for\ missing\ overrides
+  source-in-one-dir\:ensure\ the\ source\ for\ each\ package\ is\ in\ one\ directory
+  timestamps\:check\ for\ future\ timestamps\ in\ .debs
+  tar-gz-in-dsc\:ensure\ each\ .dsc\ lists\ a\ .tar.gz\ file
+  validate-indices\:ensure\ files\ mentioned\ in\ Packages\ and\ Sources\ exist
+  files-not-symlinks\:check\ files\ in\ the\ database\ are\ not\ symlinks
+  validate-builddeps\:validate\ build-dependencies\ of\ .dsc\ files\ in\ the\ archive))'
+    )
+    ;;
+(queue-report)
+    args+=(
+   '(-n --new)'{-n,--new}'[produce html output]'
+   '(-s --sort)'{-s,--sort=}':sort key:((ao\:age,\ oldest\ first an\:age,\ newest\ first na\:name,\ ascending nd\:name,\ descending nf\:notes,\ first nl\:notes,\ last))'
+   '(-a --age)'{-a,--age=}':age key:((m\:minutes h\:hours d\:days w\:weeks o\:months y\:years))'
+    )
+    ;;
+(rm)
+    args+=(
+  '(-a --architecture)'{-a,--architecture=}':arch:_values -s , "architecture list" source all alpha amd64 arm hppa hurd-i386 i386 ia64 mips mipsel'
+  '(-b --binary)'{-b,--binary}'[remove binaries only]'
+  '(-c --component)'{-c,--component=}':component:_values -s , "component list" main contrib non-free'
+  '(-C --carbon-copy)'{-C,--carbon-copy=}':cc address:_email_addresses'
+  '(-d --done)'{-d,--done=}'[send prioritys/section change as closure to bug]:bug number:'
+  '(-m --reason)'{-m,--reason=}':reason for removal:'
+  '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+  '(-p --partial)'{-p,--partial}'[do not affect override files]'
+  '(-R --rdep-check)'{-R,--rdep-check}'[check reverse dependencies]'
+  '(-s --suite)'{-s,--suite=}':suite:_values -s , "suite list" oldstable stable testing unstable experimental'
+  '(-S, --source-only)'{-S,--source-only}'[remove source only]'
+  '*:package:_deb_packages avail'
+    )
+    ;;
+(process-unchecked|process-accepted)
+    args+=(
+  '(-a --automatic)'{-a,--automatic}'[automatic run]'
+  '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+  '(-p --no-lock)'{-p,--no-lock}'[do not check lockfile]'
+  '(-s --no-mail)'{-s,--no-mail}'[do not send any mail]'
+  '(-V --version)'{-V,--version}'[display the version number and exit]'
+    )
+    ;;
+
+(make-suite-file-list)
+    args+=(
+   '(-a --architecture)'{-a,--architecture=}':arch:_values -s , "architecture list" source all alpha amd64 arm hppa hurd-i386 i386 ia64 mips mipsel'
+  '(-c --component)'{-c,--component=}':component:_values -s , "component list" main contrib non-free'
+  '(-n --no-delete)'{-n,--no-delete}'[do not delete older versions]'
+  '(-s --suite)'{-s,--suite=}':suite:_values -s , "suite list" oldstable stable testing unstable experimental'
+    )
+    ;;
+
+(generate-releases)
+    args+=(
+   '*:suite:(oldstable stable testing unstable experimental)'
+    )
+    ;;
+
+(generate-index-diffs)
+    args+=(
+   '-c[give the canonical path of the file]'
+   '-p[name for the patch (defaults to current time)]'
+   '-n[take no action]'
+   '*:suite:(oldstable stable testing unstable experimental)'
+    )
+    ;;
+
+(clean-suites)
+    args+=(
+   '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+   '*:suite:(oldstable stable testing unstable experimental)'
+    )
+    ;;
+
+(clean-queues)
+    args+=(
+   '(-d --days)'{-d,--days=}':days:'
+   '(-i --incoming)'{-i,--incoming=}':incoming dir:'
+   '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+   '(-v --verbose)'{-v,--verbose}'[explain what is being done]'
+    )
+    ;;
+
+(clean-proposed-updates)
+    args+=(
+   '(-v --verbose)'{-v,--verbose}'[be more verbose about what is being done]'
+   '*:changes or admin file:_files -g "*.(changes|joey)"'
+    )
+    ;;
+
+(check-overrides)
+    args+=(
+   '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+    )
+    ;;
+
+(clean-proposed-updates)
+    args+=(
+   '(-q --quiet)'{-q,--quiet}'[be quieter about what is being done]'
+   '(-v --verbose)'{-v,--verbose}'[be more verbose about what is being done]'
+   '*:changes or deb or admin file:_files -g "*.(changes|deb|joey)"'
+    )
+    ;;
+
+(control-overrides)
+    args+=(
+  '(-c --component)'{-c,--component=}':component:(main contrib non-free)'
+  '(-s --suite)'{-s,--suite=}':suite:(oldstable stable testing unstable experimental)'
+  '(-t --type)'{-t,--type=}':type:(deb dsc udeb)'
+  '(-a, --add)'{-a,--add}'[add overrides]'
+  '(-S, --set)'{-S,--set}'[set overrides]'
+  '(-l, --list)'{-l,--list}'[list overrides]'
+  '(-q, --quiet)'{-q,--quiet}'[be less verbose]'
+        )
+    ;;
+
+(control-suite)
+    args+=(
+  '(-a --add)'{-a,--add=}':suite:(oldstable stable testing unstable experimental)'
+  '(-l --list)'{-l,--list=}':suite:(oldstable stable testing unstable experimental)'
+  '(-r --remove)'{-r,--remove=}':suite:(oldstable stable testing unstable experimental)'
+  '(-s --set)'{-s,--set=}':suite:(oldstable stable testing unstable experimental)'
+   '*:file:_files'
+    )
+    ;;
+
+(cruft-report)
+    args+=(
+  '(-m --mode)'{-m,--mode=}':mode:(full daily)'
+  '(-s --suite)'{-s,--suite=}':suite:(oldstable stable testing unstable experimental)'
+    )
+    ;;
+
+(decode-dot-dak)
+    args+=(
+    '*:dot-dak file:_files -g "*.dak"'
+    )
+    ;;
+
+(import-archive)
+    args+=(
+    '(-a --action)'{-a,--action}'[actually perform the initialization]'
+    )
+    ;;
+
+(import-users-from-passwd)
+    args+=(
+  '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+  '(-q --quiet)'{-q,--quiet}'[be quiet about what is being done]'
+  '(-v --verbose)'{-v,--verbose}'[explain what is being done]'
+    )
+    ;;
+
+(make-maintainers)
+    args+=(
+    '*:extra file:_files'
+    )
+    ;;
+
+(poolize)
+    args+=(
+  '(-l --limit)'{-l,--limit=}'[only migrate amount of packages]:amount in kb:'
+  '(-n --no-action)'{-n,--no-action}'[do not do anything]'
+  '(-v --verbose)'{-v,--verbose}'[explain what is being done]'
+    )
+    ;;
+
+(reject-proposed-updates)
+    args+=(
+  '(-m --message)'{-m,--message=}'[use this message for rejection]:message:'
+  '(-s --no-mail)'{-s,--no-mail}'[do not send any mail]'
+  '*:changes file:_files -g "*.changes"'
+    )
+    ;;
+
+(stats)
+    args+=(
+  ':mode:((arch-space\:displays\ space\ used\ by\ each\ architecture pkg-nums\:displays\ the\ number\ of\ packages\ by\ suite/architecture daily-install\:displays\ daily\ install\ stats\ suitable\ for\ graphing))'
+    )
+    ;;
+
+(symlink-dists)
+    args+=(
+   '(-v --verbose)'{-v,--verbose}'[explain what is being done]'
+    )
+    ;;
+
+esac
+
+_arguments -s "$args[@]" && ret=0
+return $ret