// ***************************************************************************
// *
// *   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"
    }
}