diff options
author | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:47:21 +0000 |
---|---|---|
committer | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:47:21 +0000 |
commit | 2b6387cbf0169e8fb6ffe3813f0fd42fd97446cc (patch) | |
tree | 697fae42ce5b1d5aa563885b3492d8239fd70d74 | |
parent | d8f61461227828e227301fc371668fa08f98d8ab (diff) | |
download | zsh-2b6387cbf0169e8fb6ffe3813f0fd42fd97446cc.tar.gz zsh-2b6387cbf0169e8fb6ffe3813f0fd42fd97446cc.tar.xz zsh-2b6387cbf0169e8fb6ffe3813f0fd42fd97446cc.zip |
moved to Completion/Unix/Command/_cvs
-rw-r--r-- | Completion/User/_cvs | 952 |
1 files changed, 0 insertions, 952 deletions
diff --git a/Completion/User/_cvs b/Completion/User/_cvs deleted file mode 100644 index 57378ae47..000000000 --- a/Completion/User/_cvs +++ /dev/null @@ -1,952 +0,0 @@ -#compdef cvs - -# redefine _cvs. - -_cvs () { - # "+Qqrwtnlvb:T:e:d:Hfz:s:xa" - _arguments -s \ - '-a[authenticate]' \ - '-f[disable .cvsrc]' \ - '(-n)-l[disable logging]' \ - '(-l)-n[no change]' \ - '(-q)-Q[really quiet]' \ - '(-Q)-q[somewhat quiet]' \ - '(-w)-r[make new working file read only]' \ - '-t[trace]' \ - '(-r)-w[make new working file read-write]' \ - '-x[encrypt client/server communication]' \ - '(--version)-v[print version]' \ - '(-v)--version[print version]' \ - '( --help --help-commands --help-synonyms --help-options)-H[print help]' \ - '(-H --help-commands --help-synonyms --help-options)--help[print help]' \ - '(-H --help --help-synonyms --help-options)--help-commands[command help]' \ - '(-H --help --help-commands --help-options)--help-synonyms[command synonyms help]' \ - '(-H --help --help-commands --help-synonyms )--help-options[global options help]' \ - '*--allow-root=[allowable root for pserver]:rootdir:_files -/' \ - '-b+[binary directory]:bindir:_cvs_bindir' \ - '-T+[temporary directory]:temporary directory:_cvs_tempdir' \ - '-d+[cvs root directory]:cvsroot:_cvs_root' \ - '-e+[editor]:editor:_cvs_editor' \ - '-s+[user variable]:user variable:_cvs_user_variable' \ - '-z+[gzip level]:gzip level:_cvs_gzip_level' \ - '*::cvs command:_cvs_command' -} - -# define cvs command dispatch function. - -(( $+functions[_cvs_command] )) || -_cvs_command () { - local cmd cvsroot="$CVSROOT" - [[ -f CVS/Root ]] && cvsroot="$(<CVS/Root)" - [[ -n "$opt_args[-d]" ]] && cvsroot=${(e)~opt_args[-d]:Q} - - if (( ! $+_cvs_cmds )); then - typeset -gA _cvs_cmds - _cvs_cmds=( - ${(f)${(F)${${(M)${(f)"$(_call commands cvs --help-commands 2>&1)"}:# *}/(#b) #([a-z]##) */$match[1] - }}} - ${(f)${(F)${${(M)${(f)"$(_call synonyms cvs --help-synonyms 2>&1)"}:# *}/(#b) #([a-z]#) #([a-z]#) ([a-z]#)/$match[1] - $match[2] $match[3] }}} - ) - fi - - if (( CURRENT == 1 )); then - _tags commands && { compadd "$@" -k _cvs_cmds || compadd "$@" ${(kv)=_cvs_cmds} } - else - local curcontext="$curcontext" - - cmd="${${(k)_cvs_cmds[(R)* $words[1] *]}:-${(k)_cvs_cmds[(i)$words[1]]}}" - if (( $#cmd )); then - curcontext="${curcontext%:*:*}:cvs-${cmd}:" - _cvs_$cmd - else - _message "unknown cvs command: $words[1]" - fi - fi -} - -# define completion functions for each cvs command - -(( $+functions[_cvs_add] )) || -_cvs_add () { - # "+k:m:" - _arguments -s \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '-m+[message]:message:_cvs_m' \ - '*:file:_cvs_files_unmaintained' \ -} - -(( $+functions[_cvs_admin] )) || -_cvs_admin () { - # "+ib::c:a:A:e:l::u::LUn:N:m:o:s:t::IqxV:k:" - _arguments -s \ - -{i,x} \ - '(-U)-L[set lock strict]' \ - '(-L)-U[set locl non-strict]' \ - '-I[interactive]' \ - '-q[quiet]' \ - '-b-[default branch]:default branch:(1.1.1)' \ - '-c+:comment leader (not used):' \ - '-a+:login names (not work with CVS):' \ - '-A+:access list to append (not work with CVS):' \ - '-e+:access list to erase (not work with CVS):' \ - '-l-[lock]:revision to lock:' \ - '-u-[unlock]:revision to unlock:' \ - '-n+[name revision]:symbolic-name(\:revision):' \ - '-N+[force to name revision]:symbolic-name(\:revision):' \ - '-m+[replace log]:revision\:msg:' \ - '-o+[delete revision]:range to delete:' \ - '-s+[replace state attribute]:state(\:revision):' \ - '-t-[replace descriptive text]:descriptive text:_cvs_admin_t' \ - '-V+:version (obsolete):' \ - '-k+[set keyword substitution]:keyword substitution:_cvs_k' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_admin_t] )) || -_cvs_admin_t () { - if compset -P -; then - _message 'descriptive text' - else - _files "$@" - fi -} - -(( $+functions[_cvs_annotate] )) || -_cvs_annotate () { - # "+lr:D:fR" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '-f[use head revision]' \ - '(-l)-R[recursive]' \ - '(-f -D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-f -r)-D+[specify date]:date:_cvs_D' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_checkout] )) || -_cvs_checkout () { - # "+ANnk:d:flRpQqcsr:D:j:P" - _arguments -s \ - '-A[reset sticky tags, dates and -k]' \ - '-N[don'\''t shorten module paths]' \ - '-n[disable checkout program]' \ - '-f[use most recent revision if -D/-r is not matched]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '(-s)-c[module database]' \ - '(-c)-s[module database with status]' \ - '-P[prune empty directory]' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '-d+[directory]:directory:_files -/' \ - '(-D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-r)-D+[specify date]:date:_cvs_D' \ - '-j+[merge]:tag:_cvs_revisions' \ - '-j+[merge]:tag:_cvs_revisions' \ - '*:module:_cvs_modules' -} - -(( $+functions[_cvs_commit] )) || -_cvs_commit () { - # "+nlRm:fF:r:" - _arguments -s \ - '-n[disable module program]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-f[force to commit]' \ - '(-F)-m+[message]:message:_cvs_m' \ - '(-m)-F+[message file]:log message file:_files' \ - '-r+[specify revision]:tag:_cvs_revisions' \ - '*:file:_cvs_files_modified' -} - -(( $+functions[_cvs_diff] )) || -_cvs_diff () { - local of ofwuc ouc oss ofwy ofwg ofwl - # output formats - of="-y --side-by-side -n --rcs -e -f --ed -q --brief -c -C --context -u -U \ - --unified --old-group-format --new-group-format --changed-group-format \ - --unchanged-group-format --line-format --old-line-format --new-line-format \ - --unchanged-line-format" - - # output formats w/o unified and context - ofwuc="-y --side-by-side -n --rcs -e -f --ed -q --brief --old-group-format \ - --new-group-format --changed-group-format --unchanged-group-format \ - --line-format --old-line-format --new-line-format --unchanged-line-format" - - # option specific to unified or context diff - ouc='-L --label -p --show-c-function -F --show-function-line' - - # option specific to side by side - oss='-W --width --left-column --suppress-common-lines' - - # output formats w/o side by side - ofwy="-n --rcs -e -f --ed -q --brief -c -C --context -u -U --unified \ - --old-group-format --new-group-format --changed-group-format \ - --unchanged-group-format --line-format --old-line-format \ - --new-line-format --unchanged-line-format" - - # output formats w/o group format - ofwg="-n --rcs -e -f --ed -q --brief -c -C --context -u -U --unified \ - --line-format --old-line-format --new-line-format --unchanged-line-format" - - # output formats w/o line format - ofwl="-n --rcs -e -f --ed -q --brief -c -C --context -u -U --unified \ - --old-group-format --new-group-format --changed-group-format \ - --unchanged-group-format" - - # "+abcdefhilnpstuw0123456789BHNRC:D:F:I:L:U:V:W:k:r:" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '(-r)-D+[specify date]:date:_cvs_D' \ - '(-r)-D+[specify date]:date:_cvs_D' \ - '(-D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-D)-r+[specify revision]:tag:_cvs_revisions' \ - -{h,0,1,2,3,4,5,6,7,8,9} \ - '--binary[binary mode]' \ - '--ifdef=[set macro name for merged if-then-else format]:name:' \ - '(-i)--ignore-case[case insensitive]' \ - '(--ignore-case)-i[case insensitive]' \ - '(-w)--ignore-all-space[ignore all white space]' \ - '(--ignore-all-space)-w[ignore all white space]' \ - '(-b)--ignore-space-change[ignore changes in the amount of white space]' \ - '(--ignore-space-change)-b[ignore changes in the amount of white space]' \ - '(-B)--ignore-blank-lines[ignore lines that are all blank]' \ - '(--ignore-blank-lines)-B[ignore lines that are all blank]' \ - '(-I)--ignore-matching-lines=[ignore lines that match regex]:line exclusion regex:' \ - '(--ignore-matching-lines)-I+[ignore lines that match regex]:line exclusion regex:' \ - '(-a)--text[treat all files as text]' \ - '(--text)-a[treat all files as text]' \ - "($of $oss)--context=-[context diff]:number of lines of copied context:" \ - "($of $oss)-C+[output a context diff]:number of lines of copied context:" \ - "($of $oss)-c[output a context diff]" \ - "($of $oss)--unified=-[output a unified diff]:number of lines of unified context:" \ - "($of $oss)-U+[output a unified diff]:number of lines of unified context:" \ - "($of $oss)-u[output a unified diff]" \ - "($ofwuc $oss -L)--label=[set label to use instead of file name]:label:" \ - "($ofwuc $oss --label)-L+[set label to use instead of file name]:label:" \ - "($ofwuc $oss -L)--label=[set label to use instead of file name]:label:" \ - "($ofwuc $oss --label)-L+[set label to use instead of file name]:label:" \ - "($ofwuc $oss -p)--show-c-function[show C function of each change]" \ - "($ofwuc $oss --show-c-function)-p[show C function of each change]" \ - "($ofwuc $oss -F)--show-function-line=[show the most recent line matching regex]:regex:" \ - "($ofwuc $oss --show-function-line)-F+[show the most recent line matching regex]:regex:" \ - "($of $ouc $oss)--brief[output only whether files differ]" \ - "($of $ouc $oss)--ed[output an ed script]" \ - "($of $ouc $oss)-e[output an ed script]" \ - "($of $ouc $oss)--forward-ed[output a reversed ed script]" \ - "($of $ouc $oss)-f[output a reversed ed script]" \ - "($of $ouc $oss)--rcs[RCS format diff]" \ - "($of $ouc $oss)-n[RCS format diff]" \ - "($of $ouc)--side-by-side[output in two columns]" \ - "($of $ouc)-y[output in two columns]" \ - "($ofwy $ouc -W)--width=[set size of line]:number of characters per line:" \ - "($ofwy $ouc --width)-W+[set size of line]:number of characters per line:" \ - "($ofwy $ouc)--left-column[output only left column of common lines]" \ - "($ofwy $ouc)--suppress-common-lines[do not output common lines]" \ - "($ofwg $ouc $oss)--old-group-format=[set old group format]:old group format:" \ - "($ofwg $ouc $oss)--new-group-format=[set new group format]:new group format:" \ - "($ofwg $ouc $oss)--changed-group-format=[set changed group format]:changed group format:" \ - "($ofwg $ouc $oss)--unchanged-group-format=[set unchanged group format]:unchanged group format:" \ - "($ofwl $ouc $oss)--line-format=[set line format]:line format:" \ - "($ofwl $ouc $oss)--old-line-format=[set old line format]:old line format:" \ - "($ofwl $ouc $oss)--new-line-format=[set new line format]:new line format:" \ - "($ofwl $ouc $oss)--unchanged-line-format=[set unchanged line format]:unchanged line format:" \ - '--paginate[output through pr]' \ - '(-t)--expand-tabs[expand tabs to spaces]' \ - '(--expand-tabs)-t[expand tabs to spaces]' \ - '--initial-tab[prepend a tab]' \ - '(-N)--new-file[treat absent files as empty]' \ - '(--new-file)-N[treat absent files as empty]' \ - '(-s)--report-identical-files[report when two files are the same]' \ - '(--report-identical-files)-s[report when two files are the same]' \ - '--horizon-lines=[set number of lines to keep in prefix and suffix]:number of horizon lines:' \ - '(-d)--minimal[try to find a smaller set of changes]' \ - '(--minimal)-d[try to find a smaller set of changes]' \ - '(-H)--speed-large-files[assume large files and many small changes]' \ - '(--speed-large-files)-H[assume large files and many small changes]' \ - '*:file:_cvs_diff_arg' -} - -(( $+functions[_cvs_diff_arg] )) || -_cvs_diff_arg () { - _cvs_files_modified || _cvs_files -} - -(( $+functions[_cvs_edit] )) || -_cvs_edit () { - # "+lRa:" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-a+[specify action]:action:(edit unedit commit all none)' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_editors] )) || -_cvs_editors () { - # "+lR" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_export] )) || -_cvs_export () { - # "+Nnk:d:flRQqr:D:" - _arguments -s \ - '-N[don'\''t shorten module paths]' \ - '-n[disable checkout program]' \ - '-f[use most recent revision if -D/-r is not matched]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '-d+[directory]:directory:_files -/' \ - '(-D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-r)-D+[specify date]:date:_cvs_D' \ - '*:module:_cvs_modules' -} - -(( $+functions[_cvs_history] )) || -_cvs_history () { - # "+Tacelow?D:b:f:m:n:p:r:t:u:x:X:z:" - _arguments -s \ - '-T[all tags]' \ - '-a[all users]' \ - '-c[modified files]' \ - '-e[everything]' \ - '-l[last modification]' \ - '-o[check-outed modules]' \ - '-w[working directory]' \ - '-D+[since date]:date:_cvs_D' \ - '-b+[back to record]:string:' \ - '-f+[specify file]:file:_cvs_files' \ - '-m+[specify module]:module:_cvs_modules' \ - '*-n+[in module]:module:_cvs_modules' \ - '*-p+[in repository]:repository:' \ - '-r+[since revision]:rev:' \ - '-t+[since tag]:tag:' \ - '*-u+[specify user]:user name:' \ - '-x+[specify type]:type:_cvs_history_x' \ - '-X+[debugging]:arg:' \ - '-z+[specify timezone]:timezone:' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_history_x] )) || -_cvs_history_x () { - _values -s '' 'type' \ - 'F[release]' \ - 'O[checkout]' \ - 'E[export]' \ - 'T[rtag]' \ - 'C[merge collision-detected]' \ - 'G[merge succeed]' \ - 'U[working file was copied]' \ - 'W[working file was deleted]' \ - 'A[A file was added]' \ - 'M[A file was modified]' \ - 'R[A file was removed]' -} - -(( $+functions[_cvs_import] )) || -_cvs_import () { - # "+Qqdb:m:I:k:W:" - _arguments -s \ - '-d[use file modification time]' \ - '-b+[specify vendor branch]:branch:(1.1.3)' \ - '-m+[message]:message:_cvs_m' \ - '*-I+[ignore files]:name:_files' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '*-W+[wrapper specification]:spec:_files' \ - ':repository:_cvs_modules' \ - ':vendor tag:_cvs_vendor_branches' \ - ':release tag:' -} - -(( $+functions[_cvs_init] )) || -_cvs_init () { - false -} - -(( $+functions[_cvs_log] )) || -_cvs_log () { - # "+bd:hlNRr::s:tw::" - _arguments -s \ - '-b[default branch]' \ - '(-t)-h[header]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-N[don'\''t list tags]' \ - '(-h)-t[header with descriptive text]' \ - '-d+[specify dates]:dates:' \ - '-r-[specify revisions]:revisions:' \ - '-s+[specify states]:states:(Exp Stab Rel dead)' \ - '-w-[specify logins]:logins:' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_login] )) || -_cvs_login () { - false -} - -(( $+functions[_cvs_logout] )) || -_cvs_logout () { - false -} - -(( $+functions[_cvs_rdiff] )) || -_cvs_rdiff () { - # "+V:k:cuftsQqlRD:r:" - _arguments -s \ - '-c[output a context diff]' \ - '-u[output a unified diff]' \ - '-f[use most recent revision if -D/-r is not matched]' \ - '-s[short patch]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-V+[specify version]:version:' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '(-D -D -r -r)-t[top two differences]' \ - '(-t -r)-D+[specify date]:date:_cvs_D' \ - '(-t -r)-D+[specify date]:date:_cvs_D' \ - '(-t -D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-t -D)-r+[specify revision]:tag:_cvs_revisions' \ - '*:module:_cvs_modules' -} - -(( $+functions[_cvs_release] )) || -_cvs_release () { - # "+Qdq" - _arguments -s \ - '-d[delete]' \ - '*:directory:_files -/' -} - -(( $+functions[_cvs_remove] )) || -_cvs_remove () { - # "+flR" - _arguments -s \ - '-f[force to remove]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*:file:_cvs_remove_arg' -} - -(( $+functions[_cvs_remove_arg] )) || -_cvs_remove_arg () { - if (( $+opt_args[-f] )); then - _cvs_files - else - _cvs_files_removed - fi -} - -(( $+functions[_cvs_rtag] )) || -_cvs_rtag () { - # "+FanfQqlRdbr:D:" - _arguments -s \ - '(-d)-F[move tag if already exists]' \ - '(-d)-a[clear tag from removed files]' \ - '-n[disable tag program]' \ - '(-d)-f[force a head revision]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '(-b)-d[delete tag]' \ - '(-d)-b[create branch]' \ - '-D+[specify date]:date:_cvs_D' \ - '-r+[specify revision]:tag:_cvs_revisions' \ - ':tag:' \ - '*:module:_cvs_modules' -} - -(( $+functions[_cvs_status] )) || -_cvs_status () { - # "+vlR" - _arguments -s \ - '-v[verbose]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_tag] )) || -_cvs_tag () { - # "+FQqlRcdr:D:bf" - _arguments -s \ - '(-d)-F[move tag if already exists]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-c[check that working files unmodified]' \ - '(-b)-d[delete tag]' \ - '(-d)-b[create branch]' \ - '(-d)-f[force a head revision]' \ - '-r+[specify revision]:tag:_cvs_revisions' \ - '-D+[specify date]:date:_cvs_D' \ - ':tag:' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_unedit] )) || -_cvs_unedit () { - # "+lR" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_update] )) || -_cvs_update () { - # "+ApCPflRQqduk:r:D:j:I:W:" - _arguments -s \ - '-A[reset sticky tags, dates and -k]' \ - '-C[overwrite local modification]' \ - '-p[check out to standard output]' \ - '-P[prune empty directory]' \ - '-f[use head revision]' \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '-d[create directories]' \ - '-k+[keyword]:keyword substitution:_cvs_k' \ - '(-D)-r+[specify revision]:tag:_cvs_revisions' \ - '(-r)-D+[specify date]:date:_cvs_D' \ - '-j+[merge]:tag:_cvs_revisions' \ - '*-I+[ignore files]:name:_files' \ - '*-W+[wrapper specification]:spec:_files' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_watch] )) || -_cvs_watch () { - local expl - - if (( CURRENT == 2 )); then - _wanted values expl 'watch command' compadd on off add remove - else - case "$words[2]" in - on|off) # "+lR" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - ':watch command:' \ - '*:file:_cvs_files' - ;; - add|remove) # "+lRa:" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*-a+[specify action]:action:(edit unedit commit all none)' \ - ':watch command:' \ - '*:file:_cvs_files' - ;; - esac - fi -} - -(( $+functions[_cvs_watchers] )) || -_cvs_watchers () { - # "+lR" - _arguments -s \ - '(-R)-l[don'\''t recursive]' \ - '(-l)-R[recursive]' \ - '*:file:_cvs_files' -} - -(( $+functions[_cvs_version] )) || -_cvs_version () { - false -} - -(( $+functions[_cvs_loadstat] )) || -_cvs_loadstat () { - zstyle -t ":completion:${curcontext}:" disable-stat && return 1 - (( $+_cvs_loadstat_status )) && return $_cvs_loadstat_status - - zmodload -i zsh/stat 2>/dev/null - (( _cvs_loadstat_status = ! $+builtins[stat] )) - return $_cvs_loadstat_status -} - -(( $+functions[_cvs_root] )) || -_cvs_root () { - local cvspassfile id - - typeset -gU _cvs_roots - - if [[ -f "${cvspassfile::=${CVS_PASSFILE:-$HOME/.cvspass}}" ]]; then - if _cvs_loadstat; then - id="$(LC_ALL=C builtin stat -g +mtime -F '%Y/%m/%d-%T' "$cvspassfile")" - else - id="$(LC_ALL=C ls -l "$cvspassfile")" - fi - if [[ "$id" != "$_cvs_pass_id" ]]; then - _cvs_roots=($_cvs_roots ${${(f)"$(<$cvspassfile)"}%% *}) - _cvs_pass_id="$id" - fi - fi - - _tags files && { - compadd -M 'r:|[:@./]=** r:|=**' "$@" -a _cvs_roots || { - compset -P ':(local|fork):'; _files "$@" -W / -/ - } - } -} - -(( $+functions[_cvs_tempdir] )) || -_cvs_tempdir () { - _tags directories && compadd "$@" $TMPPREFIX:h $TMPDIR /tmp -} - -(( $+functions[_cvs_user_variable] )) || -_cvs_user_variable () { - if compset -P '*='; then - _default - else - _message "variable=value" - fi -} - -# define completion functions for cvs global options. - -(( $+functions[_cvs_bindir] )) || -_cvs_bindir () { - _tags directories && { compadd "$@" /usr/local/bin || _files "$@" -/ } -} - -(( $+functions[_cvs_editor] )) || -_cvs_editor () { - _tags commands && compadd "$@" vi -} - -(( $+functions[_cvs_gzip_level] )) || -_cvs_gzip_level () { - _tags values && compadd "$@" 9 -} - -# define completion functions for cvs common options and arguments. - -(( $+functions[_cvs_D] )) || -_cvs_D () { - _tags values && compadd "$@" today yesterday week\ ago month\ ago -} - -(( $+functions[_cvs_k] )) || -_cvs_k () { - _tags values && compadd "$@" kv kvl k o b v -} - -(( $+functions[_cvs_m] )) || -_cvs_m () { - _message "log message" -} - -(( $+functions[_cvs_modules] )) || -_cvs_modules () { - if compset -P '(#m)(*/)'; then - _cvs_sub_modules "$cvsroot" "${MATCH%/}" - else - _cvs_top_modules "$cvsroot" - fi -} - -(( $+functions[_cvs_top_modules] )) || -_cvs_top_modules () { - local root="$1" - - if [[ -d $root ]]; then - _wanted modules expl 'module name' \ - compadd - $root/*(/:t) \ - ${${(M)${(f)"$(<$root/CVSROOT/modules)"}:#[^#]*}%%[ ]*} - else - if [[ "$_cvs_top_modules_cache_key" != "$root" ]]; then - _cvs_top_modules_cache_key="$root" - _cvs_top_modules_cache_mods=() - if zstyle -T ":completion:${curcontext}:" remote-access; then - _cvs_remote_directories "$root" . _cvs_top_modules_cache_mods - _cvs_top_modules_cache_mods=( - "$_cvs_top_modules_cache_mods[@]" - ${(M)${${(f)"$( - CVS_IGNORE_REMOTE_ROOT= _call modules cvs -d "$root" co -c - )"}%%[ ]*}:#?*} - ) - fi - fi - if (( $#_cvs_top_modules_cache_mods )); then - _wanted modules expl 'module name' \ - compadd -a _cvs_top_modules_cache_mods - else - _message 'module name' - fi - fi -} - -(( $+functions[_cvs_sub_modules] )) || -_cvs_sub_modules () { - local root="$1" dir="$2" ignore - - if [[ -d $root ]]; then - _wanted modules expl 'module name' \ - _path_files -W "($root/$dir)" -/ -F "(Attic */Attic)" - else - if [[ $_cvs_sub_modules_cache_key != "$root $dir" ]]; then - _cvs_sub_modules_cache_key="$root $dir" - _cvs_sub_modules_cache_mods=() - if zstyle -T ":completion:${curcontext}:" remote-access; then - _cvs_remote_directories "$root" "$dir" _cvs_sub_modules_cache_mods - fi - fi - if (( $#_cvs_sub_modules_cache_mods )); then - _wanted modules expl 'module name' \ - compadd -qS/ -a _cvs_sub_modules_cache_mods - else - _message 'module name' - fi - fi -} - -# _cvs_run cvsroot directory cvs-arguments... -(( $+functions[_cvs_run] )) || -_cvs_run () { - local cvsroot="$1" dir="$2" - shift 2 - local d=/tmp/zsh-cvs-work-$$ - mkdir $d >&/dev/null - cd $d - mkdir CVS >&/dev/null - print -r - "$cvsroot" > CVS/Root - print "$dir" > CVS/Repository - print D > CVS/Entries - CVS_IGNORE_REMOTE_ROOT= cvs "$@" - cd $OLDPWD - rm -rf $d -} - -# _cvs_remote_directories cvsroot directory [variable] -(( $+functions[_cvs_remote_directories] )) || -_cvs_remote_directories () { - local root="$1" dir="$2" subdirs - shift 2 - subdirs=(${${(M)${(f)"$(_call directories _cvs_run "$root" "$dir" update -r00 -d -p 2>&1)"}:#* New directory \`*\' -- ignored}/(#b)*\`(*)\'*/$match[1]}) - if (( $# )); then - eval "$1=(\"\$subdirs[@]\")" - else - if (( $#subdirs )); then - print -lr - $subdirs - fi - fi -} - -(( $+functions[_cvs_vendor_branches] )) || -_cvs_vendor_branches () { - local expl vendor_branch - vendor_branch=() - if zstyle -T ":completion:${curcontext}:" remote-access; then - if [[ -n $opt_args[-b] ]]; then - _cvs_extract_vendor_branch -b "$opt_args[-b]" "$cvsroot" "$line[1]" \ - vendor_branch - else - _cvs_extract_vendor_branch "$cvsroot" "$line[1]" vendor_branch - fi - fi - if (( $#vendor_branch )); then - _wanted values expl 'vendor branch' compadd -a vendor_branch - else - _message 'vendor branch' - fi -} - -# _cvs_extract_vendor_branch [-b numeric-branch] cvsroot directory [variable] -(( $+functions[_cvs_extract_vendor_branch] )) || -_cvs_extract_vendor_branch () { - local numeric='1\.1\.1' - if [[ $1 = -b ]]; then - numeric="${2//./\\.}" - shift 2 - fi - local root="$1" dir="$2" - shift 2 - - local vtags - vtags=($( - _call tags _cvs_run "$root" "$dir" -Q log -h 2>/dev/null | - sed -ne $'/^symbolic names:/{ -n -:loop -/^[^ \t]/d -/: '"$numeric"$'$/b found -n -b loop -:found -s/^[ \t]*\\(.*\\): '"$numeric"$'$/\\1/p -n -/^[ \t]/b found -q -}')) - if (( $# )); then - eval "$1=(\"\$vtags[@]\")" - else - if (( $#vtags )); then - print -lr - "$vtags[@]" - fi - fi -} - -(( $+functions[_cvs_revisions] )) || -_cvs_revisions () { - local expl - - if [[ $_cvs_revisions_key != $cvsroot:$PWD ]]; then - _cvs_revisions_key="$cvsroot:$PWD" - if zstyle -T ":completion:${curcontext}:" remote-access; then - _cvs_revisions_cache=( - $(CVS_IGNORE_REMOTE_ROOT= _call tags cvs -d "$cvsroot" -q status -vl .| - sed -n -e '/No Tags Exist/d' \ - -e 's/^ \([A-Za-z][-_0-9A-Za-z]*\).*/\1/p'| - sort|uniq) - ) - else - _cvs_revisions_cache=() - fi - fi - - if (( $#_cvs_revisions_cache )); then - _wanted values expl revision compadd -a _cvs_revisions_cache - else - _message revision - fi -} - -# define completion functions for files maintained by cvs. - -(( $+functions[_cvs_files] )) || -_cvs_files () { - _alternative \ - 'directories:directory:_cvs_existing_directories' \ - 'existing-files:file:_cvs_existing_entries' \ - 'removed-files:removed file:_cvs_nonexisting_entries' -} - -(( $+functions[_cvs_files_modified] )) || -_cvs_files_modified () { - _alternative \ - 'directories:directory:_cvs_existing_directories' \ - 'existing-files:file:_cvs_modified_entries' \ - 'removed-files:removed file:_cvs_nonexisting_entries' -} - -(( $+functions[_cvs_files_removed] )) || -_cvs_files_removed () { - _alternative \ - 'directories:directory:_cvs_existing_directories' \ - 'removed-files:removed file:_cvs_nonexisting_entries' -} - -(( $+functions[_cvs_files_unmaintained] )) || -_cvs_files_unmaintained () { - _cvs_nonentried_files || - _cvs_existing_directories || - _cvs_strict_nonentried_files -} - -(( $+functions[_cvs_existing_directories] )) || -_cvs_existing_directories () { - local expl - _wanted files expl file _path_files -g "*~(*/|)CVS(/)" -} - -(( $+functions[_cvs_existing_entries] )) || -_cvs_existing_entries () { - local expl match linedir realdir pat - match=() - : ${PREFIX:#(#b)(*/)(*)} - linedir="$match[1]" - realdir=${(e)~linedir} - [[ -f "$realdir"CVS/Entries ]] && - [[ -n ${pat::="${(@j:|:)${(@)${(@)${(@)${(@M)${(@f)"$(<"$realdir"CVS/Entries)"}:#/*}#/}%%/*}//(#m)[][*?()<|^~#\\]/\\$MATCH}}"} ]] && - _wanted files expl file _path_files -g "$pat" -} - -(( $+functions[_cvs_modified_entries] )) || -_cvs_modified_entries () { - if _cvs_loadstat; then - local expl match linedir realdir pat - match=() - : ${PREFIX:#(#b)(*/)(*)} - linedir="$match[1]" - realdir=${(e)~linedir} - [[ -f "$realdir"CVS/Entries ]] && - [[ -n ${pat::="${(@j:|:)${(@)${(@)${(@)${(@)${(@)${(@M)${(@f)"$(<"$realdir"CVS/Entries)"}:#/*}#/}/\\/[^\\/]#\\///}%/[^/]#/[^/]#}:#${(j:|:)~${${${${(f)"$(LC_ALL=C builtin stat -gn +mtime -F '%a %b %e %T %Y' ${realdir}*(D) 2>/dev/null)"}##*/}/ //}//(#m)[][*?()<|^~#\\]/\\$MATCH}}}%%/*}//(#m)[][*?()<|^~#\\]/\\$MATCH}"} ]] && - _wanted files expl file _path_files -g "$pat" - else - _cvs_existing_entries - fi -} - -(( $+_cvs_ignore_default )) || -_cvs_ignore_default=( - RCS SCCS CVS CVS.adm RCSLOG 'cvslog.*' tags TAGS .make.state .nse_depinfo - '*\~' '\#*' '.\#*' ',*' '_$*' '*$' '*.old' '*.bak' '*.BAK' '*.orig' '*.rej' - '.del-*' '*.a' '*.olb' '*.o' '*.obj' '*.so' '*.exe' '*.Z' '*.elc' '*.ln' - core -) - -(( $+functions[_cvs_strict_nonentried_files] )) || -_cvs_strict_nonentried_files () { - local expl match linedir realdir omitpats - - match=() - : ${PREFIX:#(#b)(*/)(*)} - linedir="$match[1]" - realdir=${(e)~linedir} - [[ -f "$realdir"CVS/Entries ]] && { - omitpats=( - ${${${${(M)${(f)"$(<"$realdir"CVS/Entries)"}:#/*}#/}%%/*}//(#m)[][*?()<|^~#\\]/\\$MATCH} - ) - _path_files -g "*~(*/|)(${(j:|:)~omitpats})(D.)" - } -} - -(( $+functions[_cvs_nonentried_files] )) || -_cvs_nonentried_files () { - local expl match linedir realdir omitpats - - match=() - : ${PREFIX:#(#b)(*/)(*)} - linedir="$match[1]" - realdir=${(e)~linedir} - [[ -f "$realdir"CVS/Entries ]] && { - omitpats=( - ${${${${(M)${(f)"$(<"$realdir"CVS/Entries)"}:#(D|)/*}#(D|)/}%%/*}//(#m)[][*?()<|^~#\\]/\\$MATCH} - $_cvs_ignore_default - ${=cvsignore} - ) - [[ -r ~/.cvsignore ]] && omitpats=($omitpats $(<~/.cvsignore)) - [[ -r ${realdir}.cvsignore ]] && omitpats=($omitpats $(<${realdir}.cvsignore)) - - _path_files -g "*~(*/|)(${(j:|:)~omitpats})(D.)" - } -} - -(( $+functions[_cvs_nonexisting_entries] )) || -_cvs_nonexisting_entries () { - local expl match linedir realdir files - match=() - : ${PREFIX:#(#b)(*/)(*)} - linedir="$match[1]" - realdir=${(e)~linedir} - files=(${realdir}*(D:t)) - [[ -f "$realdir"CVS/Entries ]] && { - files=( - ${${${${(M)${(f)"$(<"$realdir"CVS/Entries)"}:#(D|)/*}#(D|)/}%%/*}:#${(j:|:)~${files//(#m)[][*?()<|^~#\\]/\\$MATCH}}} - ) - compquote files - _wanted files expl file compadd -Qp "$linedir" -a files - } -} - -_cvs "$@" |