1# $Id: esperant.perl,v 1.1 1998/08/25 03:26:37 RRM Exp $
2#
3# esperant.perl for esperant babel, inspired heavily by german.perl
4# by Ross Moore <ross@mpce.mq.edu.au>
5
6
7package esperant;
8
9print " [esperant]";
10
11sub main'esperant_translation {
12    local($_) = @_;
13s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_esperant_specials($1)/geo;
14    $_;
15}
16
17sub get_esperant_specials {
18    $esperant_specials{@_[0]}
19}
20
21%esperant_specials = (
22    '\''       => "``",
23    "\`"       => ",,",
24    ';SPMlt;'  => "&laquo;",
25    ';SPMgt;'  => "&raquo;",
26    '\\'       => "",
27    '-'        => "-",
28    ';SPMquot;'=> "",
29    '='        => "-",
30    '|'        => ""
31);
32
33
34package main;
35
36if (defined &addto_languages) { &addto_languages('esperant') };
37
38&do_require_extension('latin3');
39
40sub esperant_titles {
41    $toc_title = "Enhavo";
42    $lof_title = "Listo de figuroj";
43    $lot_title = "Listo de tabeloj";
44    $idx_title = "Indekso";
45    $ref_title = "Cita\\^joj";
46    $bib_title = "Bibliografio";
47    $abs_title = "Resumo";
48    $app_title = "Apendico";
49    $pre_title = "Anta&uuml;parolo";
50##    $foot_title = "";
51##    $thm_title = "";
52    $fig_name = "Figuro";
53    $tab_name = "Tabelo";
54    $prf_name = "Pruvo";
55    $page_name = "Pa\\^go";
56  #  Sectioning-level titles
57    $part_name = "Parto";
58    $chapter_name = "\^Capitro";
59#    $section_name = "";
60#    $subsection_name = "";
61#    $subsubsection_name = "";
62#    $paragraph_name = "";
63  #  Misc. strings
64    $subj_name = "Temo";
65##    $child_name = "";
66##    $info_title = "";
67    $also_name = "vidu anka&uuml;";
68    $see_name = "vidu";
69  #  names in navigation panels
70##    $next_name = "";
71##    $up_name = "";
72##    $prev_name = "";
73##    $group_name = "";
74  #  mail fields
75    $encl_name = "Aldono(j)";
76    $headto_name = "Al";
77    $cc_name = "Kopie al";
78
79    @Month = ('', 'januaro', 'februaro', 'marto', 'aprilo', 'majo', 'junio',
80	'julio', 'a&uuml;gusto', 'septembro', 'oktobro', 'novembro', 'decembro');
81#    $GENERIC_WORDS = "";
82}
83
84
85sub esperant_today {
86    local($today) = &get_date();
87    $today =~ s|(\d+)/0?(\d+)/|$2\-a de $Month[$1] |;
88    join('',$today,$_[0]);
89}
90
91
92
93# use'em
94&esperant_titles;
95$default_language = 'esperant';
96$TITLES_LANGUAGE = 'esperant';
97$esperant_encoding = 'iso-8859-3';
98
99# $Log: esperant.perl,v $
100# Revision 1.1  1998/08/25 03:26:37  RRM
101# 	Babel language support
102#
103#
104
1051;
106