#compdef cvs # redefine _cvs. _cvs () { local extra # "+Qqrwtnlvb:T:e:d:Hfz:s:xa" case $OSTYPE in freebsd*|openbsd*) extra='-R[read only access]' ;; esac _arguments -s \ $extra \ '-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="$(&1)"}:# *}/(#b) #([a-z]##) */$match[1] }}} ${(f)${(F)${${(M)${(f)"$(_call_program 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' \ '*:added 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 -e descriptions 'descriptive text' else _files "$@" fi } (( $+functions[_cvs_annotate] )) || _cvs_annotate () { # "+lr:D:fR" _arguments -s \ "(-R)-l[don't recurse]" \ '-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_rannotate] )) || _cvs_rannotate () { # "+lr:D:fR" _arguments -s \ "(-R)-l[don't recurse]" \ '-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_modules' } (( $+functions[_cvs_checkout] )) || _cvs_checkout () { # "+ANnk:d:flRpQqcsr:D:j:P" _arguments -s \ '-N[don'\''t shorten module paths]' \ '-A[reset sticky tags, dates and -k]' \ '-n[disable checkout program]' \ '-f[use most recent revision if -D/-r is not matched]' \ "(-R)-l[don't recurse]" \ '(-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' \ '*:module:_cvs_modules' } (( $+functions[_cvs_commit] )) || _cvs_commit () { # "+nlRm:fF:r:" _arguments -s \ '-n[disable module program]' \ "(-R)-l[don't recurse]" \ '(-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' \ '*:modified 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 recurse]" \ '(-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 recurse]" \ '(-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 recurse]" \ '(-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 recurse]" \ '(-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]' \ '-l[don'\''t recurse]' \ '-R[print the name of RCS file in the repository]' \ '-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_rlog] )) || _cvs_rlog () { # "+bd:hlNRr::s:tw::" _arguments -s \ '-b[default branch]' \ '(-t)-h[header]' \ "(-R)-l[don't recurse]" \ '(-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_modules' } (( $+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 recurse]" \ '(-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 recurse]" \ '(-l)-R[recursive]' \ '*:removed 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 recurse]" \ '(-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 recurse]" \ '(-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 recurse]" \ '(-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:_cvs_revisions' \ '*:file:_cvs_files' } (( $+functions[_cvs_unedit] )) || _cvs_unedit () { # "+lR" _arguments -s \ "(-R)-l[don't recurse]" \ '(-l)-R[recursive]' \ '*:file:_cvs_files' } (( $+functions[_cvs_update] )) || _cvs_update () { # "+ApCPflRQqduk:r:D:j:I:W:" _arguments -s \ '-C[overwrite local modification]' \ '-A[reset sticky tags, dates and -k]' \ '-p[check out to standard output]' \ '-P[prune empty directory]' \ '-f[use head revision]' \ "(-R)-l[don't recurse]" \ '(-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]:file:_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 recurse]" \ '(-l)-R[recursive]' \ ':watch command:' \ '*:file:_cvs_files' ;; add|remove) # "+lRa:" _arguments -s \ "(-R)-l[don't recurse]" \ '(-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 recurse]" \ '(-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 slash 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 slash=/ _cvs_roots=($_cvs_roots ${${${${(f)"$(<$cvspassfile)"}#/1 }%% *}/:2401${slash}/:/}) _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 -e variables "variable" 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 () { _values 'keyword substitution' \ 'kv[generate keyword strings using the default form]' \ "kvl[include locker's name in strings if given revision is locked]" \ 'k[generate only keyword names in keyword strings; omit their values]' \ 'o[generate the old keyword string as present in the file before check in]' \ "b[binary - like \`o' but also inhibit line ending conversions]" \ 'v[generate only keyword values for keyword strings]' } (( $+functions[_cvs_m] )) || _cvs_m () { _message -e messages "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_program 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 -e modules '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 -e modules '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_program 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 -e branches '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_program 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_program 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 -e revisions 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_nonexistent_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_nonexistent_entries' } (( $+functions[_cvs_files_removed] )) || _cvs_files_removed () { _alternative \ 'directories:directory:_cvs_existing_directories' \ 'removed-files:removed file:_cvs_nonexistent_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 directories expl directory _path_files -g "*~(*/|)CVS(/)" || _cvs_path_prefixes } (( $+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 slash=/ match=() : ${PREFIX:#(#b)(*/)(*)} linedir="$match[1]" realdir=${(e)~linedir} [[ -f "$realdir"CVS/Entries ]] && [[ -n ${pat::="${(@j:|:)${(@)${(@)${(@)${(@)${(@)${(@M)${(@f)"$(<"$realdir"CVS/Entries)"}:#/*}#/}/${slash}[^${slash}]#${slash}//}%/[^/]#/[^/]#}:#${(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 'modified 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} ) if (( $#omitpats )); then _path_files -g "*~(*/|)(${(j:|:)~omitpats})(D.)" else _path_files -g "*~(*/|)(D.)" fi } } (( $+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)) omitpats=($omitpats $=CVSIGNORE) _path_files -g "*~(*/|)(${(j:|:)~omitpats})(D.)" } } (( $+functions[_cvs_nonexistent_entries] )) || _cvs_nonexistent_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 'removed file' compadd -Qp "$linedir" -a files } } (( $+functions[_cvs_path_prefixes] )) || _cvs_path_prefixes () { local expl match match=() [[ "$PREFIX$SUFFIX" = (#b)(*)(/[^/]#) ]] && { PREFIX="$match[1]" ISUFFIX="$match[2]$ISUFFIX" SUFFIX='' _wanted directories expl directory \ _path_files -g "*~($PREFIX|(*/|)CVS)(/)" -S '' } } _cvs "$@"