From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-27056-mason-zsh=primenet.com.au@sunsite.dk>
Received: (qmail 26403 invoked from network); 25 Jun 2009 12:47:12 -0000
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00 autolearn=ham
	version=3.2.5
Received: from new-brage.dotsrc.org (HELO a.mx.sunsite.dk) (130.225.254.104)
  by ns1.primenet.com.au with SMTP; 25 Jun 2009 12:47:12 -0000
Received-SPF: none (ns1.primenet.com.au: domain at sunsite.dk does not designate permitted sender hosts)
Received: (qmail 28252 invoked from network); 25 Jun 2009 12:46:37 -0000
Received: from sunsite.dk (130.225.247.90)
  by a.mx.sunsite.dk with SMTP; 25 Jun 2009 12:46:37 -0000
Received: (qmail 596 invoked by alias); 25 Jun 2009 12:46:13 -0000
Mailing-List: contact zsh-workers-help@sunsite.dk; run by ezmlm
Precedence: bulk
X-No-Archive: yes
X-Seq: 27056
Received: (qmail 575 invoked from network); 25 Jun 2009 12:46:11 -0000
Received: from bifrost.dotsrc.org (130.225.254.106)
  by sunsite.dk with SMTP; 25 Jun 2009 12:46:11 -0000
Received: from vint.altlinux.org (vint.altlinux.org [194.107.17.35])
	by bifrost.dotsrc.org (Postfix) with ESMTP id 069908027106
	for <zsh-workers@sunsite.dk>; Thu, 25 Jun 2009 14:46:05 +0200 (CEST)
Received: from imap.altlinux.org (imap.altlinux.org [194.107.17.38])
	by vint.altlinux.org (Postfix) with ESMTP id AA6693F80F5D;
	Thu, 25 Jun 2009 12:46:05 +0000 (UTC)
Received: from [213.85.39.63] (unknown [213.85.39.63])
	by imap.altlinux.org (Postfix) with ESMTPSA id 1B5413E48B05;
	Thu, 25 Jun 2009 16:46:05 +0400 (MSD)
Received: by hell.fortress (Postfix, from userid 500)
	id C50443600126; Thu, 25 Jun 2009 16:46:03 +0400 (MSD)
Date: Thu, 25 Jun 2009 16:46:03 +0400
From: "Alexey I. Froloff" <raorn@altlinux.org>
To: Bart Schaefer <schaefer@brasslantern.com>
Cc: zsh-workers@sunsite.dk
Subject: Re: Conflicting completion for rpmbuild
Message-ID: <20090625124603.GA18765@altlinux.org>
References: <20090622131002.GC5743@altlinux.org>
 <20090625003728.GC31894@altlinux.org>
 <090624231549.ZM8536@torch.brasslantern.com>
MIME-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="8GpibOaaTibBMecb"
Content-Disposition: inline
In-Reply-To: <090624231549.ZM8536@torch.brasslantern.com>
User-Agent: Mutt/1.5.20 (2009-06-14)
X-Virus-Scanned: ClamAV 0.94.2/9506/Thu Jun 25 13:52:03 2009 on bifrost
X-Virus-Status: Clean


--8GpibOaaTibBMecb
Content-Type: multipart/mixed; boundary="nFreZHaLTZJo0R7j"
Content-Disposition: inline


--nFreZHaLTZJo0R7j
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Wed, Jun 24, 2009 at 11:15:49PM -0700, Bart Schaefer wrote:
> I can't find the evidence of this.
My bad.  It was added in our zsh package.  I'm attaching _rpm
completion function from ALT Linux distro.

--=20
Regards,
Sir Raorn.

--nFreZHaLTZJo0R7j
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=_rpm

#compdef rpm rpmb rpmd rpme rpmi rpmk rpmq rpmt=rpmb rpmu=rpmi rpmv rpmbuild=rpmb rpmdb=rpmd rpmquery=rpmq rpmsign=rpmk rpmverify=rpmv

# This uses `_arguments' in a state-machine kind of way. These states
# have names and before executing the default action for such a state
# we try to call a function with the name `_rpm_<state>'. If such a
# function exists, we return with its return status immediately. This
# allows users to override the default completions by simply defining
# these functions.
# The states (and possible values for the `<state>' above) are:
#
#  query
#    complete for `rpm -q' query
#  verify
#    complete for `rpm --verify'
#  install
#    complete for `rpm -i' or `rpm --install'
#  upgrade
#    complete for `rpm -U' or `rpm --upgrade'
#  uninstall
#    complete for `rpm -e' or `rpm --erase'
#  build_b
#    complete for `rpm -bx' (the stage `x' is already completed)
#  build_t
#    complete for `rpm -tx' (the stage `x' is already completed)
#  sigcheck
#    complete for `rpm --sigcheck'
#  rebuild
#    complete for `rpm --rebuild'
#  package
#    complete a RPM package name
#  package_file
#    complete a RPM package file name
#  tags
#    complete a tag name
#  capability
#    complete a capability
#  relocate
#    complete a `old=new' pair of paths

