summary refs log tree commit diff
path: root/Completion/Unix
diff options
context:
space:
mode:
authorSven Wischnowsky <wischnow@users.sourceforge.net>2001-04-02 11:40:15 +0000
committerSven Wischnowsky <wischnow@users.sourceforge.net>2001-04-02 11:40:15 +0000
commit10dc2b02dabc5d3ba4f4cfa5a62b0945f03191ef (patch)
tree9fa8334e56c0a3472835c855827b108679b281f3 /Completion/Unix
parent3cf289421ebbbb88e1486e57f0d7afc188044fd2 (diff)
downloadzsh-10dc2b02dabc5d3ba4f4cfa5a62b0945f03191ef.tar.gz
zsh-10dc2b02dabc5d3ba4f4cfa5a62b0945f03191ef.tar.xz
zsh-10dc2b02dabc5d3ba4f4cfa5a62b0945f03191ef.zip
moved from Completion/User/_perl_builtin_funcs
Diffstat (limited to 'Completion/Unix')
-rw-r--r--Completion/Unix/Type/_perl_builtin_funcs31
1 files changed, 31 insertions, 0 deletions
diff --git a/Completion/Unix/Type/_perl_builtin_funcs b/Completion/Unix/Type/_perl_builtin_funcs
new file mode 100644
index 000000000..65eebf9b1
--- /dev/null
+++ b/Completion/Unix/Type/_perl_builtin_funcs
@@ -0,0 +1,31 @@
+#autoload
+#
+# _perl_builtin_funcs - zsh completion function
+#
+# Adam Spiers <adam@spiers.net>
+#
+# Calculate all built-in Perl functions.  The result is cached
+# for future use.
+#
+
+if [[ ${+_perl_builtin_funcs} -eq 0 ]]; then
+  typeset -agU _perl_builtin_funcs
+  local perlfunc
+
+  if [[ -n "${perlfunc:=$(man -w perlfunc 2>/dev/null; print -l ${^manpath}/man1/perlfunc.1(N) {/usr/man,/usr/share/man,/usr/local/man}/man1/perlfunc.1(N))}" ]]; then
+    _perl_builtin_funcs=( `perl -lne '
+                             $in_funcs++, next if /Alphabetical/;     \
+                             next unless $in_funcs;                   \
+                             if (/^\.Ip "(\w+)/) {                    \
+                               print $1 unless $func{$1}; $func{$1}++ \
+                             }' $=perlfunc`
+               )
+  else
+    echo "Couldn't find perlfunc man page; giving up."
+    return 1
+  fi
+fi
+
+local expl
+
+_wanted functions expl 'Perl built-in functions' compadd -a _perl_builtin_funcs