80 lines
3.8 KiB
Plaintext
80 lines
3.8 KiB
Plaintext
|
// ***************************************************************************
|
||
|
|
// *
|
||
|
|
// * Copyright (C) 2004, International Business Machines
|
||
|
|
// * Corporation and others. All Rights Reserved.
|
||
|
|
// *
|
||
|
|
// ***************************************************************************
|
||
|
|
//
|
||
|
|
|
||
|
|
fr {
|
||
|
|
|
||
|
|
//------------------------------------------------------------
|
||
|
|
// Rule Based Number Format Support
|
||
|
|
//------------------------------------------------------------
|
||
|
|
|
||
|
|
// * Spellout rules for French. French adds some interesting quirks of its
|
||
|
|
// * own: 1) The word "et" is interposed between the tens and ones digits,
|
||
|
|
// * but only if the ones digit if 1: 20 is "vingt," and 2 is "vingt-deux,"
|
||
|
|
// * but 21 is "vingt-et-un." 2) There are no words for 70, 80, or 90.
|
||
|
|
// * "quatre-vingts" ("four twenties") is used for 80, and values proceed
|
||
|
|
// * by score from 60 to 99 (e.g., 73 is "soixante-treize" ["sixty-thirteen"]).
|
||
|
|
// * Numbers from 1,100 to 1,199 are rendered as hundreds rather than
|
||
|
|
// * thousands: 1,100 is "onze cents" ("eleven hundred"), rather than
|
||
|
|
// * "mille cent" ("one thousand one hundred")
|
||
|
|
|
||
|
|
SpelloutRules {
|
||
|
|
// the main rule set
|
||
|
|
"%main:\n"
|
||
|
|
"-x: moins >>;\n"
|
||
|
|
"x.x: << virgule >>;\n"
|
||
|
|
// words for numbers from 0 to 10
|
||
|
|
"z\u00e9ro; un; deux; trois; quatre; cinq; six; sept; huit; neuf;\n"
|
||
|
|
"dix; onze; douze; treize; quatorze; quinze; seize;\n"
|
||
|
|
" dix-sept; dix-huit; dix-neuf;\n"
|
||
|
|
// ords for the multiples of 10: %%alt-ones inserts "et"
|
||
|
|
// when needed
|
||
|
|
"20: vingt[->%%alt-ones>];\n"
|
||
|
|
"30: trente[->%%alt-ones>];\n"
|
||
|
|
"40: quarante[->%%alt-ones>];\n"
|
||
|
|
"50: cinquante[->%%alt-ones>];\n"
|
||
|
|
// rule for 60. The /20 causes this rule's multiplier to be
|
||
|
|
// 20 rather than 10, allowinhg us to recurse for all values
|
||
|
|
// from 60 to 79...
|
||
|
|
"60/20: soixante[->%%alt-ones>];\n"
|
||
|
|
// ...except for 71, which must be special-cased
|
||
|
|
"71: soixante et onze;\n"
|
||
|
|
// at 72, we have to repeat the rule for 60 to get us to 79
|
||
|
|
"72/20: soixante->%%alt-ones>;\n"
|
||
|
|
// at 80, we state a new rule with the phrase for 80. Since
|
||
|
|
// it changes form when there's a ones digit, we need a second
|
||
|
|
// rule at 81. This rule also includes "/20," allowing it to
|
||
|
|
// be used correctly for all values up to 99
|
||
|
|
"80: quatre-vingts; 81/20: quatre-vingt->>;\n"
|
||
|
|
// "cent" becomes plural when preceded by a multiplier, and
|
||
|
|
// the multiplier is omitted from the singular form
|
||
|
|
"100: cent[ >>];\n"
|
||
|
|
"200: << cents[ >>];\n"
|
||
|
|
"1000: mille[ >>];\n"
|
||
|
|
// values from 1,100 to 1,199 are rendered as "onze cents..."
|
||
|
|
// instead of "mille cent..." The > after "1000" decreases
|
||
|
|
// the rule's exponent, causing its multiplier to be 100 instead
|
||
|
|
// of 1,000. This prevents us from getting "onze cents cent
|
||
|
|
// vingt-deux" ("eleven hundred one hundred twenty-two").
|
||
|
|
"1100>: onze cents[ >>];\n"
|
||
|
|
// at 1,200, we go back to formating in thousands, so we
|
||
|
|
// repeat the rule for 1,000
|
||
|
|
"1200: mille >>;\n"
|
||
|
|
// at 2,000, the multiplier is added
|
||
|
|
"2000: << mille[ >>];\n"
|
||
|
|
"1,000,000: << million[ >>];\n"
|
||
|
|
"1,000,000,000: << milliard[ >>];\n"
|
||
|
|
"1,000,000,000,000: << billion[ >>];\n"
|
||
|
|
"1,000,000,000,000,000: =#,##0=;\n"
|
||
|
|
// %%alt-ones is used to insert "et" when the ones digit is 1
|
||
|
|
"%%alt-ones:\n"
|
||
|
|
"; et-un; =%main=;\n"
|
||
|
|
"%%lenient-parse:\n"
|
||
|
|
"&\u0000 << ' ' << ',' << '-';\n"
|
||
|
|
}
|
||
|
|
}
|