Include the static files within the HTML documentation dir
[exim.git] / doc / doc-docbook / Pre-xml
1 #! /usr/bin/perl
2
3 # Script to pre-process XML input before processing it for various purposes.
4 # Options specify which transformations are to be done. Monospaced literal
5 # layout blocks are never touched.
6
7 # Changes:
8
9 # -ascii: Replace ’ by '
10 # Replace © by (c)
11 # Replace † by *
12 # Replace ‡ by **
13 # Replace   by a space
14 # Replace – by -
15 # Put quotes round <quote> text
16 #
17 # -quoteliteral:
18 # Put quotes round <literal> text
19 #
20 # -bookinfo: Remove the <bookinfo> element from the file
21 #
22 # -fi: Replace "fi" by &#xFB01; except when it is in an XML element, or
23 # inside a <literal>.
24 #
25 # -html: Certain things are done only for HTML output:
26 #
27 # If <literallayout> is followed by optional space and then a
28 # newline, the space and newline are removed, because otherwise you
29 # get a blank line in the HTML output.
30 #
31 # -noindex Remove the XML that generates indexes.
32 # -oneindex Ditto, but add XML to generate a single index.
33 #
34 # -optbreak Insert an optional line break (zero-width space, &#x200B;) after
35 # every underscore in text within <option> and <variable> elements,
36 # except when preceded by <entry> (i.e. not in tables). The same is
37 # also done within a word of four or more upper-case letters (for
38 # compile-time options).
39
40
41
42 # The function that processes non-literal, non-monospaced text
43
44 sub process()
45 {
46 my($s) = $_[0];
47
48 $s =~ s/fi(?![^<>]*>)/&#xFB01;/g if $ligatures;
49
50 if ($optbreak)
51 {
52 $s =~ s%(?<!<entry>)(<option>|<varname>)([^<]+)%
53 my($x,$y) = ($1,$2); $y =~ s/_/_&#x200B;/g; "$x"."$y"%gex;
54
55 $s =~ s?\b([A-Z_]{4,})\b?
56 my($x) = $1; $x =~ s/_/_&#x200B;/g; "$x"?gex;
57 }
58
59 if ($ascii)
60 {
61 $s =~ s/&#x2019;/'/g;
62 $s =~ s/&copy;/(c)/g;
63 $s =~ s/&dagger;/*/g;
64 $s =~ s/&Dagger;/**/g;
65 $s =~ s/&nsbp;/ /g;
66 $s =~ s/&ndash;/-/g;
67 $s =~ s/<quote>/"/g;
68 $s =~ s/<\/quote>/"/g;
69 }
70
71 $s;
72 }
73
74
75 # The main program
76
77 $ascii = 0;
78 $bookinfo = 0;
79 $html = 0;
80 $inliteral = 0;
81 $inliterallayout = 0;
82 $ligatures = 0;
83 $madeindex = 0;
84 $noindex = 0;
85 $oneindex = 0;
86 $optbreak = 0;
87 $quoteliteral = 0;
88
89 foreach $arg (@ARGV)
90 {
91 if ($arg eq "-fi") { $ligatures = 1; }
92 elsif ($arg eq "-ascii") { $ascii = 1; }
93 elsif ($arg eq "-bookinfo") { $bookinfo = 1; }
94 elsif ($arg eq "-html") { $html = 1; }
95 elsif ($arg eq "-noindex") { $noindex = 1; }
96 elsif ($arg eq "-oneindex") { $oneindex = 1; }
97 elsif ($arg eq "-optbreak") { $optbreak = 1; }
98 elsif ($arg eq "-quoteliteral") { $quoteliteral = 1; }
99 else { die "** Pre-xml: Unknown option \"$arg\"\n"; }
100 }
101
102 while (<STDIN>)
103 {
104 # Remove <bookinfo> if required
105
106 if ($bookinfo && /^<bookinfo/)
107 {
108 while (<STDIN>) { last if /^<\/bookinfo/; }
109 next;
110 }
111
112 # Copy monospaced literallayout blocks
113
114 if (/^<literallayout class="monospaced">/)
115 {
116 $_ = substr($_, 0, -1) if $html;
117 print;
118 while (<STDIN>)
119 {
120 print;
121 last if /^<\/literallayout>/;
122 }
123 next;
124 }
125
126 # Adjust index-generation code if required
127
128 if (($noindex || $oneindex) && /^<index[\s>]/)
129 {
130 while (<STDIN>)
131 {
132 last if /^<\/index>/;
133 }
134
135 if ($oneindex && !$madeindex)
136 {
137 $madeindex = 1;
138 print "<index><title>Index</title></index>\n";
139 }
140
141 next;
142 }
143
144 # A line that is not in a monospaced literal block; keep track of which
145 # parts are in <literal> and which not. The latter get processed by the
146 # function above. Items in <literal> get quoted unless they are also in
147 # a <literallayout> block, or are already being quoted.
148
149 for (;;)
150 {
151 $_ = substr($_, 0, -1) if $html && /^<literallayout[^>]*>\s*\n$/;
152 $inliterallayout = 1 if /^<literallayout/;
153 $inliterallayout = 0 if /^<\/literallayout/;
154
155 if ($inliteral)
156 {
157 if (/^(.*?)<\/literal>(?!<\/quote>)(.*)$/)
158 {
159 print $1;
160 print "\"" if $quoteliteral && !$inliterallayout;
161 print "</literal>";
162 $inliteral = 0;
163 $_ = "$2\n";
164 }
165 else
166 {
167 print;
168 last;
169 }
170 }
171
172 # Not in literal state
173
174 else
175 {
176 if (/^(.*?)(?<!<quote>)<literal>(.*)$/)
177 {
178 print &process($1);
179 print "<literal>";
180 print "\"" if $quoteliteral && !$inliterallayout;
181 $inliteral = 1;
182 $_ = "$2\n";
183 }
184 else
185 {
186 print &process($_);
187 last;
188 }
189 }
190 } # Loop for different parts of one line
191 } # Loop for multiple lines
192
193 # End