From: Tanaka Akira <akr@jaist.ac.jp>
To: zsh-workers@sunsite.auc.dk
Subject: Re: PATCH: _apt-get and _deb_packages
Date: 04 Sep 1999 08:17:18 +0900 [thread overview]
Message-ID: <rsqzoz3twjl.fsf@crane.jaist.ac.jp> (raw)
In-Reply-To: Falk Hueffner's message of "03 Sep 1999 22:30:24 +0200"
In article <87u2pbu49r.fsf@zxmjz18.extern.uni-tuebingen.de>,
Falk Hueffner <falk.hueffner@student.uni-tuebingen.de> writes:
> It would be nice if after 'install' only uninstalled packages would be
> completed, and after 'remove' and 'purge' only installed.
What's `purge'?
At least, the manual in apt 0.3.11 doesn't mention the command.
> dpkg --get-selections | awk '/[^e]install$/ { print $1 }'
> apt-cache dumpavail | awk '/^Package:/ { print $2 }'
I see. Thanks.
Index: Completion/Debian/_apt-get
===================================================================
RCS file: /projects/zsh/zsh/Completion/Debian/_apt-get,v
retrieving revision 1.1.1.1
diff -u -F^( -r1.1.1.1 _apt-get
--- _apt-get 1999/09/02 21:27:08 1.1.1.1
+++ _apt-get 1999/09/03 23:05:44
@@ -1,23 +1,40 @@
#compdef apt-get
-_arguments -s \
- -{,-no-}d --{,no-}download-only \
- -{,-no-}f --{,no-}fix-broken \
- -{,-no-}h --{,no-}help \
- -{,-no-}v --{,no-}version \
- -{,-no-}m --{,no-}ignore-missing \
- --{,no-}fix-missing \
- --{,no-}no-download \
- \*-{,-no-}q \*--{,no-}{quiet,silent} \
- -{,-no-}s --{,no-}{simulate,just-print,dry-run,recon,no-act} \
- -{,-no-}y --{,no-}{yes,assume-yes} \
- -{,-no-}u --{,no-}show-upgraded \
- -{,-no-}b --{,no-}{compile,build} \
- --{,no-}ignore-hold \
- --{,no-}no-upgrade \
- --{,no-}force-yes \
- --{,no-}print-uris \
- {-{,-no-}c,--{,no-}config-file}':Configuration File:_files' \
- {-o,--option}':Foo\:\:Bar=bar:' \
- ':command:(update upgrade dselect-upgrade dist-upgrade install remove source check clean autoclean help)' \
- '*:package:_deb_packages'
+_apt-get () {
+ # This doesn't handle command line of apt completely since command line
+ # parsing library for apt is too complex to handle by _arguments.
+ _arguments -s \
+ -{,-no-}d --{,no-}download-only \
+ -{,-no-}f --{,no-}fix-broken \
+ -{,-no-}h --{,no-}help \
+ -{,-no-}v --{,no-}version \
+ -{,-no-}m --{,no-}ignore-missing \
+ --{,no-}fix-missing \
+ --{,no-}no-download \
+ \*-{,-no-}q \*--{,no-}{quiet,silent} \
+ -{,-no-}s --{,no-}{simulate,just-print,dry-run,recon,no-act} \
+ -{,-no-}y --{,no-}{yes,assume-yes} \
+ -{,-no-}u --{,no-}show-upgraded \
+ -{,-no-}b --{,no-}{compile,build} \
+ --{,no-}ignore-hold \
+ --{,no-}no-upgrade \
+ --{,no-}force-yes \
+ --{,no-}print-uris \
+ {-{,-no-}c,--{,no-}config-file}':Configuration File:_files' \
+ {-o,--option}':Foo\:\:Bar=bar:' \
+ '*::command and packages:_apt-get_args'
+}
+
+_apt-get_args () {
+ if (( CURRENT == 1 )); then
+ compadd "$@" - update upgrade dselect-upgrade dist-upgrade install remove source check clean autoclean help
+ else
+ case "$words[1]" in
+ install) _deb_packages uninstalled "$@";;
+ remove) _deb_packages installed "$@";;
+ *) _deb_packages avail "$@";;
+ esac
+ fi
+}
+
+_apt-get "$@"
Index: Completion/Debian/_deb_packages
===================================================================
RCS file: /projects/zsh/zsh/Completion/Debian/_deb_packages,v
retrieving revision 1.1.1.1
diff -u -F^( -r1.1.1.1 _deb_packages
--- _deb_packages 1999/09/02 21:27:08 1.1.1.1
+++ _deb_packages 1999/09/03 23:05:44
@@ -1,7 +1,27 @@
#autoload
-if (( ! $+_deb_packages )); then
- _deb_packages=( $(awk '/^Package:/ { print $2 }' /var/lib/dpkg/status) )
+# Usage: _deb_packages installed|uninstalled|avail
+
+if (( ! $+_deb_cache_dpkg_get_selections )); then
+ _deb_cache_dpkg_get_selections=(
+ ${(f)"$(dpkg --get-selections)"}
+ )
+ _deb_cache_avail=(
+ ${(f)"$(apt-cache dumpavail | awk '/^Package:/ { print $2 }')"}
+ )
+ _deb_cache_installed=(
+ ${${_deb_cache_dpkg_get_selections:#*deinstall}%% *}
+ )
+ _deb_cache_uninstalled=(
+ ${_deb_cache_avail:#${(j:|:)~${_deb_cache_installed:q}}}
+ )
fi
+
+local command="$1"
+shift
-compadd "$@" - $_deb_packages
+case "$command" in
+ installed) compadd "$@" - $_deb_cache_installed;;
+ uninstalled) compadd "$@" - $_deb_cache_uninstalled;;
+ avail) compadd "$@" - $_deb_cache_avail;;
+esac
--
Tanaka Akira
next prev parent reply other threads:[~1999-09-03 23:17 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-09-02 21:14 Tanaka Akira
1999-09-03 20:30 ` Falk Hueffner
1999-09-03 23:17 ` Tanaka Akira [this message]
1999-09-04 14:49 ` Clint Adams
1999-09-05 15:08 ` Tanaka Akira
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=rsqzoz3twjl.fsf@crane.jaist.ac.jp \
--to=akr@jaist.ac.jp \
--cc=zsh-workers@sunsite.auc.dk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/zsh/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).