%% %% This is file `fc-spanish.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% fmtcount.dtx (with options: `fc-spanish.def,package') %% %% fmtcount.dtx %% Copyright 2009 Nicola Talbot %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3 %% of this license of (at your option) any later version. %% The latest version of this license is in %% http://www.latex-project.org/lppl.txt %% and version 1.3 or later is part of all distributions of LaTeX %% version 2005/12/01 or later. %% %% This work has the LPPL maintenance status `maintained'. %% %% The Current Maintainer of this work is Nicola Talbot. %% %% This work consists of the files fmtcount.dtx and fmtcount.ins and the derived files fmtcount.sty, fc-british.def, fc-english.def, fc-french.def, fc-german.def, fc-italian.def, fc-portuges.def, fc-spanish.def, fc-UKenglish.def, fc-USenglish.def, fmtcount.perl, fc-lang.tex, fc-samp.tex. %% %% \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-spanish.def}[2007/05/26] \newcommand{\@ordinalMspanish}[2]{% \edef#2{\number#1\relax\noexpand\fmtord{o}}} \newcommand{\@ordinalFspanish}[2]{% \edef#2{\number#1\relax\noexpand\fmtord{a}}} \let\@ordinalNspanish\@ordinalMspanish \newcommand{\@@unitstringspanish}[1]{% \ifcase#1\relax cero% \or uno% \or dos% \or tres% \or cuatro% \or cinco% \or seis% \or siete% \or ocho% \or nueve% \fi } \newcommand{\@@unitstringFspanish}[1]{% \ifcase#1\relax cera% \or una% \or dos% \or tres% \or cuatro% \or cinco% \or seis% \or siete% \or ocho% \or nueve% \fi } \newcommand{\@@tenstringspanish}[1]{% \ifcase#1\relax \or diez% \or viente% \or treinta% \or cuarenta% \or cincuenta% \or sesenta% \or setenta% \or ochenta% \or noventa% \or cien% \fi } \newcommand{\@@teenstringspanish}[1]{% \ifcase#1\relax diez% \or once% \or doce% \or trece% \or catorce% \or quince% \or diecis\'eis% \or diecisiete% \or dieciocho% \or diecinueve% \fi } \newcommand{\@@twentystringspanish}[1]{% \ifcase#1\relax veinte% \or veintiuno% \or veintid\'os% \or veintitr\'es% \or veinticuatro% \or veinticinco% \or veintis\'eis% \or veintisiete% \or veintiocho% \or veintinueve% \fi} \newcommand{\@@twentystringFspanish}[1]{% \ifcase#1\relax veinte% \or veintiuna% \or veintid\'os% \or veintitr\'es% \or veinticuatro% \or veinticinco% \or veintis\'eis% \or veintisiete% \or veintiocho% \or veintinueve% \fi} \newcommand{\@@hundredstringspanish}[1]{% \ifcase#1\relax \or ciento% \or doscientos% \or trescientos% \or cuatrocientos% \or quinientos% \or seiscientos% \or setecientos% \or ochocientos% \or novecientos% \fi} \newcommand{\@@hundredstringFspanish}[1]{% \ifcase#1\relax \or cienta% \or doscientas% \or trescientas% \or cuatrocientas% \or quinientas% \or seiscientas% \or setecientas% \or ochocientas% \or novecientas% \fi} \newcommand{\@@Unitstringspanish}[1]{% \ifcase#1\relax Cero% \or Uno% \or Dos% \or Tres% \or Cuatro% \or Cinco% \or Seis% \or Siete% \or Ocho% \or Nueve% \fi } \newcommand{\@@UnitstringFspanish}[1]{% \ifcase#1\relax Cera% \or Una% \or Dos% \or Tres% \or Cuatro% \or Cinco% \or Seis% \or Siete% \or Ocho% \or Nueve% \fi } \newcommand{\@@Tenstringspanish}[1]{% \ifcase#1\relax \or Diez% \or Viente% \or Treinta% \or Cuarenta% \or Cincuenta% \or Sesenta% \or Setenta% \or Ochenta% \or Noventa% \or Cien% \fi } \newcommand{\@@Teenstringspanish}[1]{% \ifcase#1\relax Diez% \or Once% \or Doce% \or Trece% \or Catorce% \or Quince% \or Diecis\'eis% \or Diecisiete% \or Dieciocho% \or Diecinueve% \fi } \newcommand{\@@Twentystringspanish}[1]{% \ifcase#1\relax Veinte% \or Veintiuno% \or Veintid\'os% \or Veintitr\'es% \or Veinticuatro% \or Veinticinco% \or Veintis\'eis% \or Veintisiete% \or Veintiocho% \or Veintinueve% \fi} \newcommand{\@@TwentystringFspanish}[1]{% \ifcase#1\relax Veinte% \or Veintiuna% \or Veintid\'os% \or Veintitr\'es% \or Veinticuatro% \or Veinticinco% \or Veintis\'eis% \or Veintisiete% \or Veintiocho% \or Veintinueve% \fi} \newcommand{\@@Hundredstringspanish}[1]{% \ifcase#1\relax \or Ciento% \or Doscientos% \or Trescientos% \or Cuatrocientos% \or Quinientos% \or Seiscientos% \or Setecientos% \or Ochocientos% \or Novecientos% \fi} \newcommand{\@@HundredstringFspanish}[1]{% \ifcase#1\relax \or Cienta% \or Doscientas% \or Trescientas% \or Cuatrocientas% \or Quinientas% \or Seiscientas% \or Setecientas% \or Ochocientas% \or Novecientas% \fi} \DeclareRobustCommand{\@numberstringMspanish}[2]{% \let\@unitstring=\@@unitstringspanish \let\@teenstring=\@@teenstringspanish \let\@tenstring=\@@tenstringspanish \let\@twentystring=\@@twentystringspanish \let\@hundredstring=\@@hundredstringspanish \def\@hundred{cien}\def\@thousand{mil}% \def\@andname{y}% \@@numberstringspanish{#1}{#2}} \DeclareRobustCommand{\@numberstringFspanish}[2]{% \let\@unitstring=\@@unitstringFspanish \let\@teenstring=\@@teenstringspanish \let\@tenstring=\@@tenstringspanish \let\@twentystring=\@@twentystringFspanish \let\@hundredstring=\@@hundredstringFspanish \def\@hundred{cien}\def\@thousand{mil}% \def\@andname{y}% \@@numberstringspanish{#1}{#2}} \let\@numberstringNspanish\@numberstringMspanish \DeclareRobustCommand{\@NumberstringMspanish}[2]{% \let\@unitstring=\@@Unitstringspanish \let\@teenstring=\@@Teenstringspanish \let\@tenstring=\@@Tenstringspanish \let\@twentystring=\@@Twentystringspanish \let\@hundredstring=\@@Hundredstringspanish \def\@andname{y}% \def\@hundred{Cien}\def\@thousand{Mil}% \@@numberstringspanish{#1}{#2}} \DeclareRobustCommand{\@NumberstringFspanish}[2]{% \let\@unitstring=\@@UnitstringFspanish \let\@teenstring=\@@Teenstringspanish \let\@tenstring=\@@Tenstringspanish \let\@twentystring=\@@TwentystringFspanish \let\@hundredstring=\@@HundredstringFspanish \def\@andname{y}% \def\@hundred{Cien}\def\@thousand{Mil}% \@@numberstringspanish{#1}{#2}} \let\@NumberstringNspanish\@NumberstringMspanish \DeclareRobustCommand{\@ordinalstringMspanish}[2]{% \let\@unitthstring=\@@unitthstringspanish \let\@unitstring=\@@unitstringspanish \let\@teenthstring=\@@teenthstringspanish \let\@tenthstring=\@@tenthstringspanish \let\@hundredthstring=\@@hundredthstringspanish \def\@thousandth{mil\'esimo}% \@@ordinalstringspanish{#1}{#2}} \DeclareRobustCommand{\@ordinalstringFspanish}[2]{% \let\@unitthstring=\@@unitthstringFspanish \let\@unitstring=\@@unitstringFspanish \let\@teenthstring=\@@teenthstringFspanish \let\@tenthstring=\@@tenthstringFspanish \let\@hundredthstring=\@@hundredthstringFspanish \def\@thousandth{mil\'esima}% \@@ordinalstringspanish{#1}{#2}} \let\@ordinalstringNspanish\@ordinalstringMspanish \DeclareRobustCommand{\@OrdinalstringMspanish}[2]{% \let\@unitthstring=\@@Unitthstringspanish \let\@unitstring=\@@Unitstringspanish \let\@teenthstring=\@@Teenthstringspanish \let\@tenthstring=\@@Tenthstringspanish \let\@hundredthstring=\@@Hundredthstringspanish \def\@thousandth{Mil\'esimo}% \@@ordinalstringspanish{#1}{#2}} \DeclareRobustCommand{\@OrdinalstringFspanish}[2]{% \let\@unitthstring=\@@UnitthstringFspanish \let\@unitstring=\@@UnitstringFspanish \let\@teenthstring=\@@TeenthstringFspanish \let\@tenthstring=\@@TenthstringFspanish \let\@hundredthstring=\@@HundredthstringFspanish \def\@thousandth{Mil\'esima}% \@@ordinalstringspanish{#1}{#2}} \let\@OrdinalstringNspanish\@OrdinalstringMspanish \newcommand{\@@unitthstringspanish}[1]{% \ifcase#1\relax cero% \or primero% \or segundo% \or tercero% \or cuarto% \or quinto% \or sexto% \or s\'eptimo% \or octavo% \or noveno% \fi } \newcommand{\@@tenthstringspanish}[1]{% \ifcase#1\relax \or d\'ecimo% \or vig\'esimo% \or trig\'esimo% \or cuadrag\'esimo% \or quincuag\'esimo% \or sexag\'esimo% \or septuag\'esimo% \or octog\'esimo% \or nonag\'esimo% \fi } \newcommand{\@@teenthstringspanish}[1]{% \ifcase#1\relax d\'ecimo% \or und\'ecimo% \or duod\'ecimo% \or decimotercero% \or decimocuarto% \or decimoquinto% \or decimosexto% \or decimos\'eptimo% \or decimoctavo% \or decimonoveno% \fi } \newcommand{\@@hundredthstringspanish}[1]{% \ifcase#1\relax \or cent\'esimo% \or ducent\'esimo% \or tricent\'esimo% \or cuadringent\'esimo% \or quingent\'esimo% \or sexcent\'esimo% \or septing\'esimo% \or octingent\'esimo% \or noningent\'esimo% \fi} \newcommand{\@@unitthstringFspanish}[1]{% \ifcase#1\relax cera% \or primera% \or segunda% \or tercera% \or cuarta% \or quinta% \or sexta% \or s\'eptima% \or octava% \or novena% \fi } \newcommand{\@@tenthstringFspanish}[1]{% \ifcase#1\relax \or d\'ecima% \or vig\'esima% \or trig\'esima% \or cuadrag\'esima% \or quincuag\'esima% \or sexag\'esima% \or septuag\'esima% \or octog\'esima% \or nonag\'esima% \fi } \newcommand{\@@teenthstringFspanish}[1]{% \ifcase#1\relax d\'ecima% \or und\'ecima% \or duod\'ecima% \or decimotercera% \or decimocuarta% \or decimoquinta% \or decimosexta% \or decimos\'eptima% \or decimoctava% \or decimonovena% \fi } \newcommand{\@@hundredthstringFspanish}[1]{% \ifcase#1\relax \or cent\'esima% \or ducent\'esima% \or tricent\'esima% \or cuadringent\'esima% \or quingent\'esima% \or sexcent\'esima% \or septing\'esima% \or octingent\'esima% \or noningent\'esima% \fi} \newcommand{\@@Unitthstringspanish}[1]{% \ifcase#1\relax Cero% \or Primero% \or Segundo% \or Tercero% \or Cuarto% \or Quinto% \or Sexto% \or S\'eptimo% \or Octavo% \or Noveno% \fi } \newcommand{\@@Tenthstringspanish}[1]{% \ifcase#1\relax \or D\'ecimo% \or Vig\'esimo% \or Trig\'esimo% \or Cuadrag\'esimo% \or Quincuag\'esimo% \or Sexag\'esimo% \or Septuag\'esimo% \or Octog\'esimo% \or Nonag\'esimo% \fi } \newcommand{\@@Teenthstringspanish}[1]{% \ifcase#1\relax D\'ecimo% \or Und\'ecimo% \or Duod\'ecimo% \or Decimotercero% \or Decimocuarto% \or Decimoquinto% \or Decimosexto% \or Decimos\'eptimo% \or Decimoctavo% \or Decimonoveno% \fi } \newcommand{\@@Hundredthstringspanish}[1]{% \ifcase#1\relax \or Cent\'esimo% \or Ducent\'esimo% \or Tricent\'esimo% \or Cuadringent\'esimo% \or Quingent\'esimo% \or Sexcent\'esimo% \or Septing\'esimo% \or Octingent\'esimo% \or Noningent\'esimo% \fi} \newcommand{\@@UnitthstringFspanish}[1]{% \ifcase#1\relax Cera% \or Primera% \or Segunda% \or Tercera% \or Cuarta% \or Quinta% \or Sexta% \or S\'eptima% \or Octava% \or Novena% \fi } \newcommand{\@@TenthstringFspanish}[1]{% \ifcase#1\relax \or D\'ecima% \or Vig\'esima% \or Trig\'esima% \or Cuadrag\'esima% \or Quincuag\'esima% \or Sexag\'esima% \or Septuag\'esima% \or Octog\'esima% \or Nonag\'esima% \fi } \newcommand{\@@TeenthstringFspanish}[1]{% \ifcase#1\relax D\'ecima% \or Und\'ecima% \or Duod\'ecima% \or Decimotercera% \or Decimocuarta% \or Decimoquinta% \or Decimosexta% \or Decimos\'eptima% \or Decimoctava% \or Decimonovena% \fi } \newcommand{\@@HundredthstringFspanish}[1]{% \ifcase#1\relax \or Cent\'esima% \or Ducent\'esima% \or Tricent\'esima% \or Cuadringent\'esima% \or Quingent\'esima% \or Sexcent\'esima% \or Septing\'esima% \or Octingent\'esima% \or Noningent\'esima% \fi} \newcommand{\@@numberstringspanish}[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 \divide\@strctr by 10 \ifnum\@strctr>1 \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{\@strctr}}% \@strctr=#1 \divide\@strctr by 1000\relax \@modulo{\@strctr}{10}% \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ \@andname\ \@unitstring{\@strctr}}% \fi \else \@strctr=#1\relax \divide\@strctr by 1000\relax \@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\relax \ifnum\@strctr>0\relax \ifnum#1>1000\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ }% \fi \@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{1000}% \ifnum\@tmpstrctr=100\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{10}}% \else \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@hundredstring{\@strctr}}% \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\ \@andname\ }% \fi \fi \ifnum\@strctr>29\relax \divide\@strctr by 10\relax \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 \edef#2{\@@fc@numstr\ \@andname\ \@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 \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@unitstring{\@strctr}}% \fi \else \ifnum\@strctr>19\relax \@modulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@twentystring{\@strctr}}% \else \@modulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@teenstring{\@strctr}}% \fi \fi \fi } \newcommand{\@@ordinalstringspanish}[2]{% \@strctr=#1\relax \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}% \else \def#2{}% \ifnum\@strctr>999\relax \divide\@strctr by 1000\relax \ifnum\@strctr>1\relax \ifnum\@strctr>9\relax \@tmpstrctr=\@strctr \ifnum\@strctr<20 \@modulo{\@tmpstrctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenthstring{\@tmpstrctr}}% \else \divide\@tmpstrctr by 10\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenthstring{\@tmpstrctr}}% \@tmpstrctr=\@strctr \@modulo{\@tmpstrctr}{10}% \ifnum\@tmpstrctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitthstring{\@tmpstrctr}}% \fi \fi \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitstring{\@strctr}}% \fi \fi \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@thousandth}% \fi \@strctr=#1\relax \@modulo{\@strctr}{1000}% \ifnum\@strctr>99\relax \@tmpstrctr=\@strctr \divide\@tmpstrctr by 100\relax \ifnum#1>1000\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ }% \fi \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@hundredthstring{\@tmpstrctr}}% \fi \@modulo{\@strctr}{100}% \ifnum#1>99\relax \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ }% \fi \fi \ifnum\@strctr>19\relax \@tmpstrctr=\@strctr \divide\@tmpstrctr by 10\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenthstring{\@tmpstrctr}}% \@tmpstrctr=\@strctr \@modulo{\@tmpstrctr}{10}% \ifnum\@tmpstrctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\ \@unitthstring{\@tmpstrctr}}% \fi \else \ifnum\@strctr>9\relax \@modulo{\@strctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenthstring{\@strctr}}% \else \ifnum\@strctr=0\relax \ifnum#1=0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitstring{0}}% \fi \else \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitthstring{\@strctr}}% \fi \fi \fi \fi \fi } \endinput %% %% End of file `fc-spanish.def'.