From: Clint Adams <schizo@debian.org>
To: zsh-workers@sunsite.dk
Subject: third post attempt for _subversion and _debsign
Date: Mon, 7 Jul 2003 10:46:14 -0400 [thread overview]
Message-ID: <20030707144614.GA21991@acolyte.scowler.net> (raw)
[-- Attachment #1: Type: text/plain, Size: 33 bytes --]
Trying from a different address.
[-- Attachment #2: _subversion --]
[-- Type: text/plain, Size: 3178 bytes --]
#compdef svn svnadmin svnadmin-static=svnadmin
_svn () {
_arguments -s \
'*::svn command:_svn_command'
}
_svnadmin () {
_arguments -s \
'*::svnadmin command:_svnadmin_command'
}
(( $+functions[_svn_command] )) ||
_svn_command () {
local cmd
if (( ! $+_svn_cmds )); then
typeset -gA _svn_cmds
_svn_cmds=(
${=${(f)${${"$(svn help)"#l#*Available subcommands:}%%Subversion is a tool*}}/(#s)[[:space:]]#(#b)([a-z]##)[[:space:]]#(\([a-z, ?]##\))#/$match[1] :$match[1]${match[2]:+:${${match[2]//[(),]}// /:}}:}
)
fi
if (( CURRENT == 1 )); then
_tags commands && { compadd "$@" -k _svn_cmds || compadd "$@" ${_svn_cmds} }
else
local curcontext="$curcontext"
cmd="${${(k)_svn_cmds[(R)*:$words[1]:*]}:-${(k)_svn_cmds[(i):$words[1]:]}}"
if (( $#cmd )); then
curcontext="${curcontext%:*:*}:svn-${cmd}:"
_svn_subcommand $cmd
else
_message "unknown svn command: $words[1]"
fi
fi
}
(( $+functions[_svn_subcommand] )) ||
_svn_subcommand () {
local subcmd _svn_subcmds _svn_subcmd_usage
_svn_subcmd_usage=${${(M)${(f)"$(svn help $1)"}:#usage:*}#usage: $1 }
_svn_subcmds=(
${${=${${${(M)${(f)"$(svn help $1)"##*Valid options:}:#*:*}%% #:*}/ arg/:arg:}/(#b)-([[:alpha:]]) \[--([a-z-]##)\](:arg:)#/(--$match[2])-$match[1]$match[3] (-$match[1])--$match[2]$match[3]}[2,-1]}
)
[[ "$_svn_subcmd_usage" == *URL* ]] && _svn_subcmds=($_svn_subcmds ":url:_urls")
[[ "$_svn_subcmd_usage" == *PATH* ]] && _svn_subcmds=($_svn_subcmds "*:path:_files -/")
_arguments \
"$_svn_subcmds[@]" && ret=0
return ret
}
(( $+functions[_svn_admincommand] )) ||
_svnadmin_command () {
local cmd
if (( ! $+_svnadmin_cmds )); then
typeset -gA _svnadmin_cmds
_svnadmin_cmds=(
${=${(f)${${"$(svnadmin help)"#l#*Available subcommands:}}}/(#s)[[:space:]]#(#b)([a-z]##)[[:space:]]#(\([a-z, ?]##\))#/$match[1] :$match[1]${match[2]:+:${${match[2]//[(),]}// /:}}:}
)
fi
if (( CURRENT == 1 )); then
_tags commands && { compadd "$@" -k _svnadmin_cmds || compadd "$@" ${(kv)=_svnadmin_cmds} }
else
local curcontext="$curcontext"
cmd="${${(k)_svnadmin_cmds[(R)*:$words[1]:*]}:-${(k)_svnadmin_cmds[(i):$words[1]:]}}"
if (( $#cmd )); then
curcontext="${curcontext%:*:*}:svnadmin-${cmd}:"
_svnadmin_subcommand $cmd
else
_message "unknown svnadmin command: $words[1]"
fi
fi
}
(( $+functions[_svnadmin_subcommand] )) ||
_svnadmin_subcommand () {
local subcmd _svnadmin_subcmds _svnadmin_subcmd_usage
_svnadmin_subcmd_usage=${${(M)${(f)"$(svnadmin help $1)"}:#$1: usage:*}#$1: usage: svnadmin $1 }
_svnadmin_subcmds=(
${${=${${${(M)${(f)"$(svnadmin help $1)"##*Valid options:}:#*:*}%% #:*}/ arg/:arg:}/(#b)-([[:alpha:]]) \[--([a-z-]##)\](:arg:)#/(--$match[2])-$match[1]$match[3] (-$match[1])--$match[2]$match[3]}[2,-1]}
)
[[ "$_svnadmin_subcmd_usage" == *REPOS_PATH* ]] &&
_svnadmin_subcmds=($_svnadmin_subcmds ":path:_files -/")
_arguments \
"$_svnadmin_subcmds[@]" && ret=0
return ret
}
_subversion () {
case $service in
(svn) _svn "$@" ;;
(svnadmin) _svnadmin "$@" ;;
esac
}
_subversion "$@"
[-- Attachment #3: _debsign --]
[-- Type: text/plain, Size: 680 bytes --]
#compdef debsign
_arguments '-r[copy .changes file from remote host]:[username@]remotehost' \
'-p[program with which to sign]:program name' \
'-m[maintainer]:maintainer name and email address' \
'-e[maintainer]:maintainer name and email address' \
'-k[key ID to use for signing]:keyid' \
'-s[argument style for signing program]:gpg or pgp' \
'-S[Look for source-only .changes file]' \
'-a[architecture]:Debian architecture' \
'-t[GNU system type]:GNU system type' \
'--help[help]' \
'--version[version]' \
'*:changes or dsc file:_files -g "*.(changes|dsc)"'
next reply other threads:[~2003-07-07 14:46 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-07-07 14:46 Clint Adams [this message]
2003-07-07 14:56 ` Clint Adams
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=20030707144614.GA21991@acolyte.scowler.net \
--to=schizo@debian.org \
--cc=zsh-workers@sunsite.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).