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
|
# russian.perl corrected by Sergej V. Znamenskij
#
# $Id: russian.perl,v 1.1 2001/04/18 01:39:21 RRM Exp $
#
# russian.perl for russian babel, inspired heavily by german.perl
# by Georgy Salnikov <sge@nmr.nioch.nsc.ru>
package russian;
print " [russian]";
sub main'russian_translation {
local($_) = @_;
s/;SPMquot;\-\-\-/—/go;
s/\-\-\-/—/go;
s/;SPMquot;\-\-\*/—/go;
s/;SPMquot;\-\-\~/—/go;
s/;SPMquot;[~\-=]/‐/go;
s/\-\-/–/go;
s/;SPMlt;;SPMlt;/«/go;
s/;SPMgt;;SPMgt;/»/go;
s/;SPMquot;;SPMlt;/«/go;
s/;SPMquot;;SPMgt;/»/go;
s/;SPMquot;\`/„/go;
s/;SPMquot;\'/“/go;
s/\`\`/“/go;
s/\'\'/”/go;
$_;
}
sub make_next_char_rx {
local($chars) = @_;
local($OP,$CP) = &main'brackets;
";SPMquot;\\s*(($chars)|$OP\\d+$CP\\s*($chars)\\s*$OP\\d+$CP)";
}
package main;
if (defined &addto_languages) { &addto_languages('russian') };
if ($CHARSET eq 'iso-10646' || $CHARSET eq 'utf-8' || $INPUTENC eq '') {
&load_language_support('utf8ru'); # UTF-8 cannot be treated universally
}
sub do_cmd_flqq {&do_cmd_guillemotleft( @_) }
sub do_cmd_frqq {&do_cmd_guillemotright(@_)}
sub do_cmd_flq {&do_cmd_guilsinglleft( @_)}
sub do_cmd_frq {&do_cmd_guilsinglright(@_)}
sub do_cmd_glq {&do_cmd_textquoteleft( @_)}
sub do_cmd_grq {&do_cmd_textquoteright(@_)}
sub do_cmd_glqq {&do_cmd_textquotedblleft( @_)}
sub do_cmd_grqq {&do_cmd_textquotedblright(@_)}
sub do_cmd_dag { join('', &iso_map("dagger", ""), $_[0]);}
sub do_cmd_No {join('', "№", $_[0]);}
sub do_cmd_russianTeX {
# Just in case we pass things to LaTeX
$default_language = 'russian';
$latex_body .= "\\russianTeX\n";
$encoding=$russian_encoding;
@_[0];
}
sub do_cmd_originalTeX {
# Just in case we pass things to LaTeX
$default_language = 'original';
$latex_body .= "\\originalTeX\n";
@_[0];
}
# use'em
&russian_titles;
$default_language = 'russian';
$TITLES_LANGUAGE = "russian";
1; # Not really necessary...
|
