version 1.10, 2008/04/29 10:15:58
|
version 1.12, 2008/10/10 10:16:53
|
Line 932 my %entities = (
|
Line 932 my %entities = (
|
my %utf_table = ( |
my %utf_table = ( |
'THORN' => 222, |
'THORN' => 222, |
'thorn' => 254, |
'thorn' => 254, |
'eth' => 240 |
'eth' => 240, |
|
'hearts' => 9829 |
); |
); |
|
|
# |
# |
Line 978 sub entity_to_latex {
|
Line 979 sub entity_to_latex {
|
# Try to look up the entity (text or numeric) in the hash: |
# Try to look up the entity (text or numeric) in the hash: |
|
|
|
|
|
|
my $latex = $entities{"$entity"}; |
my $latex = $entities{"$entity"}; |
if (defined $latex) { |
if (defined $latex) { |
return $latex; |
return $latex; |
Line 1030 sub replace_entities {
|
Line 1032 sub replace_entities {
|
$latex = &entity_to_latex($entity); |
$latex = &entity_to_latex($entity); |
substr($input, $start, $end-$start) = $latex; |
substr($input, $start, $end-$start) = $latex; |
} |
} |
|
|
|
# Hexadecimal entities: |
|
|
|
while ($input =~ /&\#x(\d|[a-f,A-f])+;/) { |
|
($start) = @-; |
|
($end) = @+; |
|
$entity = "0" . substr($input, $start+2, $end-$start-3); # 0xhexnumber |
|
$latex = &entity_to_latex(hex($entity)); |
|
substr($input, $start, $end-$start) = $latex; |
|
} |
|
|
|
|
# Now the &text; entites; |
# Now the &text; entites; |
|
|
while ($input =~/(&\w+;)/) { |
while ($input =~/(&\w+;)/) { |