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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
# $Id: inputenc.perl,v 1.6 1999/09/22 10:16:03 RRM Exp $
#
# inputenc.perl by Ross Moore <ross@mpce.mq.edu.au> 97/10/25
#
# Extension to LaTeX2HTML V97.1 to support the "inputenc" package
# and standard LaTeX2e package options.
#
# Change Log:
# ===========
# $Log: inputenc.perl,v $
# Revision 1.6 1999/09/22 10:16:03 RRM
# -- don't require an extension file, when it has already been loaded
#
# Revision 1.5 1999/09/15 12:17:07 RRM
# added new encodings, and options for regional encodings
#
# Revision 1.4 1998/08/02 01:38:56 RRM
# -- fixed the problem that restricted usage to latin1 and latin2 only
# unknown subroutine caaused segmentation error otherwise
# --- thanks to H. Turgut Uyar <uyar@leylak.cs.itu.edu.tr>
#
#
package main;
sub load_language_support {
local($enc) = @_;
return if ($styles_loaded{$enc});
my $file = "$LATEX2HTMLVERSIONS${dd}$enc.pl";
if ( require($file) ) {
print STDERR "\nLoading $file";
if ($charset =~ /^utf\-\d$/) {
$PREV_CHARSET = $CHARSET;
$CHARSET = "iso-10646";
&make_unicode_map;
};1;
} else {
print STDERR "\n*** could not load support for $enc encoding ***\n"; 0;
}
}
sub no_language_support {
print STDERR "\n*** LaTeX2HTML has no support for the @_[0] encoding yet ***\n";}
# load extension files to implement different encodings:
sub do_inputenc_latin1{
# if (&load_language_support('latin1')) {
$CHARSET = 'iso-8859-1';
# }
}
sub do_inputenc_latin0{&load_language_support('latin9');}
sub do_inputenc_latin2{&load_language_support('latin2');}
sub do_inputenc_latin3{&load_language_support('latin3');}
sub do_inputenc_latin4{&load_language_support('latin4');}
sub do_inputenc_latin5{&load_language_support('latin5');}
sub do_inputenc_latin6{&load_language_support('latin6');}
sub do_inputenc_latin7{&load_language_support('latin7');}
sub do_inputenc_latin8{&load_language_support('latin8');}
sub do_inputenc_latin9{&load_language_support('latin9');}
sub do_inputenc_latin10{&no_language_support('latin10');}
sub do_inputenc_esperanto{&load_language_support('latin3');}
sub do_inputenc_maltese{&load_language_support('latin3');}
sub do_inputenc_estonian{&load_language_support('latin4');}
sub do_inputenc_latvian{&load_language_support('latin4');}
sub do_inputenc_lithuanian{&load_language_support('latin4');}
sub do_inputenc_turkish{&load_language_support('latin5');}
sub do_inputenc_inuit{&load_language_support('latin6');}
sub do_inputenc_lappish{&load_language_support('latin6');}
sub do_inputenc_nordic{&load_language_support('latin6');}
sub do_inputenc_sami{&load_language_support('latin6');}
sub do_inputenc_baltic{&load_language_support('latin7');}
#sub do_inputenc_latvian{&load_language_support('latin7');}
sub do_inputenc_celtic{&load_language_support('latin8');}
sub do_inputenc_gaelic{&load_language_support('latin8');}
sub do_inputenc_welsh{&load_language_support('latin8');}
sub do_inputenc_euro{&load_language_support('latin9');}
sub do_inputenc_finnish{&load_language_support('latin9');}
sub do_inputenc_french{&load_language_support('latin9');}
sub do_inputenc_skolt{&load_language_support('latin9');}
sub do_inputenc_cyrillic{&no_language_support('iso-8859-5');}
sub do_inputenc_arabic{&no_language_support('iso-8859-6');}
sub do_inputenc_greek{&no_language_support('iso-8859-7');}
sub do_inputenc_hebrew{&no_language_support('iso-8859-8');}
sub do_inputenc_thai{&no_language_support('iso-8859-11');}
sub do_inputenc_vietnamese{&no_language_support('VISCII');}
sub do_inputenc_japanese{&no_language_support('iso2022');}
sub do_inputenc_korean{&no_language_support('korean');}
sub do_inputenc_utf7{&load_language_support('unicode');}
sub do_inputenc_utf8{&load_language_support('unicode');}
sub do_inputenc_cp1252{&load_language_support('cp1252');}
sub do_inputenc_decmulti{&load_language_support('decmulti');}
sub do_inputenc_applemac{&load_language_support('macroman');}
1; # Must be last line
|
