diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def')
-rw-r--r-- | Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def | 140 |
1 files changed, 88 insertions, 52 deletions
diff --git a/Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def b/Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def index 99d5f240631..1d59ac7ae85 100644 --- a/Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def +++ b/Master/texmf-dist/tex/latex/fmtcount/fc-spanish.def @@ -7,7 +7,7 @@ %% fmtcount.dtx (with options: `fc-spanish.def,package') %% %% fmtcount.dtx -%% Copyright 2013 Nicola Talbot and Vincent Belaïche +%% Copyright 2014 Nicola Talbot and Vincent Belaïche %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3 @@ -21,7 +21,7 @@ %% %% The Current Maintainer of this work is Nicola Talbot and Vincent Belaïche. %% -%% This work consists of the files fmtcount.dtx and fmtcount.ins and the derived files fcnumparser.sty, fcprefix.sty, fmtcount.sty, fc-american.def, fc-british.def, fc-english.def, fc-francais.def, fc-french.def, fc-frenchb.def, fc-german.def, fc-germanb.def, fc-italian.def, fc-ngerman.def, fc-ngermanb.def, fc-portuges.def, fc-spanish.def, fc-UKenglish.def, fc-USenglish.def. +%% This work consists of the files fmtcount.dtx and fmtcount.ins and the derived files fcnumparser.sty, fcprefix.sty, fmtcount.sty, fc-american.def, fc-british.def, fc-english.def, fc-francais.def, fc-french.def, fc-frenchb.def, fc-german.def, fc-germanb.def, fc-italian.def, fc-ngerman.def, fc-ngermanb.def, fc-portuges.def, fc-portuguese.def, fc-spanish.def, fc-UKenglish.def, fc-USenglish.def. %% %% \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 @@ -49,14 +49,16 @@ %%\cs{latinnumeralstringnum}\marg{number}\oarg{prefix options} %%\end{definition} \ProvidesFCLanguage{spanish}[2013/08/17]% -\gdef\@ordinalMspanish#1{% +\newcommand*\@ordinalMspanish[2]{% \edef#2{\number#1\relax\noexpand\fmtord{o}}% }% -\gdef\@ordinalFspanish}[2]{% +\global\let\@ordinalMspanish\@ordinalMspanish +\newcommand{\@ordinalFspanish}[2]{% \edef#2{\number#1\relax\noexpand\fmtord{a}}% }% +\global\let\@ordinalFspanish\@ordinalFspanish \global\let\@ordinalNspanish\@ordinalMspanish -\gdef\@@unitstringspanish#1{% +\newcommand*\@@unitstringspanish[1]{% \ifcase#1\relax cero% \or uno% @@ -70,7 +72,8 @@ \or nueve% \fi }% -\gdef\@@unitstringFspanish#1{% +\global\let\@@unitstringspanish\@@unitstringspanish +\newcommand*\@@unitstringFspanish[1]{% \ifcase#1\relax cera% \or una% @@ -84,7 +87,8 @@ \or nueve% \fi }% -\gdef\@@tenstringspanish#1{% +\global\let\@@unitstringFspanish\@@unitstringFspanish +\newcommand*\@@tenstringspanish[1]{% \ifcase#1\relax \or diez% \or veinte% @@ -98,7 +102,8 @@ \or cien% \fi }% -\gdef\@@teenstringspanish#1{% +\global\let\@@tenstringspanish\@@tenstringspanish +\newcommand*\@@teenstringspanish[1]{% \ifcase#1\relax diez% \or once% @@ -112,7 +117,8 @@ \or diecinueve% \fi }% -\gdef\@@twentystringspanish#1{% +\global\let\@@teenstringspanish\@@teenstringspanish +\newcommand*\@@twentystringspanish[1]{% \ifcase#1\relax veinte% \or veintiuno% @@ -126,7 +132,8 @@ \or veintinueve% \fi }% -\gdef\@@twentystringFspanish#1{% +\global\let\@@twentystringspanish\@@twentystringspanish +\newcommand*\@@twentystringFspanish[1]{% \ifcase#1\relax veinte% \or veintiuna% @@ -140,7 +147,8 @@ \or veintinueve% \fi }% -\gdef\@@hundredstringspanish#1{% +\global\let\@@twentystringFspanish\@@twentystringFspanish +\newcommand*\@@hundredstringspanish[1]{% \ifcase#1\relax \or ciento% \or doscientos% @@ -153,7 +161,8 @@ \or novecientos% \fi }% -\gdef\@@hundredstringFspanish#1{% +\global\let\@@hundredstringspanish\@@hundredstringspanish +\newcommand*\@@hundredstringFspanish[1]{% \ifcase#1\relax \or cienta% \or doscientas% @@ -166,7 +175,8 @@ \or novecientas% \fi }% -\gdef\@@Unitstringspanish#1{% +\global\let\@@hundredstringFspanish\@@hundredstringFspanish +\newcommand*\@@Unitstringspanish[1]{% \ifcase#1\relax Cero% \or Uno% @@ -180,7 +190,8 @@ \or Nueve% \fi }% -\gdef\@@UnitstringFspanish#1{% +\global\let\@@Unitstringspanish\@@Unitstringspanish +\newcommand*\@@UnitstringFspanish[1]{% \ifcase#1\relax Cera% \or Una% @@ -194,7 +205,8 @@ \or Nueve% \fi }% -\gdef\@@Tenstringspanish#1{% +\global\let\@@UnitstringFspanish\@@UnitstringFspanish +\newcommand*\@@Tenstringspanish[1]{% \ifcase#1\relax \or Diez% \or Veinte% @@ -208,7 +220,8 @@ \or Cien% \fi }% -\gdef\@@Teenstringspanish#1{% +\global\let\@@Tenstringspanish\@@Tenstringspanish +\newcommand*\@@Teenstringspanish[1]{% \ifcase#1\relax Diez% \or Once% @@ -222,7 +235,8 @@ \or Diecinueve% \fi }% -\gdef\@@Twentystringspanish#1{% +\global\let\@@Teenstringspanish\@@Teenstringspanish +\newcommand*\@@Twentystringspanish[1]{% \ifcase#1\relax Veinte% \or Veintiuno% @@ -236,7 +250,8 @@ \or Veintinueve% \fi }% -\gdef\@@TwentystringFspanish#1{% +\global\let\@@Twentystringspanish\@@Twentystringspanish +\newcommand*\@@TwentystringFspanish[1]{% \ifcase#1\relax Veinte% \or Veintiuna% @@ -250,7 +265,8 @@ \or Veintinueve% \fi }% -\gdef\@@Hundredstringspanish#1{% +\global\let\@@TwentystringFspanish\@@TwentystringFspanish +\newcommand*\@@Hundredstringspanish[1]{% \ifcase#1\relax \or Ciento% \or Doscientos% @@ -263,7 +279,8 @@ \or Novecientos% \fi }% -\gdef\@@HundredstringFspanish#1{% +\global\let\@@Hundredstringspanish\@@Hundredstringspanish +\newcommand*\@@HundredstringFspanish[1]{% \ifcase#1\relax \or Cienta% \or Doscientas% @@ -276,6 +293,7 @@ \or Novecientas% \fi }% +\global\let\@@HundredstringFspanish\@@HundredstringFspanish \DeclareRobustCommand{\@numberstringMspanish}[2]{% \let\@unitstring=\@@unitstringspanish \let\@teenstring=\@@teenstringspanish @@ -364,7 +382,7 @@ }% \global\let\@OrdinalstringFspanish\@OrdinalstringFspanish \global\let\@OrdinalstringNspanish\@OrdinalstringMspanish -\gdef\@@unitthstringspanish#1{% +\newcommand*\@@unitthstringspanish[1]{% \ifcase#1\relax cero% \or primero% @@ -378,7 +396,8 @@ \or noveno% \fi }% -\gdef\@@tenthstringspanish#1{% +\global\let\@@unitthstringspanish\@@unitthstringspanish +\newcommand*\@@tenthstringspanish[1]{% \ifcase#1\relax \or d\'ecimo% \or vig\'esimo% @@ -391,7 +410,8 @@ \or nonag\'esimo% \fi }% -\gdef\@@teenthstringspanish#1{% +\global\let\@@tenthstringspanish\@@tenthstringspanish +\newcommand*\@@teenthstringspanish[1]{% \ifcase#1\relax d\'ecimo% \or und\'ecimo% @@ -405,7 +425,8 @@ \or decimonoveno% \fi }% -\gdef\@@hundredthstringspanish#1{% +\global\let\@@teenthstringspanish\@@teenthstringspanish +\newcommand*\@@hundredthstringspanish[1]{% \ifcase#1\relax \or cent\'esimo% \or ducent\'esimo% @@ -418,7 +439,8 @@ \or noningent\'esimo% \fi }% -\gdef\@@unitthstringFspanish#1{% +\global\let\@@hundredthstringspanish\@@hundredthstringspanish +\newcommand*\@@unitthstringFspanish[1]{% \ifcase#1\relax cera% \or primera% @@ -432,7 +454,8 @@ \or novena% \fi }% -\gdef\@@tenthstringFspanish#1{% +\global\let\@@unitthstringFspanish\@@unitthstringFspanish +\newcommand*\@@tenthstringFspanish[1]{% \ifcase#1\relax \or d\'ecima% \or vig\'esima% @@ -445,7 +468,8 @@ \or nonag\'esima% \fi }% -\gdef\@@teenthstringFspanish#1{% +\global\let\@@tenthstringFspanish\@@tenthstringFspanish +\newcommand*\@@teenthstringFspanish[1]{% \ifcase#1\relax d\'ecima% \or und\'ecima% @@ -459,7 +483,8 @@ \or decimonovena% \fi }% -\gdef\@@hundredthstringFspanish#1{% +\global\let\@@teenthstringFspanish\@@teenthstringFspanish +\newcommand*\@@hundredthstringFspanish[1]{% \ifcase#1\relax \or cent\'esima% \or ducent\'esima% @@ -472,7 +497,8 @@ \or noningent\'esima% \fi }% -\gdef\@@Unitthstringspanish#1{% +\global\let\@@hundredthstringFspanish\@@hundredthstringFspanish +\newcommand*\@@Unitthstringspanish[1]{% \ifcase#1\relax Cero% \or Primero% @@ -486,7 +512,8 @@ \or Noveno% \fi }% -\gdef\@@Tenthstringspanish#1{% +\global\let\@@Unitthstringspanish\@@Unitthstringspanish +\newcommand*\@@Tenthstringspanish[1]{% \ifcase#1\relax \or D\'ecimo% \or Vig\'esimo% @@ -499,7 +526,8 @@ \or Nonag\'esimo% \fi }% -\gdef\@@Teenthstringspanish#1{% +\global\let\@@Tenthstringspanish\@@Tenthstringspanish +\newcommand*\@@Teenthstringspanish[1]{% \ifcase#1\relax D\'ecimo% \or Und\'ecimo% @@ -513,7 +541,8 @@ \or Decimonoveno% \fi }% -\gdef\@@Hundredthstringspanish#1{% +\global\let\@@Teenthstringspanish\@@Teenthstringspanish +\newcommand*\@@Hundredthstringspanish[1]{% \ifcase#1\relax \or Cent\'esimo% \or Ducent\'esimo% @@ -526,7 +555,8 @@ \or Noningent\'esimo% \fi }% -\gdef\@@UnitthstringFspanish#1{% +\global\let\@@Hundredthstringspanish\@@Hundredthstringspanish +\newcommand*\@@UnitthstringFspanish[1]{% \ifcase#1\relax Cera% \or Primera% @@ -540,7 +570,8 @@ \or Novena% \fi }% -\gdef\@@TenthstringFspanish#1{% +\global\let\@@UnitthstringFspanish\@@UnitthstringFspanish +\newcommand*\@@TenthstringFspanish[1]{% \ifcase#1\relax \or D\'ecima% \or Vig\'esima% @@ -553,7 +584,8 @@ \or Nonag\'esima% \fi }% -\gdef\@@TeenthstringFspanish#1{% +\global\let\@@TenthstringFspanish\@@TenthstringFspanish +\newcommand*\@@TeenthstringFspanish[1]{% \ifcase#1\relax D\'ecima% \or Und\'ecima% @@ -567,7 +599,8 @@ \or Decimonovena% \fi }% -\gdef\@@HundredthstringFspanish#1{% +\global\let\@@TeenthstringFspanish\@@TeenthstringFspanish +\newcommand*\@@HundredthstringFspanish[1]{% \ifcase#1\relax \or Cent\'esima% \or Ducent\'esima% @@ -580,7 +613,8 @@ \or Noningent\'esima% \fi }% -\gdef\@@numberstringspanish#1#2{% +\global\let\@@HundredthstringFspanish\@@HundredthstringFspanish +\newcommand*\@@numberstringspanish[2]{% \ifnum#1>99999 \PackageError{fmtcount}{Out of range}% {This macro only works for values less than 100000}% @@ -600,7 +634,7 @@ this number}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{\@strctr}}% \@strctr=#1 \divide\@strctr by 1000\relax - \@modulo{\@strctr}{10}% + \@FCmodulo{\@strctr}{10}% \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ \@andname\ \@unitstring{\@strctr}}% @@ -608,7 +642,7 @@ this number}% \else \@strctr=#1\relax \divide\@strctr by 1000\relax - \@modulo{\@strctr}{10}% + \@FCmodulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@teenstring{\@strctr}}% \fi @@ -624,7 +658,7 @@ this number}% \edef#2{\@@fc@numstr\@thousand}% \fi \fi -\@strctr=#1\relax \@modulo{\@strctr}{1000}% +\@strctr=#1\relax \@FCmodulo{\@strctr}{1000}% \divide\@strctr by 100\relax \ifnum\@strctr>0\relax \ifnum#1>1000\relax @@ -632,7 +666,7 @@ this number}% \edef#2{\@@fc@numstr\ }% \fi \@tmpstrctr=#1\relax - \@modulo{\@tmpstrctr}{1000}% + \@FCmodulo{\@tmpstrctr}{1000}% \ifnum\@tmpstrctr=100\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{10}}% @@ -641,7 +675,7 @@ this number}% \edef#2{\@@fc@numstr\@hundredstring{\@strctr}}% \fi \fi -\@strctr=#1\relax \@modulo{\@strctr}{100}% +\@strctr=#1\relax \@FCmodulo{\@strctr}{100}% \ifnum#1>100\relax \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax @@ -652,7 +686,7 @@ this number}% \divide\@strctr by 10\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@tenstring{\@strctr}}% - \@strctr=#1\relax \@modulo{\@strctr}{10}% + \@strctr=#1\relax \@FCmodulo{\@strctr}{10}% \ifnum\@strctr>0\relax \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\ \@andname\ \@unitstring{\@strctr}}% @@ -670,18 +704,19 @@ this number}% \fi \else \ifnum\@strctr>19\relax - \@modulo{\@strctr}{10}% + \@FCmodulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@twentystring{\@strctr}}% \else - \@modulo{\@strctr}{10}% + \@FCmodulo{\@strctr}{10}% \let\@@fc@numstr#2\relax \edef#2{\@@fc@numstr\@teenstring{\@strctr}}% \fi \fi \fi }% -\gdef\@@ordinalstringspanish#1#2{% +\global\let\@@numberstringspanish\@@numberstringspanish +\newcommand*\@@ordinalstringspanish[2]{% \@strctr=#1\relax \ifnum#1>99999 \PackageError{fmtcount}{Out of range}% @@ -700,7 +735,7 @@ this number}% \ifnum\@strctr>9\relax \@tmpstrctr=\@strctr \ifnum\@strctr<20 - \@modulo{\@tmpstrctr}{10}% + \@FCmodulo{\@tmpstrctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenthstring{\@tmpstrctr}}% \else @@ -708,7 +743,7 @@ this number}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenthstring{\@tmpstrctr}}% \@tmpstrctr=\@strctr - \@modulo{\@tmpstrctr}{10}% + \@FCmodulo{\@tmpstrctr}{10}% \ifnum\@tmpstrctr>0\relax \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@unitthstring{\@tmpstrctr}}% @@ -723,7 +758,7 @@ this number}% \edef#2{\@@fc@ordstr\@thousandth}% \fi \@strctr=#1\relax -\@modulo{\@strctr}{1000}% +\@FCmodulo{\@strctr}{1000}% \ifnum\@strctr>99\relax \@tmpstrctr=\@strctr \divide\@tmpstrctr by 100\relax @@ -734,7 +769,7 @@ this number}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@hundredthstring{\@tmpstrctr}}% \fi -\@modulo{\@strctr}{100}% +\@FCmodulo{\@strctr}{100}% \ifnum#1>99\relax \ifnum\@strctr>0\relax \let\@@fc@ordstr#2\relax @@ -747,14 +782,14 @@ this number}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@tenthstring{\@tmpstrctr}}% \@tmpstrctr=\@strctr - \@modulo{\@tmpstrctr}{10}% + \@FCmodulo{\@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}% + \@FCmodulo{\@strctr}{10}% \let\@@fc@ordstr#2\relax \edef#2{\@@fc@ordstr\@teenthstring{\@strctr}}% \else @@ -772,6 +807,7 @@ this number}% \fi \fi }% +\global\let\@@ordinalstringspanish\@@ordinalstringspanish \endinput %% |