|We don't bite newbies here... much|
Re: Re: Re (tilly) 1: Perl Programs That Support Multiple (Human) Languagesby John M. Dlugosz (Monsignor)
|on Aug 27, 2001 at 11:04 UTC||Need Help??|
In the early 90's, for an embedded PC that controlled a scanning densitometer, I came up with a C++ class that fit our needs.
An associative array was indexed by a string value, which could have some nmenonic value to the code it's called from, and is easier to make unique and maintain in a large program than sequencial ID numbers as favored by MicroSoft.
The "hash" was populated from a translation file at program startup. The format of the file was the key followed by each available translation.
I liked the idea of having all translations of one string together, rather than a different file for each language like some schemes. I think Win32's language stuff (using FormatMessage, not the string table resource) works that way too, but is not nearly as powerful. FormatMessage has the dynamic positioning of strings like you mention; I don't remember how my old program handled that.
In a modern Perl solution, I think we can address the dynamic ordering easily enough:
If you pulled in the string with a function call, such as $x->format ($a,$b,$c); and the string contained markers $1, $2, and $3, you get the idea. But function calls don't interpolate in Perl 5, so using a tied hash for syntactic sugar might help.
I'd also like to see the format function automatically take care of changes based on the actual paramters, such as number and gender. E.g. $x->format(17) would cough up "There were 17 files processed." but $x->format(1) would produce "There was 1 file processed". Changes in words due to singular/plural is so common that an escape code could specify that. E.g. the translation string holds 'There $?n1(were,was,were) $1 file$?n1(,,s) processed.'. $ followed by digit is a substitution. $? followed by code/flags/etc then digit is fancy stuff: ?n for "number", followed by forms for zero,singular,plural cases.