File: brazil.perl

package info (click to toggle)
latex2html 2015-debian1-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 7,652 kB
  • ctags: 3,386
  • sloc: perl: 30,941; makefile: 429; sh: 155
file content (103 lines) | stat: -rw-r--r-- 2,378 bytes parent folder | download | duplicates (12) 
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
98
99
100
101
102
103
 
# $Id: brazil.perl,v 1.1 1998/08/25 02:11:20 RRM Exp $
#
# brazil.perl for portuges/brazil babel, inspired heavily by german.perl
# by Ross Moore <ross@mpce.mq.edu.au>


package brazil;

print " [brazil]";

sub main'brazil_translation {
    local($_) = @_;
s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_brazil_specials($1)/geo;
    $_;
}

sub get_brazil_specials {
    $brazil_specials{@_[0]}
}

%brazil_specials = (
    '\''       => "``",
    "\`"       => ",,",
    ';SPMlt;'  => "&laquo;",
    ';SPMgt;'  => "&raquo;",
    '\\'       => "",
    '-'        => "-",
    ';SPMquot;'=> "",
    '='        => "-",
    '|'        => ""
);


package main;

if (defined &addto_languages) { &addto_languages('brazil') };

sub brazil_titles {
    $toc_title = 'Sum&aacute;rio';
    $lof_title = 'Lista de Figuras';
    $lot_title = 'Lista de Tabelas';
    $idx_title = '&Iacute;ndice Remissivo';
    $ref_title = 'Refer&ecirc;ncias';
    $bib_title = 'Refer&ecirc;ncias Bibliogr&aacute;ficas';
    $abs_title = 'Resumo';
    $app_title = 'Ap&ecirc;ndice';
    $pre_title = 'Pref&aacute;cio';
##    $foot_title = '';
##    $thm_title = '';
    $fig_name = 'Figura';
    $tab_name = 'Tabela';
    $prf_name = 'Demonstra&ccedil;&atilde;o';
    $page_name = 'P&aacute;gina';
  #  Sectioning-level titles
    $part_name = 'Parte';
    $chapter_name = 'Cap&iacute;tulo';
#    $section_name = '';
#    $subsection_name = '';
#    $subsubsection_name = '';
#    $paragraph_name = '';
  #  Misc. strings
##    $child_name = '';
##    $info_title = '';
    $also_name = 'veja tamb&eacute;m';
    $see_name = 'veja';
  #  names in navigation panels
##    $next_name = '';
##    $up_name = '';
##    $prev_name = '';
##    $group_name = '';
  #  mail fields
    $encl_name = 'Anexo';
    $headto_name = 'Para';
    $cc_name = 'C&oacute;pia para';

    @Month = ('', 'Janeiro', 'Fevereiro', 'Mar&ccedil;o', 'Abril', 'Maio', 'Junho',
	'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');

#    $GENERIC_WORDS = '';
}


sub brazil_today {
    local($today) = &get_date();
    $today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |;
    join('',$today,$_[0]);
}



# use'em
&brazil_titles;
$default_language = 'brazil';
$TITLES_LANGUAGE = 'brazil';
$brazil_encoding = 'iso-8859-1';

# $Log: brazil.perl,v $
# Revision 1.1  1998/08/25 02:11:20  RRM
# 	Babel language support
#
#

1;