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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
# $Id: polyglossia.perl,v 1.12 2001/04/18 01:39:21 RRM Exp $
#
# polyglossia.perl by Georgy Salnikov <sge@nmr.nioch.nsc.ru> 18/05/05
#
# Extension to LaTeX2HTML V2018 to support the "polyglossia" package
# for lualatex support.
#
# Partly adapted from babel.perl
#
# $Log: $
package main;
# for debugging only
# print "\nUsing polyglossia.perl\n";
# The necessary language switching environment \begin{<lang>} - \end{<lang>}
# is generated automatically while loading language definitions file.
# The short language switching command \text<lang>{} is also generated.
# But for it to really work, at the end of this file it must be added
# into the list &process_commands_wrap_deferred (<<_RAW_ARG_DEFERRED_CMDS_);
# Additionally, for polyglossia the language definition file must be adapted
# to use UTF-8 encoding, and &do_cmd_<lang>TeX must be defined in it.
# Reusing babel loaders
sub load_babel_package {
local($dir) = '';
local($orig_cwd) = ($orig_cwd ? $orig_cwd : '.');
if (-f "$orig_cwd${dd}babel.perl") {
if (require("$orig_cwd${dd}babel.perl")) {
print "\nLoading $orig_cwd${dd}babel.perl";
return;
}
}
foreach $dir (split(/$envkey/,$LATEX2HTMLSTYLES)) {
if (-f "$dir${dd}babel.perl") {
if (require("$dir${dd}babel.perl")) {
print "\nLoading $dir${dd}babel.perl";
return;
}
}
}
}
sub load_luainputenc_package {
local($dir) = '';
local($orig_cwd) = ($orig_cwd ? $orig_cwd : '.');
if (-f "$orig_cwd${dd}luainputenc.perl") {
if (require("$orig_cwd${dd}luainputenc.perl")) {
print "\nLoading $orig_cwd${dd}luainputenc.perl";
return;
}
}
foreach $dir (split(/$envkey/,$LATEX2HTMLSTYLES)) {
if (-f "$dir${dd}luainputenc.perl") {
if (require("$dir${dd}luainputenc.perl")) {
print "\nLoading $dir${dd}luainputenc.perl";
return;
}
}
}
}
# Primary language definition - enhanced babel's do_cmd_selectlanguage
sub do_cmd_setdefaultlanguage {
local($_) = @_;
#print ("\n$_\n");
local($dum, $lang);
($dum,$lang) = &get_next_optional_argument; # discard optional argument
$lang = &missing_braces unless(
(s/$next_pair_pr_rx/$lang=$2;''/eo)
||(s/$next_pair_rx/$lang=$2;''/eo));
local($trans) = "${lang}_translation";
local($titles) = "${lang}_titles";
local($encoding) = "${lang}_encoding";
# load the corresponding language file
print ("\nPolyglossia primary language:");
&load_babel_file($lang);
if (defined &$trans) {
if ($PREAMBLE) {
# ensure the list of languages is up-to-date
&make_language_rx;
$TITLES_LANGUAGE = $lang;
$default_language = $lang;
$CHARSET = $$encoding if ($$encoding);
if (defined &$titles) {
eval "&$titles()";
&translate_titles;
}
local($lcode) = $iso_languages{$lang};
&add_to_body('LANG',$lcode) unless ($HTML_VERSION < 4);
# generate language switching commands
local($code) = 'sub do_cmd_text'.$lang.'{' . "\n"
. 'local($_) = @_;' . "\n"
. 'local($dum1,$dum2);' . "\n"
. '($dum1,$dum2) = &get_next_optional_argument;' . "\n"
. 'local($text,$br_id)=("","0");' . "\n"
. '$text = &missing_braces unless(' . "\n"
. ' (s/$next_pair_pr_rx/$text=$2;$br_id=$1;""/eo)' . "\n"
. ' ||(s/$next_pair_rx/$text=$2;$br_id=$1;""/eo));' . "\n"
. 'join("",&translate_commands(' . "\n"
. '&translate_environments("$O$br_id$C\\\\'.$lang.'TeX $text$O$br_id$C")),' . "\n"
. '$_);' . "\n"
. '}' . "\n"
. 'sub do_env_'.$lang.'{' . "\n"
. 'local($_) = @_;' . "\n"
. 'local($dum1,$dum2);' . "\n"
. '($dum1,$dum2) = &get_next_optional_argument;' . "\n"
. 'local($br_id) = ++$global{"max_id"};' . "\n"
. '$_ = &translate_environments("$O$br_id$C\\\\'.$lang.'TeX $_$O$br_id$C");' . "\n"
. '$_ = &translate_commands($_);' . "\n"
. '$_;' . "\n"
. '}' . "\n";
#print "\n$code\n";
eval $code;
}
} else { &no_lang_support($lang) }
$_;
}
# Just synonyms of do_cmd_setdefaultlanguage
sub do_cmd_setmainlanguage {
&do_cmd_setdefaultlanguage($_[0]);
}
sub do_cmd_resetdefaultlanguage {
&do_cmd_setdefaultlanguage($_[0]);
}
# Secondary language definitions - must not alter primary language ones
sub do_cmd_setotherlanguage {
local($_) = @_;
#print ("\n$_\n");
local($dum, $lang);
($dum,$lang) = &get_next_optional_argument; # discard optional argument
$lang = &missing_braces unless(
(s/$next_pair_pr_rx/$lang=$2;''/eo)
||(s/$next_pair_rx/$lang=$2;''/eo));
local($trans) = "${lang}_translation";
local($titles) = "${lang}_titles";
local($encoding) = "${lang}_encoding";
local($save_tit_lang, $save_def_lang, $save_charset) = ('', '', '');
# save primary language definitions
if ($PREAMBLE) {
$save_tit_lang = $TITLES_LANGUAGE if defined $TITLES_LANGUAGE;
$save_def_lang = $default_language if defined $default_language;
$save_charset = $CHARSET if defined $CHARSET;
}
# load the corresponding language file
print ("\nPolyglossia secondary language:");
&load_babel_file($lang);
# update secondary language definitions
if (defined &$trans) {
if ($PREAMBLE) {
&make_language_rx;
$TITLES_LANGUAGE = $lang;
$default_language = $lang;
$CHARSET = $$encoding if ($$encoding);
if (defined &$titles) {
eval "&$titles()";
&translate_titles;
}
# generate language switching commands
local($code) = 'sub do_cmd_text'.$lang.'{' . "\n"
. 'local($_) = @_;' . "\n"
. 'local($dum1,$dum2);' . "\n"
. '($dum1,$dum2) = &get_next_optional_argument;' . "\n"
. 'local($text,$br_id)=("","0");' . "\n"
. '$text = &missing_braces unless(' . "\n"
. ' (s/$next_pair_pr_rx/$text=$2;$br_id=$1;""/eo)' . "\n"
. ' ||(s/$next_pair_rx/$text=$2;$br_id=$1;""/eo));' . "\n"
. 'join("",&translate_commands(' . "\n"
. '&translate_environments("$O$br_id$C\\\\'.$lang.'TeX $text$O$br_id$C")),' . "\n"
. '$_);' . "\n"
. '}' . "\n"
. 'sub do_env_'.$lang.'{' . "\n"
. 'local($_) = @_;' . "\n"
. 'local($dum1,$dum2);' . "\n"
. '($dum1,$dum2) = &get_next_optional_argument;' . "\n"
. 'local($br_id) = ++$global{"max_id"};' . "\n"
. '$_ = &translate_environments("$O$br_id$C\\\\'.$lang.'TeX $_$O$br_id$C");' . "\n"
. '$_ = &translate_commands($_);' . "\n"
. '$_;' . "\n"
. '}' . "\n";
#print "\n$code\n";
eval $code;
# revert back to primary language
$CHARSET = $save_charset if $save_charset ne '';
if ($save_tit_lang ne '' || $save_def_lang ne '') {
$lang = $save_tit_lang || $save_def_lang;
$TITLES_LANGUAGE = $lang;
$default_language = $lang;
$trans = "${lang}_translation";
$titles = "${lang}_titles";
&make_language_rx if defined &$trans;
if (defined &$titles) {
eval "&$titles()";
&translate_titles;
}
}
}
} else { &no_lang_support($lang) }
$_;
}
# Just serialized do_cmd_setotherlanguage
sub do_cmd_setotherlanguages {
local($_) = @_;
#print ("\n$_\n");
local(@langs, $lang, $br_id);
$lang = &missing_braces unless(
(s/$next_pair_pr_rx/$lang=$2;''/eo)
||(s/$next_pair_rx/$lang=$2;''/eo));
@langs = split /,/, $lang;
foreach $lang (@langs) {
$br_id = ++$global{'max_id'};
&do_cmd_setotherlanguage("$O$br_id$C$lang$O$br_id$C");
}
$_;
}
# Ensure loading the necessary packages and signal presence to the main script
&load_luainputenc_package();
&load_babel_package();
&process_commands_wrap_deferred (<<_RAW_ARG_DEFERRED_CMDS_);
textenglish # [] # {}
textgerman # [] # {}
textrussian # [] # {}
_RAW_ARG_DEFERRED_CMDS_
$POLYGLOSSIA = 1;
1; # Must be last line
|
