Zsh Mailing List Archive
Messages sorted by:
Reverse Date,
Date,
Thread,
Author
[PATCH] _urpmi update
- X-seq: zsh-workers 21085
- From: Andrey Borzenkov <arvidjaar@xxxxxxxxxx>
- To: zsh-workers@xxxxxxxxxx
- Subject: [PATCH] _urpmi update
- Date: Sun, 3 Apr 2005 15:00:16 +0400
- Mailing-list: contact zsh-workers-help@xxxxxxxxxx; run by ezmlm
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
This updates options to current Mandrake 10.2. It also tries to avoid direct
messing with urpmi configuration files by using new urpmq options. It may be
a bit slower though (it is on my system :)
It also includes completion for parsehdlist that is closely related to urpmi.
It would be nice to complete remote directories for repository completion but
I am afraid not all code is factored out (deinitely not for rsync).
- -andrey
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.0 (GNU/Linux)
iD8DBQFCT8zER6LMutpd94wRAt13AJ9x2RA4kSlcNWzrduYfu72OkEy/fQCgoIXB
XQn07338AUv4XqA/Tt0Ua88=
=AIXS
-----END PGP SIGNATURE-----
Index: Completion/Mandrake/Command/_urpmi
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Mandrake/Command/_urpmi,v
retrieving revision 1.10
diff -u -p -r1.10 _urpmi
--- Completion/Mandrake/Command/_urpmi 21 Jan 2004 13:53:29 -0000 1.10
+++ Completion/Mandrake/Command/_urpmi 3 Apr 2005 10:55:37 -0000
@@ -1,46 +1,41 @@
-#compdef urpme urpmi urpmi.addmedia urpmi.removemedia urpmi.update urpmq
+#compdef urpme urpmi urpmi.addmedia urpmi.removemedia urpmi.update urpmq urpmf parsehdlist
-_urpmi_cache_policy() {
- local -a synthesis
- local i
- synthesis=(/var/lib/urpmi/synthesis.*)
- for i in $synthesis; do
- [[ -e "$1" && -e "$i" && "$1" -nt "$i" ]] && return 1
- done
- return 0
-}
-
_urpmi_media() {
- local source media brace expl
- local -a all_sources
+ local ret=1 signle=0
+ local -a all_sources opts
- [[ -f /etc/urpmi/urpmi.cfg ]] || return 1
+ if [[ $1 = -s ]]; then
+ single=1
+ shift
+ fi
- while read source media brace; do
- [[ "$brace" != "{" ]] && continue
- all_sources=("$all_sources[@]" $source)
- done < /etc/urpmi/urpmi.cfg
+ # TODO should we probe for active media only?
+ all_sources=( ${(f)"$(urpmq --list-media 2> /dev/null)"} )
+
+ if (( single )); then
+ compadd "$expl[@]" -a all_sources && ret=0
+ else
+ _values -s , 'urpmi media' "$all_sources[@]" && ret=0
+ fi
- _values -s , 'urpmi media' "$all_sources[@]"
+ return $ret
}
_urpmi_rpms() {
- local pkg ret=1 expl
+ local ret=1 expl
_tags rpms files
while _tags; do
if _requested rpms expl 'urpmi RPM'; then
- local -a synthesis pkgs
- synthesis=(/var/lib/urpmi/synthesis.*(N))
- if [[ $#synthesis -gt 0 ]]; then
- if _cache_invalid _urpmi_rpms || ! _retrieve_cache _urpmi_rpms; then
- pkgs=($(zcat $synthesis | \
- grep @info@ | cut -d @ -f 3 | sed -e 's/\.[^.]*$//'))
- _store_cache _urpmi_rpms pkgs
- fi
- compadd "$expl[@]" -a pkgs && ret=0
- fi
+ local -a pkgs
+ pkgs=( $(urpmq --list 2> /dev/null \
+ ${(k)opt_args[--media]:-${opt_args[--searchmedia]:+--media}} \
+ ${(v)opt_args[--media]}${opt_args[--searchmedia]:+${opt_args[--media]:+,}${opt_args[--searchmedia]}} \
+ ${(k)opt_args[--excludemedia]} ${(v)opt_args[--excludemedia]}
+ )
+ )
+ compadd "$expl[@]" -a pkgs && ret=0
fi
_requested files expl '(S)RPM file' \
@@ -52,6 +47,7 @@ _urpmi_rpms() {
return ret
}
+# TODO add completion of remote directory for SSH, rsync, ftp
_urpmi_media_url() {
local expl ret=1
@@ -60,8 +56,13 @@ _urpmi_media_url() {
elif [[ -prefix '(ftp|http)://' ]]; then
_urls "$@" && ret=0
else
- _wanted mediatype expl 'type of media' \
- compadd "$@" -- file:// http:// ftp:// removable:// && ret=0
+ if (( ${+opt_args[--virtual]} )); then
+ _wanted mediatype expl 'type of media' \
+ compadd -S "" "$@" -- file:// && ret=0
+ else
+ _wanted mediatype expl 'type of media' \
+ compadd -S "" "$@" -- ssh:// rsync:// file:// http:// ftp:// removable:// && ret=0
+ fi
fi
return $ret
@@ -70,112 +71,244 @@ _urpmi_media_url() {
_urpme_package() {
local -a _rpms
_rpms=( $(_call_program packages rpm -qa 2>/dev/null) )
- compadd "$@" -a -- _rpms
+ compadd "$@" -a _rpms
+}
+
+_urpmi_parallel_alias() {
+ # placeholder as I do not actually have parallel system to test
+ return 1
}
_urpmi() {
- local state context line ret=1
- typeset -A opt_args
+ local state context line ret=1 help="--help -h"
+
+ local -a opts_help opts_net opts_verbose opts_inst_rem opts_search opts_media
+
+ opts_help=(
+ "($help : -)"{--help,-h}"[print usage information]"
+ )
+
+ opts_net=(
+ "($help --wget)--curl[use curl to retrieve distant files]"
+ "($help)--limit-rate[limit the download speed (b/s)]:download speed in b/s: "
+ "($help)--proxy:proxy host:_hosts"
+ "($help)--proxy-user:proxy user:_users"
+ "($help --curl)--wget[use wget to retrieve distant files]"
+ )
+
+ opts_verbose=(
+ "(--help -h -v)-q[quiet mode]"
+ "(--help -h -q)-v[verbose mode]"
+ )
+ opts_inst_rem=(
+ "($help)--auto[automatically select a package in choices]"
+ "($help)--force[force invocation even if some packages do not exist]"
+ "($help)--parallel[distributed urpmi across machines of alias]:urpmi alias name:_urpmi_parallel_alias"
+ "($help)--root[use another root for rpm installation]:root diretory:_files -/"
+ "($help)--test[test only, do not modify system]"
+ "($help)-a[select all matches on command line]"
+ )
+
+ opts_search=(
+ "($help --fuzzy -z)"{--fuzzy,-y}"[return all matches even if exact match exists]"
+ "($help -p -P)-p[allow search in provides to find package]"
+ "($help -p -P)-P[do not search in provides to find package]"
+ )
+
+ opts_media=(
+ "($help)--excludemedia[do not use the given media]:urpmi media: _urpmi_media"
+ "($help --update --use-distrib)--media[use only the media listed by comma]:urpmi media: _urpmi_media"
+ "($help)--searchmedia[use only the given media to search requested (or updated) packages]:urpmi media: _urpmi_media -s"
+ "($help)--sortmedia[sort media according to substrings separated by comma]:urpmi media: _urpmi_media"
+ "($help)--synthesis[use the given synthesis instead of urpmi db]:synthesis file:_url"
+ "($help --media --use-distrib)--update[use only update media]"
+ "($help --media --update)--use-distrib[configure urpmi on the fly from a distrib tree]:installation media:_urpmi_media_url"
+ )
case "$service" in
urpme )
_arguments -A '-*' \
+ $opts_help \
+ $opts_inst_rem \
"--auto[do not ask any question]" \
- "-a[find all matches]" \
+ "-v[verbose]" \
": :_urpme_package"
;;
urpmi.addmedia )
_arguments -A '-*' \
- "(--wget)--curl[use curl to retrieve distant files]" \
- "(:)--distrib[automatically create all media from an installation medium]:media URL:_urpmi_media_url" \
- "--update[mark as update media]" \
- "(--curl)--wget[use wget to retrieve distant files]" \
- "-c[clean headers cache directory]" \
- "-f[force generation of hdlist files]" \
- "-h[try to find and use synthesis or hdlist file]" \
- "(--distrib):name of media: " \
- "(--distrib):media URL:_urpmi_media_url" \
- "(--distrib): :(with)" \
- "(--distrib):relative path to hdlist file" \
+ $opts_help \
+ $opts_net \
+ $opts_verbose \
+ "($help)--arch[use specified architecture]:Mandrake architecture: " \
+ "($help :)--distrib[automatically create all media from an installation medium]:media URL:_urpmi_media_url" \
+ "($help)--from[use specified url for list of mirrors]:mirror URL:_url" \
+ "($help)--no-md5sum[disable MD5SUM file checking]" \
+ "($help --probe-hdlist --probe-synthesis)--no-probe[do not try to find any synthesis or hdlist file]" \
+ "($help --no-probe --probe-synthesis)--probe-hdlist[try to find and use hdlist file]" \
+ "($help --no-probe --probe-hdlist)--probe-synthesis[try to find and use synthesis file]" \
+ "($help)--update[mark as update media]" \
+ "($help)--version[use specified distribution version]:Mandrake version: " \
+ "($help)--virtual[create virtual media wich are always up-to-date]" \
+ "($help)-c[clean headers cache directory]" \
+ "($help)-f[force generation of hdlist files]" \
+ "($help --distrib):name of media: " \
+ "($help --distrib):media URL:_urpmi_media_url" \
+ "($help --distrib): :(with)" \
+ "($help --distrib):relative path to hdlist file" \
&& ret=0
;;
urpmi.removemedia )
_arguments -A '-*' \
- "(:)-a[select all media]" \
- "(-a)"{,\*}": :_urpmi_media" \
+ $opts_help \
+ $opts_verbose \
+ "($help : -)"{--help,-h}"[print usage information]" \
+ "($help :)-a[select all media]" \
+ "($help)-c[clean headers cache directory]" \
+ "($help)-y[fuzzy mathing on media names]" \
+ "(-a)"{,\*}": : _urpmi_media" \
&& ret=0
;;
urpmi.update )
_arguments -A '-*' \
- "(--wget)--curl[use curl to retrieve distant files]" \
- "(--curl)--wget[use wget to retrieve distant files]" \
- "(:)-a[select all non-removable media]" \
- "-c[clean /var/cache/urpmi/headers on exit]" \
- "-d[force complete computation of depslist.ordered file]" \
- "*-f[force generation of hdlist files]" \
- "(-a)"{,\*}": :_urpmi_media" \
+ $opts_help \
+ $opts_net \
+ $opts_verbose \
+ "($help : -)"{--help,-h}"[print usage information]" \
+ "($help)--force-key[force update of gpg key]" \
+ "($help : -a)--update[update only update media]" \
+ "($help --update :)-a[select all non-removable media]" \
+ "($help)-c[clean /var/cache/urpmi/headers on exit]" \
+ "($help)*-f[force generation of hdlist files]" \
+ "($help -a)"{,\*}": : _urpmi_media" \
&& ret=0
;;
urpmi )
_arguments -A '-*' \
- "(: -)--help[print usage information]" \
- "(--help)--allow-medium-change[allow change of removable media]" \
- "(--help)--auto[do not ask any questions]" \
- "(--help)--auto-select[select the packages to update]" \
- "(--help -X)--best-output[automatically select text or X interface]" \
- "(--help)--complete[use parsehdlist server to complete selection]" \
- "(--help --wget)--curl[use curl to retrieve distant files]" \
- "(--help)--force[proceed even when some packages do not exist]" \
- "(--help --fuzzy -z)"{--fuzzy,-y}"[return all matches even if exact match exists]" \
- "(--help)--media[use only the media listed by comma]: :_urpmi_media" \
- "(--help)--noclean[do not clean RPM cache]" \
- "(--help --src -s)"{--src,-s}"[next package is source package]" \
- "(--help)--update[use only update media]" \
- "(--help --verify-rpm)--no-verify-rpm[do not verify rpm signature before installation]" \
- "(--help --no-verify-rpm)--verify-rpm[verify rpm signature before installation]" \
- "(--help --curl)--wget[use wget to retrieve distant files]" \
- "(--help)-a[select all packages matching command line]" \
- "(--help -m -M)-m[choose minimum closure of requires (default)]" \
- "(--help -m -M)-M[choose maximum closure of requires]" \
- "(--help)-P[do not search in provides]" \
- "(--help -q -v)-q[be quiet]" \
- "(--help -q -v)-v[verbose mode]" \
- "(--help --best-output)-X[use X interface]" \
- "(--help)"{,\*}": :_urpmi_rpms" \
+ $opts_help \
+ $opts_net \
+ $opts_verbose \
+ $opts_inst_rem \
+ $opts_search \
+ $opts_media \
+ "($help : -)"{--help,-h}"[print usage information]" \
+ "($help)--allow-force[allow asking user to install packages without dependencies checking and integrity]" \
+ "($help)--allow-nodeps[allow asking user to install packages without dependencies checking]" \
+ "($help)--auto-select[utomatically select packages to upgrade the system]" \
+ "($help --env)--bug[output a bug report in given directory]:directory for bug report:_files -/" \
+ "($help -X)--best-output[automatically select text or X interface]" \
+ "($help --noclean)--clean[remove rpm from cache before anything else]" \
+ "($help --clean)--noclean[keep rpm not used in cache]" \
+ "($help --bug)--env[use specific environment (typically result of --bug)]:directory for bug report:_files -/" \
+ "($help)--excludedocs[exclude docs files]: " \
+ "($help)--excludepath[exclude path separated by comma]:path: " \
+ "($help)--install-src[install only source package (no binaries)]" \
+ "($help)--keep[keep existing packages if possible]" \
+ "($help)--more-choices[propose more choices than the default]" \
+ "($help --no-resume)--resume[resume transfer of partially-downloaded files]" \
+ "($help --resume)--no-resume[do not resume transfer of partially-downloaded files]" \
+ "($help)--root[use another root for rpm installation]:root diretory:_files -/" \
+ "($help)--skip[packages which installation should be skipped]:packages: " \
+ "($help)--split-length[small transaction length]:transaction length: " \
+ "($help)--split-level[split in small transaction]:transaction size: " \
+ "($help --src -s)"{--src,-s}"[next package is source package]" \
+ "($help)--strict-arch[upgrade only packages with the same architecture]" \
+ "($help)--no-uninstall[never ask to uninstall a package, abort the installation]" \
+ "($help --verify-rpm)--no-verify-rpm[do not verify rpm signature before installation]" \
+ "($help --no-verify-rpm)--verify-rpm[verify rpm signature before installation]" \
+ "($help)-a[select all packages matching command line]" \
+ "($help -m -M)-m[choose minimum closure of requires (default)]" \
+ "($help -m -M)-M[choose maximum closure of requires]" \
+ "($help --best-output)-X[use X interface]" \
+ "($help)"{,\*}": :_urpmi_rpms" \
&& ret=0
;;
urpmq )
_arguments -A '-*' \
- "(--help -h)--auto-select[automatically select packages for upgrading the system]" \
- "(--help -h)--force[ignore non-existent packages]" \
- "(--help -h --fuzzy -z)"{--fuzzy,-y}"[return all matches even if exact match exists]" \
- "(--help -h)--headers[extract headers for package listed from urpmi db to stdout]" \
- "(--help -h)--media[use only the media listed by comma]: :_urpmi_media" \
- "(--help -h)--sources[show full path to package file]" \
- "(--help -h --src -s)"{--src,-s}"[next package is source package]" \
- "(--help -h)--update[use only update media]" \
- "(--help -h -c -p -P)-c[choose complete method for resolving requires closure]" \
- "(--help -h)-d[show package dependencies]" \
- "(--help -h)-f[print version, release and arch with name]" \
- "(--help -h)-g[print groups too with name]" \
- "(--help -h -c -p -P)-p[allow search in provides to find package]" \
- "(--help -h -c -p -P)-P[do not search in provides to find package]" \
- "(--help -h)-r[print version and release too with name]" \
- "(--help -h)-u[remove package if a better version is already installed]" \
- "(--help -h)-v[verbose mode]" \
- "(--help -h)*:urpmi package name" \
+ $opts_help \
+ $opts_media \
+ $opts_search \
+ "($help)--auto-select[automatically select packages for upgrading the system]" \
+ "($help)--force[ignore non-existent packages]" \
+ "($help)--headers[extract headers for package listed from urpmi db to stdout]" \
+ "($help : -list --list-media --list-url --list-nodes --list-aliases)--list[list available packages]" \
+ "($help : -list --list-media --list-url --list-nodes --list-aliases)--list-media[list available media]" \
+ "($help : -list --list-media --list-url --list-nodes --list-aliases)--list-url[list available url]" \
+ "($help : -list --list-media --list-url --list-nodes --list-aliases)--list-nodes[list available nodes]" \
+ "($help : -list --list-media --list-url --list-nodes --list-aliases)--list-aliases[list available aliases]" \
+ "($help)--sources[show full path to package file]" \
+ "($help --src -s)"{--src,-s}"[next package is source package]" \
+ "($help)--summary[print RPM summary]" \
+ "($help)-c[complete output with package to be removed]" \
+ "($help)-d[extend query to package dependencies]" \
+ "($help)-f[print version, release and arch with name]" \
+ "($help)-g[print groups too with name]" \
+ "($help)-i[print useful information in human readable form]" \
+ "($help)-l[list files in package]" \
+ "($help)-r[print version and release too with name]" \
+ "($help)-R[reverse search to what requires package]" \
+ "($help)-u[remove package if a better version is already installed]" \
+ "($help -list --list-media --list-url --list-nodes --list-aliases)*:urpmi package name":_urpmi_rpms \
&& ret=0
;;
+ urpmf )
+ # TODO this is not complete, some operators are missing
+ _arguments -A '-*' \
+ $opts_help \
+ $opts_media \
+ "($help --name --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--all[print all tags]" \
+ "($help --all --name)--buildhost[print tag buildhost: build host]" \
+ "($help --all --name)--conflicts[print tag conflicts: all conflicts]" \
+ "($help --all --name)--description[print tag description: description]" \
+ "($help --all --name)--epoch[print tag epoch: epoch]" \
+ "($help --all --name)--files[print tag files: all files]" \
+ "($help --all --name)--group[print tag group: group]" \
+ "($help --all --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--name[print only package names]" \
+ "($help --all --name)--obsoletes[print tag obsoletes: all obsoletes]" \
+ "($help --verbose)--quiet[do not print tag name]" \
+ "($help --all --name)--packager[print tag packager: packager]" \
+ "($help --all --name)--provides[print tag provides: all provides]" \
+ "($help --all --name)--requires[print tag requires: all requires]" \
+ "($help --all --name)--size[print tag size: size]" \
+ "($help --all --name)--sourcerpm[print tag sourcerpm: source rpm]" \
+ "($help --all --name)--summary[print tag summary: summary]" \
+ "($help)--uniq[do not print identical lines]" \
+ "($help --all --name)--url[print tag url: url]" \
+ "($help --quiet)--verbose[verbose mode]" \
+ "($help)*-a[binary AND operator]" \
+ "($help)-i[ignore case distinctions in every pattern]" \
+ "($help)-f[print version, release and arch with name]" \
+ "($help)-e[include perl code directly as perl -e]:perl code: " \
+ "($help)*-o[binary OR operator]" \
+ && ret=0
+ ;;
+ parsehdlist )
+ # TODO this is not complete, some operators are missing
+ _arguments -A '-*' \
+ $opts_help \
+ "($help --interactive --quiet --name --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--all[print all tags]" \
+ "($help --all --interactive --name)--buildhost[print tag buildhost: build host]" \
+ "($help --all --interactive --name)--conflicts[print tag conflicts: all conflicts]" \
+ "($help --all --interactive --name)--description[print tag description: description]" \
+ "($help --all --interactive --name)--epoch[print tag epoch: epoch]" \
+ "($help --all --interactive --name)--files[print tag files: all files]" \
+ "($help --all --interactive --name)--group[print tag group: group]" \
+ "($help --all --interactive --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--name[print only package names]" \
+ "($help --all --interactive --name)--obsoletes[print tag obsoletes: all obsoletes]" \
+ "($help --interactive)--quiet[do not print tag name]" \
+ "($help --all --interactive --name)--packager[print tag packager: packager]" \
+ "($help --all --interactive --name)--provides[print tag provides: all provides]" \
+ "($help --all --interactive --name)--requires[print tag requires: all requires]" \
+ "($help --all --interactive --name)--size[print tag size: size]" \
+ "($help --all --interactive --name)--sourcerpm[print tag sourcerpm: source rpm]" \
+ "($help --all --interactive --name)--summary[print tag summary: summary]" \
+ "($help)--uniq[do not print identical lines]" \
+ "($help --all --interactive --name)--url[print tag url: url]" \
+ "*:hdlist files:_files -g '*.cz'" \
+ && ret=0
+ ;;
esac
return $ret
}
-local update_policy
-
-zstyle -s ":completion:*:*:urpmi:*" cache-policy update_policy
-if [[ -z "$update_policy" ]]; then
- zstyle ":completion:*:*:urpmi:*" cache-policy _urpmi_cache_policy
-fi
-
_urpmi "$@"
Messages sorted by:
Reverse Date,
Date,
Thread,
Author