latex2html 2008-debian1-10 / usr / share / latex2html / styles / catalan.perl

This file is indexed.

/usr/share/latex2html/styles/catalan.perl is in latex2html 2008-debian1-10.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  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
104
# $Id: catalan.perl,v 1.1 1998/08/25 02:11:21 RRM Exp $
#
# catalan.perl for catalan babel, inspired heavily by german.perl
# by Ross Moore <ross@mpce.mq.edu.au>


package catalan;

print " [catalan]";

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

sub get_catalan_specials {
    $catalan_specials{@_[0]}
}

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


package main;

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

sub catalan_titles {
    $toc_title = "\\'Index";
    $lof_title = "\\'Index de figures";
    $lot_title = "\\'Index de taules";
    $idx_title = "\\'Index alfab\\`etic";
    $ref_title = "Refer\\`encies";
    $bib_title = "Bibliografia";
    $abs_title = "Resum";
    $app_title = "Ap\\`endix";
    $pre_title = "Pr\\`oleg";
##    $foot_title = "";
##    $thm_title = "";
    $fig_name = "Figura";
    $tab_name = "Taula";
    $prf_name = "Demostraci\\'o";
    $page_name = "P\\`agina";
  #  Sectioning-level titles
    $part_name = "Part";
    $chapter_name = "Cap\\'itol";
#    $section_name = "";
#    $subsection_name = "";
#    $subsubsection_name = "";
#    $paragraph_name = "";
  #  Misc. strings
##    $child_name = "";
##    $info_title = "";
    $also_name = "Vegeu tamb\\'e";
    $see_name = "Vegeu";
  #  names in navigation panels
##    $next_name = "";
##    $up_name = "";
##    $prev_name = "";
##    $group_name = "";
  #  mail fields
    $encl_name = "Adjunt";
    $headto_name = "A";
    $cc_name = "C\\`opies a";

    @Month = ('', 'de gener', 'de febrer', 'de mar&ccedil;', "d'abril", 'de maig',
	'de juny', 'de juliol', "d'agost", 'de setembre', "d'octubre",
	'de novembre', 'de desembre');

#    $GENERIC_WORDS = "";
}


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



# use'em
&catalan_titles;
$default_language = 'catalan';
$TITLES_LANGUAGE = 'catalan';
$catalan_encoding = 'iso-8859-1';

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

1;

APT Browse - Built by Thomas Orozco.