1# $Id: estonian.perl,v 1.1 1998/08/25 01:59:00 RRM Exp $ 2# 3# estonian.perl for estonian babel, inspired heavily by german.perl 4# by Ross Moore <ross@mpce.mq.edu.au> 5 6 7package estonian; 8 9print " [estonian]"; 10 11sub main'estonian_translation { 12 local($_) = @_; 13s/;SPMquot;\s*('|`|;SPMlt;|;SPMgt;|\\|-|;SPMquot;|=|\|)/&get_estonian_specials($1)/geo; 14 $_; 15} 16 17sub get_estonian_specials { 18 $estonian_specials{@_[0]} 19} 20 21%estonian_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('estonian') }; 37 38sub estonian_titles { 39 $toc_title = "Sisukord"; 40 $lof_title = "Joonised"; 41 $lot_title = "Tabelid"; 42 $idx_title = "Indeks"; 43 $ref_title = "Viited"; 44 $bib_title = "Kirjandus"; 45 $abs_title = "Kokkuv\\~ote"; 46 $app_title = "Lisa"; 47 $pre_title = "Sissejuhatus"; 48## $foot_title = ""; 49## $thm_title = ""; 50 $fig_name = "Joonis"; 51 $tab_name = "Tabel"; 52 $prf_name = "Korrektuur"; 53 $page_name = "Lk."; 54 # Sectioning-level titles 55 $part_name = "Osa"; 56 $chapter_name = 'Peat\"ukk'; 57# $section_name = ""; 58# $subsection_name = ""; 59# $subsubsection_name = ""; 60# $paragraph_name = ""; 61 # Misc. strings 62## $child_name = ""; 63## $info_title = ""; 64 $also_name = "vt. ka"; 65 $see_name = "vt."; 66 # names in navigation panels 67## $next_name = ""; 68## $up_name = ""; 69## $prev_name = ""; 70## $group_name = ""; 71 # mail fields 72 $encl_name = "Lisa(d)"; 73 $headto_name = ""; 74 $cc_name = "Koopia(d)"; 75 76 @Month = ('', 'jaanuar', 'veebruar', 'm\"arts', 'aprill', 'mai', 'juuni', 77 'juuli', 'august', 'september', 'oktoober', 'november', 'detsember'); 78 79# $GENERIC_WORDS = ""; 80} 81 82 83sub estonian_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&estonian_titles; 93$default_language = 'estonian'; 94$TITLES_LANGUAGE = 'estonian'; 95$estonian_encoding = 'iso-8859-1'; 96 97# $Log: estonian.perl,v $ 98# Revision 1.1 1998/08/25 01:59:00 RRM 99# Babel language support 100# 101# 102 1031; 104