blob: 2d231e30a8fa67ff940b544337d265363754e70c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# -*-perl-*-
$USE_ISO = 0;
$ENCODING = 'utf-8';
# if the encoding isn't utf-8, we should convert to utf-8 characters.
use Encode;
use Unicode::Normalize;
foreach my $key (keys(%unicode_accents))
{
$style_map{$key}->{'function'} = \&t2h_utf8_accent;
$style_map_texi{$key}->{'function'} = \&t2h_utf8_accent;
}
foreach my $key (%things_map)
{
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne ''))
{
$things_map{$key} = chr(hex($unicode_map{$key}));
$texi_map{$key} = chr(hex($unicode_map{$key}));
}
}
$normal_text = \&t2h_utf8_normal_text;
1;
|