| Current Path : /proc/2/root/usr/local/ssl/share/zsh/4.3.11/functions/ |
| Current File : //proc/2/root/usr/local/ssl/share/zsh/4.3.11/functions/_prcs |
#compdef prcs
local curcontext="$curcontext" state line subcmds ret=1
typeset -A opt_args
# lookup project names in the repository
# (this does not handle subprojects)
(( $+functions[_prcs_projects] )) ||
_prcs_projects() {
local expl
_wanted prcs-projects expl 'project name' compadd "$@" - \
${~opt_args[-R]:-${opt_args[--repository]:-${PRCS_REPOSITORY:-~/PRCS}}}/*(/:t)
}
# standard options for all subcommands
(( $+functions[_prcs_arguments] )) ||
_prcs_arguments() {
_arguments -s \
'(-f --force)'{-f,--force}'[resolve interactive queries in some fixed way]' \
'(-h -H --help)'{-h,-H,--help}'[print out help]' \
'(-j --jobs)'{-j,--jobs=}'[spawn many child processes at once]:number:' \
'(-l -L --long-format --long-long-format)'{-l,--long-format}'[long format]' \
'(-l -L --long-format --long-long-format)'{-L,--long-long-format}'[longer format]' \
'(-n --no-action)--no-action[show what would happen but leave files unchanged]' \
'(-q --quiet)'{-q,--quiet}'[suppress normal informational messages]' \
"--plain-format[don't break lines at screen width]" \
'(-R --repository)'{-R,--repository=}'[specify the repository directory]:directory:_files -/' \
"$@"
}
_arguments -C \
'(* -)'{-h,-H,--help}'[print out help]' \
'(* -)--version[display program version]' \
'*:: :->subcmd' && ret=0
if (( CURRENT == 1 )); then
subcmds=(
'admin:admin subcommand'
'checkin:checkin project revision'
'checkout:checkout project revision'
'config:verify configuration'
'delete:delete named revision of project'
'depopulate:remove named files from project descriptor'
'diff:show differences between two revisions'
'execute:execute a command for each file in a project'
'info:print information about versions of project'
'merge:reconcile differences between working files and another revision'
'package:package the project and all its revisions into packagefile'
'populate:add named files to project descriptor'
'rekey:set keywords in selected files'
'unpackage:unpackage project in packagefile'
)
_describe -t commands 'prcs command' subcmds && ret=0
return ret
fi
curcontext="${curcontext%:*}-$words[1]:"
case "$words[1]" in
admin)
if (( CURRENT == 2 )); then
subcmds=(
'access:set the access permissions on the repository'
'compress:instruct PRCS to save disk space for project'
'init:create a repository entry'
'pdelete:delete a repository entry'
'pinfo:list all projects in the repository'
'prename:rename a repository entry'
'rebuild:reconstruct PRCS data files in the repository'
'uncompress:instruct PRCS to save time in processing project'
)
_describe -t commands 'admin subcommand' subcmds
else
shift words
(( --CURRENT ))
curcontext="${curcontext%:*}-$words[1]:"
case "$words[1]" in
access|compress|init|pdelete|prename|rebuild)
_prcs_arguments ':project name:_prcs_projects'
;;
pinfo)
_prcs_arguments
;;
uncompress)
_prcs_arguments \
'-i[expand the entire project immediately]' \
':project name:_prcs_projects'
;;
*)
_message "unknown prcs administrative subfunction: $words[1]"
;;
esac
fi
;;
checkin)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'(-s --skilled-merge)'{-s,--skilled-merge}'[turn off most of the safety features of merge]' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
checkout)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'(-p --preserve)'{-p,--preserve}'[preserve permissions on files that are checked out]' \
'(-u --unlink)'{-u,--unlink}"[don't overwrite symbolic link references]" \
'(-P --exclude-project-file)'{-P,--exclude-project-file}"[don't checkout the project file]" \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
config)
_prcs_arguments
;;
delete)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
':project name:_prcs_projects'
;;
depopulate)
_prcs_arguments \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
diff)
_prcs_arguments \
'*'{-r+,--revision=}'[specify version of the project]:revision:' \
'(-k --keywords)'{-k,--keywords}'[compare keywords too]' \
'(-N --new)'{-N,--new}'[compare new files against empty files]' \
'(-P --exclude-project-file)'{-P,--exclude-project-file}"[don't diff the project file]" \
'--[introduce diff options]:*::diff options:= _diff_options ${PRCS_DIFF_COMMAND:-diff}' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
execute)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'--pre[list directories first]' \
'(--pipe)--all[execute command once, with all files as arguments]' \
'(--all)--pipe[supply file contents as the standard input]' \
'--match[execute command on files matching a pattern]:pattern:' \
'--not[execute command on files not matching a pattern]:pattern:' \
'--:command: _command_names -e:*::arguments: _normal' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
info)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'--sort=[set sorting type]:sorting type:(version date)' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
merge)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'(-s --skilled-merge)'{-s,--skilled-merge}'[turn off most of the safety features of merge]' \
'(-u --unlink)'{-u,--unlink}"[don't overwrite symbolic link references]" \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
package)
_prcs_arguments \
'(-r --revision)'{-r+,--revision=}'[specify version of the project]:revision:' \
'(-z --compress)'{-z,--compress=}'[compress the output]' \
':project name:_prcs_projects' \
':file:_files'
;;
populate)
_prcs_arguments \
'(-d --delete)'{-d,--delete=}'[perform optional deletions]' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
rekey)
_prcs_arguments \
'(-u --unlink)'{-u,--unlink}"[don't overwrite symbolic link references]" \
':project name:_prcs_projects'
;;
unpackage)
_prcs_arguments \
':file:_files' \
':project name:_prcs_projects'
;;
*)
_message "unknown prcs command: $words[1]"
;;
esac
Copyright 2K16 - 2K18 Indonesian Hacker Rulez
;?>)