| 1 | # Written from scratch by Tom Tromey (tromey@cns.caltech.edu)
|
|---|
| 2 | #
|
|---|
| 3 | # manpage -- find and print a manual page.
|
|---|
| 4 | # usage: manpage section name [printing]
|
|---|
| 5 | #
|
|---|
| 6 | function manpage ()
|
|---|
| 7 | {
|
|---|
| 8 | local i h cmd zot sec
|
|---|
| 9 | local num="$1"
|
|---|
| 10 | local page="$2"
|
|---|
| 11 | local printing="$3"
|
|---|
| 12 | local mp
|
|---|
| 13 |
|
|---|
| 14 | mp="${MANPATH:-/usr/man}"
|
|---|
| 15 | if [ "$#" -lt 2 ]; then return 1; fi # should print usage
|
|---|
| 16 | if [ "$num" != "" ]; then
|
|---|
| 17 | sec="${num%%[a-zA-Z]*}"
|
|---|
| 18 | else
|
|---|
| 19 | sec='[168234571lnpo]'
|
|---|
| 20 | num="$sec"
|
|---|
| 21 | fi
|
|---|
| 22 | for i in $(echo "$mp" | tr : ' '); do
|
|---|
| 23 | if [ ! -d "$i" ]; then continue; fi
|
|---|
| 24 | file="$i"/man"$sec"/"$page"."$num"*
|
|---|
| 25 | set $file
|
|---|
| 26 | file="$1"
|
|---|
| 27 | if [ -f "$file" ]; then
|
|---|
| 28 | zot=$(sed 1q "$file")
|
|---|
| 29 | cmd=${MANROFF:-"nroff -man - | col | cat -s"}
|
|---|
| 30 | h=${zot##"'"'\"'}
|
|---|
| 31 | if [ "$h" != "$zot" ]; then
|
|---|
| 32 | while [ "$h" != "" ]; do
|
|---|
| 33 | case "$h" in
|
|---|
| 34 | *e) cmd="${MANEQN:-neqn} | $cmd";;
|
|---|
| 35 | *r) cmd="refer | $cmd";;
|
|---|
| 36 | *t) cmd="tbl | $cmd";;
|
|---|
| 37 | *v) cmd="vgrind | $cmd";;
|
|---|
| 38 | *) ;; # should print error
|
|---|
| 39 | esac
|
|---|
| 40 | h=${h%?}
|
|---|
| 41 | done
|
|---|
| 42 | fi
|
|---|
| 43 | if [ "$printing" != "" ]; then
|
|---|
| 44 | (cd "$i"; eval "$cmd") < "$file" | ${PAGER:-more}
|
|---|
| 45 | else
|
|---|
| 46 | (cd "$i"; eval "$cmd") < "$file" > /tmp/manpage-$$
|
|---|
| 47 | ${PAGER:-more} /tmp/manpage-$$
|
|---|
| 48 | rm -f /tmp/manpage-$$
|
|---|
| 49 | fi
|
|---|
| 50 | break
|
|---|
| 51 | fi
|
|---|
| 52 | done
|
|---|
| 53 | }
|
|---|
| 54 |
|
|---|
| 55 | function whatis_internal ()
|
|---|
| 56 | {
|
|---|
| 57 | local j
|
|---|
| 58 | for j in $(echo "$MANPATH" | tr : ' '); do
|
|---|
| 59 | if [ -f "$j/whatis" ]; then
|
|---|
| 60 | eval $2 -i -e "$1" $j/whatis
|
|---|
| 61 | fi
|
|---|
| 62 | done
|
|---|
| 63 | }
|
|---|
| 64 |
|
|---|
| 65 | function whatis ()
|
|---|
| 66 | {
|
|---|
| 67 | local name=$(basename "$1")
|
|---|
| 68 | whatis_internal "$name" "grep -w"
|
|---|
| 69 | }
|
|---|
| 70 |
|
|---|
| 71 | function apropos ()
|
|---|
| 72 | {
|
|---|
| 73 | whatis_internal "$1" "grep -F"
|
|---|
| 74 | }
|
|---|
| 75 |
|
|---|
| 76 | # Note: "-" and "-t" together not supported. This man could be
|
|---|
| 77 | # made a lot better, but it does everything I want.
|
|---|
| 78 | function man ()
|
|---|
| 79 | {
|
|---|
| 80 | local PAGER printing mpath MANROFF num
|
|---|
| 81 | mpath="${MANPATH:-/usr/man}"
|
|---|
| 82 | while true; do
|
|---|
| 83 | case "$1" in
|
|---|
| 84 | -) PAGER=cat
|
|---|
| 85 | printing= ;;
|
|---|
| 86 | -t)
|
|---|
| 87 | MANROFF=${TROFF:-"ptroff -man -t"}
|
|---|
| 88 | PAGER="${TCAT:-lpr}"
|
|---|
| 89 | printing=yes ;;
|
|---|
| 90 | -M)
|
|---|
| 91 | mpath="$2"
|
|---|
| 92 | shift;;
|
|---|
| 93 | *) break;;
|
|---|
| 94 | esac
|
|---|
| 95 | shift
|
|---|
| 96 | done
|
|---|
| 97 | local MANPATH="$mpath"
|
|---|
| 98 | case "$1" in
|
|---|
| 99 | -f | -k)
|
|---|
| 100 | local g a
|
|---|
| 101 | if [ "$1" = "-f" ]; then
|
|---|
| 102 | g="grep -w"
|
|---|
| 103 | a=$(basename "$2")
|
|---|
| 104 | else
|
|---|
| 105 | g="grep -F"
|
|---|
| 106 | a="$2"
|
|---|
| 107 | fi
|
|---|
| 108 | whatis_internal "$a" "$g"
|
|---|
| 109 | ;;
|
|---|
| 110 | [0-9npol] | [0-9][a-z]* | new | public | old | local)
|
|---|
| 111 | if [ "$1" = "new" ]; then
|
|---|
| 112 | num=n
|
|---|
| 113 | elif [ "$1" = "public" ]; then
|
|---|
| 114 | num=p
|
|---|
| 115 | elif [ "$1" = "old" ]; then
|
|---|
| 116 | num=o
|
|---|
| 117 | elif [ "$1" = "local" ]; then
|
|---|
| 118 | num=l
|
|---|
| 119 | else
|
|---|
| 120 | num="$1"
|
|---|
| 121 | fi
|
|---|
| 122 | shift
|
|---|
| 123 | manpage "$num" "$1" "$printing"
|
|---|
| 124 | ;;
|
|---|
| 125 | *)
|
|---|
| 126 | manpage "$num" "$1" "$printing"
|
|---|
| 127 | ;;
|
|---|
| 128 | esac
|
|---|
| 129 | }
|
|---|
