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
|
# $Id: TEMPLATE.perl,v 1.1 1998/08/25 02:11:17 RRM Exp $
#
# TEMPLATE.perl for TEMPLATE babel, inspired heavily by german.perl
# by Ross Moore <ross@mpce.mq.edu.au>
package TEMPLATE;
print " [TEMPLATE]";
sub main'TEMPLATE_translation {
local($_) = @_;
s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_TEMPLATE_specials($1)/geo;
$_;
}
sub get_TEMPLATE_specials {
$TEMPLATE_specials{@_[0]}
}
%TEMPLATE_specials = (
'\'' => "``",
"\`" => ",,",
';SPMlt;' => "«",
';SPMgt;' => "»",
'\\' => "",
'-' => "-",
';SPMquot;'=> "",
'=' => "-",
'|' => ""
);
package main;
if (defined &addto_languages) { &addto_languages('TEMPLATE') };
sub TEMPLATE_titles {
$toc_title = "";
$lof_title = "";
$lot_title = "";
$idx_title = "";
$ref_title = "";
$bib_title = "";
$abs_title = "";
$app_title = "";
$pre_title = "";
$foot_title = "";
$thm_title = "";
$fig_name = "";
$tab_name = "";
$prf_name = "";
$date_name = "";
$page_name = "";
# Sectioning-level titles
$part_name = "";
$chapter_name = "";
# $section_name = "";
# $subsection_name = "";
# $subsubsection_name = "";
# $paragraph_name = "";
# Misc. strings
$child_name = "";
$info_title = "";
$also_name = "";
$see_name = "";
# names in navigation panels
$next_name = "";
$up_name = "";
$prev_name = "";
$group_name = "";
# mail fields
$encl_name = "";
$headto_name = "";
$cc_name = "";
@Month = ('', 'tammikuuta', 'helmikuuta', 'maaliskuuta', 'huhtikuuta',
'toukokuuta', 'kesäkuuta', 'heinäkuuta', 'elokuuta',
'syyskuuta', 'lokakuuta', 'marraskuuta', 'joulukuuta');
# $GENERIC_WORDS = "";
}
sub TEMPLATE_today {
local($today) = &get_date();
$today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |;
join('',$today,$_[0]);
}
# use'em
&TEMPLATE_titles;
$default_language = 'TEMPLATE';
$TITLES_LANGUAGE = 'TEMPLATE';
$TEMPLATE_encoding = 'iso-8859-1';
# $Log: TEMPLATE.perl,v $
# Revision 1.1 1998/08/25 02:11:17 RRM
# Babel language support
#
#
1;
|
