PATCH: _dput

PATCH: _dput

[Clint Adams]

_dput comes from Tollef Fog Heen <tollef@add.no>

Index: Completion/Debian/Command/.distfiles
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Debian/Command/.distfiles,v
retrieving revision 1.5
diff -u -r1.5 .distfiles
--- Completion/Debian/Command/.distfiles	2001/10/10 03:13:00	1.5
+++ Completion/Debian/Command/.distfiles	2001/11/15 19:33:56
@@ -1,5 +1,7 @@
 DISTFILES_SRC='
 .distfiles
-_apt	_bts	_bug  _debchange _dpkg       _dpkg_source  _dupload
+_apt
+_bts	_bug
+_debchange _dpkg       _dpkg_source  _dput  _dupload
 _update-alternatives
 '
Index: Completion/Debian/Command/_dput
===================================================================
RCS file: _dput
diff -N _dput
--- /dev/null	Thu May 24 22:33:05 2001
+++ _dput	Thu Nov 15 11:33:56 2001
@@ -0,0 +1,29 @@
+#compdef dput
+
+if (( ! $+_dput_sites )); then
+  _dput_sites=(
+$(grep "^\[" /etc/dput.cf | sed -e 's,\[,,g' -e 's,\],,g')
+)
+fi
+
+_arguments '(-c)--config[config file]:config file:' \
+           '(--config)-c[config file]:config file:' \
+           '(--debug)-d[debug mode]' \
+           '(-d)--debug[debug mode]' \
+           '(--dinstall)-D[run dinstall after upload]' \
+           '(-D)--dinstall[run dinstall after upload]' \
+           '(--force)-f[force upload of already uploaded package]' \
+           '(-f)--force[force upload of already uploaded package]' \
+           '(--lintian)-l[run lintian before upload]' \
+           '(-l)--lintian[run lintian before upload]' \
+           '(-o)--check-only[check the package, do not upload]' \
+           '(--check-only)-o[check the package, do not upload]' \
+           '(--print)-p[print configuration]' \
+           '(-p)--print[print configuration]' \
+           '(--simulate)-s[simulate an upload only]' \
+           '(-s)--simulate[simulate an upload only]' \
+           '(--unchecked)-u[do not check GPG signature on the changes file]' \
+           '(-u)--unchecked[do not check GPG signature on the changes file]' \
+           '(-v)--version[version]' \
+           '(--version)-v[version]' \
+           '*:changes file:_files -g \*.changes' \

Re: PATCH: _dput

[Clint Adams]

> Instead of _hosts, this should parse the output of dput -H.

Like this

Index: Completion/Debian/Command/_dput
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Debian/Command/_dput,v
retrieving revision 1.6
diff -u -r1.6 _dput
--- Completion/Debian/Command/_dput	19 Aug 2007 11:06:04 -0000	1.6
+++ Completion/Debian/Command/_dput	19 Aug 2007 15:51:04 -0000
@@ -1,5 +1,6 @@
 #compdef dput
 
+_dput() {
 _arguments \
   '(-c --config)'{-c,--config}'[specify config file]:config file:_files' \
   '(-d --debug)'{-d,--debug}'[debug mode]' \
@@ -13,5 +14,19 @@
   '(-s --simulate)'{-s,--simulate}'[simulate an upload only]' \
   '(-u --unchecked)'{-u,--unchecked}'[do not check GPG signature on the changes file]' \
   '(-v --version)'{-v,--version}'[show version information]' \
-  '1::host:_hosts' \
+  '1::host:_dput_hosts' \
   '*:changes file:_files -g "*.changes(-.)"'
+}
+
+_dput_hosts() {
+  local expl
+
+  if ( [[ ${+_dput_cfhosts} -eq 0 ]] || _cache_invalid dputhosts ) && ! _retrieve_cache dputhosts; then
+    _dput_cfhosts=(${${(M)${(f)"$(dput -H)"}:#*=>*}/ =>*/})
+    _store_cache dputhosts _dput_cfhosts
+  fi
+
+  _wanted dputhosts expl 'target host' compadd -a _dput_cfhosts
+}
+
+_dput "$@"

PATCH: _dput

[Clint Adams]

Instead of _hosts, this should parse the output of dput -H.

Index: Completion/Debian/Command/_dput
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Debian/Command/_dput,v
retrieving revision 1.5
diff -u -r1.5 _dput
--- Completion/Debian/Command/_dput	6 Nov 2005 15:04:39 -0000	1.5
+++ Completion/Debian/Command/_dput	19 Aug 2007 11:02:11 -0000
@@ -4,11 +4,14 @@
   '(-c --config)'{-c,--config}'[specify config file]:config file:_files' \
   '(-d --debug)'{-d,--debug}'[debug mode]' \
   '(-D --dinstall)'{-D,--dinstall}'[run dinstall after upload]' \
+  '(-e --delayed)'{-E,--delayed}'number of days in delayed queue:(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)' \
   '(-f --force)'{-f,--force}'[force upload of already uploaded package]' \
+  '(-H --host-list)'{-H,--host-list}'[display host list]' \
   '(-l --lintian)'{-l,--lintian}'[run lintian before upload]' \
   '(-o --check-only)'{-o,--check-only}'[check the package, do not upload]' \
   '(-p --print)'{-p,--print}'[print configuration]' \
   '(-s --simulate)'{-s,--simulate}'[simulate an upload only]' \
   '(-u --unchecked)'{-u,--unchecked}'[do not check GPG signature on the changes file]' \
   '(-v --version)'{-v,--version}'[show version information]' \
+  '1::host:_hosts' \
   '*:changes file:_files -g "*.changes(-.)"'