mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-02 22:11:54 +02:00
Code Releases Activity

10700: Andrej: Support Pyramid's internationalized manpaths.

Browse source
This commit is contained in:
Bart Schaefer 2000-04-12 15:24:55 +00:00
parent c7d8a2426f
commit 63719320c3
2 changed files with 42 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -3,6 +3,10 @@
* 10701: Completion/Builtins/_bindkey, Doc/Zsh/mod_zle.yo:
use _arguments for bindkey completion and fix typo in docs
2000-04-12 Bart Schaefer <schaefer@brasslantern.com>
* 10700: Andrej: Completion/User/_man: Support for Pyramid.
2000-04-12 Sven Wischnowsky <wischnow@informatik.hu-berlin.de>
* 10699: Src/parse.c, Src/zsh.h: compare mapped zwc files using

45
Completion/User/_man
View file

@ -1,11 +1,42 @@
#defcomp man
#compdef man apropos whatis
setopt localoptions rcexpandparam
local rep
if [[ $2 = (<->*|ln) ]]; then
rep=( $manpath/(man|cat)$2/$PREFIX*$SUFFIX.<->*(N:t:r) )
else
rep=( $manpath/(man|cat)*/$PREFIX*$SUFFIX.<->*(N:t:r) )
local rep expl star approx mrd
if [[ $compstate[pattern_match] != [^*] ]]; then
# If a string other than *, we just want correction, so no `*'.
star='*'
fi
(( $#rep )) && compadd -m $rep
if [[ -n $_comp_correct ]]; then
# If this is set, we are correcting with this many approximations.
approx="(#a${_comp_correct})"
fi
if (( ! $#manpath )); then
local mp
mp=($(manpath 2>/dev/null))
[[ "$mp" == *:* ]] && mp=( ${(s.:.)mp} )
manpath=( $mp )
fi
(( $#manpath )) || manpath=( ${(s.:.)$(manpath 2>/dev/null)} ) ||
manpath=( /usr/man(-/N) /(opt|usr)/(dt|share|X11R6|local)/(cat|)man(-/N) )
# `sman' is the SGML manual directory for Solaris 7.
# 1M is system administrator commands on SVR4
mrd=(${^manpath/\\%L/${LANG:-En_US.ASCII}}/mandb(N))
if [[ $words[2] = (<->*|1M|l|n) ]]; then
rep=(
$manpath/(sman|man|cat)${words[2]}/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
(($#mrd)) && rep[$#rep+1]=($(awk "\$2 == $words[2] {print \$1}" $mrd))
else
rep=( $manpath/(sman|man|cat)*/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
(($#mrd)) && rep[$#rep+1]=($(awk '{print $1}' $mrd))
fi
(( $#rep )) && _wanted manuals expl 'manual page' \
compadd - ${rep%%.[^.]##(.gz|.bz2|)}