[l2h] swedish.perl

[Daniel Berntsson]

I noticed there is no swedish.perl file. I don't know if this is an
accident or if it has never existed but I needed one so I made one and
here it is.


/ Daniel Berntsson
package swedish;

print " [swedish]";

sub main'swedish_translation { @_[0] }


package main;

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

sub swedish_titles {
    $toc_title = "Inneh�ll";
    $lof_title = "Figurer";
    $lot_title = "Tabeller";
    $idx_title = "Index";
    $ref_title = "Referenser";
    $bib_title = "Litteraturf�rteckning";
    $abs_title = "Sammanfattning";
    $app_title = "Appendix";
    $pre_title = "F�rord";
    $foot_title = "Fotnoter";
    $thm_title = "Teorem";
    $fig_name = "Figur";
    $tab_name = "Tabell";
    $prf_name = "Bevis";
    $date_name = "Datum";
    $page_name = "Sida";
  #  Sectioning-level titles
    $part_name = "Del";
    $chapter_name = "Kapitel";
    $section_name = "Avsnitt";
    $subsection_name = "Underavsnitt";
    $subsubsection_name = "Underunderavsnitt";
    $paragraph_name = "Stycke";
  #  Misc. strings
    $child_name = "Underavsnitt";
    $info_title = "Om detta dokument ...";
    $also_name = "se �ven";
    $see_name = "se";
  #  names in navigation panels
    $next_name = "N�sta";
    $up_name = "Upp";
    $prev_name = "F�reg�ende";
  #  field names in email headers
    $encl_name = "encl";
    $headto_name = "To";
    $cc_name = "cc";

    @Month = ('', 'januari', 'februari', 'mars', 'april', 'maj',
              'juni', 'juli', 'augusti', 'september', 'oktober',
              'november', 'december');

    $GENERIC_WORDS = "och|av|en|ett|f�r";
}


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



# use'em
&swedish_titles;
$default_language = 'swedish';
$TITLES_LANGUAGE = 'swedish';
$swedish_encoding = 'iso-8859-1';


1;