1 files changed, 115 insertions, 0 deletions
diff --git a/manual/libc-texinfo.sh b/manual/libc-texinfo.sh
new file mode 100644
index 0000000000..88733cb079
--- /dev/null
+++ b/manual/libc-texinfo.sh
@@ -0,0 +1,115 @@
+#! /bin/sh
+
+# Create libc.texinfo from the chapter files.
+
+grep '^@node.*Top' $1 | cut -d, -f-2 |
+    sed 's/, /:/; s/:@node /:/; s/ /_/g; s/:/ /g' >cnodes.$$
+
+$AWK '{ file[$2] = $1; nnode[$2] = $3 }
+END  { for(x in file)
+	if(file[x] != "")
+	    print file[x] ":" x, file[nnode[x]] ":" nnode[x] }' \
+    cnodes.$$ | tsort | sed 's/_/ /g; $d' >corder.$$
+
+[ -z "$2" ] || grep '^@node.*Top' `echo $2 /dev/null | tr ' ' '\n' | sort` |
+    cut -d, -f1 | sed 's/@node //' >xorder.$$
+
+grep '^@node.*Top' $3 | cut -d, -f-2 |
+    sed 's/, /:/; s/:@node /:/; s/ /_/g; s/:/ /g' >anodes.$$
+
+$AWK '{ file[$2] = $1; nnode[$2] = $3 }
+END  { for(x in file)
+	if(file[x] != "")
+	    print file[x] ":" x, file[nnode[x]] ":" nnode[x] }' \
+    anodes.$$ | tsort | sed 's/_/ /g; $d' >aorder.$$
+
+IFS=:
+
+>incl.$$
+>smenu.$$
+>lmenu.$$
+
+while read file node; do
+    echo "@include $file" >>incl.$$
+    echo "* $node:: `sed -n 's/^@c %MENU% //p' $file`" >>smenu.$$
+    lmenu=`sed -n '/^@menu/,/^@end menu/p; /^@end menu/q' $file |
+	sed '/^@menu/d; /^@end menu/d'`
+    [ -z "$lmenu" ] || (
+	echo; echo "$node"; echo
+	echo "$lmenu"
+    ) >>lmenu.$$
+done <corder.$$
+
+if [ -f xorder.$$ ]; then
+
+    (echo; echo 'Add-ons'; echo) >>smenu.$$
+
+    while read file node; do
+	echo "@include $file" >>incl.$$
+	echo "* $node:: `sed -n 's/^@c %MENU% //p' $file`" >>smenu.$$
+	lmenu=`sed -n '/^@menu/,/^@end menu/p; /^@end menu/q' $file |
+	    sed '/^@menu/d; /^@end menu/d'`
+	[ -z "$lmenu" ] || (
+	    echo; echo "$node"; echo
+	    echo "$lmenu"
+	) >>lmenu.$$
+    done <xorder.$$
+fi
+
+(echo; echo 'Appendices'; echo) >>smenu.$$
+
+while read file node; do
+    echo "@include $file" >>incl.$$
+    echo "* $node:: `sed -n 's/^@c %MENU% //p' $file`" >>smenu.$$
+    lmenu=`sed -n '/^@menu/,/^@end menu/p; /^@end menu/q' $file |
+	sed '/^@menu/d; /^@end menu/d'`
+    [ -z "$lmenu" ] || (
+	echo; echo "$node"; echo
+	echo "$lmenu"
+    ) >>lmenu.$$
+done <aorder.$$
+
+$AWK '
+BEGIN { FS=":" }
+
+/^\*/ {
+  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.$$ >smenux.$$
+
+mv -f incl.$$ chapters.texi
+
+(echo '@menu'
+ cat smenux.$$
+ cat <<EOF
+* Copying::                      The GNU Library 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 *.$$