version 1.94, 2005/02/18 22:52:50
|
version 1.96, 2005/03/29 17:57:51
|
Line 529 sub format {
|
Line 529 sub format {
|
|
|
sub chemparse { |
sub chemparse { |
my ($reaction) = @_; |
my ($reaction) = @_; |
my @tokens = split(/(\s\+|\->|<=>)/,$reaction); |
my @tokens = split(/(\s\+|\->|<=>|<\-|\.)/,$reaction); |
my $formula = ''; |
my $formula = ''; |
foreach my $token (@tokens) { |
foreach my $token (@tokens) { |
if ($token eq '->' ) { |
if ($token eq '->' ) { |
$formula .= '<m>\ensuremath{\rightarrow}</m> '; |
$formula .= '<m>\ensuremath{\rightarrow}</m> '; |
next; |
next; |
} |
} |
|
if ($token eq '<-' ) { |
|
$formula .= '<m>\ensuremath{\leftarrow}</m> '; |
|
next; |
|
} |
if ($token eq '<=>') { |
if ($token eq '<=>') { |
if ($external::target eq 'web' && |
if ($external::target eq 'web' && |
&EXT('request.browser.unicode')) { |
&EXT('request.browser.unicode')) { |
$formula .= '⇌ '; |
$formula .= '⇌ '; |
} else { |
} else { |
$formula .= &web('<=> ','<m>\ensuremath{\rightleftharpoons}</m> ', |
$formula .= &web('<=> ','<m>\ensuremath{\rightleftharpoons}</m> ', |
'<=$gt; '); |
'<=> '); |
} |
} |
next; |
next; |
} |
} |
$token =~ /^\s*(\d*(?:&frac\d\d)?)(.*)/; |
if ($token eq '.') { |
|
$formula =~ s/(\ \;| )$//; |
|
$formula .= '·'; |
|
next; |
|
} |
|
$token =~ /^\s*([\d|\/]*(?:&frac\d\d)?)(.*)/; |
$formula .= $1 if ($1 ne '1'); # stoichiometric coefficient |
$formula .= $1 if ($1 ne '1'); # stoichiometric coefficient |
|
|
my $molecule = $2; |
my $molecule = $2; |
Line 558 sub chemparse {
|
Line 567 sub chemparse {
|
$molecule =~ s/\s*//g; |
$molecule =~ s/\s*//g; |
# forced space |
# forced space |
$molecule =~ s/_/ /g; |
$molecule =~ s/_/ /g; |
|
$molecule =~ s/-/−/g; |
$formula .= $molecule.' '; |
$formula .= $molecule.' '; |
} |
} |
# get rid of trailing space |
# get rid of trailing space |