summaryrefslogtreecommitdiff
path: root/fixupdiff.pl
diff options
context:
space:
mode:
Diffstat (limited to 'fixupdiff.pl')
-rw-r--r--fixupdiff.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/fixupdiff.pl b/fixupdiff.pl
index 94c5112..e557e2b 100644
--- a/fixupdiff.pl
+++ b/fixupdiff.pl
@@ -1,14 +1,18 @@
my $bufferdiff="";
my $diff="";
my $buffer="";
-my $lstlisting=0;
while (<>) {
my $line = $_;
if (m/%DIFDELCMD\s+<\s+\\begin{lstlisting}/) {
$lstlisting=1;
+ $line =~s/%DIFDELCMD\s+</{\\lstset{escapechar=\\\$} /;
}
if ($lstlisting) {
- $line =~ s/%DIFDELCMD\s+<\s+//;
+ $line =~ s/%DIFDELCMD\s+< //;
+ if (not $line =~ m/\\(?:begin|end){lstlisting}/) {
+ $line =~ s/([#&{} ])/\\$1/g;
+ $line =~ s/(.*)/\$\\DIFdel{$1}\$/;
+ }
#print "%FIXED BY RULE 1\n";
}
#In section headings, replace begin/end with begin/endFL,
@@ -67,6 +71,7 @@ while (<>) {
}
print $line;
if (m/%DIFDELCMD\s+<\s+\\end{lstlisting}/) {
+ print "}\n";
$lstlisting=0;
}
}