mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-01-22 00:21:27 +01:00
Code Releases Activity

22579: find .pod files in include path for perldoc

Browse source
This commit is contained in:
Peter Stephenson 2006-08-02 22:20:45 +00:00
parent 4a4fb9f77e
commit 3d215fd53e
3 changed files with 22 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,5 +1,9 @@
2006-08-02 Peter Stephenson <p.w.stephenson@ntlworld.com>
* 22579: Completion/Unix/Command/_perldoc,
Completion/Unix/Type/_perl_modules: find .pod files in perl
include path for documentation.
* 10570: Completion/Unix/Command/_subversion: handle "svn import"
better.

2
Completion/Unix/Command/_perldoc
View file

@ -49,7 +49,7 @@ case $state in
_files -g "*.(pod|pm)(-.)" && ret=0
else
_alternative \
'modules:module: _perl_modules' \
'modules:module: _perl_modules -tP' \
'pods:base pod: _perl_basepods' \
'files:module or .pod file:_files -g "*.(pod|pm)(-.)"' && ret=0
fi

23
Completion/Unix/Type/_perl_modules
View file

@ -6,7 +6,12 @@
#
# Calculate all installed Perl modules. The result is cached
# for future use.
#
#
# Options:
#
# -t[types]: indicate file types; currently the only one is -tP,
# to include .pod files as well as modules.
#
# Available styles:
#
# * try-to-use-pminst
@ -20,22 +25,28 @@
_perl_modules () {
# Set a sensible default caching policy. This has to be done inside
# this function otherwise we wouldn't know the context for the style.
local update_policy
local update_policy sufpat=".pm" with_pod
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
if [[ -z "$update_policy" ]]; then
zstyle ":completion:${curcontext}:" cache-policy \
_perl_modules_caching_policy
fi
if [[ $argv[-1] = -tP ]]; then
argv=("${(@)argv[1,-2]}")
sufpat="(.pm|.pod)"
with_pod=_with_pod
fi
local perl=${words[1]%doc} perl_modules
if whence $perl >/dev/null; then
perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules
perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules$with_pod
elif (( ${+commands[perl]} )); then
perl=perl
perl_modules=_perl_modules
perl_modules=_perl_modules$with_pod
else
perl=
perl_modules=_unknown_perl_modules
perl_modules=_unknown_perl_modules$with_pod
fi
if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid $perl_modules ) &&
@ -68,7 +79,7 @@ _perl_modules () {
# Find all modules
if [[ -d $libdir && -x $libdir ]]; then
new_pms=( $libdir/{[A-Z]*/***/,}*.pm~*blib* )
new_pms=( $libdir/{[A-Z]*/***/,}*${~sufpat}~*blib* )
new_pms=( "${(@)new_pms##$libdir/##}" )
fi