[l2h] Support for Walloon language

[Pablo Saratxaga]

Kaixo!

I attach here a /usr/lib/latex2html/styles/walon.perl file
I made in order to have latex2html use Walloon language strings.

The ISO code for Walloon is "wa" 

For more info on Walloon language: 
http://www.wallonie.com/wallang/
http://en.wikipedia.org/wiki/Walloon_language

I used it for http://rifondou.walon.org/so_l_anuti/ 

Thank you.

--

Ki ça vos våye bén,
Pablo Saratxaga

http://chanae.walon.org/pablo/          PGP Key available, key ID: 0xD9B85466
[you can write me in Walloon, Spanish, French, English, Catalan or Esperanto]
[min povas skribi en valona, esperanta, angla aux latinidaj lingvoj]

# walon.perl by Pablo Saratxaga <[EMAIL PROTECTED]> 2005-08-01
# adapted from french.perl by Nikos Drakos <[EMAIL PROTECTED]> 25-11-93
#
# Extension to LaTeX2HTML to translate LaTeX walloon special 
# commands to equivalent HTML commands and ISO-LATIN-1 characters.
#
# Change Log:
# ===========
#
# 2005-08-01 Pablo Saratxaga <[EMAIL PROTECTED]>
#       adapted french.perl by translating text strings into Walloon

package walon;

# Put walloon equivalents here for headings/dates/ etc when
# latex2html start supporting them ...

sub main'walon_translation { @_[0] }



package main;

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

sub do_cmd_inferieura {
   "&lt @_[0]"
}
 
sub do_cmd_superrieura {
   "&gt @_[0]"
}

#AYS: Prepare the walon environment ...
sub walon_titles {
    $toc_title = "&Aring; dvins";
    $lof_title = "Djiv&ecirc;eye des im&aring;djes";
    $lot_title = "Djiv&ecirc;ye des t&aring;vleas";
    $idx_title = "Indecse";
    $ref_title = "Referinces";
    $bib_title = "Bibliografeye";
    $abs_title = "Rascourti";
    $app_title = "Anecse";
    $pre_title = "Adrovaedje";
    $foot_title = "Notes";
    $thm_title = "Teyorinme";
    $fig_name = "Im&aring;dje";
    $tab_name = "T&aring;vlea";
    $prf_name = "Prouve";
    $date_name = "Date";
    $page_name = "p&aring;dje";
  #  Sectioning-level titles
    $part_name = "P&aring;rteye";
    $chapter_name = "Tchaptr&ecirc;";
    $section_name = "Seccion";
    $subsection_name = "Dizo-seccion";
    $subsubsection_name = "Dizo-dzo-seccion";
    $paragraph_name = "Hagnon";
  #  Misc. strings
    $child_name = "Dizo-seccions";
    $info_title = "&Aring;d fwait di &ccedil;'~documint ci..."; 
  #  names in navigation panels
    $also_name = "<EM>vey eto</EM>";
    $see_name = "<EM>vey</EM>";
    $next_name = "Shuvant";
    $up_name = "&Aring;~dzeur";
    $prev_name = "Di~dvant";
    $group_name = "groupe";
  #  mail fields
    $encl_name = "Atatchmint";
    $headto_name = "";
    $cc_name = "Copeye a";

    @Month = ('', 'djanv&icirc;', "fevr&icirc;", 'm&aring;ss', 'avri', 'may',
              'djun', 'djulete', "awousse", 'setimbe', 'oct&ocirc;be',
              'n&ocirc;vimbe', "decimbe");
    $GENERIC_WORDS = "a|&aring;|&aring;s|mins|ou|et|adon|ni|ca|l|li|el|les"
        . "|c|&ccedil;|ci|ces|on|&egrave;n|ene|d|di|do|des";
}

#AYS(JKR): Replace do_cmd_today (\today) with a nicer one, which is more
# similar to the original. 
#JCL introduced &get_date.
sub walon_today {
    local($today) = &get_date();
    $today =~ s|(\d+)/0?(\d+)/|$2 $Month[$1] |;
    join('',$today,$_[0]);
}

sub do_cmd_up {
    local($_) = @_;
    s/$next_pair_pr_rx//o;
    join('',"<SUP>",$&,"</SUP>",$_);
}
sub do_cmd_ieme {join('',"<SUP>inme</SUP>",$_[0]);}
sub do_cmd_iemes {join('',"<SUP>inmes</SUP>",$_[0]);}
sub do_cmd_ier {join('',"<SUP>&icirc;</SUP>",$_[0]);}
sub do_cmd_iers {join('',"<SUP>&icirc;s</SUP>",$_[0]);}
sub do_cmd_iere {join('',"<SUP>ire</SUP>",$_[0]);}
sub do_cmd_ieres {join('',"<SUP>ires</SUP>",$_[0]);}
sub do_cmd_primo {join('',"1<SUP>o</SUP>",$_[0]);}
sub do_cmd_secundo {join('',"2<SUP>o</SUP>",$_[0]);}
sub do_cmd_tertio {join('',"3<SUP>o</SUP>",$_[0]);}
sub do_cmd_quatro {join('',"4<SUP>o</SUP>",$_[0]);}
sub do_cmd_fprimo {join('',"1<SUP>o</SUP>",$_[0]);}
sub do_cmd_fsecundo {join('',"2<SUP>o</SUP>",$_[0]);}
sub do_cmd_ftertio {join('',"3<SUP>o</SUP>",$_[0]);}
sub do_cmd_fquatro {join('',"4<SUP>o</SUP>",$_[0]);}
sub do_cmd_Lo {join('',"L&ordm;",$_[0]);}
sub do_cmd_lo {join('',"l&ordm;",$_[0]);}
sub do_cmd_at {join('',"@",$_[0]);}
sub do_cmd_circonflexe {join('',"^",$_[0]);}
sub do_cmd_tild {join('',"~",$_[0]);}
sub do_cmd_boi {join('',"\\",$_[0]);}
sub do_cmd_degre {join('',"&#176",$_[0]);}
sub do_cmd_degres {join('',"&#176",$_[0]);}
sub do_cmd_og {join('',"&#171",$_[0]);}
sub do_cmd_fg {join('',"&#187",$_[0]);}

# ... and use it.
&walon_titles;
$default_language = 'walon';
$TITLES_LANGUAGE = "walon";
$walon_encoding = 'iso-8859-1';

1;                              # Not really necessary...

pgpGble7NsP3J.pgp
Description: PGP signature

_______________________________________________
latex2html mailing list
latex2html@tug.org
http://tug.org/mailman/listinfo/latex2html