about summary refs log tree commit diff
diff options
context:
space:
mode:
authorPeter Stephenson <pws@zsh.org>2013-04-04 16:02:52 +0100
committerPeter Stephenson <pws@zsh.org>2013-04-04 16:02:52 +0100
commit0c32aa6274a25e60f56f2d189f6aaded015a2303 (patch)
treef98c3329d59e89f0508d1e89d4ef56d2856983e3
parent648ab2c53d4863ff6798f5f9f8bfb1099f61f52b (diff)
downloadzsh-0c32aa6274a25e60f56f2d189f6aaded015a2303.tar.gz
zsh-0c32aa6274a25e60f56f2d189f6aaded015a2303.tar.xz
zsh-0c32aa6274a25e60f56f2d189f6aaded015a2303.zip
31203: add new etags completion.
-rw-r--r--ChangeLog5
-rw-r--r--Completion/Unix/Command/.distfiles1
-rw-r--r--Completion/Unix/Command/_etags63
3 files changed, 69 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 2bd4208b1..0708e2354 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-04  Peter Stephenson  <p.stephenson@samsung.com>
+
+	* 31203: Completion/Unix/Command/.distfiles,
+	Completion/Unix/Command/_etags: new etags completion.
+
 2013-02-18  Aaron Schrab  <aaron@schrab.com>
 
 	* 07478c6b: Src/zsh.mdd: Generate patch level using `git describe`
diff --git a/Completion/Unix/Command/.distfiles b/Completion/Unix/Command/.distfiles
index abb5de780..9ce81f6bc 100644
--- a/Completion/Unix/Command/.distfiles
+++ b/Completion/Unix/Command/.distfiles
@@ -57,6 +57,7 @@ _elm
 _enscript
 _env
 _espeak
+_etags
 _fakeroot
 _feh
 _fetchmail
diff --git a/Completion/Unix/Command/_etags b/Completion/Unix/Command/_etags
new file mode 100644
index 000000000..d1644fded
--- /dev/null
+++ b/Completion/Unix/Command/_etags
@@ -0,0 +1,63 @@
+#compdef etags
+
+integer ret=1
+local context state line expl
+typeset -A opt_args
+
+_arguments \
+  '(-a --append)'{-a,--append}'[append tag entries]' \
+  '--packages-only[only generate tags for Ada packages]' \
+  '--declarations[C etc.: tags for function declarations]' \
+  '(-D --no-defines)'{-D,--no-defines}'[No tags for preprocessor definitions]' \
+  {-i-,--include=}'[Tag file should include another]:tag file:_files' \
+  {-l-,--language=}'[Specify language]:language:->lang' \
+  '--no-globals[No tag entries for global variables]' \
+  '--no-members[No tag entries for structure members]' \
+  {-r-,--regex=}'[Specify regular expression]:regular expression:->regex' \
+  {-R,--no-regex}'[No regular expressions for tags]' \
+  '(-I --ignore-indentation)'{-I,--ignore-indentation}'[Closing brace in first col may not be start of func]' \
+  '(-o --output)'{-o-,--output=}'[Specify output file]:file:_files' \
+  '--parse-stdin=[Specify file name for stdin]:file name:_files' \
+  '(-V --version)'{-V,--version}'[Output version]' \
+  '(-h --help)'{-h,--help}'[Output help]' \
+  '*:file to tag:_files' \
+  && ret=0
+
+case $state in
+  (lang)
+  local -a langs
+  langs=(${${${${(f)"$(etags --help)"}:#^  [^[:blank:]]##[[:blank:]]##([[:alnum:].]*|)}#  }%%[[:blank:]]*})
+  _wanted languages expl language compadd -a langs && ret=0
+  ;;
+
+  (regex)
+  if compset -P @; then
+    _files && ret=0
+  elif [[ -n $PREFIX ]]; then
+    local sep=$PREFIX[1]
+    [[ $sep = [\\*?#] ]] && sep="\\$sep"
+    local -a match mbegin mend
+    if compset -P "$sep*$sep*$sep"; then
+      local mods=smi
+      mods=${mods//[${PREFIX}]}
+      if [[ -n $mods ]]; then
+	compset -P '*'
+	local -a modarr
+	[[ $mods = *i* ]] && modarr+=("i:ignore case")
+	[[ $mods = *m* ]] && modarr+=("m:allow multi-line matches")
+	[[ $mods = *s* ]] && modarr+=("s:multi-line, dot matches newline")
+	_describe -t modifiers modifier modarr && ret=0
+      fi
+    elif compset -P "$sep*$sep"; then
+      _message "tagname" && ret=0
+    else
+      compset -P "$sep"
+      _message "tag regexp" && ret=0
+    fi
+  else
+    _message "regexp separator or @ for file" && ret=0
+  fi
+  ;;
+esac
+
+return ret