diff options
author | Peter Stephenson <pws@users.sourceforge.net> | 2000-05-23 15:27:13 +0000 |
---|---|---|
committer | Peter Stephenson <pws@users.sourceforge.net> | 2000-05-23 15:27:13 +0000 |
commit | bfe6602d9ed26e3138f7612b1959b85fec833507 (patch) | |
tree | 5d9c188a6fd4f70aa8b232367132683e237df4e5 /Completion/Commands | |
parent | dcb968338271591412f54d2ff25e482b90f686c0 (diff) | |
download | zsh-bfe6602d9ed26e3138f7612b1959b85fec833507.tar.gz zsh-bfe6602d9ed26e3138f7612b1959b85fec833507.tar.xz zsh-bfe6602d9ed26e3138f7612b1959b85fec833507.zip |
11537: new _complete_tag function
Diffstat (limited to 'Completion/Commands')
-rw-r--r-- | Completion/Commands/.distfiles | 2 | ||||
-rw-r--r-- | Completion/Commands/_complete_tag | 57 |
2 files changed, 58 insertions, 1 deletions
diff --git a/Completion/Commands/.distfiles b/Completion/Commands/.distfiles index 139c9e514..dc4355785 100644 --- a/Completion/Commands/.distfiles +++ b/Completion/Commands/.distfiles @@ -2,5 +2,5 @@ DISTFILES_SRC=' .distfiles _bash_completions _complete_debug _correct_filename _correct_word _expand_word _history_complete_word _read_comp _most_recent_file - _complete_help _next_tags + _complete_help _next_tags _complete_tag ' diff --git a/Completion/Commands/_complete_tag b/Completion/Commands/_complete_tag new file mode 100644 index 000000000..4470a2ad4 --- /dev/null +++ b/Completion/Commands/_complete_tag @@ -0,0 +1,57 @@ +#compdef -k complete-word \C-xt + +# Complete tags using either TAGS or tags. Looks up your directory +# hierarchy to find one. If both exist, uses TAGS. +# +# You can override the choice of tags file with $TAGSFILE (for TAGS) +# or $tagsfile (for tags). +# +# Could be rewritten by some sed expert to use sed instead of perl. + +emulate -L zsh + +# Tags file to look for +local c_Tagsfile=${TAGSFILE:-TAGS} c_tagsfile=${tagsfile:-tags} expl +# Max no. of directories to scan up through +integer c_maxdir=10 +# Context. +local curcontext="$curcontext" +local -a c_tags_array + +if [[ -z "$curcontext" ]]; then + curcontext="complete-tag:::" +else + curcontext="complete-tag:${curcontext#*:}" +fi + +local c_path= +integer c_idir +while [[ ! -f $c_path$c_Tagsfile && + ! -f $c_path$c_tagsfile && $c_idir -lt $c_maxdir ]]; do + (( c_idir++ )) + c_path=../$c_path +done + +if [[ -f $c_path$c_Tagsfile ]]; then + # prefer the more comprehensive TAGS, which unfortunately is a + # little harder to parse. + # could do this with sed, just can't be bothered to work out how, + # after quarter of an hour of trying, except for + # rm -f =sed; ln -s /usr/local/bin/perl /usr/bin/sed + # but that's widely regarded as cheating. + c_tags_array=($(sed -n \ + -e 's/^\(.*[a-zA-Z_0-9]\)[[ '$'\t'':;,()]*'$'\177''.*$/\1/' \ + -e 's/^.*[^a-zA-Z_0-9]//' \ + -e '/^[a-zA-Z_].*/p' $c_path$c_Tagsfile)) +# c_tags_array=($(perl -ne '/([a-zA-Z_0-9]+)[ \t:;,\(]*\x7f/ && +# print "$1\n"' $c_path$c_Tagsfile)) + _main_complete - '' _wanted etags expl 'emacs tags' \ + compadd -a c_tags_array +elif [[ -f $c_tagspath ]]; then + # tags doesn't have as much in, but the tag is easy to find. + # we can use awk here. + c_tags_array=($(awk '{ print $1 }' $c_path$c_Tagsfile)) + _main_complete - '' _wanted vtags expl 'vi tags' compadd -a c_tags_array +else + return 1 +fi |