summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/fmtcount/fc-german.def
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-09-25 22:58:08 +0000
committerKarl Berry <karl@freefriends.org>2012-09-25 22:58:08 +0000
commit5972810af729299af222498461a459998df88906 (patch)
treef32df205f6b61c129fda672be1edd763854cafc8 /Master/texmf-dist/tex/latex/fmtcount/fc-german.def
parentd21e43ac989ba93e0f327fc32fd99f3b1c3f0c6e (diff)
fmtcount (25sep12)
git-svn-id: svn://tug.org/texlive/trunk@27805 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/fmtcount/fc-german.def')
-rw-r--r--Master/texmf-dist/tex/latex/fmtcount/fc-german.def132
1 files changed, 55 insertions, 77 deletions
diff --git a/Master/texmf-dist/tex/latex/fmtcount/fc-german.def b/Master/texmf-dist/tex/latex/fmtcount/fc-german.def
index 7908ebd398a..c6b43314db5 100644
--- a/Master/texmf-dist/tex/latex/fmtcount/fc-german.def
+++ b/Master/texmf-dist/tex/latex/fmtcount/fc-german.def
@@ -7,7 +7,7 @@
%% fmtcount.dtx (with options: `fc-german.def,package')
%%
%% fmtcount.dtx
-%% Copyright 2009 Nicola Talbot
+%% Copyright 2012 Nicola Talbot
%%
%% 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.
%%
-%% 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.
+%% 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.
%%
%% \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
@@ -38,7 +38,17 @@
%% Right bracket \] Circumflex \^ Underscore \_
%% Grave accent \` Left brace \{ Vertical bar \|
%% Right brace \} Tilde \~}
-\ProvidesFile{fc-german.def}[2007/06/14]
+%%\subsection{Prefixes}
+%%\label{sec:latin-prefixes}
+%%
+%%\begin{definition}[\DescribeMacro{\latinnumeralstring}]
+%%\cs{latinnumeralstring}\marg{counter}\oarg{prefix options}
+%%\end{definition}
+%%
+%%\begin{definition}[\DescribeMacro{\latinnumeralstringnum}]
+%%\cs{latinnumeralstringnum}\marg{number}\oarg{prefix options}
+%%\end{definition}
+\ProvidesFCLanguage{german}[2012/06/18]
\newcommand{\@ordinalMgerman}[2]{%
\edef#2{\number#1\relax.}}
\newcommand{\@ordinalFgerman}[2]{%
@@ -48,7 +58,7 @@
\newcommand{\@@unitstringgerman}[1]{%
\ifcase#1%
null%
-\or ein%
+\or eins%
\or zwei%
\or drei%
\or vier%
@@ -97,8 +107,9 @@ zehn%
\let\@numberstringFgerman=\@numberstringMgerman
\let\@numberstringNgerman=\@numberstringMgerman
\DeclareRobustCommand{\@NumberstringMgerman}[2]{%
-\@numberstringMgerman{#1}{\@@num@str}%
-\edef#2{\noexpand\MakeUppercase\@@num@str}}
+ \@numberstringMgerman{#1}{\@@num@str}%
+ \edef#2{\noexpand\MakeUppercase\expandonce\@@num@str}%
+}
\let\@NumberstringFgerman=\@NumberstringMgerman
\let\@NumberstringNgerman=\@NumberstringMgerman
\DeclareRobustCommand{\@ordinalstringMgerman}[2]{%
@@ -132,14 +143,17 @@ zehn%
\def\@hundredth{hunderstes}%
\@@ordinalstringgerman{#1}{#2}}
\DeclareRobustCommand{\@OrdinalstringMgerman}[2]{%
-\@ordinalstringMgerman{#1}{\@@num@str}%
-\edef#2{\protect\MakeUppercase\@@num@str}}
+ \@ordinalstringMgerman{#1}{\@@num@str}%
+ \edef#2{\noexpand\MakeUppercase\expandonce\@@num@str}%
+}
\DeclareRobustCommand{\@OrdinalstringFgerman}[2]{%
-\@ordinalstringFgerman{#1}{\@@num@str}%
-\edef#2{\protect\MakeUppercase\@@num@str}}
+ \@ordinalstringFgerman{#1}{\@@num@str}%
+ \edef#2{\noexpand\MakeUppercase\expandonce\@@num@str}%
+}
\DeclareRobustCommand{\@OrdinalstringNgerman}[2]{%
-\@ordinalstringNgerman{#1}{\@@num@str}%
-\edef#2{\protect\MakeUppercase\@@num@str}}
+ \@ordinalstringNgerman{#1}{\@@num@str}%
+ \edef#2{\noexpand\MakeUppercase\expandonce\@@num@str}%
+}
\newcommand{\@@unitthstringMgerman}[1]{%
\ifcase#1%
nullter%
@@ -147,7 +161,7 @@ nullter%
\or zweiter%
\or dritter%
\or vierter%
-\or f\"unter%
+\or f\"unfter%
\or sechster%
\or siebter%
\or achter%
@@ -229,7 +243,7 @@ nulltes%
\or zweites%
\or drittes%
\or viertes%
-\or f\"unte%
+\or f\"unftes%
\or sechstes%
\or siebtes%
\or achtes%
@@ -266,25 +280,21 @@ zehntes%
\newcommand{\@@numberunderhundredgerman}[2]{%
\ifnum#1<10\relax
\ifnum#1>0\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@unitstring{#1}}%
+ \eappto#2{\@unitstring{#1}}%
\fi
\else
\@tmpstrctr=#1\relax
\@modulo{\@tmpstrctr}{10}%
\ifnum#1<20\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@teenstring{\@tmpstrctr}}%
+ \eappto#2{\@teenstring{\@tmpstrctr}}%
\else
\ifnum\@tmpstrctr=0\relax
\else
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@unitstring{\@tmpstrctr}und}%
+ \eappto#2{\@unitstring{\@tmpstrctr}und}%
\fi
\@tmpstrctr=#1\relax
\divide\@tmpstrctr by 10\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@tenstring{\@tmpstrctr}}%
+ \eappto#2{\@tenstring{\@tmpstrctr}}%
\fi
\fi
}
@@ -303,29 +313,24 @@ zehntes%
\def#2{}%
\@strctr=#1\relax \divide\@strctr by 1000\relax
\ifnum\@strctr>1\relax
-\@@numberunderhundredgerman{\@strctr}{#2}%
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr tausend}%
+ \@@numberunderhundredgerman{\@strctr}{#2}%
+ \appto#2{tausend}%
\else
\ifnum\@strctr=1\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\eintausend}%
+ \eappto#2{\eintausend}%
\fi
\fi
\@strctr=#1\relax
\@modulo{\@strctr}{1000}%
\divide\@strctr by 100\relax
\ifnum\@strctr>1\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@unitstring{\@strctr}hundert}%
+ \eappto#2{\@unitstring{\@strctr}hundert}%
\else
\ifnum\@strctr=1\relax
\ifnum#1>1000\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr einhundert}%
+ \appto#2{einhundert}%
\else
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\einhundert}%
+ \eappto#2{\einhundert}%
\fi
\fi
\fi
@@ -335,8 +340,7 @@ zehntes%
\def#2{null}%
\else
\ifnum\@strctr=1\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr eins}%
+ \appto#2{eins}%
\else
\@@numberunderhundredgerman{\@strctr}{#2}%
\fi
@@ -344,24 +348,20 @@ zehntes%
}
\newcommand{\@@numberunderhundredthgerman}[2]{%
\ifnum#1<10\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@unitthstring{#1}}%
+ \eappto#2{\@unitthstring{#1}}%
\else
\@tmpstrctr=#1\relax
\@modulo{\@tmpstrctr}{10}%
\ifnum#1<20\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@teenthstring{\@tmpstrctr}}%
+ \eappto#2{\@teenthstring{\@tmpstrctr}}%
\else
\ifnum\@tmpstrctr=0\relax
\else
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@unitstring{\@tmpstrctr}und}%
+ \eappto#2{\@unitstring{\@tmpstrctr}und}%
\fi
\@tmpstrctr=#1\relax
\divide\@tmpstrctr by 10\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@tenthstring{\@tmpstrctr}}%
+ \eappto#2{\@tenthstring{\@tmpstrctr}}%
\fi
\fi
}
@@ -381,22 +381,18 @@ zehntes%
\@strctr=#1\relax \divide\@strctr by 1000\relax
\ifnum\@strctr>1\relax
\@@numberunderhundredgerman{\@strctr}{#2}%
- \let\@@fc@numstr#2\relax
- % is that it, or is there more?
\@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{1000}%
\ifnum\@tmpstrctr=0\relax
- \edef#2{\@@fc@numstr\@thousandth}%
+ \eappto#2{\@thousandth}%
\else
- \edef#2{\@@fc@numstr tausend}%
+ \appto#2{tausend}%
\fi
\else
\ifnum\@strctr=1\relax
\ifnum#1=1000\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@thousandth}%
+ \eappto#2{\@thousandth}%
\else
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\eintausend}%
+ \eappto#2{\eintausend}%
\fi
\fi
\fi
@@ -404,31 +400,26 @@ zehntes%
\@modulo{\@strctr}{1000}%
\divide\@strctr by 100\relax
\ifnum\@strctr>1\relax
- \let\@@fc@numstr#2\relax
- % is that it, or is there more?
\@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{100}%
\ifnum\@tmpstrctr=0\relax
\ifnum\@strctr=1\relax
- \edef#2{\@@fc@numstr\@hundredth}%
+ \eappto#2{\@hundredth}%
\else
- \edef#2{\@@fc@numstr\@unitstring{\@strctr}\@hundredth}%
+ \eappto#2{\@unitstring{\@strctr}\@hundredth}%
\fi
\else
- \edef#2{\@@fc@numstr\@unitstring{\@strctr}hundert}%
+ \eappto#2{\@unitstring{\@strctr}hundert}%
\fi
\else
\ifnum\@strctr=1\relax
\@tmpstrctr=#1\relax \@modulo{\@tmpstrctr}{100}%
\ifnum\@tmpstrctr=0\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\@hundredth}%
+ \eappto#2{\@hundredth}%
\else
\ifnum#1>1000\relax
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr einhundert}%
+ \appto#2{einhundert}%
\else
- \let\@@fc@numstr#2\relax
- \edef#2{\@@fc@numstr\einhundert}%
+ \eappto#2{\einhundert}%
\fi
\fi
\fi
@@ -439,21 +430,8 @@ zehntes%
\@@numberunderhundredthgerman{\@strctr}{#2}%
}%
}
-\let\@ordinalMngerman=\@ordinalMgerman
-\let\@ordinalFngerman=\@ordinalFgerman
-\let\@ordinalNngerman=\@ordinalNgerman
-\let\@numberstringMngerman=\@numberstringMgerman
-\let\@numberstringFngerman=\@numberstringFgerman
-\let\@numberstringNngerman=\@numberstringNgerman
-\let\@NumberstringMngerman=\@NumberstringMgerman
-\let\@NumberstringFngerman=\@NumberstringFgerman
-\let\@NumberstringNngerman=\@NumberstringNgerman
-\let\@ordinalstringMngerman=\@ordinalstringMgerman
-\let\@ordinalstringFngerman=\@ordinalstringFgerman
-\let\@ordinalstringNngerman=\@ordinalstringNgerman
-\let\@OrdinalstringMngerman=\@OrdinalstringMgerman
-\let\@OrdinalstringFngerman=\@OrdinalstringFgerman
-\let\@OrdinalstringNngerman=\@OrdinalstringNgerman
+\FCloadlang{germanb}
+
\endinput
%%
%% End of file `fc-german.def'.