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;' => "«", 25 ';SPMgt;' => "»", 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ário'; 40 $lof_title = 'Lista de Figuras'; 41 $lot_title = 'Lista de Tabelas'; 42 $idx_title = 'Índice Remissivo'; 43 $ref_title = 'Referências'; 44 $bib_title = 'Referências Bibliográficas'; 45 $abs_title = 'Resumo'; 46 $app_title = 'Apêndice'; 47 $pre_title = 'Prefácio'; 48## $foot_title = ''; 49## $thm_title = ''; 50 $fig_name = 'Figura'; 51 $tab_name = 'Tabela'; 52 $prf_name = 'Demonstração'; 53 $page_name = 'Página'; 54 # Sectioning-level titles 55 $part_name = 'Parte'; 56 $chapter_name = 'Capí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é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ópia para'; 75 76 @Month = ('', 'Janeiro', 'Fevereiro', 'Març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