PATCH: _man for Pyramid man system (attached - probably Q-P)

PATCH: _man for Pyramid man system (attached - probably Q-P)

[Andrej Borsenkow]

This adds minimal support for Pyramid man system (used on
SINIX/ReliantUNIX from Siemens-then-SNI-then-Siemens-then-FSC :-) Manual
directory is expected to have mandb file where first word is manual page
and second word section (there are actually more). 1M is standard
section in SVR4 - so I thought I'd add it as well.

Attached because of line length.

-andrej

Have a nice DOS!
B >>

RE: PATCH: _man for Pyramid man system (attached - probably Q-P)

[Andrej Borsenkow]

[-- Attachment #1: Type: text/plain, Size: 80 bytes --]

> 
> Attached because of line length.
> 

Oops ... now really attached.

-andrej

[-- Attachment #2: man.patch --]
[-- Type: application/octet-stream, Size: 1127 bytes --]

--- Completion/User/_man	Thu Mar 23 07:19:30 2000
+++ /home/bor/.zsh.d/completion/_man	Wed Apr 12 16:57:14 2000
@@ -2,7 +2,7 @@
 
 setopt localoptions rcexpandparam
 
-local rep expl star approx
+local rep expl star approx mrd
 
 if [[ $compstate[pattern_match] != [^*] ]]; then
   # If a string other than *, we just want correction, so no `*'.
@@ -25,13 +25,18 @@
     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
 
-if [[ $words[2] = (<->*|l|n) ]]; then
+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|)}

PATCH: Oops! more stuff: _man for Pyramid man system (attached - probably Q-P)

[Andrej Borsenkow]

[-- Attachment #1: Type: text/plain, Size: 150 bytes --]

Sorry, forgot to compare strings in awk (section was not compared
properly). This is relative to current CVS

Attached for the same reasons.

-andrej

[-- Attachment #2: man.patch --]
[-- Type: application/octet-stream, Size: 568 bytes --]

--- Completion/User/_man	Wed Apr 12 19:46:14 2000
+++ /home/bor/.zsh.d/completion/_man	Wed Apr 12 19:14:12 2000
@@ -31,7 +31,7 @@
 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))
+  (($#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))