%% %% 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) 2007 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}[2007/04/20] \newcommand*{\@ordinalMfrench}[2]{% \iffmtord@abbrv \edef#2{\number#1\relax\noexpand\fmtord{e}}% \else \ifnum#1=1\relax \edef#2{\number#1\relax\noexpand\fmtord{er}}% \else \edef#2{\number#1\relax\noexpand\fmtord{eme}}% \fi \fi} \newcommand*{\@ordinalFfrench}[2]{% \iffmtord@abbrv \edef#2{\number#1\relax\noexpand\fmtord{e}}% \else \ifnum#1=1\relax \edef#2{\number#1\relax\noexpand\fmtord{ere}}% \else \edef#2{\number#1\relax\noexpand\fmtord{eme}}% \fi \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*{\@@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 } \DeclareRobustCommand{\@numberstringMfrenchswiss}[2]{% \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}{#2}} \DeclareRobustCommand{\@numberstringMfrenchfrance}[2]{% \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}{#2}} \DeclareRobustCommand{\@numberstringMfrenchbelgian}[2]{% \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}{#2}} \let\@numberstringMfrench=\@numberstringMfrenchfrance \DeclareRobustCommand{\@numberstringFfrenchswiss}[2]{% \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}{#2}} \DeclareRobustCommand{\@numberstringFfrenchfrance}[2]{% \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}{#2}} \DeclareRobustCommand{\@numberstringFfrenchbelgian}[2]{% \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}{#2}} \let\@numberstringFfrench=\@numberstringFfrenchfrance \DeclareRobustCommand{\@NumberstringMfrenchswiss}[2]{% \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}{#2}} \DeclareRobustCommand{\@NumberstringMfrenchfrance}[2]{% \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}{#2}} \DeclareRobustCommand{\@NumberstringMfrenchbelgian}[2]{% \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}{#2}} \let\@NumberstringMfrench=\@NumberstringMfrenchfrance \DeclareRobustCommand{\@NumberstringFfrenchswiss}[2]{% \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}{#2}} \DeclareRobustCommand{\@NumberstringFfrenchfrance}[2]{% \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}{#2}} \DeclareRobustCommand{\@NumberstringFfrenchbelgian}[2]{% \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}{#2}} \let\@NumberstringFfrench=\@NumberstringFfrenchfrance \DeclareRobustCommand{\@ordinalstringMfrenchswiss}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@ordinalstringMfrenchfrance}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@ordinalstringMfrenchbelgian}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \let\@ordinalstringMfrench=\@ordinalstringMfrenchfrance \DeclareRobustCommand{\@ordinalstringFfrenchswiss}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@ordinalstringFfrenchfrance}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@ordinalstringFfrenchbelgian}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \let\@ordinalstringFfrench=\@ordinalstringFfrenchfrance \DeclareRobustCommand{\@OrdinalstringMfrenchswiss}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@OrdinalstringMfrenchfrance}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@OrdinalstringMfrenchbelgian}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \let\@OrdinalstringMfrench=\@OrdinalstringMfrenchfrance \DeclareRobustCommand{\@OrdinalstringFfrenchswiss}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@OrdinalstringFfrenchfrance}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \DeclareRobustCommand{\@OrdinalstringFfrenchbelgian}[2]{% \ifnum#1=1\relax \def#2{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}{#2}% \fi} \let\@OrdinalstringFfrench=\@OrdinalstringFfrenchfrance \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}[2]{% \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 \def#2{}% \@strctr=#1\relax \divide\@strctr by 1000\relax \ifnum\@strctr>9\relax \@tmpstrctr=\@strctr \divide\@strctr by 10\relax \ifnum\@strctr>1\relax \ifthenelse{\(\@strctr>6\)\and\(\@strctr<10\)}{% \@modulo{\@tmpstrctr}{10}% \ifnum\@strctr<8\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@seventies{\@tmpstrctr}}% \else \ifnum\@strctr<9\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@eighties{\@tmpstrctr}}% \else \ifnum\@strctr<10\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@nineties{\@tmpstrctr}}% \fi \fi \fi }{% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{\@strctr}}% \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ \@unitstring{\@strctr}}% \fi }% \else \@strctr=#1\relax \divide\@strctr by 1000 \@modulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@teenstring{\@strctr}}% \fi \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ \@thousand}% \else \ifnum\@strctr>0\relax \ifnum\@strctr>1\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}\ }% \fi \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@thousand}% \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \divide\@strctr by 100 \ifnum\@strctr>0\relax \ifnum#1>1000\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ }% \fi \@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{1000}\relax \ifnum\@tmpstrctr=100\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{10}}% \else \ifnum\@strctr>1\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}\ }% \fi \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@hundred}% \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{100}% \ifnum#1>100\relax \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ }% \else \ifnum\@tmpstrctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr s}% \fi% \fi \fi \ifnum\@strctr>19\relax \@tmpstrctr=\@strctr \divide\@strctr by 10\relax \ifthenelse{\@strctr>6}{% \@modulo{\@tmpstrctr}{10}% \ifnum\@strctr<8\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@seventies{\@tmpstrctr}}% \else \ifnum\@strctr<9\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@eighties{\@tmpstrctr}}% \else \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@nineties{\@tmpstrctr}}% \fi \fi }{% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{\@strctr}}% \@strctr=#1\relax \@modulo{\@strctr}{10}% \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \ifnum\@strctr=1\relax \edef#2{\@@fc@numstr\ \@andname\ }% \else \edef#2{\@@fc@numstr-}% \fi \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}}% \fi }% \else \ifnum\@strctr<10\relax \ifnum\@strctr=0\relax \ifnum#1<100\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}}% \fi \else%(>0,<10) \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}}% \fi \else%>10 \@modulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@teenstring{\@strctr}}% \fi \fi } \newcommand*{\@@ordinalstringfrench}[2]{% \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 \def#2{}% \@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 \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@seventies{\@tmpstrctr}}% \else \ifnum\@strctr=8\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@eighties{\@tmpstrctr}}% \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@nineties{\@tmpstrctr}}% \fi \fi }{% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenstring{\@strctr}}% \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \ifnum\@strctr=1\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@andname}% \fi \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@unitstring{\@strctr}}% \fi }% \else \@strctr=#1\relax \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenstring{\@strctr}}% \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \ifnum\@strctr=0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@thousandth}% \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@thousand}% \fi \else \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitstring{\@strctr}}% \@strctr=#1\relax \@modulo{\@strctr}{1000}% \ifnum\@strctr=0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@thousandth}% \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@thousand}% \fi \fi \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \divide\@strctr by 100\relax \ifnum\@strctr>0\relax \ifnum#1>1000\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ }% \fi \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitstring{\@strctr}}% \@strctr=#1\relax \@modulo{\@strctr}{100}% \let\@@fc@ordstr#2\relax \ifnum\@strctr=0\relax \edef#2{\@@fc@ordstr\ \@hundredth}% \else \edef#2{\@@fc@ordstr\ \@hundred}% \fi \fi \@tmpstrctr=\@strctr \@strctr=#1\relax \@modulo{\@strctr}{100}% \ifnum#1>100\relax \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@andname\ }% \fi \fi \ifnum\@strctr>19\relax \@tmpstrctr=\@strctr \divide\@strctr by 10\relax \@modulo{\@tmpstrctr}{10}% \ifthenelse{\@strctr>6}{% \ifnum\@strctr=7\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@seventieths{\@tmpstrctr}}% \else \ifnum\@strctr=8\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@eightieths{\@tmpstrctr}}% \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@ninetieths{\@tmpstrctr}}% \fi \fi }{% \ifnum\@tmpstrctr=0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenthstring{\@strctr}}% \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenstring{\@strctr}}% \fi \@strctr=#1\relax \@modulo{\@strctr}{10}% \ifnum\@strctr=1\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@andname}% \fi \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@unitthstring{\@strctr}}% \fi }% \else \ifnum\@strctr<10\relax \ifnum\@strctr=0\relax \ifnum#1<100\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitthstring{\@strctr}}% \fi \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitthstring{\@strctr}}% \fi \else \@modulo{\@strctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenthstring{\@strctr}}% \fi \fi } \endinput %% %% End of file `fc-french.def'.