version 1.182, 2003/10/16 15:29:45
|
version 1.183, 2003/10/20 19:47:23
|
Line 1322 sub start_sub {
|
Line 1322 sub start_sub {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\$_{ "; |
$currentstring .= "\$_{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1333 sub end_sub {
|
Line 1333 sub end_sub {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= " }\$"; |
$currentstring .= "}\$"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1345 sub start_sup {
|
Line 1345 sub start_sup {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\$^{ "; |
$currentstring .= "\$^{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1356 sub end_sup {
|
Line 1356 sub end_sup {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= " }\$"; |
$currentstring .= "}\$"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1997 sub end_td_tex {
|
Line 1997 sub end_td_tex {
|
$elementdata=~s/^\s+(\S.*)/$1/; |
$elementdata=~s/^\s+(\S.*)/$1/; |
$elementdata=~s/(.*\S)\s+$/$1/; |
$elementdata=~s/(.*\S)\s+$/$1/; |
$elementdata=~s/(\s)+/$1/; |
$elementdata=~s/(\s)+/$1/; |
|
|
my $lengthnewdata=1.8*length($elementdata); |
my $lengthnewdata=1.8*length($elementdata); |
if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;} |
if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;} |
} |
} |
} else { |
} else { |
$current_length=1.8*length($data); |
my $working_data=$data; |
|
$working_data=~s/(\$\_\{|\$\_|\$\^{|\$\^|\}\$|\$)//g; |
|
$working_data=~s/\\cdot/ /; |
|
$current_length=1.8*length($working_data); |
} |
} |
$Apache::londefdef::table[-1]{'length'} .= $current_length.','; |
$Apache::londefdef::table[-1]{'length'} .= $current_length.','; |
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,'; |
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,'; |