version 1.5, 2008/04/09 10:24:32
|
version 1.6, 2008/04/14 09:33:39
|
Line 997 sub entity_to_latex {
|
Line 997 sub entity_to_latex {
|
# |
# |
sub replace_entities { |
sub replace_entities { |
my ($input) = @_; |
my ($input) = @_; |
|
my $start; |
|
my $end; |
|
my $entity; |
|
my $latex; |
|
|
|
# First the &#nnn; entities: |
|
|
|
while ($input =~ /(&\#\d+;)/) { |
|
($start) = @-; |
|
($end) = @+; |
|
$entity = substr($input, $start+2, $end-$start-3); |
|
$latex = &entity_to_latex($entity); |
|
substr($input, $start, $end-$start) = $latex; |
|
} |
|
# Now the &text; entites; |
|
|
|
while ($input =~/($\w;)/) { |
|
($start) = @-; |
|
($end) = @+; |
|
$entity = substr($input, $start+1, $end-$start-2); |
|
$latex = &entity_to_latex($entity); |
|
substr($input, $start, $end-$start) = $latex; |
|
} |
} |
} |
|
|