Pipeline QUIT after data
[users/heiko/exim.git] / doc / doc-docbook / TidyInfo
1 #! /usr/bin/perl -w
2
3 # This is script to tidy up the Texinfo file that docbook2texi produces. We
4 # have to change "conceptindex" and "optionindex" to "cindex" and "findex", and
5 # we also have to add access to the index into the menus and a final node.
6
7 # Find the start of the first menu.
8
9 while (<>)
10   {
11   print;
12   last if /^\@menu/;
13   }
14
15 # Find the end of the first menu.
16
17 while (<>)
18   {
19   last if /^$/;
20   print;
21   }
22
23 # Insert a menu link to the index.
24
25 print "* Concept Index::\n\n";
26
27 # Find the final @bye line. En route, we look for the last chapter node, the
28 # one that has nothing following, and insert a pointer to an index node. Also,
29 # change the index names.
30
31 while (<>)
32   {
33   last if /^\@bye/;
34   if (/^\@node ([^,]+), , (.*)/)
35     {
36     my($save1) = $1;
37     my($save2) = $2;
38     my($saveline) = $_;
39     $_ = <>;
40     if (/^\@chapter/)
41       {
42       print "\@node $save1, Concept Index, $save2\n";
43       $previous = $save1;
44       }
45     else
46       {
47       print "$saveline";
48       }
49     print;
50     }
51   else
52     {
53     s/conceptindex/cindex/;
54     s/optionindex/findex/;
55     s/variableindex/findex/;
56     print;
57     }
58   }
59
60 # Insert the final index stuff at the end.
61
62 print "\@appendix\n";
63 print "\@node Concept Index, , $previous, Top\n";
64 print "\n\@printindex cp\n\n";
65
66 print;
67
68 # End