From 308295d4d20567782cc8f41fe2406be55cbb766d Mon Sep 17 00:00:00 2001 From: Oliver Kiddle Date: Fri, 18 Oct 2019 22:57:24 +0200 Subject: c.f. 44831: remove completion functions for long dead projects --- Completion/Unix/Command/_prcs | 191 ------------------------------------------ 1 file changed, 191 deletions(-) delete mode 100644 Completion/Unix/Command/_prcs (limited to 'Completion/Unix/Command/_prcs') diff --git a/Completion/Unix/Command/_prcs b/Completion/Unix/Command/_prcs deleted file mode 100644 index 46e441c34..000000000 --- a/Completion/Unix/Command/_prcs +++ /dev/null @@ -1,191 +0,0 @@ -#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 -- cgit 1.4.1