1# $Id: portuges.perl,v 1.4 2001/05/20 22:51:02 RRM Exp $
2#
3# portuges.perl for portuges babel, inspired heavily by german.perl
4# by Ross Moore <ross@mpce.mq.edu.au>
5
6
7package portuges;
8
9print " [portuges]";
10
11sub main'portuges_translation {
12    local($_) = @_;
13s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_portuges_specials($1)/geo;
14    $_;
15}
16
17sub get_portuges_specials {
18    $portuges_specials{@_[0]}
19}
20
21%portuges_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('portuges') };
37
38sub portuges_titles {
39    $toc_title = "Conte\\'udo";
40    $lof_title = "Lista de Figuras";
41    $lot_title = "Lista de Tabelas";
42    $idx_title = "\\'Indice";
43    $ref_title = "Refer\\^encias";
44    $bib_title = "Bibliografia";
45    $abs_title = "Resumo";
46    $app_title = "Ap\\^endice";
47    $pre_title = "Pref\\'acio";
48    $foot_title = "Notas de rodap&eacute;";
49    $thm_title = "Teorema";
50    $fig_name = "Figura";
51    $tab_name = "Tabela";
52    $prf_name = "Demonstra&ccedil;&atilde;o";
53    $page_name = "P\\'agina";
54  #  Sectioning-level titles
55    $part_name = "Parte";
56    $chapter_name = "Cap\\'itulo";
57    $section_name = "Sec&ccedil;&atilde;o";
58    $subsection_name = "Subsec&ccedil;&atilde;o";
59    $subsubsection_name = "Subsubsec&ccedil;&atilde;o";
60    $paragraph_name = "Para&aacute;grafo";
61  #  Misc. strings
62    $child_name = "Subsec&ccedil;&otilde;es";
63    $info_title = "Sobre este documento ...";
64    $also_name = "ver tamb\\'em";
65    $see_name = "ver";
66  #  names in navigation panels
67    $next_name = "Seguinte";
68    $up_name = "Acima";
69    $prev_name = "Anterior";
70    $group_name = "Pr&oacute;ximo Grupo";
71  #  mail fields
72    $encl_name = "Anexo";
73    $headto_name = "Para";
74    $cc_name = "Com c\\'opia a";
75
76    @Month = ('', 'Janeiro', 'Fevereiro', 'Mar&ccedil;o', 'Abril', 'Maio', 'Junho',
77	'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');
78
79    $GENERIC_WORDS = "e|o|a|os|as|de|para|por|um|uma";
80}
81
82
83sub portuges_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&portuges_titles;
93$default_language = 'portuges';
94$TITLES_LANGUAGE = 'portuges';
95$portuges_encoding = 'iso-8859-1';
96
97# $Log: portuges.perl,v $
98# Revision 1.4  2001/05/20 22:51:02  RRM
99#  --  added values for  $thm_title, $group_name, $GENERIC_WORDS
100#
101# Revision 1.3  2001/05/19 23:52:21  RRM
102#      more additions, from Jose Carlos Oliveira Santos
103#
104# Revision 1.2  2001/05/19 00:39:01  RRM
105#      modifications by  Jose Carlos Oliveira Santos <jcsantos@fc.up.pt>
106#  --  added phrases for $foot_title , $child_name , $info_title .
107#
108# Revision 1.1  1998/08/25 01:59:07  RRM
109# 	Babel language support
110#
111#
112
1131;
114