1# $Id: brazil.perl,v 1.1 1998/08/25 02:11:20 RRM Exp $
2#
3# brazil.perl for portuges/brazil babel, inspired heavily by german.perl
4# by Ross Moore <ross@mpce.mq.edu.au>
5
6
7package brazil;
8
9print " [brazil]";
10
11sub main'brazil_translation {
12    local($_) = @_;
13s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_brazil_specials($1)/geo;
14    $_;
15}
16
17sub get_brazil_specials {
18    $brazil_specials{@_[0]}
19}
20
21%brazil_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('brazil') };
37
38sub brazil_titles {
39    $toc_title = 'Sum&aacute;rio';
40    $lof_title = 'Lista de Figuras';
41    $lot_title = 'Lista de Tabelas';
42    $idx_title = '&Iacute;ndice Remissivo';
43    $ref_title = 'Refer&ecirc;ncias';
44    $bib_title = 'Refer&ecirc;ncias Bibliogr&aacute;ficas';
45    $abs_title = 'Resumo';
46    $app_title = 'Ap&ecirc;ndice';
47    $pre_title = 'Pref&aacute;cio';
48##    $foot_title = '';
49##    $thm_title = '';
50    $fig_name = 'Figura';
51    $tab_name = 'Tabela';
52    $prf_name = 'Demonstra&ccedil;&atilde;o';
53    $page_name = 'P&aacute;gina';
54  #  Sectioning-level titles
55    $part_name = 'Parte';
56    $chapter_name = 'Cap&iacute;tulo';
57#    $section_name = '';
58#    $subsection_name = '';
59#    $subsubsection_name = '';
60#    $paragraph_name = '';
61  #  Misc. strings
62##    $child_name = '';
63##    $info_title = '';
64    $also_name = 'veja tamb&eacute;m';
65    $see_name = 'veja';
66  #  names in navigation panels
67##    $next_name = '';
68##    $up_name = '';
69##    $prev_name = '';
70##    $group_name = '';
71  #  mail fields
72    $encl_name = 'Anexo';
73    $headto_name = 'Para';
74    $cc_name = 'C&oacute;pia para';
75
76    @Month = ('', 'Janeiro', 'Fevereiro', 'Mar&ccedil;o', 'Abril', 'Maio', 'Junho',
77	'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');
78
79#    $GENERIC_WORDS = '';
80}
81
82
83sub brazil_today {
84    local($today) = &get_date();
85    $today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |;
86    join('',$today,$_[0]);
87}
88
89
90
91# use'em
92&brazil_titles;
93$default_language = 'brazil';
94$TITLES_LANGUAGE = 'brazil';
95$brazil_encoding = 'iso-8859-1';
96
97# $Log: brazil.perl,v $
98# Revision 1.1  1998/08/25 02:11:20  RRM
99# 	Babel language support
100#
101#
102
1031;
104