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
|
#! /bin/sh
# Create libc.texinfo from the chapter files.
trap "rm -f *.$$; exit 1" 1 2 15
exec 3>incl.$$ 4>smenu.$$ 5>lmenu.$$
build_menu () {
while IFS=: read file node; do
echo "@include $file" >&3
echo "* $node:: `sed -n 's/^@c %MENU% //p' $file`" >&4
$AWK 'BEGIN { do_menu = 0 }
/^@node / { sub(/^@node /, ""); sub(/,.*$/, ""); node = $0 }
/^@menu/ { printf "\n%s\n\n", node; do_menu = 1; next }
/^@end menu/ { do_menu = 0 }
do_menu { print }' $file >&5
done
}
collect_nodes () {
egrep '^(@c )?@node.*Top' "$@" /dev/null | cut -d, -f-2 |
sed 's/@c //; s/, /:/; s/:@node /:/; s/ /_/g; s/:/ /g' |
$AWK '{ file[$2] = $1; nnode[$2] = $3 }
END { for (x in file)
if (file[x] != "")
print file[x] ":" x, file[nnode[x]] ":" nnode[x] }' |
$AWK -f tsort.awk | sed 's/_/ /g'
}
collect_nodes $1 | build_menu
if [ -n "$2" ]; then
{ echo; echo 'Add-ons'; echo; } >&4
egrep '^(@c )?@node.*Top' `echo $2 /dev/null | tr ' ' '\n' | sort` |
cut -d, -f1 | sed 's/@c //;s/@node //' | build_menu
fi
{ echo; echo 'Appendices'; echo; } >&4
collect_nodes $3 | build_menu
exec 3>&- 4>&- 5>&-
mv -f incl.$$ chapters.texi
{
echo '@menu'
$AWK -F: '
/^\*/ {
printf("%-32s", $1 "::");
x = split($3, word, " ");
hpos = 34;
for (i = 1; i <= x; i++) {
hpos += length(word[i]) + 1;
if (hpos > 78) {
printf("\n%34s", "");
hpos = 35 + length(word[i]);
}
printf(" %s", word[i]);
}
print ".";
}
!/^\*/ { print; }
' smenu.$$
cat <<EOF
* Copying:: The GNU Lesser General Public License says
how you can copy and share the GNU C Library.
Indices
* Concept Index:: Index of concepts and names.
* Type Index:: Index of types and type qualifiers.
* Function Index:: Index of functions and function-like macros.
* Variable Index:: Index of variables and variable-like macros.
* File Index:: Index of programs and files.
--- The Detailed Node Listing ---
EOF
cat lmenu.$$
echo '@end menu'; } >top-menu.texi.$$
mv -f top-menu.texi.$$ top-menu.texi
rm -f *.$$
|
