blob: 1d50a0535b261214bae8a67b3e0c13754e668968 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
MANDIR=/usr/man
TMPDIR=/usr/man/tmp
TOOLS=$MANDIR/tools
trap "rm $TMPDIR/tmp.$$ ; exit" 2 3 15
P=108
p=""
if test "$1" = "-p"
then
P=65
p=-p
shift
fi
if test $# -eq 0
then
echo "tocrc: no argument"
exit
fi
if test $# -eq 2
then
: create toc input file for one section only
> $TMPDIR/tocx$1
for file in $MANDIR/man$1/*.$1*
do
if test ! -s $file
then
continue
fi
so=`line < $file | sed "s/ .*//"`
if test "$so" = ".so"
then
continue
fi
ed - $file > $TMPDIR/tmp.$$ <<!
H
/^\.TH/p
q
!
loc=`cat $TMPDIR/tmp.$$ | sed "s/.*local.*/local/"`
if test "$loc" = "local"
then
continue
fi
name=`basename $file`
name=`echo $name | sed "s/\.\(.\{1,2\}\)\$/(\1)/"`
ed - $file > $TMPDIR/tmp.$$ <<!
/^.SH NAME/+p
q
!
desc=`line < $TMPDIR/tmp.$$`
desc=`echo $desc | sed -e "s/.s-1//g" -e "s/.s0//g" -e "s/.s+1//g" -e "s/ .- /: /" -e "s/^/$name /" -e "s/$/./"`
if test -n "$desc"
then
echo $desc >> $TMPDIR/tocx$1
fi
rm -f $TMPDIR/tmp.$$
done
else case $1 in
all )
: tocx files for all sections and everything else
for x in 1 2 3 4 5 6 7 8
do
$0 $p $x $x
done
$0 $p t
;;
t )
: permuted index and toc files
if test ! -f $TMPDIR/tocx1
then
echo "tocrc: some tocx? files missing"
exit
fi
cat $TMPDIR/tocx? > $TMPDIR/cattoc
ed - $TMPDIR/cattoc <<!
H
g/(1c)/s//(1C)/
g/(1m)/s//(1M)/
g/(1g)/s//(1G)/
g/(3c)/s//(3C)/
g/(3m)/s//(3M)/
g/(3s)/s//(3S)/
g/(3x)/s//(3X)/
g/"\."/d
w
q
!
ptx -r -t -b $TOOLS/break -f -w $P -i $TOOLS/ignore $TMPDIR/cattoc $MANDIR/man0/ptxx
for x in 1 2 3 4 5 6 7 8
do
ed - $TMPDIR/tocx$x << !
H
/^intro/m0
1,\$s/ .*://
1,\$s/.$//
1,\$s/([1-8][a-z]\{0,1\}) /" "/
1,\$s/.*/.xx "&"/
g/""/d
w $MANDIR/man0/toc$x
q
!
done
;;
* )
$0 $p $1 $1
;;
esac
fi
|
