summaryrefslogtreecommitdiff
path: root/Build/source/utils/texi2html/examples/utf8.init
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;