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
|
#!/usr/bin/perl
$inpart = 0;
$intoc = 0;
while (<>) {
if (/(<!DOCTYPE.*)\[(.*)/) {
print "$1 [$2\n" ; next}
if (/(.*)<part(.*)>(.*)/) {
$inpart = 1;
print "$1<!--<part$2>";
$_ = "$3\n";
redo;
}
if ($inpart and m{(.*)</title>(.*)}) {
$inpart = 0;
print "$1</title>-->";
$_ = "$2\n";
redo;
}
if (m{(.*)</part>(.*)}) {
$inpart = 1;
print "$1<!--</part>-->";
$_ = "$2\n";
redo;
}
if (/(.*)<toc>(.*)/) {
$intoc = 1;
print "$1<!--<toc>";
$_ = "$2\n";
redo;
}
if (m{(.*)</toc>(.*)}) {
$intoc = 0;
print "$1</toc>-->";
$_ = "$2\n";
redo;
}
# The hacks below are necessary because docbook2texixml does
# not know how to include system entities
if (m{(.*)<!ENTITY % ([^\s]+) SYSTEM "([^"]+)">(.*)}) {
$sysent{$2} = $3;
print "$1";
$_ = "$4\n";
redo;
}
if (m{(.*)%([^;]+);(.*)}) {
print "$1";
$tmp = "$3\n";
print `cat $sysent{$2}`;
$_ = $tmp;
redo
}
print;
}
|
