version 1.48, 2002/07/17 18:08:39
|
version 1.50, 2002/09/20 21:11:18
|
Line 445 sub format {
|
Line 445 sub format {
|
my $dollarmode; |
my $dollarmode; |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
my $result=sprintf('%.'.$fmt,$value); |
my $result=sprintf('%.'.$fmt,$value); |
|
$result=~s/(E[+-]*)0/$1/; |
if ($dollarmode) {$result=&dollarmode($result);} |
if ($dollarmode) {$result=&dollarmode($result);} |
return $result; |
return $result; |
} |
} |
Line 460 sub prettyprint {
|
Line 461 sub prettyprint {
|
if ($dollarmode) { $frac=&dollarformat($frac); } |
if ($dollarmode) { $frac=&dollarformat($frac); } |
my $exponent=$2; |
my $exponent=$2; |
$exponent=~s/^\+0*//; |
$exponent=~s/^\+0*//; |
|
$exponent=~s/^-0*/-/; |
if ($exponent) { |
if ($exponent) { |
if ($external::target eq 'web') { |
if ($external::target eq 'web') { |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
Line 686 sub choose {
|
Line 688 sub choose {
|
return $_[$num]; |
return $_[$num]; |
} |
} |
|
|
|
# expiremental idea |
|
sub proper_path { |
|
my ($path)=@_; |
|
if ( $external::target eq "tex" ) { |
|
return '/home/httpd/html'.$path; |
|
} else { |
|
return $path; |
|
} |
|
} |
|
|