caused by extra blank line in table; e.g. at end
next if (/^\s*(<[<#]\d+[#>]>) at the start of a row
s/^\s*(${closures})\s*$content_mark/ COLSPAN=$cellcount$&/;
};
$colspec =~ s/$content_mark/$cell/ unless ($cell_done);
if ($headcell) {
$colspec =~ s/ ]+)?>\s*($content_mark)?(<\/\1>)/<$1$2>;SPMnbsp;$4/g;
$return . "\n";
}
### Define the multicolumn command
# Modifies the $colspec and $colspan variables of the tabular subroutine
sub do_cmd_multicolumn {
local($_) = @_;
local($dmy1,$dmy2,$dmy3,$dmy4,$spancols,$malign,$text);
$spancols = &missing_braces unless (
(s/$next_pair_pr_rx/$spancols=$2;''/eo)
||(s/$next_pair_rx/$spancols=$2;''/eo));
$colspan = 0+$spancols;
$colspec =~ /^<([A-Z]+)/;
local($celltag) = $1;
$malign = &missing_braces unless (
(s/$next_pair_pr_rx/$malign=$2;''/eo)
||(s/$next_pair_rx/$malign=$2;''/eo));
# catch cases where the \textwidth has been discarded
$malign =~s!^(\w)($OP\d+$CP)\s*(\d|\d*\.\d+)\2$!$1\{$3\\textwidth\}!;
($dmy1,$dmy2,$dmy3,$dmy4,$colspec) = &translate_colspec($malign, $celltag);
$text = &styled_text_chunk('SPAN','mcol','','','','', $_);
$text = &translate_commands($text) if ($text =~ /\\/);
$text;
}
sub do_cmd_multirow {
local($_) = @_;
local($dmy1,$dmy2,$dmy3,$dmy4,$spanrows,$pxs,$rwidth,$valign,$vspec,$text);
$spanrows = &missing_braces unless (
(s/$next_pair_pr_rx/$spanrows=$2;''/eo)
||(s/$next_pair_rx/$spanrows=$2;''/eo));
my $rowspan = 0+$spanrows;
# set the counter for this column to the number of rows covered
@row_spec[$i] = $rowspan;
$colspec =~ /^<([A-Z]+)/;
local($celltag) = $1;
# read the width, save it for later use
$rwidth = &missing_braces unless (
(s/$next_pair_pr_rx/$rwidth=$2;''/eo)
||(s/$next_pair_rx/$rwidth=$2;''/eo));
# catch cases where the \textwidth has been discarded
$rwidth =~s!^(\w)($OP\d+$CP)\s*(\d|\d*\.\d+)\2$!$1\{$3\\textwidth\}!;
($pxs,$rwidth) = &convert_length($rwidth);
$valign = &missing_braces unless (
(s/$next_pair_pr_rx/$valign=$2;''/eo)
||(s/$next_pair_rx/$valign=$2;''/eo));
$vspec = ' VALIGN="TOP"' if $valign;
if ($valign =~ /m/i) { $vspec =~ s/TOP/MIDDLE/ }
elsif ($valign =~ /b/i) { $vspec =~ s/TOP/BOTTOM/ }
$colspec =~ s/VALIGN="\w+"// if $vspec; # avoid duplicate tags
$colspec =~ s/>$content_mark/$vspec ROWSPAN=$rowspan WIDTH=$pxs$&/;
$text = &styled_text_chunk('SPAN','mrow','','','','', $_);
$text = &translate_commands($text) if ($text =~ /\\/);
$text;
}
## Mathematics environments
sub process_math_env {
local($mode,$_) = @_;
local($labels, $comment);
($_,$labels) = &extract_labels($_); # extract labels
$comment = &make_math_comment($_);
local($max_id) = ++$global{'max_id'};
if ($failed) { return($labels, $comment, $_) };
$_ = &simple_math_env($_);
if ($BOLD_MATH) {
($labels, $comment, join('','', $_, ''))
} else {
($labels, $comment, join('','', $_ ,''))
}
}
sub make_math_comment{
local($_) = @_;
local($scomm,$ecomm)=("\$","\$");
return() if ($inside_tabbing||(/$image_mark/));
do {
$scomm = "\\begin{$env}\n";
$ecomm = "\n\\end{$env}";
} unless ($env =~/tex2html/);
$_ = &revert_to_raw_tex;
s/^\s+//s; s/\s+$//sm;
$_ = $scomm . $_ . $ecomm;
return() if (length($_) < 16);
$global{'verbatim_counter'}++;
$verbatim{$global{'verbatim_counter'}} = $_;
&write_mydb('verbatim_counter', $global{'verbatim_counter'}, $_ );
join('', "\n", $verbatim_mark, '#math' , $global{'verbatim_counter'},'#')
}
sub do_env_math {
local($_) = @_;
local($math_mode, $failed, $labels, $comment, $img_params) = ("inline",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
$saved =~ s/^\s*(\$|\\\()?\s*/\$/;
$saved =~ s/\s*(\$|\\\))?\s*$/\$/;
($labels, $comment, $_) = &process_math_env($math_mode,$_);
$comment =~ s/^\n//; # remove the leading \n
if ($failed) {
$_ = join ('', $comment, $labels
, ''
, &process_undefined_environment("tex2html_wrap_inline", $id, $saved)
, '' );
} else { $_ = join('', $comment, $labels, $_ ) }
if ($border||($attributes)) {
&make_table( $border, $attribs, '', '', '', $_ )
} else { $_ }
}
sub do_env_tex2html_wrap {
local($_) = @_;
local($math_mode, $failed, $labels, $comment,$img_params) = ("inline",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
s/^\\\(//; s/\\\)$//;
($labels, $comment, $_) = &process_math_env($math_mode,$_);
$comment =~ s/^\n//; # remove the leading \n
if ($failed) {
$_ = join ('', $comment, $labels
, &process_undefined_environment("tex2html_wrap", $id, $saved));
} else { $_ = $comment . $labels ." ".$_; }
if ($border||($attribs)) {
&make_table( $border, $attribs, '', '', '', $_ )
} else { $_ }
}
sub do_env_tex2html_wrap_inline {
local($_) = @_;
local($math_mode, $failed, $labels, $comment) = ("inline",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
s/(^\s*(\$|\\\()\s*|\s*(\$|\\\))\s*$)//g; # remove the \$ signs or \(..\)
($labels, $comment, $_) = &process_math_env($math_mode,$_);
$comment =~ s/^\n//; # remove the leading \n
if ($failed) {
if ($USING_STYLES) {
$env_id =~ s/\"$/ image\"/;
$env_id = ' CLASS="MATH"' if ($env_id =~ /^\s*$/);
$_ = join ('', $labels, $comment, " \n";
sub do_env_equation {
local($_) = @_;
local($math_mode, $failed, $labels, $comment) = ("equation",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
local($sbig,$ebig,$falign) = ('','','CENTER');
($sbig,$ebig) = ('','')
if (($DISP_SCALE_FACTOR)&&($DISP_SCALE_FACTOR >= 1.2 ));
local($math_start,$math_end)= ($sbig,$ebig);
local($eqno);
local($seqno) = join('',"\n \n
local($halign) = " ALIGN=\"CENTER\"" unless $FLUSH_EQN;
local($lang) = &get_current_language();
if ($EQN_TAGS =~ /L/) {
# equation number on left
($math_start,$math_end) =
("\n
");
$border = $attribs = $env_id = '';
} else {
# equation number on right
($math_start,$math_end) =
("\n". $seqno . $eqno
. "\n "
. "
\n
");
} elsif ($failed) {
$falign = (($EQN_TAGS =~ /L/)? 'LEFT' : 'RIGHT') if ($eqno);
local($fclass) = $math_class;
$fclass =~ s/(ALIGN=\")[^"]*/$1$falign/;
join('',"
\n
")
} else {
join('', "
\n
");
}
}
sub do_env_displaymath {
local($_) = @_;
local($math_mode, $failed, $labels, $comment) = ("display",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
local($halign) = " ALIGN=\"CENTER\"" unless $FLUSH_EQN;
local($sbig,$ebig);
($sbig,$ebig) = ('','')
if (($DISP_SCALE_FACTOR)&&($DISP_SCALE_FACTOR >= 1.2 ));
($labels, $comment, $_) = &process_math_env($math_mode,$_);
if ($failed) {
$_ = &process_undefined_environment("displaymath", $id, $saved);
s/^[ \t]*\n?/\n/; s/\n?[ \t]*$/\n/;
$_ = (($comment.$labels)? "$comment$labels\n":''). $_;
} else {
s/^[ \t]*\n?/\n/; s/\n?[ \t]*$/\n/;
$_ = (($comment.$labels)? "$comment$labels\n":'').$sbig.$_.$ebig;
}
if ($border||($attribs)) {
join('',"
\n
");
} else {
join('',"
\n
\n");
}
}
### Multiline formulas
sub do_env_eqnarray {
local($_) = @_;
local($math_mode, $failed, $labels, $comment, $doimage) = ("equation",'','');
local($attribs, $border);
if (s/$htmlborder_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
elsif (s/$htmlborder_pr_rx//o) { $attribs = $2; $border = (($4)? "$4" : 1) }
local($saved) = $_;
local($sbig,$ebig,$falign) = ('','','CENTER');
($sbig,$ebig) = ('','')
if (($DISP_SCALE_FACTOR)&&($DISP_SCALE_FACTOR >= 1.2 ));
local($valign) = join('', ' VALIGN="',
($NETSCAPE_HTML)? "BASELINE" : "MIDDLE", '"');
$failed = 1; # simplifies the next call
($labels, $comment, $_) = &process_math_env($math_mode,$_);
$failed = 0 unless ($no_eqn_numbers);
if ((($failed)&&($NO_SIMPLE_MATH))
||(/$htmlimage_rx|$htmlimage_pr_rx/)) {
# ||((/$htmlimage_rx|$htmlimage_pr_rx/)&&($& =~/thumb/))) {
# image of whole environment, no equation-numbers
$failed = 1;
$falign = (($EQN_TAGS =~ /L/)? 'LEFT' : 'RIGHT')
unless $no_eqn_numbers;
$_ = join ('', $comment
, &process_undefined_environment(
"eqnarray".(($no_eqn_numbers) ? "star" : '')
, $id, $saved));
local($fclass) = $math_class;
$fclass =~ s/(ALIGN=\")[^"]*/$1$falign/;
$_ = join('',"
\n");
} else {
$failed = 0;
s/$htmlimage_rx/$doimage = $&;''/eo ; # force an image
s/$htmlimage_pr_rx/$doimage .= $&;''/eo ; # force an image
local($sarray, $srow, $slcell, $elcell, $srcell, $ercell, $erow, $earray);
($sarray, $elcell, $srcell, $erow, $earray, $sempty) = (
"\n"
, " \n"
, " ", "\n", "" );
$env_id = '';
$sarray .= (($no_eqn_numbers) ? ">" : " WIDTH=\"100%\">" );
local($seqno) = join('',"\n \n"
, " ")
, (($doimage)? '' : "\n
\n
");
} else {
join('', $_ ,"
");
}
}
sub do_env_eqnarraystar {
local($_) = @_;
local($math_mode, $failed, $labels, $comment) = ("equation",'','');
$failed = (/$htmlimage_rx|$htmlimage_pr_rx/); # force an image
local($attribs, $border);
local($saved) = $_;
local($sbig,$ebig);
($sbig,$ebig) = ('','')
if (($DISP_SCALE_FACTOR)&&($DISP_SCALE_FACTOR >= 1.2 ));
if (($NO_SIMPLE_MATH)||($failed)) {
local($no_eqn_numbers) = 1;
$_ = &do_env_eqnarray($_) unless ($failed);
if ($failed) {
if ($saved =~ s/$htmlborder_rx//o) {
$attribs = $2; $border = (($4)? "$4" : 1)
} elsif ($saved =~ s/$htmlborder_pr_rx//o) {
$attribs = $2; $border = (($4)? "$4" : 1)
}
$_ = join('', $labels
, &process_undefined_environment("eqnarray*", $id, $saved));
}
} else {
if (s/$htmlborder_rx//o) {
$attribs = $2; $border = (($4)? "$4" : 1)
} elsif (s/$htmlborder_pr_rx//o) {
$attribs = $2; $border = (($4)? "$4" : 1)
}
$saved = $_;
($labels, $comment, $_) = &process_math_env($math_mode,$_);
if ($failed) {
$_ = join('', $labels
, &process_undefined_environment("eqnarray*", $id, $saved));
}
}
if ($border||($attribs)) {
join('' #,"
\n
");
} elsif ($failed) {
$_ =~ s/^[ \t]*\n?/\n/;
$_ =~ s/\n?[ \t]*/\n/;
join('', "
\n
");
} elsif ($_ =~ s!()\s*(
\n");
} elsif ($_ =~ m!\s*$!si) { # below-display space present
$_
} else {
join('', $_ ,"
");
}
}
$raw_arg_cmds{tabular} = 1;
$raw_arg_cmds{tabularstar} = 1;
$raw_arg_cmds{longtable} = 1;
$raw_arg_cmds{longtablestar} = 1;
$raw_arg_cmds{supertabular} = 1;
$raw_arg_cmds{supertabularstar} = 1;
#RRM: this package is automatically supported for {tabular} extensions
# so suppress the warning message:
$styles_loaded{'array'} = 1;
&ignore_commands( <<_IGNORED_CMDS_);
extracolsep # {}
PreserveBackslash # {}
_IGNORED_CMDS_
&process_commands_wrap_deferred (<<_RAW_ARG_DEFERRED_CMDS_);
tablehead # {}
tabletail # {}
centerline # {}
leftline # {}
rightline # {}
_RAW_ARG_DEFERRED_CMDS_
1;