%% %% This is file `fc-french.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% fmtcount.dtx (with options: `fc-french.def,package') %% Copyright (C) 2006 Nicola Talbot, all rights reserved. %% If you modify this file, you must change its name first. %% You are NOT ALLOWED to distribute this file alone. You are NOT %% ALLOWED to take money for the distribution or use of either this %% file or a changed version, except for a nominal charge for copying %% etc. %% \CharacterTable %% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z %% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z %% Digits \0\1\2\3\4\5\6\7\8\9 %% Exclamation \! Double quote \" Hash (number) \# %% Dollar \$ Percent \% Ampersand \& %% Acute accent \' Left paren \( Right paren \) %% Asterisk \* Plus \+ Comma \, %% Minus \- Point \. Solidus \/ %% Colon \: Semicolon \; Less than \< %% Equals \= Greater than \> Question mark \? %% Commercial at \@ Left bracket \[ Backslash \\ %% Right bracket \] Circumflex \^ Underscore \_ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~} \ProvidesFile{fc-french.def}[2005/04/29] \newcommand{\@@unitstringfrench}[1]{% \ifcase#1\relax zero% \or un% \or deux% \or trois% \or quatre% \or cinq% \or six% \or sept% \or huit% \or neuf% \fi } \newcommand{\@@unitstringFfrench}[1]{% \ifnum#1=1\relax une% \else\@@unitstringfrench{#1}% \fi } \newcommand{\@@tenstringfrench}[1]{% \ifcase#1\relax \or dix% \or vingt% \or trente% \or quarante% \or cinquante% \or soixante% \or septente% \or huitante% \or nonente% \or cent% \fi } \newcommand{\@@teenstringfrench}[1]{% \ifcase#1\relax dix% \or onze% \or douze% \or treize% \or quatorze% \or quinze% \or seize% \or dix-sept% \or dix-huit% \or dix-neuf% \fi } \newcommand{\@@seventiesfrench}[1]{% \@tenstring{6}% \ifnum#1=1\relax \ \@andname\ \else -% \fi \@teenstring{#1}% } \newcommand{\@@eightiesfrench}[1]{% \@unitstring{4}-\@tenstring{2}% \ifnum#1>0 -\@unitstring{#1}% \else s% \fi } \newcommand{\@@ninetiesfrench}[1]{% \@unitstring{4}-\@tenstring{2}-\@teenstring{#1}% } \newcommand{\@@seventiesfrenchswiss}[1]{% \@tenstring{7}% \ifnum#1=1\ \@andname\ \fi \ifnum#1>1-\fi \ifnum#1>0\@unitstring{#1}\fi } \newcommand{\@@eightiesfrenchswiss}[1]{% \@tenstring{8}% \ifnum#1=1\ \@andname\ \fi \ifnum#1>1-\fi \ifnum#1>0\@unitstring{#1}\fi } \newcommand{\@@ninetiesfrenchswiss}[1]{% \@tenstring{9}% \ifnum#1=1\ \@andname\ \fi \ifnum#1>1-\fi \ifnum#1>0\@unitstring{#1}\fi } \newcommand{\@@Unitstringfrench}[1]{% \ifcase#1\relax Zero% \or Un% \or Deux% \or Trois% \or Quatre% \or Cinq% \or Six% \or Sept% \or Huit% \or Neuf% \fi } \newcommand{\@@UnitstringFfrench}[1]{% \ifnum#1=1\relax Une% \else \@@Unitstringfrench{#1}% \fi } \newcommand{\@@Tenstringfrench}[1]{% \ifcase#1\relax \or Dix% \or Vingt% \or Trente% \or Quarante% \or Cinquante% \or Soixante% \or Septente% \or Huitante% \or Nonente% \or Cent% \fi } \newcommand{\@@Teenstringfrench}[1]{% \ifcase#1\relax Dix% \or Onze% \or Douze% \or Treize% \or Quatorze% \or Quinze% \or Seize% \or Dix-Sept% \or Dix-Huit% \or Dix-Neuf% \fi } \newcommand{\@numberstringMfrenchswiss}[1]{% \let\@unitstring=\@@unitstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@numberstringMfrenchfrance}[1]{% \let\@unitstring=\@@unitstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@numberstringMfrenchbelgian}[1]{% \let\@unitstring=\@@unitstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \let\@numberstringMfrench=\@numberstringMfrenchfrance \newcommand{\@numberstringFfrenchswiss}[1]{% \let\@unitstring=\@@unitstringFfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@numberstringFfrenchfrance}[1]{% \let\@unitstring=\@@unitstringFfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@numberstringFfrenchbelgian}[1]{% \let\@unitstring=\@@unitstringFfrench \let\@teenstring=\@@teenstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{cent}\def\@thousand{mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \let\@numberstringFfrench=\@numberstringFfrenchfrance \newcommand{\@NumberstringMfrenchswiss}[1]{% \let\@unitstring=\@@Unitstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@NumberstringMfrenchfrance}[1]{% \let\@unitstring=\@@Unitstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@NumberstringMfrenchbelgian}[1]{% \let\@unitstring=\@@Unitstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \let\@NumberstringMfrench=\@NumberstringMfrenchfrance \newcommand{\@NumberstringFfrenchswiss}[1]{% \let\@unitstring=\@@UnitstringFfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@NumberstringFfrenchfrance}[1]{% \let\@unitstring=\@@UnitstringFfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \newcommand{\@NumberstringFfrenchbelgian}[1]{% \let\@unitstring=\@@UnitstringFfrench \let\@teenstring=\@@Teenstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \def\@hundred{Cent}\def\@thousand{Mille}% \def\@andname{et}% \@@numberstringfrench{#1}} \let\@NumberstringFfrench=\@NumberstringFfrenchfrance \newcommand{\@ordinalstringMfrenchswiss}[1]{% \ifnum#1=1\relax premier% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrenchswiss \let\@ninetieths=\@@ninetiethsfrenchswiss \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@ordinalstringMfrenchfrance}[1]{% \ifnum#1=1\relax premier% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrench \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@teenstringfrench \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@ordinalstringMfrenchbelgian}[1]{% \ifnum#1=1\relax premier% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrenchswiss \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@teenstringfrench \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \let\@ordinalstringMfrench=\@ordinalstringMfrenchfrance \newcommand{\@ordinalstringFfrenchswiss}[1]{% \ifnum#1=1\relax premi\`ere% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringFfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrenchswiss \let\@ninetieths=\@@ninetiethsfrenchswiss \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@ordinalstringFfrenchfrance}[1]{% \ifnum#1=1\relax premi\`ere% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringFfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrench \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@teenstringfrench \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@ordinalstringFfrenchbelgian}[1]{% \ifnum#1=1\relax premi\`ere% \else \let\@unitthstring=\@@unitthstringfrench \let\@unitstring=\@@unitstringFfrench \let\@teenthstring=\@@teenthstringfrench \let\@teenstring=\@@teenstringfrench \let\@tenthstring=\@@tenthstringfrench \let\@tenstring=\@@tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@teenstringfrench \def\@hundredth{centi\`eme}\def\@hundred{cent}% \def\@thousandth{mili\`eme}\def\@thousand{mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \let\@ordinalstringFfrench=\@ordinalstringFfrenchfrance \newcommand{\@OrdinalstringMfrenchswiss}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@Unitstringfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrenchswiss \let\@ninetieths=\@@ninetiethsfrenchswiss \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@OrdinalstringMfrenchfrance}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@Unitstringfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrench \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@Teenstringfrench \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@OrdinalstringMfrenchbelgian}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@Unitstringfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@Teenstringfrench \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \let\@OrdinalstringMfrench=\@OrdinalstringMfrenchfrance \newcommand{\@OrdinalstringFfrenchswiss}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@UnitstringFfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrenchswiss \let\@ninetieths=\@@ninetiethsfrenchswiss \let\@seventies=\@@seventiesfrenchswiss \let\@eighties=\@@eightiesfrenchswiss \let\@nineties=\@@ninetiesfrenchswiss \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@OrdinalstringFfrenchfrance}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@UnitstringFfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrench \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@Teenstringfrench \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \newcommand{\@OrdinalstringFfrenchbelgian}[1]{% \ifnum#1=1\relax Premi\`ere% \else \let\@unitthstring=\@@Unitthstringfrench \let\@unitstring=\@@UnitstringFfrench \let\@teenthstring=\@@Teenthstringfrench \let\@teenstring=\@@Teenstringfrench \let\@tenthstring=\@@Tenthstringfrench \let\@tenstring=\@@Tenstringfrench \let\@seventieths=\@@seventiethsfrenchswiss \let\@eightieths=\@@eightiethsfrench \let\@ninetieths=\@@ninetiethsfrench \let\@seventies=\@@seventiesfrench \let\@eighties=\@@eightiesfrench \let\@nineties=\@@ninetiesfrench \let\@teenstring=\@@Teenstringfrench \def\@hundredth{Centi\`eme}\def\@hundred{Cent}% \def\@thousandth{Mili\`eme}\def\@thousand{Mille}% \def\@andname{et}% \@@ordinalstringfrench{#1}% \fi} \let\@OrdinalstringFfrench=\@OrdinalstringFfrenchfrance \newcommand{\@ordinalMfrench}[1]{% \iffmtord@abbrv #1\fmtord{e}% \else #1\ifnum#1=1\fmtord{er}\else\fmtord{eme}\fi \fi} \newcommand{\@ordinalFfrench}[1]{% \iffmtord@abbrv #1\fmtord{e}% \else #1\ifnum#1=1\fmtord{ere}\else\fmtord{eme}\fi \fi} \newcommand{\@@unitthstringfrench}[1]{% \ifcase#1\relax zero% \or uni\`eme% \or deuxi\`eme% \or troisi\`eme% \or quatri\`eme% \or cinqui\`eme% \or sixi\`eme% \or septi\`eme% \or huiti\`eme% \or neuvi\`eme% \fi } \newcommand{\@@tenthstringfrench}[1]{% \ifcase#1\relax \or dixi\`eme% \or vingti\`eme% \or trentri\`eme% \or quaranti\`eme% \or cinquanti\`eme% \or soixanti\`eme% \or septenti\`eme% \or huitanti\`eme% \or nonenti\`eme% \fi } \newcommand{\@@teenthstringfrench}[1]{% \ifcase#1\relax dixi\`eme% \or onzi\`eme% \or douzi\`eme% \or treizi\`eme% \or quatorzi\`eme% \or quinzi\`eme% \or seizi\`eme% \or dix-septi\`eme% \or dix-huiti\`eme% \or dix-neuvi\`eme% \fi } \newcommand{\@@seventiethsfrenchswiss}[1]{% \ifcase#1\relax \@tenthstring{7}% \or \@tenstring{7} \@andname\ \@unitthstring{1}% \else \@tenstring{7}-\@unitthstring{#1}% \fi} \newcommand{\@@eightiethsfrenchswiss}[1]{% \ifcase#1\relax \@tenthstring{8}% \or \@tenstring{8} \@andname\ \@unitthstring{1}% \else \@tenstring{8}-\@unitthstring{#1}% \fi} \newcommand{\@@ninetiethsfrenchswiss}[1]{% \ifcase#1\relax \@tenthstring{9}% \or \@tenstring{9} \@andname\ \@unitthstring{1}% \else \@tenstring{9}-\@unitthstring{#1}% \fi} \newcommand{\@@seventiethsfrench}[1]{% \ifnum#1=0\relax \@tenstring{6}% -% \else \@tenstring{6}% \ \@andname\ \fi \@teenthstring{#1}% } \newcommand{\@@eightiethsfrench}[1]{% \ifnum#1>0\relax \@unitstring{4}-\@tenstring{2}% -\@unitthstring{#1}% \else \@unitstring{4}-\@tenthstring{2}% \fi } \newcommand{\@@ninetiethsfrench}[1]{% \@unitstring{4}-\@tenstring{2}-\@teenthstring{#1}% } \newcommand{\@@Unitthstringfrench}[1]{% \ifcase#1\relax Zero% \or Uni\`eme% \or Deuxi\`eme% \or Troisi\`eme% \or Quatri\`eme% \or Cinqui\`eme% \or Sixi\`eme% \or Septi\`eme% \or Huiti\`eme% \or Neuvi\`eme% \fi } \newcommand{\@@Tenthstringfrench}[1]{% \ifcase#1\relax \or Dixi\`eme% \or Vingti\`eme% \or Trentri\`eme% \or Quaranti\`eme% \or Cinquanti\`eme% \or Soixanti\`eme% \or Septenti\`eme% \or Huitanti\`eme% \or Nonenti\`eme% \fi } \newcommand{\@@Teenthstringfrench}[1]{% \ifcase#1\relax Dixi\`eme% \or Onzi\`eme% \or Douzi\`eme% \or Treizi\`eme% \or Quatorzi\`eme% \or Quinzi\`eme% \or Seizi\`eme% \or Dix-Septi\`eme% \or Dix-Huiti\`eme% \or Dix-Neuvi\`eme% \fi } \newcommand{\@@numberstringfrench}[1]{% \ifnum#1>99999 \PackageError{fmtcount}{Out of range}% {This macro only works for values less than 100000}% \else \ifnum#1<0 \PackageError{fmtcount}{Negative numbers not permitted}% {This macro does not work for negative numbers, however you can try typing "minus" first, and then pass the modulus of this number}% \fi \fi \@strctr=#1\relax \divide\@strctr by 1000\relax \ifnum\@strctr>9 \@tmpstrctr=\@strctr \divide\@strctr by 10 \ifnum\@strctr>1 \ifthenelse{\(\@strctr>6\)\and\(\@strctr<10\)}{% \@modulo{\@tmpstrctr}{10}% \ifnum\@strctr<8\relax \@seventies{\@tmpstrctr}% \else \ifnum\@strctr<9\relax \@eighties{\@tmpstrctr}% \else \ifnum\@strctr<10\@nineties{\@tmpstrctr}\fi \fi \fi }{% \@tenstring{\@strctr}% \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \ifnum\@strctr>0\relax \ \@unitstring{\@strctr}% \fi }% \else \@strctr=#1\relax \divide\@strctr by 1000 \@modulo{\@strctr}{10}% \@teenstring{\@strctr}% \fi \ \@thousand% \else \ifnum\@strctr>0 \ifnum\@strctr>1\@unitstring{\@strctr}\ \fi \@thousand \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \divide\@strctr by 100 \ifnum\@strctr>0\relax \ifnum#1>1000 \ \fi \@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{1000}\relax \ifnum\@tmpstrctr=100\relax \@tenstring{10}\relax \else \ifnum\@strctr>1\@unitstring{\@strctr}\ \fi \@hundred \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{100}% \ifnum#1>100\relax \ifnum\@strctr>0\relax \ % \ \@andname\ \else \ifnum\@tmpstrctr>0s\fi% \fi \fi \ifnum\@strctr>19 \@tmpstrctr=\@strctr \divide\@strctr by 10 \ifthenelse{\@strctr>6}{% \@modulo{\@tmpstrctr}{10}% \ifnum\@strctr<8 \@seventies{\@tmpstrctr}% \else \ifnum\@strctr<9 \@eighties{\@tmpstrctr}% \else \@nineties{\@tmpstrctr}% \fi \fi }{% \@tenstring{\@strctr}% \@strctr=#1\relax \@modulo{\@strctr}{10}% \ifnum\@strctr>0\relax \ifnum\@strctr=1\ \@andname\ \else-\fi \@unitstring{\@strctr}% \fi }% \else \ifnum\@strctr<10 \ifnum\@strctr=0 \ifnum#1<100 \@unitstring{\@strctr}\fi \else%(>0,<10) \@unitstring{\@strctr}% \fi \else%>10 \@modulo{\@strctr}{10}% \@teenstring{\@strctr}% \fi \fi } \newcommand{\@@ordinalstringfrench}[1]{% \ifnum#1>99999 \PackageError{fmtcount}{Out of range}% {This macro only works for values less than 100000}% \else \ifnum#1<0 \PackageError{fmtcount}{Negative numbers not permitted}% {This macro does not work for negative numbers, however you can try typing "minus" first, and then pass the modulus of this number}% \fi \fi \@strctr=#1\relax \divide\@strctr by 1000\relax \ifnum\@strctr>9 \@tmpstrctr=\@strctr \divide\@strctr by 10\relax \ifnum\@strctr>1\relax \ifthenelse{\@strctr>6}{% \@modulo{\@tmpstrctr}{10}% \ifnum\@strctr=7\relax \@seventies{\@tmpstrctr}% \else \ifnum\@strctr=8\relax \@eighties{\@tmpstrctr}% \else \@nineties{\@tmpstrctr}% \fi \fi }{% \@tenstring{\@strctr}% \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \ifnum\@strctr=1\ \@andname\fi \ifnum\@strctr>0\ \@unitstring{\@strctr}\fi }% \else \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \@teenstring{\@strctr}% \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \ifnum\@strctr=0\ \@thousandth\else\ \@thousand \fi \else \ifnum\@strctr>0\relax \@unitstring{\@strctr}% \@strctr=#1\relax \@modulo{\@strctr}{1000}% \ifnum\@strctr=0\ \@thousandth\else\ \@thousand\fi \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \divide\@strctr by 100 \ifnum\@strctr>0 \ifnum#1>1000 \ \fi\@unitstring{\@strctr}% \@strctr=#1\relax \@modulo{\@strctr}{100}% \ifnum\@strctr=0\ \@hundredth\else\ \@hundred\fi \fi \@tmpstrctr=\@strctr \@strctr=#1\relax \@modulo{\@strctr}{100}% \ifnum#1>100\relax \ifnum\@strctr>0\ \@andname\ \fi\fi \ifnum\@strctr>19 \@tmpstrctr=\@strctr \divide\@strctr by 10 \@modulo{\@tmpstrctr}{10}% \ifthenelse{\@strctr>6}{% \ifnum\@strctr=7\relax \@seventieths{\@tmpstrctr}% \else \ifnum\@strctr=8\relax \@eightieths{\@tmpstrctr}% \else \@ninetieths{\@tmpstrctr}% \fi \fi }{% \ifnum\@tmpstrctr=0\relax \@tenthstring{\@strctr}% \else \@tenstring{\@strctr}% \fi \@strctr=#1\relax \@modulo{\@strctr}{10}% \ifnum\@strctr=1\ \@andname\fi \ifnum\@strctr>0 \ \@unitthstring{\@strctr}% \fi }% \else \ifnum\@strctr<10 \ifnum\@strctr=0 \ifnum#1<100 \@unitthstring{\@strctr}\fi \else \@unitthstring{\@strctr}% \fi \else \@modulo{\@strctr}{10}% \@teenthstring{\@strctr}% \fi \fi } \endinput %% %% End of file `fc-french.def'.