1# $Id: american.perl,v 1.1 1998/08/25 02:11:18 RRM Exp $ 2# 3# american.perl for american babel, inspired heavily by german.perl 4# by Ross Moore <ross@mpce.mq.edu.au> 5 6 7package american; 8 9print " [american]"; 10 11sub main'american_translation { @_[0] } 12 13 14package main; 15 16if (defined &addto_languages) { &addto_languages('american') }; 17 18sub american_titles { 19 $toc_title = "Contents"; 20 $lof_title = "List of Figures"; 21 $lot_title = "List of Tables"; 22 $idx_title = "Index"; 23 $ref_title = "References"; 24 $bib_title = "Bibliography"; 25 $abs_title = "Abstract"; 26 $app_title = "Appendix"; 27 $pre_title = "Preface"; 28 $foot_title = "Footnotes"; 29 $thm_title = "Theorem"; 30 $fig_name = "Figure"; 31 $tab_name = "Table"; 32 $prf_name = "Proof"; 33 $date_name = "Date"; 34 $page_name = "Page"; 35 # Sectioning-level titles 36 $part_name = "Part"; 37 $chapter_name = "Chapter"; 38 $section_name = "Section"; 39 $subsection_name = "Subsection"; 40 $subsubsection_name = "Subsubsection"; 41 $paragraph_name = "Paragraph"; 42 # Misc. strings 43 $child_name = "Subsections"; 44 $info_title = "About this document ..."; 45 $also_name = "see also"; 46 $see_name = "see"; 47 # names in navigation panels 48 $next_name = "Next"; 49 $up_name = "Up"; 50 $prev_name = "Previous"; 51 # field names in email headers 52 $encl_name = "encl"; 53 $headto_name = "To"; 54 $cc_name = "cc"; 55 56 @Month = ('', 'January', 'February', 'March', 'April', 'May', 57 'June', 'July', 'August', 'September', 'October', 58 'November', 'December'); 59 $GENERIC_WORDS = "and|the|of|for|by|a|an|to"; 60} 61 62 63sub american_today { 64 local($today) = &get_date(); 65 $today =~ s|(\d+)/0?(\d+)/|$Month[$1] $2 |; 66 join('',$today,$_[0]); 67} 68 69 70 71# use'em 72&american_titles; 73$default_language = 'american'; 74$TITLES_LANGUAGE = 'american'; 75$american_encoding = 'iso-8859-1'; 76 77# $Log: american.perl,v $ 78# Revision 1.1 1998/08/25 02:11:18 RRM 79# Babel language support 80# 81# 82 831; 84