diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:16:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:16:42 +0000 |
commit | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (patch) | |
tree | f4a8a34f904c1bb86adcc3ae0e14434badc6dbe4 /Build/source/utils/texi2html/examples/utf8.init | |
parent | 6c0eafbb1395d426a72a74538e0b2a95e8344ca6 (diff) |
utils 1
git-svn-id: svn://tug.org/texlive/trunk@1484 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/texi2html/examples/utf8.init')
-rw-r--r-- | Build/source/utils/texi2html/examples/utf8.init | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Build/source/utils/texi2html/examples/utf8.init b/Build/source/utils/texi2html/examples/utf8.init new file mode 100644 index 00000000000..2d231e30a8f --- /dev/null +++ b/Build/source/utils/texi2html/examples/utf8.init @@ -0,0 +1,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; |