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
|
# $$
# SPANISH.PERL by Jesus M. Gonzalez-Barahona <jgb@gsyc.inf.uc3m.es>
# Based on FRENCH.PERL (1.10 1998/03/02 09:46:51) and
# GERMAN.PERL (1.8 1998/02/22 05:27:07)
package spanish;
print "Spanish style interface for LaTeX2HTML\n";
# Put Spanish equivalents here for headings/dates/ etc when
# latex2html start supporting them ...
sub main'spanish_translation { @_[0] }
package main;
if (defined &addto_languages) { &addto_languages('spanish') };
sub do_cmd_spanishTeX {
# Just in case we pass things to LaTeX
$default_language = 'spanish';
$latex_body .= "\\spanishTeX\n";
@_[0];
}
sub do_cmd_originalTeX {
# Just in case we pass things to LaTeX
$default_language = 'original';
$latex_body .= "\\originalTeX\n";
@_[0];
}
# Names selected to match those in spanish.sty
#
sub spanish_titles {
$toc_title = "\\'Indice General";
$lof_title = "\\'Indice de Figuras";
$lot_title = "\\'Indice de Tablas";
$idx_title = "\\'Indice de Materias";
$ref_title = "Referencias";
$bib_title = "Bibliograf\\'ia";
$abs_title = "Resumen";
$app_title = "Ap\\'endice";
$pre_title = "Prefacio";
$foot_title = "Notas al pie";
$thm_title = "Teorema";
$fig_name = "Figura";
$tab_name = "Tabla";
$prf_name = "Demostraci\\'on";
$date_name = "Fecha";
$page_name = "P\\'agina";
# Sectioning-level titles
$part_name = "Parte";
$chapter_name = "Cap\\'itulo";
$section_name = "Seccion";
$subsection_name = "Subseccion";
$subsubsection_name = "Subsubseccion";
$paragraph_name = "Parrafo";
# Misc. strings
$child_name = "Subsecciones";
$info_title = "Sobre este documento...";
$also_name = "v\\'ease tambi\\'en";
$see_name = "v\\'ease";
# names in navigation panels
$next_name = "Siguiente";
$up_name = "Subir";
$prev_name = "Anterior";
$group_name = "Grupo";
# mail fields
$encl_name = "Adjunto";
$headto_name = "A";
$cc_name = "Copia a";
@Month = ('', 'enero', "febrero", 'marzo', 'abril', 'mayo',
'junio', 'julio', "agosto", 'septiembre', 'octubre',
'noviembre', "diciembre");
$GENERIC_WORDS =
join('|',"a","ante","cabe","con","contra","de","desde","en",
"entre","hacia","hasta","para","por","si","sin","sobre",
"tras","un","una","uno","unas","unos","el","la","lo","le",
"los","las");
}
sub spanish_today {
local($today) = &get_date();
$today =~ s|(\d+)/0?(\d+)/|$2 de $Month[$1] |;
join('',$today,$_[0]);
}
# ... and use it.
&spanish_titles;
$default_language = 'spanish';
$TITLES_LANGUAGE = "spanish";
$spanish_encoding = 'iso-8859-1';
1; # Not really necessary...
|
