blob: ce30692cf2a547d3e139f864018c07a835590d6e (
plain)
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
|
#!/usr/bin/perl -pi
# Too many \color directives (generated by DIFdel/addbegin/end)
# confuse xetex, producing errors:
# WARNING ** Color stack overflow. Just ignore.
# and resulting in corrupted color in output.
# As a work-around, detect cases where it's safe, and replace \color with
# \textcolor.
# As a result, number of \color directives goes does sufficiently
# enough to avoid the overflow error.
s/\\DIFdelbegin \\DIFdel{([^}]*)}\\DIFdelend/\\DIFdeltext{$1}/;
s/\\DIFaddbegin \\DIFadd{([^}]*)}\\DIFaddend/\\DIFaddtext{$1}/;
# external \color does not seem to apply to footnotes.
# detect and replace with \color within footnotes
if (m/\\DIFaddbegin/) {
$diffadd=1;
}
if (m/\\DIFaddend/) {
$diffadd=0;
}
if (m/\\DIFdelbegin/) {
$diffdel=1;
}
if (m/\\DIFdelend/) {
$diffdel=0;
}
if ($diffadd) {
s/(\\footnote\s*{)/$1\\DIFaddbegin{}/;
}
if ($diffdel) {
s/(\\footnote\s*{)/$1\\DIFdelbegin{}/;
}
|
