diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:55:56 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:55:56 +0000 |
commit | 6c7621f5f97859c7bec9827d2756a9da8195fd04 (patch) | |
tree | 67e3925bb54d7351dd49244aa5f5ad096e5bc76f /Master/texmf-dist/tex/latex/fmtcount/fc-english.def | |
parent | 0fed233a8ca0ae49664e2115038508db416e65f1 (diff) |
fmtcount
git-svn-id: svn://tug.org/texlive/trunk@926 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/fmtcount/fc-english.def')
-rw-r--r-- | Master/texmf-dist/tex/latex/fmtcount/fc-english.def | 406 |
1 files changed, 406 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/fmtcount/fc-english.def b/Master/texmf-dist/tex/latex/fmtcount/fc-english.def new file mode 100644 index 00000000000..6cdb240e170 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fmtcount/fc-english.def @@ -0,0 +1,406 @@ +%% +%% This is file `fc-english.def', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% fmtcount.dtx (with options: `fc-english.def,package') +%% Copyright (C) 2005 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-english}[2005/04/29] +\newcommand{\@ordinalMenglish}[1]{% +\@orgargctr=#1\relax +\@ordinalctr=#1% +\@modulo{\@ordinalctr}{100}% +\ifnum\@ordinalctr=11 +\the\@orgargctr\fmtord{th}% +\else +\ifnum\@ordinalctr=12 +\the\@orgargctr\fmtord{th}% +\else +\ifnum\@ordinalctr=13 +\the\@orgargctr\fmtord{th}% +\else +\@modulo{\@ordinalctr}{10}% +\ifcase\@ordinalctr +\the\@orgargctr\fmtord{th}% case 0 +\or \the\@orgargctr\fmtord{st}% case 1 +\or \the\@orgargctr\fmtord{nd}% case 2 +\or \the\@orgargctr\fmtord{rd}% case 3 +\else +\the\@orgargctr\fmtord{th}% default case +\fi +\fi +\fi +\fi +} +\let\@ordinalFenglish=\@ordinalMenglish +\providecommand{\andname}{and} + +\newcommand{\@@unitstringenglish}[1]{% +\ifcase#1\relax +zero% +\or one% +\or two% +\or three% +\or four% +\or five% +\or six% +\or seven% +\or eight% +\or nine% +\fi +} + +\newcommand{\@@tenstringenglish}[1]{% +\ifcase#1\relax +\or ten% +\or twenty% +\or thirty% +\or forty% +\or fifty% +\or sixty% +\or seventy% +\or eighty% +\or ninety% +\fi +} + +\newcommand{\@@teenstringenglish}[1]{% +\ifcase#1\relax +ten% +\or eleven% +\or twelve% +\or thirteen% +\or fourteen% +\or fifteen% +\or sixteen% +\or seventeen% +\or eighteen% +\or nineteen% +\fi +} + +\newcommand{\@@Unitstringenglish}[1]{% +\ifcase#1\relax +Zero% +\or One% +\or Two% +\or Three% +\or Four% +\or Five% +\or Six% +\or Seven% +\or Eight% +\or Nine% +\fi +} + +\newcommand{\@@Tenstringenglish}[1]{% +\ifcase#1\relax +\or Ten% +\or Twenty% +\or Thirty% +\or Forty% +\or Fifty% +\or Sixty% +\or Seventy% +\or Eighty% +\or Ninety% +\fi +} + +\newcommand{\@@Teenstringenglish}[1]{% +\ifcase#1\relax +Ten% +\or Eleven% +\or Twelve% +\or Thirteen% +\or Fourteen% +\or Fifteen% +\or Sixteen% +\or Seventeen% +\or Eighteen% +\or Nineteen% +\fi +} + +\newcommand{\@@numberstringenglish}[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 +\divide\@strctr by 10 +\ifnum\@strctr>1 +\@tenstring{\@strctr}% +\@strctr=#1 \divide\@strctr by 1000\relax +\@modulo{\@strctr}{10}% +\ifnum\@strctr>0 -\@unitstring{\@strctr}\fi +\else +\@strctr=#1\relax +\divide\@strctr by 1000 +\@modulo{\@strctr}{10}% +\@teenstring{\@strctr}% +\fi +\ \@thousand% +\else +\ifnum\@strctr>0 \@unitstring{\@strctr}\ \@thousand\fi +\fi +\@strctr=#1\relax \@modulo{\@strctr}{1000}% +\divide\@strctr by 100 +\ifnum\@strctr>0 +\ifnum#1>1000 \ \fi\@unitstring{\@strctr}\ \@hundred% +\fi +\@strctr=#1\relax \@modulo{\@strctr}{100}% +\ifnum#1>100 \ifnum\@strctr>0 \ \andname\ \fi\fi +\ifnum\@strctr>19 +\divide\@strctr by 10 +\@tenstring{\@strctr}% +\@strctr=#1\relax \@modulo{\@strctr}{10}% +\ifnum\@strctr>0 +-\@unitstring{\@strctr}% +\fi +\else +\ifnum\@strctr<10 +\ifnum\@strctr=0 +\ifnum#1<100 \@unitstring{\@strctr}\fi +\else +\@unitstring{\@strctr}% +\fi +\else +\@modulo{\@strctr}{10}% +\@teenstring{\@strctr}% +\fi +\fi +} + +\newcommand{\@numberstringMenglish}[1]{% +\let\@unitstring=\@@unitstringenglish +\let\@teenstring=\@@teenstringenglish +\let\@tenstring=\@@tenstringenglish +\def\@hundred{hundred}\def\@thousand{thousand}% +\@@numberstringenglish{#1}} + +\let\@numberstringFenglish=\@numberstringMenglish + +\newcommand{\@NumberstringMenglish}[1]{% +\let\@unitstring=\@@Unitstringenglish +\let\@teenstring=\@@Teenstringenglish +\let\@tenstring=\@@Tenstringenglish +\def\@hundred{Hundred}\def\@thousand{Thousand}% +\@@numberstringenglish{#1}} + +\let\@NumberstringFenglish=\@NumberstringMenglish +\newcommand{\@@unitthstringenglish}[1]{% +\ifcase#1\relax +zeroth% +\or first% +\or second% +\or third% +\or fourth% +\or fifth% +\or sixth% +\or seventh% +\or eighth% +\or ninth% +\fi +} + +\newcommand{\@@tenthstringenglish}[1]{% +\ifcase#1\relax +\or tenth% +\or twentieth% +\or thirtieth% +\or fortieth% +\or fiftieth% +\or sixtieth% +\or seventieth% +\or eightieth% +\or ninetieth% +\fi +} + +\newcommand{\@@teenthstringenglish}[1]{% +\ifcase#1\relax +tenth% +\or eleventh% +\or twelfth% +\or thirteenth% +\or fourteenth% +\or fifteenth% +\or sixteenth% +\or seventeenth% +\or eighteenth% +\or nineteenth% +\fi +} + +\newcommand{\@@Unitthstringenglish}[1]{% +\ifcase#1\relax +Zeroth% +\or First% +\or Second% +\or Third% +\or Fourth% +\or Fifth% +\or Sixth% +\or Seventh% +\or Eighth% +\or Ninth% +\fi +} + +\newcommand{\@@Tenthstringenglish}[1]{% +\ifcase#1\relax +\or Tenth% +\or Twentieth% +\or Thirtieth% +\or Fortieth% +\or Fiftieth% +\or Sixtieth% +\or Seventieth% +\or Eightieth% +\or Ninetieth% +\fi +} + +\newcommand{\@@Teenthstringenglish}[1]{% +\ifcase#1\relax +Tenth% +\or Eleventh% +\or Twelfth% +\or Thirteenth% +\or Fourteenth% +\or Fifteenth% +\or Sixteenth% +\or Seventeenth% +\or Eighteenth% +\or Nineteenth% +\fi +} + +\newcommand{\@@ordinalstringenglish}[1]{% +\@strctr=#1\relax +\ifnum#1>99999 +\PackageError{fmtcount}{Out of range}% +{This macro only works for values less than 100000 (value given: \number\@strctr)}% +\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 +\divide\@strctr by 10 +\ifnum\@strctr>1\relax + \@tenstring{\@strctr}% + \@strctr=#1\relax + \divide\@strctr by 1000\relax + \@modulo{\@strctr}{10}% + \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 +\@strctr=#1\relax \@modulo{\@strctr}{100}% +\ifnum#1>100 \ifnum\@strctr>0\ and \fi\fi +\ifnum\@strctr>19 +\@tmpstrctr=\@strctr +\divide\@strctr by 10 +\@modulo{\@tmpstrctr}{10}% +\ifnum\@tmpstrctr=0 \@tenthstring{\@strctr}\else \@tenstring{\@strctr}\fi +\@strctr=#1\relax \@modulo{\@strctr}{10}% +\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 +} + +\newcommand{\@ordinalstringMenglish}[1]{% +\let\@unitthstring=\@@unitthstringenglish +\let\@teenthstring=\@@teenthstringenglish +\let\@tenthstring=\@@tenthstringenglish +\let\@unitstring=\@@unitstringenglish +\let\@teenstring=\@@teenstringenglish +\let\@tenstring=\@@tenstringenglish +\def\@hundred{hundred}\def\@thousand{thousand}% +\def\@hundredth{hundredth}\def\@thousandth{thousandth}% +\@@ordinalstringenglish{#1}} + +\let\@ordinalstringFenglish=\@ordinalstringMenglish + +\newcommand{\@OrdinalstringMenglish}[1]{% +\let\@unitthstring=\@@Unitthstringenglish +\let\@teenthstring=\@@Teenthstringenglish +\let\@tenthstring=\@@Tenthstringenglish +\let\@unitstring=\@@Unitstringenglish +\let\@teenstring=\@@Teenstringenglish +\let\@tenstring=\@@Tenstringenglish +\def\@hundred{Hundred}\def\@thousand{Thousand}% +\def\@hundredth{Hundredth}\def\@thousandth{Thousandth}% +\@@ordinalstringenglish{#1}} + +\let\@OrdinalstringFenglish=\@OrdinalstringMenglish + +\endinput +%% +%% End of file `fc-english.def'. |