1# $Id: czech.perl,v 1.1 1998/08/25 02:11:23 RRM Exp $ 2# 3# czech.perl for czech babel, inspired heavily by german.perl 4# by Ross Moore <ross@mpce.mq.edu.au> 5 6 7package czech; 8 9print " [czech]"; 10 11sub main'czech_translation { @_[0] } 12 13 14 15package main; 16 17if (defined &addto_languages) { &addto_languages('czech') }; 18 19&do_require_extension ('latin2'); 20 21sub czech_titles { 22 $toc_title = "Obsah"; 23 $lof_title = "Seznam obrázků"; 24 $lot_title = "Seznam tabulek"; 25 $idx_title = "Index"; 26 $ref_title = "Reference"; 27 $bib_title = "Literatura"; 28 $abs_title = "Abstrakt"; 29 $app_title = "Dodatek"; 30 $pre_title = "Předmluva"; 31## $foot_title = ""; 32## $thm_title = ""; 33 $fig_name = "Obrázek"; 34 $tab_name = "Tabulka"; 35 $prf_name = "Důkaz"; 36 $page_name = "Strana"; 37 # Sectioning-level titles 38 $part_name = "Část"; 39 $chapter_name = "Kapitola"; 40# $section_name = ""; 41# $subsection_name = ""; 42# $subsubsection_name = ""; 43# $paragraph_name = ""; 44 # Misc. strings 45## $child_name = ""; 46## $info_title = ""; 47 $also_name = "viz také"; 48 $see_name = "viz"; 49 # names in navigation panels 50## $next_name = ""; 51## $up_name = ""; 52## $prev_name = ""; 53## $group_name = ""; 54 # mail fields 55 $encl_name = "Půíloha"; 56 $headto_name = "Komu"; 57 $cc_name = "Na vědomí"; 58 59 @Month = ('', 'ledna', 'úunora', 'března', 'dubna', 60 'května', 'června', 'července', 'srpna', 61 'září', 'října', 'listopadu', 'prosince'); 62 63# $GENERIC_WORDS = ""; 64} 65 66 67sub czech_today { 68 local($today) = &get_date(); 69 $today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |; 70 join('',$today,$_[0]); 71} 72 73 74 75# use'em 76&czech_titles; 77$default_language = 'czech'; 78$TITLES_LANGUAGE = 'czech'; 79$czech_encoding = 'iso-8859-2'; 80 81# $Log: czech.perl,v $ 82# Revision 1.1 1998/08/25 02:11:23 RRM 83# Babel language support 84# 85# 86 871; 88