: ) {
vec($orig_inh, $i, 1) = $true; # inhibit further processing
$inh = $true;
} elsif ($line =~ s:\\end{verbatim}:: ) {
vec($orig_inh, $i, 1) = $true; # inhibit further processing
$inh = $false; # allow processing on next line
} elsif ($inh == $false && $line =~ s:^([ \t]*%.*):: ) {
if (! lookup("keep_comments") ) {
$line = "";
}
vec($orig_inh, $i, 1) = $true; # inhibit further processing
} elsif ($inh == $false && $line =~ /^\\end{document}/ ) {
$#$arr = $i;
fyi(8, "Truncating down to $i lines");
last;
}
$arr->[$i] = $line;
}
}
# handle nested braces/parens/brackets.
# convert { ==> {:level: level starts at 0
#
# E.g. a{b{c}d{e{f}}g} ==> a{:0:b{:1:c:1}d{:1:e{:2:f:2:}:1:}g:0:}
#
sub mark_braces_one_line {
my($ldelim, $rdelim, $line) = @_;
my($newline, $level) = ("", 0);
my($lookfor) = ($ldelim eq $rdelim) ? "[$ldelim]" : "[$ldelim$rdelim]";
while ( $line =~ /(.*[^\\])($lookfor)(.*)/) {
my($prev, $del, $after) = ($1, $2, $3);
my($repl);
if ($del eq $ldelim) {
$repl = "$del:$level:";
$level++;
} elsif ($del eq $rdelim) {
$repl = ":$level:$del";
$level--;
}
$newline .= "$prev$repl";
$line = $after;
}
return $newline;
}
# handle nested braces/parens/brackets.
# convert "{" ==> " {:level " where level starts at 0
#
# E.g. a{b{c}d{e{f}}g}h ==> a {:0 b {:1 c 1:} d {:1 e {:2 f 2:} 1:} g 0:} h
#
sub mark_braces_one_line {
my($ldelim, $rdelim, $origline) = @_;
my($newline, $level, $line) = ("", 0, $origline);
my($lookfor) = ($ldelim eq $rdelim) ? "[$ldelim]" : "[$ldelim$rdelim]";
my($prev, $del, $after); # need after to survive the loop.
$line =~ s/\@/ \@AT\@_/g;
$line =~ s/\\\\/ \@2BS\@_/g;
my($qldel) = quotemeta($ldelim);
$line =~ s/\\$qldel/ \@L\@_/g;
my($qrdel) = quotemeta($rdelim);
$line =~ s/\\$qrdel/ \@R\@_/g;
# need ".../s" in the following while() to preserve newlines. Ugh.
while ( $line =~ /(.*?)($lookfor)(.*)/s) {
($prev, $del, $after) = ($1, $2, $3);
fyi(9,"mark_braces_one_line:prev=($prev),del=($del),after=($after)\n");
my($repl);
if ($del eq $ldelim) {
$repl = " $del:$level ";
$level++;
} elsif ($del eq $rdelim) {
$level--;
$repl = " $level:$del ";
}
$newline .= "$prev$repl";
$line = $after;
}
$newline .= $after;
$newline =~ s/ \@R\@_/\\$qrdel/g;
$newline =~ s/ \@L\@_/\\$qldel/g;
$newline =~ s/ \@2BS\@_/\\\\/g;
$newline =~ s/ \@AT\@_/\@/g;
return $newline;
}
$talign{"l"} = "left";
$talign{"r"} = "right";
$talign{"c"} = "center";
$talign{"p"} = "left";
$talign{"X"} = "left";
sub do_tables {
my($arr) = @_;
my($arrlen) = scalar(@$arr);
my($tlev, $endrow, $colnum) = (0, undef, 0);
my(@cols) = ();
for ($i=0; $i < $arrlen; $i++) {
my($origline) = $arr->[$i];
my($line) = $origline; #
fyi(9, "Tables orig-line $i: $origline");
if ($origline =~ /\\begin\{[A-Za-z]*tabular[A-Za-z]*\}/) {
$line =~ s/(\\\\)? \s* \\[ch]line.*//x;
$line = mark_braces_one_line("{", "}", $line);
fyi(9, "Tables delim-line $i: $line");
$line =~ s/ \{:1 .*? 1:\} //g; # remove nested brace stuff
$line =~ s/ \{:0 /\{/g;
$line =~ s/ 0:\} /\}/g;
fyi(9, "Tables squashed-line $i: $line");
my(@fragments) = split(/[{}]+\s*/,$line);
my($aligns) = $fragments[$#fragments];
my($tabletag);
if ( $aligns =~ /[|]/) {
$tabletag = "$line"; } $lastline = $line; $arr->[$i] = $line; } } # # start executing at main() # main();