" : "")
# if ($current_depth <= $MAX_SPLIT_DEPTH + $MAX_LINK_DEPTH);
if ($current_depth <= $TOC_DEPTH);
}
# include $BODYTEXT in the section_info, when starting a new page
$section_info{join(' ',@curr_sec_id)} =
"$current_depth$delim$CURRENT_FILE$delim$TITLE$delim"
. (($current_depth < $MAX_SPLIT_DEPTH)? $BODYTEXT: "");
# Get type of section (see also the split above)
$curr_sec = $sections[$i+1].$sections[$i+2];
$del = $sections[$i+4];
# Get the depth of the current section;
# $curr_sec = $outermost_level unless $curr_sec;
$current_depth = $section_commands{$curr_sec};
if ($after_segment) {
$current_depth = $after_segment;
$curr_sec_id[$after_segment] += $after_seg_num;
($after_segment,$after_seg_num) = ('','');
for($j=1+$current_depth; $j <= $#curr_sec_id; $j++) {
$curr_sec_id[$j] = 0;
}
}
if ($SEGMENT||$SEGMENTED) {
for($j=1; $j <= $#curr_sec_id; $j++) {
$curr_sec_id[$j] += $segment_sec_id[$j];
$segment_sec_id[$j] = 0;
}
};
# this may alter the section-keys
$multiple_toc = 1 if ($MULTIPLE_FILES && $ROOTED && (/$toc_mark/));
#RRM : Should this be done here, or in \stepcounter ?
@curr_sec_id = &new_level($current_depth, @curr_sec_id);
$toc_sec_title = $TITLE = $top_sec = '';
$i+=5; #skip to next text section
}
$open_tags_R = [];
$open_all = '';
$_ = undef;
$_ = &make_footnotes if ($footnotes);
$CURRENT_FILE = '';
print OUTPUT;
close OUTPUT;
# # this may alter the section-keys
# &adjust_root_keys if $multiple_toc;
if ($PREPROCESS_IMAGES) { &preprocess_images }
else { &make_image_file }
print STDOUT "\n *** making images ***" if ($VERBOSITY > 1);
print L2HLOG "\n *** making images ***" if ($VERBOSITY > 1);
&make_images;
# Link sections, add head/body/address do cross-refs etc
print STDOUT "\n *** post-process ***" if ($VERBOSITY > 1);
print L2HLOG "\n *** post-process ***" if ($VERBOSITY > 1);
&post_process;
if (defined &document_post_post_process) {
#BRM: extra document-wide post-processing
print STDOUT "\n *** post-processing Document ***" if ($VERBOSITY > 1);
print L2HLOG "\n *** post-processing Document ***" if ($VERBOSITY > 1);
&document_post_post_process();
}
print STDOUT "\n *** post-processed ***" if ($VERBOSITY > 1);
print L2HLOG "\n *** post-processed ***" if ($VERBOSITY > 1);
©_icons if $LOCAL_ICONS;
if ($SEGMENT || $DEBUG || $SEGMENTED) {
&save_captions_in_file("figure", $figure_captions) if $figure_captions;
&save_captions_in_file("table", $table_captions) if $table_captions;
# &save_array_in_file ("captions", "figure_captions", 0, %figure_captions) if %figure_captions;
# &save_array_in_file ("captions", "table_captions", 0, %table_captions) if %table_captions;
&save_array_in_file ("index", "index", 0, %index);
&save_array_in_file ("sections", "section_info", 0, %section_info);
&save_array_in_file ("contents", "toc_section_info", 0,%toc_section_info);
&save_array_in_file ("index", "sub_index", 1, %sub_index) if %sub_index;
&save_array_in_file ("index", "index_labels", 1, %index_labels) if %index_labels;
&save_array_in_file ("index", "index_segment", 1, %index_segment) if %index_segment;
&save_array_in_file ("index", "printable_key", 1, %printable_key)
if (%printable_key || %index_segment);
}
elsif ($MULTIPLE_FILES && $ROOTED) {
&save_array_in_file ("sections", "section_info", 0, %section_info);
&save_array_in_file ("contents", "toc_section_info", 0, %toc_section_info);
}
&save_array_in_file ("internals", "ref_files", 0, %ref_files) if $changed;
&save_array_in_file ("labels", "external_labels", 0, %ref_files);
&save_array_in_file ("labels", "external_latex_labels", 1, %latex_labels);
&save_array_in_file ("images", "cached_env_img", 0, %cached_env_img);
}
# RRM:
sub translate_preamble {
local($_) = @_;
$PREAMBLE = 1;
$NESTING_LEVEL=0; #counter for TeX group nesting level
# remove some artificially inserted constructions
s/\n${tex2html_deferred_rx}\\par\s*${tex2html_deferred_rx2}\n/\n/gm;
s/\\newedcommand(<<\d+>>)([A-Za-z]+|[^A-Za-z])\1(\[\d+\])?(\[[^]]*\])?(<<\d+>>)[\w\W\n]*\5($comment_mark\d*)?//gm;
s/\n{2,}/\n/ogm;
if (/\\htmlhead/) {
print STDOUT "\nPREAMBLE: discarding...\n$`" if ($VERBOSITY > 4);
print L2HLOG "\nPREAMBLE: discarding...\n$`" if ($VERBOSITY > 4);
local($after) = $&.$';
# translate segment preamble preceding \htmlhead
&translate_commands(&translate_environments($`));
# translate \htmlhead and rest of preamble
$_=&translate_commands(&translate_environments($after));
print STDOUT "\nPREAMBLE: retaining...\n$_" if ($VERBOSITY > 4);
print L2HLOG "\nPREAMBLE: retaining...\n$_" if ($VERBOSITY > 4);
} else {
# translate only preamble here (metacommands etc.)
# there should be no textual results, if so, discard them
&translate_commands(&translate_environments($_));
print STDOUT "\nPREAMBLE: discarding...\n$_" if ($VERBOSITY > 4);
print L2HLOG "\nPREAMBLE: discarding...\n$_" if ($VERBOSITY > 4);
$_="";
};
$_ = &do_AtBeginDocument($_);
if (! $SEGMENT) { $_ = ''} # segmented documents have a heading already
$_;
}
############################ Processing Environments ##########################
sub wrap_shorthand_environments {
# This wraps a dummy environment around environments that do not use
# the begin-end convention. The wrapper will force them to be
# evaluated by Latex rather than them being translated.
# Wrap a dummy environment around matching TMPs.
# s/^\$\$|([^\\])\$\$/{$1.&next_wrapper('tex2html_double_dollar')}/ge;
# Wrap a dummy environment around matching $s.
# s/^\$|([^\\])\$/{$1.&next_wrapper('$')}/ge;
# s/tex2html_double_dollar/\$\$/go;
# Do \(s and \[s
#
local($wrapper) = "tex2html_wrap_inline"; # \ensuremath wrapper
print STDOUT "\n *** wrapping environments ***\n" if ($VERBOSITY > 3);
print L2HLOG "\n *** wrapping environments ***\n" if ($VERBOSITY > 3);
# MRO: replaced $* with /m
print STDOUT "\\(" if ($VERBOSITY > 3);
print L2HLOG "\\(" if ($VERBOSITY > 3);
s/(^\\[(])|([^\\])(\\[(])/{$2.&make_any_wrapper(1,'',$wrapper).$1.$3}/geom;
print STDOUT "\\)" if ($VERBOSITY > 3);
print L2HLOG "\\)" if ($VERBOSITY > 3);
s/(^\\[)]|[^\\]\\[)])/{$1.&make_any_wrapper(0,'',$wrapper)}/geom;
print STDOUT "\\[" if ($VERBOSITY > 3);
print L2HLOG "\\[" if ($VERBOSITY > 3);
s/(^\\[[])|([^\\])(\\[[])/{$2.&make_any_wrapper(1,1,"displaymath")}/geom;
print STDOUT "\\]" if ($VERBOSITY > 3);
print L2HLOG "\\]" if ($VERBOSITY > 3);
s/(^\\[\]])|([^\\])(\\[\]])/{$2.&make_any_wrapper(0,1,"displaymath")}/geom;
print STDOUT "\$" if ($VERBOSITY > 3);
print L2HLOG "\$" if ($VERBOSITY > 3);
s/$enspair/print "\$";
{&make_any_wrapper(1,'',$wrapper).$&.&make_any_wrapper(0,'',$wrapper)}/geom;
$double_dol_rx = '(^|[^\\\\])\\$\\$';
$single_dol_rx = '(^|[^\\\\])\\$';
print STDOUT "\$" if ($VERBOSITY > 3);
print L2HLOG "\$" if ($VERBOSITY > 3);
local($dollars_remain) = 0;
$_ = &wrap_math_environment;
$_ = &wrap_raw_arg_cmds;
}
sub wrap_math_environment {
# This wraps math-type environments
# The trick here is that the opening brace is the same as the close,
# but they *can* still nest, in cases like this:
#
# $ outer stuff ... \hbox{ ... $ inner stuff $ ... } ... $
#
# Note that the inner pair of $'s is nested within a group. So, to
# handle these cases correctly, we need to make sure that the outer
# brace-level is the same as the inner. --- rst
#tex2html_wrap
# And yet another problem: there is a scungy local idiom to do
# this: $\_$ for a boldfaced underscore. xmosaic can't display the
# resulting itty-bitty bitmap, for some reason; even if it could, it
# would probably come out as an overbar because of the floating-
# baseline problem. So, we have to special case this. --- rst again.
local ($processed_text, @processed_text, $before, $end_rx, $delim, $ifclosed);
local ($underscore_match_rx) = "^\\s*\\\\\\_\\s*\\\$";
local ($wrapper);
print STDOUT "\nwrap math:" if ($VERBOSITY > 3);
print L2HLOG "\nwrap math:" if ($VERBOSITY > 3);
#find braced dollars, in tabular-specs
while (/((($O|$OP)\d+($C|$CP))\s*)\$(\s*\2)/) {
push (@processed_text, $`, $1.$dol_mark.$5);
$_ = $';
}
$_ = join('',@processed_text, $_) if (@processed_text);
undef @processed_text;
$dollars_remain = 0;
while (/$single_dol_rx/) {
$processed_text .= $`.$1;
$_ = $';
$wrapper = "tex2html_wrap_inline";
$end_rx = $single_dol_rx; # Default, unless we begin with $$.
$delim = "\$";
if (/^\$/ && (! $`)) {
s/^\$//;
$end_rx = $double_dol_rx;
$delim = ""; # Cannot say "\$\$" inside displaymath
$wrapper = "displaymath";
} elsif (/$underscore_match_rx/ && (! $`)) {
# Special case for $\_$ ...
s/$underscore_match_rx//;
$processed_text .= '\\_';
next;
}
# Have an opening $ or $$. Find matching close, at same bracket level
# $processed_text .= &make_any_wrapper(1,'',$wrapper).$delim;
print STDOUT "\$" if ($VERBOSITY > 3);
print L2HLOG "\$" if ($VERBOSITY > 3);
$ifclosed = 0;
local($thismath);
while (/$end_rx/) {
# Forget the $$ if we are going to replace it with "displaymath"
$before = $` . (($wrapper eq "displaymath")? "$1" : $&);
last if ($before =~ /\\(sub)*(item|section|chapter|part|paragraph)(star)?\b/);
$thismath .= $before;
$_ = $';
s/^( [^\n])/\\space$1/s; #make sure a trailing space doesn't get lost.
# Found dollar sign inside open subgroup ... now see if it's
# at the same brace-level ...
local ($losing, $br_rx) = (0, '');
print STDOUT "\$" if ($VERBOSITY > 3);
print L2HLOG "\$" if ($VERBOSITY > 3);
while ($before =~ /$begin_cmd_rx/) {
$br_rx = &make_end_cmd_rx($1); $before = $';
if ($before =~ /$br_rx/) { $before = $'; }
else { $losing = 1; last; }
}
do { $ifclosed = 1; last } unless $losing;
# It wasn't ... find the matching close brace farther on; then
# keep going.
/$br_rx/;
$thismath .= $`.$&;
#RRM: may now contain unprocessed $s e.g. $\mbox{...$...$...}$
# the &do_cmd_mbox uses this specially to force an image
# ...but there may be other situations; e.g. \hbox
# so set a flag:
$dollars_remain = 1;
$_ = $';
}
# Got to the end. Whew!
if ($ifclosed) {
# also process any nested math
while (($dollars_remain)&&($delim eq "\$")) {
local($saved) = $_;
$thismath =~ s/\$$//;
$_ = $thismath;
$thismath = &wrap_math_environment;
$thismath .= "\$";
$_ = $saved;
}
$processed_text .= &make_any_wrapper(1,'',$wrapper) . $delim
. $thismath . &make_any_wrapper(0,'',$wrapper);
} else {
print STDERR "\n\n *** Error: unclosed math or extra `\$', before:\n$thismath\n\n";
print L2HLOG "\n\n *** Error: unclosed math or extra `\$', before:\n$thismath\n\n";
# # remove a $ to try to recover as much as possible.
# $thismath =~ s/([^\\]\\\\|[^\\])\$/$1\%\%/;
# $_ = $thismath . $_; $thismath = "";
print "\n$thismath\n\n\n$_\n\n\n";
print L2HLOG "\n$thismath\n\n\n$_\n\n\n";
die;
}
}
$processed_text . $_;
}
sub translate_environments {
local ($_) = @_;
local($tmp, $capenv);
# print "\nTranslating environments ...";
local($after, @processedE);
local ($contents, $before, $br_id, $env, $pattern);
for (;;) {
# last unless (/$begin_env_rx/o);
last unless (/$begin_env_rx|$begin_cmd_rx|\\(selectlanguage)/o);
# local ($contents, $before, $br_id, $env, $pattern);
local($this_env, $opt_arg, $style_info);
$contents = '';
# $1,$2 : optional argument/text --- stylesheet info
# $3 : br_id (at the beginning of an environment name)
# $4 : environment name
# $5 : br_id of open-brace, when $3 == $4 == '';
# $6 : \selectlanguage{...}
if ($7) {
push(@processedE,$`);
$_ = $';
if (defined &do_cmd_selectlanguage) {
$_ = &do_cmd_selectlanguage($_);
} else {
local($cmd) = $7;
$pattern = &missing_braces unless (
s/$next_pair_rx/$pattern = $2;''/e);
local($trans) = $pattern.'_translation';
if (defined &$trans) {
&set_default_language($pattern,$_);
}
undef $cmd; undef $trans;
}
next;
} elsif ($4) {
($before, $opt_arg, $style_info, $br_id
, $env, $after, $pattern) = ($`, $2, $3, $4, $5, $', $&);
if (($before)&& (!($before =~ /$begin_env_rx|$begin_cmd_rx/))) {
push(@processedE,$before);
$_ = $pattern . $after; $before = '';
}
} else {
($before, $br_id, $env, $after, $pattern) = ($`, $6, 'group', $', $&);
if (($before)&& (!($before =~ /$begin_env_rx|$begin_cmd_rx/))) {
push(@processedE,$before);
$_ = $pattern . $after; $before = '';
}
local($end_cmd_rx) = &make_end_cmd_rx($br_id);
if ($after =~ /$end_cmd_rx/) {
# ... find the the matching closing one
$NESTING_LEVEL++;
($contents, $after) = ($`, $');
$contents = &process_group_env($contents);
print STDOUT "\nOUT: {$br_id} ".length($contents) if ($VERBOSITY > 3);
print L2HLOG "\nOUT: {$br_id} ".length($contents) if ($VERBOSITY > 3);
print STDOUT "\n:$contents\n" if ($VERBOSITY > 7);
print L2HLOG "\n:$contents\n" if ($VERBOSITY > 7);
# THIS MARKS THE OPEN-CLOSE DELIMITERS AS PROCESSED
$_ = join("", $before,"$OP$br_id$CP", $contents,"$OP$br_id$CP", $after);
$NESTING_LEVEL--;
} else {
$pattern = &escape_rx_chars($pattern);
s/$pattern//;
print "\nCannot find matching bracket for $br_id";
print L2HLOG "\nCannot find matching bracket for $br_id";
$_ = join("", $before,"$OP$br_id$CP", $after);
}
next;
}
$contents = undef;
local($defenv) = $env =~ /deferred/;
# local($color_env);
local($color_env)
unless ($env =~ /tabular|longtable|in(line|display)|math/);
local($closures,$reopens);
local(@save_open_tags) = @$open_tags_R unless ($defenv);
local($open_tags_R) = [ @save_open_tags ] unless ($defenv);
local(@saved_tags) if ($env =~ /tabular|longtable/);
if ($env =~ /tabular|longtable|makeimage|in(line|display)/) {
@save_open_tags = @$open_tags_R;
$open_tags_R = [ @save_open_tags ];
# check for color
local($color_test) = join(',',@$open_tags_R);
if ($color_test =~ /(color{[^}]*})/g ) {
$color_env = $1;
} # else { $color_env = '' }
if ($env =~ /tabular|longtable|makeimage/) {
# close to the surrounding block-type tag
($closures,$reopens,@saved_tags) = &preserve_open_block_tags();
@save_open_tags = @$open_tags_R;
$open_tags_R = [ @save_open_tags ];
if ($color_env) {
$color_test = join(',',@saved_tags);
if ($color_test =~ /(color{[^}]*})/g ) {
$color_env = $1;
}
}
} elsif ($env =~ /in(line|display)/) {
$closures = &close_all_tags() if ((&defined_env($env))
&&!($defenv)&&!($env=~/inline/)&&(!$declarations{$env}));
if ($color_env) {
$color_test = $declarations{$color_env};
$color_test =~ s/<\/.*$//;
$closures .= "\n$color_test";
push (@$open_tags_R , $color_env);
}
}
} elsif ($env =~ /alltt|tex2html_wrap/) {
# alltt is constructed as paragraphs, not with
# tex2html_wrap creates an image, which is at text-level
} else {
$closures = &close_all_tags() if ((&defined_env($env))
&&!($defenv)&&(!$declarations{$env}) );
}
# Sets $contents and modifies $after
if (&find_end_env($env,$contents,$after)) {
print STDOUT "\nIN-A {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nIN-A {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
&process_command($counters_rx, $before)
if ($before =~ /$counters_rx/);
# This may modify $before and $after
# Modifies $contents
#RRM: the do_env_... subroutines handle when to translate sub-environments
# $contents = &translate_environments($contents) if
## ((!$defenv) && (&defined_env($env)) && (! $raw_arg_cmds{$env})
## && (!$declarations{$env})
# ((&defined_env($env)) && (! $raw_arg_cmds{$env})
# && (!($env =~ /latexonly|enumerate|figure|table|makeimage|wrap_inline/))
# && ((! $NO_SIMPLE_MATH)||(!($env =~ /wrap/)))
# && (!($env =~ /(math|wrap|equation|eqnarray|makeimage|minipage|tabular)/) )
# );
if ($opt_arg) {
&process_environment(1, $env, $br_id, $style_info); # alters $contents
} else {
&process_environment(0, $env, $br_id, '');
}
undef $_;
print STDOUT "\nOUT-A {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nOUT-A {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
#JCL(jcl-env) - insert the $O$br_id$C stuff to handle environment grouping
if (!($contents eq '')) {
$after =~ s/^\n//o if ($defenv);
$this_env = join("", $before, $closures
, $contents
, ($defenv ? '': &balance_tags())
, $reopens ); $_ = $after;
} else {
$this_env = join("", $before , $closures
, ($defenv ? '': &balance_tags())
, $reopens ); $_ = $after;
};
### Evan Welsh added the next 24 lines ##
} elsif (&defined_env($env)) {
print STDOUT "\nIN-B {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nIN-B {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
# If I specify a function for the environment then it
# calls it with the contents truncated at the next section.
# It assumes I know what I'm doing and doesn't give a
# deferred warning.
$contents = $after;
if ($opt_arg) {
$contents = &process_environment(1, $env, $br_id, $style_info);
} else {
$contents = &process_environment(0, $env, $br_id, '');
}
print STDOUT "\nOUT-B {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nOUT-B {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
$this_env = join("", $before, $closures ,$contents, $reopens);
# there should not be anything left over
# $_ = $after;
$_ = '';
} elsif ($ignore{$env}) {
print STDOUT "\nIGNORED {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nIGNORED {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
# If I specify that the environment should be ignored then
# it is but I get a deferred warning.
$this_env = join("", $before , $closures , &balance_tags()
, $contents, $reopens );
$_ = $after;
&write_warnings("\n\\end{$env} not found (ignored).\n");
} elsif ($raw_arg_cmds{$env}) {
print "\nIN-C {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nIN-C {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
# If I specify that the environment should be passed to tex
# then it is with the environment truncated at the next
# section and I get a deferred warning.
$contents = $after;
if ($opt_arg) {
$contents = &process_environment(1, $env, $br_id, $style_info);
} else {
$contents = &process_environment(0, $env, $br_id, '');
}
print STDOUT "\nOUT-C {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
print L2HLOG "\nOUT-C {$env $br_id}\n$contents\n" if ($VERBOSITY > 4);
$this_env = join("", $before, $closures
, $contents, &balance_tags(), $reopens );
$_='';
&write_warnings(
"\n\\end{$env $br_id} not found (truncated at next section boundary).\n");
} else {
$pattern = &escape_rx_chars($pattern);
s/$pattern/$closures/;
print "\nCannot find \\end{$env $br_id}\n";
print L2HLOG "\nCannot find \\end{$env $br_id}\n";
$_ .= join('', &balance_tags(), $reopens) unless ($defenv);
}
if ($this_env =~ /$begin_env_rx|$begin_cmd_rx/) {
$_ = $this_env . $_;
} else { push (@processedE, $this_env) }
}
$_ = join('',@processedE) . $_;
$tmp = $_; undef $_;
&process_command($counters_rx, $tmp) if ($tmp =~ /$counters_rx/);
$_ = $tmp; undef $tmp;
$_
}
sub find_end_env {
# MRO: find_end_env($env,$contents,$rest)
#local ($env, *ref_contents, *rest) = @_;
my $env = $_[0];
my $be_rx = &make_begin_end_env_rx($env);
my $count = 1;
while ($_[2] =~ /($be_rx)(\n?)/s) { # $rest
$_[1] .= $`; # $contents
if ($2 eq "begin") { ++$count }
else { --$count };
#include any final \n at an {end} only
$_[2] = (($2 eq 'end')? $5 : '') . $'; # $rest
last if $count == 0;
$_[1] .= $1; # $contents
}
if ($count != 0) {
$_[2] = join('', $_[1], $_[2]); # $rest = join('', $contents, $rest);
$_[1] = ''; # $contents
return(0)
} else { return(1) }
}
sub process_group_env {
local($contents) = @_;
local(@save_open_tags) = @$open_tags_R;
local($open_tags_R) = [ @save_open_tags ];
print STDOUT "\nIN::{group $br_id}" if ($VERBOSITY > 4);
print L2HLOG "\nIN::{group $br_id}" if ($VERBOSITY > 4);
print STDOUT "\n:$contents\n" if ($VERBOSITY > 6);
print L2HLOG "\n:$contents\n" if ($VERBOSITY > 6);
# need to catch explicit local font-changes
local(%font_size) = %font_size if (/\\font\b/);
# record class/id info for a style-sheet entry
local($env_id, $tmp, $etmp);
if (($USING_STYLES) && !$PREAMBLE ) { $env_id = $br_id; }
# $env_id = "grp$br_id";
# $styleID{$env_id} = " ";
# $env_id = " ID=\"$env_id\"";
# }
undef $_;
$contents =~ s/^\s*$par_rx\s*//s; # don't start with a \par
if ($contents =~ /^\s*\\($image_switch_rx)\b\s*/s) {
# catch TeX-like environments: {\fontcmd ... }
local($image_style) = $1;
if ($USING_STYLES) {
$env_style{$image_style} = " " unless ($env_style{$image_style});
}
local($switch_cmd) = "do_cmd_${image_style}";
if (defined &$switch_cmd ) {
eval "\$contents = \&${switch_cmd}(\$')";
print "\n*** &$switch_cmd didn't work: $@\n$contents\n\n" if ($@);
print L2HLOG "\n*** &$switch_cmd didn't work: $@\n$contents\n\n" if ($@);
} elsif ($contents =~ /$par_rx/) {
# split into separate image for each paragraph
local($par_style,$this_par_img) = '';
local(@par_pieces) = split($par_rx, $contents);
local($this_par,$par_style,$par_comment);
$contents = '';
while (@par_pieces) {
$this_par = shift @par_pieces;
if ($this_par =~ /^\s*\\($image_switch_rx)\b/s) {
$image_style = $1;
$par_style = 'P.'.$1;
$env_style{$par_style} = " " unless ($env_style{$par_style});
}
# no comment: source is usually too highly encoded to be meaningful
# $par_comment = &make_comment($image_style,$this_par);
$this_par_img = &process_in_latex("\{".$this_par."\}");
$contents .= join('' #,"\n", $par_comment
, "\n", $this_par_img
, "\n");
if (@par_pieces) {
# discard the pieces from matching $par_rx
$dum = shift @par_pieces;
$dum = shift @par_pieces;
$dum = shift @par_pieces;
$dum = shift @par_pieces;
$dum = shift @par_pieces;
$dum = shift @par_pieces;
# $contents .= "\n\n";
}
}
} else {
$contents = &process_undefined_environment("tex2html_accent_inline"
, ++$global{'max_id'},"\{".$contents."\}");
}
} elsif ($contents =~ /^\s*\\(html)?url\b($O\d+$C)[^<]*\2\s*/) {
# do nothing
$contents = &translate_environments($contents);
$contents = &translate_commands($contents);
} elsif (($env_switch_rx)&&($contents =~ s/^(\s*)\\($env_switch_rx)\b//s)) {
# write directly into images.tex, protected by \begingroup...\endgroup
local($prespace, $cmd, $tmp) = ($1,$2,"do_cmd_$2");
$latex_body .= "\n\\begingroup ";
if (defined &$tmp) {
eval("\$contents = &do_cmd_$cmd(\$contents)");
}
$contents = &translate_environments($contents);
$contents = &translate_commands($contents);
undef $tmp; undef $cmd;
$contents .= "\n\\endgroup ";
} elsif ($contents =~ /^\s*\\([a-zA-Z]+)\b/s) {
local($after_cmd) = $';
local($cmd) = $1; $tmp = "do_cmd_$cmd"; $etmp = "do_env_$cmd";
if (($cmd =~/^(rm(family)?|normalsize)$/)
||($declarations{$cmd}&&(defined &$tmp))) {
do{
local(@save_open_tags) = @$open_tags_R;
eval "\$contents = \&$tmp(\$after_cmd);";
print "\n*** eval &$tmp failed: $@\n$contents\n\n" if ($@);
print L2HLOG "\n*** eval &$tmp failed: $@\n$contents\n\n" if ($@);
$contents .= &balance_tags();
};
} elsif ($declarations{$cmd}&&(defined &$etmp)) {
eval "\$contents = \&$etmp(\$after_cmd);";
} else {
$contents = &translate_environments($contents);
$contents = &translate_commands($contents)
if ($contents =~ /$match_br_rx/o);
# Modifies $contents
&process_command($single_cmd_rx,$contents) if ($contents =~ /\\/o);
}
undef $cmd; undef $tmp; undef $etmp;
} else {
$contents = &translate_environments($contents);
$contents = &translate_commands($contents)
if ($contents =~ /$match_br_rx/o);
# Modifies $contents
&process_command($single_cmd_rx,$contents)
if ($contents =~ /\\/o);
}
$contents . &balance_tags();
}
# MODIFIES $contents
sub process_environment {
local($opt, $env, $id, $styles) = @_;
local($envS) = $env; $envS =~ s/\*\s*$/star/;
local($env_sub,$border,$attribs,$env_id) = ("do_env_$envS",'','','');
local($original) = $contents;
if ($env =~ /tex2html_deferred/ ) {
$contents = &do_env_tex2html_deferred($contents);
return ($contents);
}
$env_id = &read_style_info($opt, $env, $id, $styles)
if (($USING_STYLES)&&($opt));
if (&defined_env($env)) {
print STDOUT ",";
print L2HLOG ",";
print STDOUT "{$env $id}" if ($VERBOSITY > 1);
print L2HLOG "{$env $id}" if ($VERBOSITY > 1);
# $env_sub =~ s/\*$/star/;
$contents = &$env_sub($contents);
} elsif ($env =~ /tex2html_nowrap/) {
#pass it on directly for LaTeX, via images.tex
$contents = &process_undefined_environment($env, $id, $contents);
return ($contents);
# elsif (&special_env) { # &special_env modifies $contents
} else {
local($no_special_chars) = 0;
local($failed) = 0;
local($has_special_chars) = 0;
&special_env; # modifies $contents
print STDOUT "\n