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;' => "«", 25 ';SPMgt;' => "»", 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é"; 49 $thm_title = "Teorema"; 50 $fig_name = "Figura"; 51 $tab_name = "Tabela"; 52 $prf_name = "Demonstração"; 53 $page_name = "P\\'agina"; 54 # Sectioning-level titles 55 $part_name = "Parte"; 56 $chapter_name = "Cap\\'itulo"; 57 $section_name = "Secção"; 58 $subsection_name = "Subsecção"; 59 $subsubsection_name = "Subsubsecção"; 60 $paragraph_name = "Paraágrafo"; 61 # Misc. strings 62 $child_name = "Subsecçõ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ó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ç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