_rpm () {
  local curcontext="$curcontext" state lstate line nm="$compstate[nmatches]"
  typeset -A opt_args
  local ret=1
  local -a tmp expl

  local -a common_opts
  common_opts=(
    -{\?,-help}'[print help information]'
    '--version[print the version of rpm being used]'
    '(-v --verbose)--quiet[provide less detailed output]'
    '(--quiet)*'-{v,-verbose}'[provide more detailed output]'
    '--define[define macro <name> with value <body>]:'
    '--eval[print macro expansion]:macro:->macros'
    -{r,-root}'[use <dir> as the top level directory]:rpm root directory:_files -/'
    '--dbpath[use <dir> as the directory for the database]:rpm database path:_files -/'
    '--macros[read <file:...> instead of default macro file(s)]:resource file:_files'
    '--rcfile[read <file:...> instead of default rpmrc file(s)]:resource file:_files'
    '--showrc[display final rpmrc and macro configuration]'

    '--ftpproxy:ftp proxy server:_hosts'
    '--ftpport:ftp port number'
    '--httpproxy:http proxy server:_hosts'
    '--httpport:http port number'
    '--pipe:pipe command:->command'
  )

  local -a rpmb_opts0 rpmb_opts1
  rpmb_opts0=(
    '(-t)-b+[build mode (spec file)]:build stage:((p\:execute\ \%prep\ stage l\:do\ a\ list\ check c\:execute\ build\ stage i\:execute\ install\ stage b\:build\ a\ binary\ package a\:build\ binary\ and\ source\ packages E\:preprocess\ specfile M\:dump\ used\ macro\ names)):*:build:->build_b' \
    '(-b)-t+[build mode (tar file)]:build stage:((p\:execute\ \%prep\ stage l\:do\ a\ list\ check c\:execute\ build\ stage i\:execute\ install\ stage b\:build\ a\ binary\ package a\:build\ binary\ and\ source\ packages E\:preprocess\ specfile M\:dump\ used\ macro\ names)):*:build:->build_t' \
    '(-b -t --recompile)--rebuild[build binary package from source package]:*:source rpm file:->build_src'
    '(-b -t --rebuild)--recompile[build through %install from source package]:*:source rpm file:->build_src'
  )
  rpmb_opts1=(
    --{with,enable}'[enable configure option for build]:'
    --{without,disable}'[disable configure option for build]:'
    '--target:specify a build target:->target'
    '--buildroot:build root directory:_files -/'
    '--buildarch:architecture for which to build:->target'
    '--buildos:operating system for which to build:'
    '--short-circuit[skip straight to specified stage]'
    --{clean,nobuild,rmsource,sign,nodeps}
  )

  # package selection options of which only one can be used
  local -a selectopts sopts
  selectopts=(
    -{a,-all}'[query all packages]'
    -{f,-file}'[query packages that own specified files]'
    -{p,-package}'[query uninstalled packages]'
    -{g,-group}'[query packages in one of specified groups]'
    --fileid --hdrid --pkgid --tid --querybynumber
    --triggeredby --whatprovides --whatrequires
  )
  sopts=${selectopts%\[*}\ --specfile
  selectopts=(
    "(* $sopts)"${selectopts[1,2]}
    "($sopts)"${selectopts[3,-1]}
    '(-a --all)*: :->package-select'
  )

  local -a rpmdb_opts0 rpmdb_opts1
  rpmd_opts0=(
    '--initdb[initialize database]'
    '--rebuilddb[rebuild database]'
  )
  rpmd_opts1=(
    # none so far
  )

  local -a rpme_opts0 rpme_opts1
  rpme_opts0=( '(-e --erase)'-{e+,-erase}'[uninstall mode]:*:uninstall:->uninstall' )
  rpme_opts1=( --{allmatches,justdb,repackage,test} --no{deps,scripts,preun,postun,trigger{s,un,postun}} )

  local -a rpmi_opts0 rpmi_opts1
  rpmi_opts0=(
    '(-i --install)'-{i+,-install}'[install mode]:*:install:->install'
    '(-U --upgrade)'-{U+,-upgrade}'[upgrade mode]:*:upgrade:->upgrade'
    '(-F --freshen)'-{F+,-freshen}'[freshen mode]:*:upgrade:->upgrade'
  )
  rpmi_opts1=(
    '--excludepath:file to exclude:_files -/'
    '--relocate:relocate:->relocate'
    '--prefix:package prefix directory:_files -/'
    '(-h --hash)'-{h,-hash}
    '(--replacepkgs --replacefiles --oldpackage)--force'
    '(--force)--'{replacefiles,replacepkgs}
    --{aid,allfiles,badreloc,excludedocs,ignorearch,ignoreos,ignoresize,includedocs,justdb,percent,repackage,test}
    --no{digest,signature,deps,suggest,order,pre,post,preun,postun,trigger{s,in,un,postun}}
    '(--nopre --nopost --nopreun --nopostun)--noscripts'
  )

  local -a rpmk_opts0 rpmk_opts1
  rpmk_opts0=(
    '(-K --checksig)'-{K+,-checksig}'[signature check mode]:*:sigcheck:->sigcheck'
    '(--resign --addsign)'--{resign,addsign}':*:package:->package_file'
  )
  rpmk_opts1=( --no{gpg,pgp,md5,signature,digest} )

  local -a rpmq_opts0 rpmq_opts1
  rpmq_opts0=( -{q+,-query}'[query mode]:*:query:->query' --querytags )
  rpmq_opts1=(
      # --dump requires one of -{l,c,d}
      # --triggers requires --script
    "${(@)selectopts}"
    "($sopts)--specfile[query specified spec file as if it were a package]"
    '(-i --info)'{-i,--info}'[display package information]'
    '--changelog[display change log]'
    '--lastchange[display last changelog entry]'
    '(-s --state -l --list --filesbypkg)'{-l,--list}'[display package file list]'
    '(-s --state -l --list --filesbypkg)'{-s,--state}'[show file states]'
    '(-s --state -l --list)--filesbypkg[list files with package names]'
    -{d,-docfiles}'[documentation files only]'
    -{c,-configfiles}'[configuration files only]'
    '--dump[show all information]'
    '--provides[show capabilities provided]'
    \*--{qf,queryformat}'[specify format for package information]:rpm query format:->tags'
    -{R,-requires}'[list dependencies]'
    '--scripts[show (un)install scripts]'
    {--triggers,--triggerscripts}'[show trigger scripts]'
  )

  local -a rpmv_opts0 rpmv_opts1
  rpmv_opts0=( '(-V -y --verify)'{-V+,-y+,--verify}'[verify mode]:*:verify:->verify' )
  rpmv_opts1=( "${(@)selectopts}" --no{deps,files,scripts,digest,signature,linkto,md5,size,user,group,mtime,mode,rdev} )

  case "$service" in
  rpmq)
    state=query
    ;&
  rpmv)
    state=verify
    ;&
  rpm?)
    local service_opts0="${service}_opts0" service_opts1="${service}_opts1"
    _arguments -C -s "${(@)common_opts}" "${(P@)service_opts0}" "${(P@)service_opts1}" && ret=0
    ;;
  rpm)
    _arguments -C -s "${(@)common_opts}" "${(@)rpmb_opts0}" "${(@)rpmd_opts0}" "${(@)rpme_opts0}" \
      "${(@)rpmi_opts0}" "${(@)rpmk_opts0}" "${(@)rpmq_opts0}" "${(@)rpmv_opts0}" \
    '--setperms[set file permissions]:*:package:->setattrs' \
    '--setugids[set file owner/group]:*:package:->setattrs' \
        && ret=0
    ;;
  esac

  not_opts() {
    local var="$1"
    print -l -- "\!${(@)^${(@)${(@)${(@)${(P@)var%%[[:]*}#*)}%[+-]}#\*}}"
  }

  # As long as we have a state name...
  while [[ -n "$state" ]]; do

    # First try to call a user-defined function.

    _call_function ret _rpm_$state && return ret

    # Copy the state and reset `state', to simplify the test above.

    lstate="$state"
    state=''
    tmp=()

    # Dispatch...
    case "$lstate" in
    query)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmq_opts0)}" "${(@)rpmq_opts1}" && ret=0
      ;;
    setattrs)
      _arguments -s --set{perm,ugids} "${selectopts[@]}" && ret = 0
      ;;
    verify)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmv_opts0)}" "${(@)rpmv_opts1}" \
      ;;
    install|upgrade)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmi_opts0)}" "${(@)rpmi_opts1}" \
	'*:package file:->package_file' && ret=0
      ;;
    uninstall)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpme_opts0)}" "${(@)rpme_opts1}" \
	'*:package:->package' && ret=0
      ;;
    build_b)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmb_opts0)}" "${(@)rpmb_opts1}" \
        '*:spec file:_files -g "*.spec(-.)"' && ret=0
      ;;
    build_t)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmb_opts0)}" "${(@)rpmb_opts1}" \
        '*:tar file:_files -g "*.(#i)(tar|tar.gz|tar.bz2|tgz)(-.)"' && ret=0
      ;;
    build_src)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmb_opts0)}" "${(@)rpmb_opts1}" \
        '*:source package file:_files -g "(#i)*.src.rpm(-.)"' && ret=0
      ;;
    sigcheck)
      _arguments -s "${(@)common_opts}" "${(f@)$(not_opts rpmk_opts0)}" "${(@)rpmk_opts1}" \
	'*:package file:->package_file' && ret=0
      ;;
    package-select)
      case "${opt_args[(i)${sopts// /|}]}" in
	-f|--file) _files ;;
	-p|--package) state=package_file ;;
	-g|--group) state=groups ;;
	--fileid|--pkgid) _message -e md5 md5 ;;
	--hdrid) _message -e sha1 sha1 ;;
	--querybynumber) _message -e value number ;;
	--what*) state=capabilities ;;
	--specfile) state=spec_files ;;
	*) state=package ;;
     esac
    ;;
    macros)
      local -a macros
      local mfile
      for mfile in {/usr/lib/rpm/{,*/}macros,/etc/rpm/macros{,.d/*},~/.rpmmacros}(-.N); do
        macros+=( ${${(M)${(f)"$(<$mfile)"}:#%[^\{]*}%%[[:blank:]]*} )
      done
      if zstyle -t ":completion:${curcontext}:macros" prefix-hidden; then
	macros=( ${macros#%} )
	_wanted macros expl macro compadd -p '%' -a - macros
      else
	_wanted macros expl macro compadd -a - macros
      fi
      ;;
    command)
      compset -q
      _normal
      ;;
    target)
      if [[ ${+_rpm_targets} -eq 0 ]]; then
	typeset -gaU _rpm_targets
	_rpm_targets=( ${(s: :)${(M)${(f)"$(_call_program targets rpm --showrc)"}:#compatible build archs*}##*: } )
      fi
      _wanted targets expl 'target platform' compadd -a - _rpm_targets && ret=0
      ;;
    groups)
      if [[ ${+_rpm_groups} -eq 0 ]]; then
	typeset -gaU _rpm_groups
        _rpm_groups=( "${(f)$(</usr/lib/rpm/GROUPS)}" )
      fi
      _wanted groups expl 'group' _multi_parts / _rpm_groups && ret=0
    ;;
    package)
      _wanted packages expl 'package' \
	  _rpm_packages installed && ret=0
      ;;
    spec_files)
      _wanted specfiles expl 'spec file' \
	  _files -g '*.spec(-.)' && ret=0
      ;;
    package_file)
      _wanted files expl 'package file' \
	  _files -g '*.(#i)rpm(-.)' && ret=0
      if [[ -prefix 1 (f|ht)tp:// ]]; then
	_wanted urls expl 'URL of rpm package file' \
	    _urls -f -g '*.(#i)rpm(-.)' "${expl[@]}" && ret=0
      else
	_wanted urls expl 'URL of rpm package file' \
	    compadd -S '' "${expl[@]}" ftp:// http:// && ret=0
      fi
      ;;
    tags)
      local -a suf
      if compset -P "*%*${${QIPREFIX:+{}:-\{}"; then
        compset -S '(|\\)}*' || suf=( -qS ${${QIPREFIX:+\}}:-\\\}} )
	_wanted tags expl 'rpm tag' compadd -M 'm:{a-z}={A-Z}' "$suf[@]" - \
	    "${(L@)${(@f)$(_call_program tags rpm --querytags 2>/dev/null)}#RPMTAG_}" && ret=0
      else
	_message -e formats 'rpm query format'
      fi
      ;;
    capabilities)
      _wanted capabilities expl capability compadd \
	  ${(f)"$(_call_program capabilities rpm -qa --queryformat '%\{requirename}\\n' 2>/dev/null)"}
      ;;
    relocate)
      if compset -P '*='; then
	_description directories expl 'new path'
      else
	_description directories expl 'old path'
      fi

      _files "$expl[@]" -/ && ret=0
      ;;
    esac

    [[ ret -eq 0 || $nm -ne $compstate[nmatches] ]] && return 0
  done

  return ret
}

_rpm "$@"

--nFreZHaLTZJo0R7j--

--8GpibOaaTibBMecb
Content-Type: application/pgp-signature; name="signature.asc"
Content-Description: Digital signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)

iEYEARECAAYFAkpDcYcACgkQVqT7+fkT8wrOxwCfWJUU1KBWHXH/uWlcMjx5AcL5
v2AAniu2o/lgbcMPN0xMIftuVzogqfxI
=lYiZ
-----END PGP SIGNATURE-----

--8GpibOaaTibBMecb--