From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-1.0 required=5.0 tests=MAILING_LIST_MULTI, RCVD_IN_DNSWL_NONE autolearn=ham autolearn_force=no version=3.4.2 Received: (qmail 14843 invoked from network); 27 Apr 2020 11:39:08 -0000 Received: from ns1.primenet.com.au (HELO primenet.com.au) (203.24.36.2) by inbox.vuxu.org with UTF8ESMTPZ; 27 Apr 2020 11:39:08 -0000 Received: (qmail 14456 invoked by alias); 27 Apr 2020 11:38:57 -0000 Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm Precedence: bulk X-No-Archive: yes List-Id: Zsh Workers List List-Post: List-Help: List-Unsubscribe: X-Seq: 45724 Received: (qmail 10929 invoked by uid 1010); 27 Apr 2020 11:38:57 -0000 X-Qmail-Scanner-Diagnostics: from wout1-smtp.messagingengine.com by f.primenet.com.au (envelope-from , uid 7791) with qmail-scanner-2.11 (clamdscan: 0.102.2/25793. spamassassin: 3.4.4. Clear:RC:0(64.147.123.24):SA:0(-2.6/5.0):. Processed in 4.714294 secs); 27 Apr 2020 11:38:57 -0000 X-Envelope-From: d.s@daniel.shahaf.name X-Qmail-Scanner-Mime-Attachments: | X-Qmail-Scanner-Zip-Files: | Received-SPF: none (ns1.primenet.com.au: domain at daniel.shahaf.name does not designate permitted sender hosts) X-ME-Sender: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgeduhedrheelgdegudcutefuodetggdotefrodftvf curfhrohhfihhlvgemucfhrghsthforghilhdpqfgfvfdpuffrtefokffrpgfnqfghnecu uegrihhlohhuthemuceftddtnecuogfggedutddqvdejucdlgedtmdenucfjughrpefhvf fufffkofgggfestdektddtredttdenucfhrhhomhepffgrnhhivghlucfuhhgrhhgrfhcu oegurdhssegurghnihgvlhdrshhhrghhrghfrdhnrghmvgeqnecukfhppeejledrudektd drudeftddrudegjeenucevlhhushhtvghrufhiiigvpedtnecurfgrrhgrmhepmhgrihhl fhhrohhmpegurdhssegurghnihgvlhdrshhhrghhrghfrdhnrghmvg X-ME-Proxy: From: Daniel Shahaf To: zsh-workers@zsh.org Subject: [PATCH] _debsnap: New completion function. Date: Mon, 27 Apr 2020 11:38:13 +0000 Message-Id: <20200427113813.1701-1-danielsh@tarpaulin.shahaf.local2> X-Mailer: git-send-email 2.20.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Qmail-Scanner-2.11: added fake Content-Type header Content-Type: text/plain --- Completion/Debian/Command/_debsnap | 52 ++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 Completion/Debian/Command/_debsnap diff --git a/Completion/Debian/Command/_debsnap b/Completion/Debian/Command/_debsnap new file mode 100644 index 000000000..40389375c --- /dev/null +++ b/Completion/Debian/Command/_debsnap @@ -0,0 +1,52 @@ +#compdef debsnap + +# Based on debsnap from devscripts-2.20.3 + +local context state state_descr line ret=1 +local -a expl +typeset -A opt_args + +_arguments \ + '(-d --destdir)'{-d+,--destdir=}'[set download directory]:download directory:_files -/' \ + '(-f --force)'{-f,--force}'[allow non-empty destination directory]' \ + '(-v --verbose)'{-v,--verbose}'[print configuration and report progress]' \ + --list"[list versions; don't download]" \ + --binary'[operate on binary packages (default: source packages)]' \ + '*'{-a+,--architecture=}'[specify architectures to download]:architecture to download:_deb_architectures' \ + --first='[download all versions newer than this]:version number (lower bound):->versions' \ + --last='[download all versions older than this]:version number (upper bound):->versions' \ + '(-)'{-h,--help}'[show usage information]' \ + '(-)'--version'[show version number and license]' \ + '1: :->package' \ + '2:version number to download:->versions' \ + && ret=0 + +# -a implies --binary +if (( ${+opt_args[-a]} || ${+opt_args[--architecture]} )); then + opt_args[--binary]='' +fi + +case $state in + (package) + if (( ${+opt_args[--binary]} )); then + _description binary-packages expl 'binary package to download' + _deb_packages "${expl[@]}" avail && ret=0 + else + _description source-packages expl 'source package to download' + _deb_packages "${expl[@]}" source && ret=0 + fi + ;; + (versions) + local package=${(Q)line[1]} + if [[ -n $package ]]; then + local -a versions=( ${(f)"$(_call_program versions debsnap --list ${(@kv)opt_args[(I)(-a|--architecture|--binary)]} -- ${line[1]})"} ) + # TODO: filter ${versions} to only those between ${opt_args[--first]} and ${opt_args[--last]} + _description versions expl ${state_descr} + compadd "$@" "${expl[@]}" -a versions && ret=0 + else + _message -- $state_descr && ret=0 + fi + ;; +esac + +return ret