path: root/macros/latex/contrib/euro/euro.dtx

% \iffalse
%% File: euro.dtx      Copyright (C) 1999--2005    Melchior FRANZ
%% $Id: euro.dtx,v 1.14 2005/03/07 14:22:19 m Exp $
%% $Version: 1.1 $
%<*preamble>
%
%
%
% on Unix/Linux just run "make" to get the style file and the documentation;
% else generate the driver euro.ins (if you don't already have it):
%
%     $ latex euro.dtx
%
% Now generate the style file:
%
%     $ tex euro.ins
%
% And finally to produce the documentation run LaTeX three times:
%
%     $ latex euro.dtx
%
%
%
%
% This package needs the fp-package!
%
% fp      -- CTAN//macros/latex/contrib/other/fp/  --  (by Michael MEHLICH)
%
%$
%% ====================================================================
%%  @LaTeX-package-file{
%%     author          = "Melchior FRANZ",
%%     version         = "1.1",
%%     date            = "7 March 2005",
%%     filename        = "euro.dtx",
%%     address         = "Melchior FRANZ
%%                        Rieder Hauptstrasse 52
%%                        A-5212 SCHNEEGATTERN
%%                        AUSTRIA",
%%     telephone       = "++43 7746 3109",
%%     URL             = "http://members.aon.at/mfranz/TeX/",
%%     email           = "mfranz \# aon : at",
%%     codetable       = "ISO/ASCII",
%%     keywords        = "euro",
%%     supported       = "yes",
%%     docstring       = "This document describes the euro package, which
%%                        converts arbitrary national currency amounts
%%                        using the Euro as base unit, and typesets monetary amounts
%%                        in almost any desired way. Write e.g. \ATS{17.6} to get
%%                        something like `17,60 \"oS  (1,28 Euro)' automatically.
%%                        Conversion rates for the so-called Euro-zone countries
%%                        are already built-in. Further rates can be added easily."
%%  }
%% ====================================================================
%
% COPYRIGHT NOTICE:
% This package is free software that can be redistributed and/or modified
% under the terms of the LaTeX Project Public License as specified
% in the file macros/latex/base/lppl.txt on any CTAN archive server.
%
% Note that you may freely distribute modified versions of this documentation, with one
% exception: If you modify or remove section "The European Union & Software Patents",
% you agree that your and/or your company's/institution's name may be listed in said
% section in any official distribution.
%</preamble>
%
%
%
%<*batchfile>
\begin{filecontents}{euro.ins}
\def\batchfile{euro.ins}
\input docstrip.tex
\askforoverwritefalse
\keepsilent
\generate{\file{euro.sty}{\from{euro.dtx}{package}}}
\endbatchfile
\end{filecontents}
%</batchfile>
%
%
%<*driver>
\def\fileversion{1.1}
\def\filedate{2005/03/07}
\documentclass{ltxdoc}
%
%
%
\ifx\makehyperref\EUROundefined
    \newcommand*\texorpdfstring[2]{#1}
    \newcommand*\color[1]{}
\else   ^^A for "make hyper"
    \usepackage{hyperref}
    \hypersetup{
        bookmarksopen,
        colorlinks,
        pdftitle={The euro package},
        pdfauthor={Melchior FRANZ},
        pdfsubject={${}$Id: euro.dtx,v 1.14 2005/03/07 14:22:19 m Exp ${}$},
        pdfkeywords={currency, euro, monetary, conversion}
    }
    \usepackage[pdftex]{graphicx,color}
\fi
%
%
%
\IfFileExists{euro.sty}
  {\usepackage{euro}[1999/05/15]\let\EUROSTYfound\active}
  {\GenericWarning{euro.dtx}
    {Package file `euro.sty' not found. All the instructive^^J^^A
    examples will be replaced by boldfaced question marks.^^J^^A
    (Generate `euro.sty' by (La)TeXing `euro.ins' and process^^J^^A
    `euro.dtx' three times to get the documentation right.)^^J}
  \newcommand*\EURO[1]{\EUROii}
  \newcommand*\EUROii[2][]{\textbf{??}}
  \newcommand*\EUROFORMAT[2]{}
  \newcommand*\EUROADD[3]{}
  \newcommand*\EUROSYM[2]{}}
%
\usepackage{multicol}
\setcounter{tocdepth}{2}
\begin{document}
\DocInput{euro.dtx}
\end{document}
%</driver>
% \fi
%
%
% \CheckSum{452}
% \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         \~}
%
%
% \newcommand*\opt{\textsf}
% \newcommand*\DescribeOption[1]{\leavevmode
%   \marginpar{\raggedleft\opt{\strut#1\strut}}\ignorespaces}
%
% \newcommand*\ATS{\EURO{ATS}}
% \newcommand*\EUR{\EURO{EUR}}
% \newcommand*\DEM{\EURO{DEM}}
% \newcommand*\ESP{\EURO{ESP}}
% \newcommand*\ITL{\EURO{ITL}}
% \newcommand*\USD[1]{{%
%   \EUROFORMAT{main}{\in}%
%   \EUROFORMAT{in}{\val\,\$}%
%   \EUROFORMAT{EUR}{\form,.,\round{-2}}%
%   \EURO{EUR}{#1}}}
% \newcommand*\NUM[1]{{%
%   \EUROFORMAT{main}{\in}%
%   \EUROFORMAT{in}{\val}%
%   \EUROFORMAT{EUR}{\form,.,\round{-10}}%
%   \EURO{EUR}{#1}}}
%
%
% \makeatletter
% ^^A Don't use this! It's really ugly!      :-(
% \newcommand*\euro{\unitlength.7em
%   \begin{picture}(1.2,1)(-.2,.1)
%     \linethickness{.05em}
%     \qbezier(.8,.9)(.5,1.2)(.1,.87)
%     \qbezier(.1,.87)(-.0,.78)(0,.5)
%     \qbezier(.0,.5)(-.0,.22)(.35,.1)
%     \qbezier(.35,.1)(.54,.02)(.77,.22)
%     \put(-.12,.65){\line(1,0){.9}}
%     \put(-.12,.46){\line(1,0){.8}}
%   \end{picture}}
%
% \newenvironment{example}[1][.45\textwidth]
%   {\par\medskip\begin{tabular}{p{#1}l}}
%   {\end{tabular}\noindentafter\medbreak}
%
% \newenvironment{syntax}
%   {\par\medskip\def\<##1>{$\langle$\textit{##1}$\rangle$}%
%    \indent\begin{tabular}{l}}
%   {\end{tabular}\noindentafter\medbreak}
%
% \newcommand*\noindentafter{\@nobreaktrue\everypar{{\setbox\z@\lastbox}}}
%
% \newenvironment{labeling}[1]
%  {\list{}{\settowidth{\labelwidth}{\textbf{#1}}
%  \leftmargin\labelwidth\advance\leftmargin\labelsep
%  \def\makelabel##1{\textbf{##1}\hfil}}}{\endlist}
%
% \makeatother
%
% \changes{v0.1}{1999/02/01}{initial version}%
% \changes{v0.2}{1999/05/15}{interface completely new; integer rounding implemented}%
% \changes{v1.0}{2001/10/12}{greek currency added}%
% \changes{v1.1}{2003/02/19}{specific currency formats inherit generic settings}%
%
%
%
%
% \title{The \texttt{euro} package}
% \author{Melchior \textsc{FRANZ}}
% \date{March 7, 2005}
% \maketitle
%
%
%
% \begin{abstract}
% \EUROSYM{EUR}{\euro}^^A  introduce the Euro symbol for within the abstract only
%
% This article describes the |euro| package^^A
%      \footnote{This package has version number \fileversion, last revised \filedate.},
% which converts arbitrary currency units into each other using the \emph{Euro}
% (official symbol \euro
%      \footnote{The \euro\ symbol in this documentation is
%      `handmade'---it is really ugly and not to be used in real documents. Take the well designed symbol
%      defined e.\,g.~in the |eurosym| package by \textsc{Henrik Theiling} eventually using
%      the |eurofont| package by \textsc{Rowland McDonnell} to select the proper fo(u)nt/shape.}^^A
% ) as base unit, and formats monetary amounts in almost any desired way.
% The respective conversion rates are predefined for the national
% currency units of the \emph{Euro-zone} countries, every other
% currency unit can easily be added.
% The package allows to type e.\,g.\ |\ATS{17.6}| to get something
% like \ATS{17.6}. All necessary calculations are with high precision done
% by the great |fp| package^^A
%      \footnote{\(\langle\)|CTAN//macros/latex/contrib/other/fp/|\(\rangle\)}
% by \textsc{Michael Mehlich},
% which you have to install to get this package working.
% The package complies with the concerned rules and orders of the European
% Council.
% \end{abstract}
%
%
%
% {\setlength{\parskip}{0pt}\tableofcontents}
% \addtocontents{toc}{\protect\begin{multicols}{2}}
%
%
% \section{Introduction}
%
% Twelve of the fifteen members of the European Union have agreed
% to replace their national currencies by a common currency, the
% \emph{Euro}. Before the 1\textsuperscript{st} of January 2001 the Euro was only a
% unit for calculations, with fixed conversion rates for
% each of the old currencies. Since then the Euro is actual money with
% coins and bank notes. The Francs, the D-Mark, the Schilling,
% they are history.
% Several further countries will join the European Union over
% the next years, and sooner or later also the so-called \emph{Euro-zone}.
% It's still common practice in Europe to write monetary amounts both in the national
% currency and in the new \euro~currency,
% thus helping to become familiar with the \emph{Euro}.
%
% But it's a nuisance to convert every value by hand or even with
% a calculator. Let our computers do all the hard work.
% Although \TeX\ is unable to do such calculations with
% its basic arithmetic functions, there's a way out: The |fp| package
% allows to deal with numbers ranging from
% \(-999999999999999999{,}999999999999999999\) to
% \(+999999999999999999{,}999999999999999999\) with high precision.
%
% Since there are so many currencies and different possible formats,
% this package provides only a customizable interface. All parameters are
% predefined in a common way, though, so that no further definitions will be
% necessary in most cases. The package tries to load an optional file
% `|euro.cfg|' where such local customizing commands may be placed in
% (see section~\ref{sec:config} for further explanation).
%
%
%
%
%
% \section{How to use the package}
%
% \subsection{The main macro}
%
% The \DescribeMacro{\EURO}|\EURO| command does the main work.
% It takes the \textit{source currency unit,} an optional \textit{destination currency unit,}
% both as three-digits \textsc{ISO} currency codes (see table \ref{tab:iso}), and
% the respective \emph{money amount}.
%
% \begin{syntax}
% |\EURO{|\<source currency unit>|}[|\<destination currency unit>|]{|\<amount>|}|
% \end{syntax}
%
%
% \begin{table}
% \begin{quote}
% \begin{center}
% \begin{tabular}{ll@{\hspace{2cm}}ll}
% \texttt{EUR}& Europe&    \texttt{GRD}& Greece\\
% \texttt{ATS}& Austria&   \texttt{IEP}& Ireland\\
% \texttt{BEF}& Belgium&   \texttt{ITL}& Italy\\
% \texttt{DEM}& Germany&   \texttt{LUF}& Luxembourg\\
% \texttt{ESP}& Spain&     \texttt{NLG}& The Netherlands\\
% \texttt{FIM}& Finland&  \texttt{PTE}& Portugal\\
% \texttt{FRF}& France
% \end{tabular}
%
% \caption{ISO currency codes of the \emph{Euro} and of the twelve \emph{Euro-zone} countries.}
% \label{tab:iso}
% \end{center}
% \end{quote}
% \end{table}
%
% A dot is to be used as \emph{decimal `point'} separating a number's integer and
% fractional part. Numbers may of course be negative.
% If the optional destination currency unit is omitted, the \emph{Euro} is taken.
%
% \begin{example}
% |\EURO{BEF}[FIM]{70}|&  \EURO{BEF}[FIM]{70}\\
% |\EURO{FIM}[BEF]{70}|&  \EURO{FIM}[BEF]{70}\\
% |\EURO{BEF}[BEF]{70}|&  \EURO{BEF}[BEF]{70}\rlap{\hspace{3.5em}[surprised?]}\\
% |\EURO{FIM}{17.8}|&     \EURO{FIM}{17.8}
% \end{example}
% \null
%
%
%
%
% \subsection{How to change the local style}
%
% The ISO currency codes don't really look good in running text. You
% can replace them by some other currency symbol or tag using the
% \DescribeMacro{\EUROSYM}|\EUROSYM| command.
%
% \begin{syntax}
% |\EUROSYM{|\<currency unit>|}{|\<symbol>|}|
% \end{syntax}
%
% We Austrians, for example, prefer to write `\"oS' instead of `ATS'.
% We don't have to write |\EUROSYM{ATS}{\"oS}| though, because this national
% style (like those of some other countries) is already predefined. If your
% national style is still missing, please drop me a line, and I will insert it.
% Meanwhile the \textsc{ISO} currency codes are used in such cases.
%
% \begin{example}
% |\EURO{FRF}{16.3}|&      \EURO{FRF}{16.3}\\
% |\EUROSYM{FRF}{Francs}|&\\
% |\EURO{FRF}{16.3}|&      \EUROSYM{FRF}{Francs}\EURO{FRF}{16.3}
% \end{example}
%
% The official Euro symbol is not provided by default, since there are a lot of
% different fonts and methods to produce an \euro\ sign. Type
% |\EUROSYM{EUR}{|\(\langle\)\textit{euro symbol}\(\rangle\)|}| to
% replace the word `Euro' with your local \euro\ sign.
% (I'm still hoping that some day the text companion fonts will contain the official in
% addition or instead of the phantasy \emph{Euro} symbols.)
% This documentation, for example, says |\EUROSYM{EUR}{\euro}|
% because it has its own |\euro| symbol built-in. (Isn't it beautiful?)
%
% \begin{example}
% |\EURO{LUF}{137.8}|&      \EURO{LUF}{137.8}\\
% |\EUROSYM{EUR}{\euro}|&\\
% |\EURO{LUF}{137.8}|&      \EUROSYM{EUR}{\euro}\EURO{LUF}{137.8}
% \end{example}
%
% \EUROSYM{EUR}{\euro}    ^^A define this globally now
%
%
% Writing e.\,g.~|\EURO{ATS}{...}| again and again is cumbersome, so it's recommended to
% define macros for the most often used currency units. You may put such definitions
% into your local configuration file (see section~\ref{sec:config}).
%
% \begin{example}
% |\newcommand*\ATS{\EURO{ATS}}|\\
% |\ATS{9.90}|& \ATS{9.90}\\
% |\ATS[ITL]{19.90}|& \ATS[ITL]{19.90}
% \end{example}
% \null
%
%
%
%
% \subsection{The package options}
% \label{sec:options}
%
% The |euro| package provides six package options. See table~\ref{tab:options} for
% a short demonstration.
%
% \begin{labeling}{\opt{emdash}~~}
% \item[\textbf{\opt{eco}}]
%   The \opt{eco} option typesets monetary amounts as, I think,
%   economists prefer it, with \textsc{ISO} codes preceding the values.
% \item[\textbf{\opt{dots}}]
%   The \opt{dots} option inserts dots as three-digits group
%   separators. (Default is a little space like \rule{.4pt}{.75em}\,\rule{.4pt}{.75em}.)
% \item[\textbf{\opt{table}}]
%   Turns the \emph{table mode} globally on.
%   While integers are normally printed without decimal point and fractional part (sic!),
%   it may especially in tables be desirable to typeset a decimal point followed by a dash.
%   See section \ref{sec:align} for how to keep this behavior local to a particular table.
% \item[\textbf{\opt{emdash}}]
%   Lets the \opt{table} dashes be `---'. Doesn't turn on \emph{table mode}.
%   (This option is selected by default, so it doesn't make much sense at
%   the moment. But this might change some day.)
% \item[\textbf{\opt{endash}}]
%   Lets the \opt{table} dashes be `--'. Doesn't turn on \emph{table mode}.
% \item[\textbf{\opt{zeros}}]
%   Lets zeros be printed instead of dashes. Doesn't turn on \emph{table mode}.
% \end{labeling}
%
%
% \begin{table}
% \begin{center}
%^^A the options are only faked here   ;-)
% \makeatletter
% \begin{tabular}{lr}%
% |\EURO{ATS}{1000}| with&\\[.5ex]
% \hline\\[-1.5ex]
% (default settings)&
%   \EURO{ATS}{1000}\\
% \opt{dots}&\let\EURO@lsep.\let\EURO@rsep.^^A
%   \EURO{ATS}{1000}\\
% \opt{endash}&\let\EURO@table\EURO@endash
%   \EUROFORMAT{main}{\table\in\ (\out)}^^A
%   \EURO{ATS}{1000}\\
% \opt{emdash}&\let\EURO@table\EURO@emdash
%   \EUROFORMAT{main}{\table\in\ (\out)}^^A
%   \EURO{ATS}{1000}\\
% \opt{zeros}&\let\EURO@table\EURO@zeros
%   \EUROFORMAT{main}{\table\in\ (\out)}^^A
%   \EURO{ATS}{1000}\\
% \opt{eco}&
%   \EUROFORMAT{in}{\iso~\val}^^A
%   \EUROFORMAT{out}{\iso~\val}^^A
%   \EURO{ATS}{1000}\\
% \opt{eco,endash}&\let\EURO@table\EURO@endash
%   \EUROFORMAT{main}{\table\in\ (\out)}^^A
%   \EUROFORMAT{in}{\iso~\val}^^A
%   \EUROFORMAT{out}{\iso~\val}^^A
%   \EURO{ATS}{1000}\\
% \opt{eco,emdash}&\let\EURO@table\EURO@emdash
%   \EUROFORMAT{main}{\table\in\ (\out)}^^A
%   \EUROFORMAT{in}{\iso~\val}^^A
%   \EUROFORMAT{out}{\iso~\val}^^A
%   \EURO{ATS}{1000}\\
%   \end{tabular}
% \end{center}
% \caption{Package options}
% \label{tab:options}
% \end{table}
%
%
%
%
% \subsection{Adding currency units}
%
% If some day further countries will join the \emph{Euro-zone,} you can easily
% add their currency units to your document files or, better, to
% your local `|euro.cfg|' configuration file.
% The |euro| package will then, of course, be updated as soon as possible.
%
% \begin{syntax}
% |\EUROADD{|\<ISO code>|}{|\<national style/symbol>|}{|\<conversion rate>|}|
% \end{syntax}
%
% The conversion rate describes, how many units of the new currency
% equal 1~\euro. You can also add currencies, that will
% probably never become member of the \emph{Euro-zone,} like the US-\$. But be aware that such
% conversion rates may change daily/hourly! See \(\langle\)|http://europa.eu.int/|\(\rangle\) for the
% actual rates. The used \textsc{ISO} code serves as identifier for the
% respective currency unit.
%
% \EUROADD{GBP}{\textit{\char`\$}}{0.6694}
% \begin{example}
% |%  1 Euro = 0.6694 Pound Sterling    (March 11, 1999)|\hspace*{-4.5cm}\\
% |%|\\
% |\EUROADD{GBP}{\textsterling}{0.6694}|\hspace*{-3cm}\\
% |\newcommand*\GBP{\EURO{GBP}}|\\
% \\
% |\GBP{47.11}|&            \EURO{GBP}{47.11}\\
% |\GBP[FRF]{47.11}|&       \EURO{GBP}[FRF]{47.11}\\
% |\EURO{EUR}[GBP]{1}|&     \EURO{EUR}[GBP]{1}
% \end{example}
%
% The pound symbol in this example looks a bit too slanted. You'd better take
% |\textsterling| from the |textcomp| package, which I didn't.
%
%
%
%
%
%
% \section{Further customization}
% \label{sec:format}
%
% The desirable format for monetary amounts may differ from country to country and from purpose to purpose.
% The |euro| package uses three kinds of format strings to customize the format, each of which may
% consist of some \emph{reserved keywords} and any other \TeX\ commands. It's a good idea
% to put such commands in your local configuration file (see section~\ref{sec:config}).
%
%
%
% \subsection{The main format}
%
% The main format defines how source and destination currency shall be arranged.
%
% \begin{syntax}
% |\EUROFORMAT{main}{|\<main format string>|}|
% \end{syntax}
%
% The \emph{reserved keywords} |\in| and |\out| stand for the source and the destination currency.
% The following table shows some possible formats with the first line showing the
% default definition.
%
% \begin{example}[.58\hsize]
%                                         & |\EURO{ATS}{30}| yields\\[.5ex]
% \hline\\[-1.5ex]
% |\EUROFORMAT{main}{\in\ (\out)}|&         \EURO{ATS}{30}\\
% |\EUROFORMAT{main}{\in\slash\out}|&       \EUROFORMAT{main}{\in\slash\out}\EURO{ATS}{30}\\
% |\EUROFORMAT{main}{\in\ ($=$\,\out)}|&    \EUROFORMAT{main}{\in\ ($=$\,\out)}\EURO{ATS}{30}\\
% |\EUROFORMAT{main}{\in\ (that is \out)}|& \EUROFORMAT{main}{\in\ (that is \out)}\EURO{ATS}{30}\\
% |\EUROFORMAT{main}{\out}|&                \EUROFORMAT{main}{\out}\EURO{ATS}{30}
% \end{example}
% \null
%
%
%
%
% \subsection{The currency format}
%
%
% The currency format defines how the source and the destination currency
% shall be formatted.
%
% \begin{syntax}
% |\EUROFORMAT{in}{|\<currency format string>|}|\\
% |\EUROFORMAT{out}{|\<currency format string>|}|
% \end{syntax}
%
% The \emph{reserved keywords} |\val|, |\iso| and |\sym| have a special meaning, but
% almost every other \TeX\ command may be used as well.
%
% \medskip\indent
% \begin{tabular}{@{\texttt\bgroup}l@{\egroup\quad}p{.8\hsize}}
% \string\val&   monetary amount\\
% \string\iso&   \textsc{ISO} currency code\\
% \string\sym&   national currency style\slash tag (if defined; \textsc{ISO} code else)\\
% \end{tabular}
%
% \medskip\noindent
% For some currency units
% the |\sym| command produces only the \textsc{ISO} code instead of the national style,
% which I didn't know. This will (with your help!) be changed in future releases.
% The following table shows the most obvious arrangements. All said about the |in| format
% string is also true for the |out| format.
%
% {\EUROFORMAT{main}{\in}\newcommand\EUROaux{\hspace{1.2cm}}
% \begin{example}[.58\textwidth]
% with |\EUROFORMAT{main}{\in}|  & |\EURO{ATS}{30}| yields\\
% \hspace{2cm}and&\\[.5ex]
% \hline\\[-1.5ex]
% |\EUROFORMAT{in}{\val~\sym}|&  \EUROaux\EURO{ATS}{30}\\
% |\EUROFORMAT{in}{\val~\iso}|&  \EUROaux\EUROFORMAT{in}{\val~\iso}\EURO{ATS}{30}\\
% |\EUROFORMAT{in}{\sym~\val}|&  \EUROaux\EUROFORMAT{in}{\sym~\val}\EURO{ATS}{30}\\
% |\EUROFORMAT{in}{\iso~\val}|&  \EUROaux\EUROFORMAT{in}{\iso~\val}\EURO{ATS}{30}
% \end{example}}
% \null
%
%
%
%
%
%
%
% \subsection{The number format}
%
% The number format, finally, defines how the numbers themselves should be
% typeset considering positive\slash negative numbers, rounding and so on.
%
% \begin{syntax}
% |\EUROFORMAT{all}{|\<number format>|}|\\
% |\EUROFORMAT{|\<ISO currency code>|}{|\<number format>|}|
% \end{syntax}
%
% The definitions labeled with |all| will be used for all currency units.
% By using |\EUROFORMAT| with one of the three-digits \textsc{ISO} codes
% as the first argument, these general settings can be overridden for this
% currency.
% Only the \emph{Italian Lira} is defined this way by default, because it
% wouldn't make sense to write \emph{Lira} amounts with two fractional digits
% like the other European currencies.^^A
% \footnote{The package, for example, says something like
% \texttt{\string\EUROFORMAT\char`\{ITL\char`\}\char`\{\string\round\char`\{0\char`\}\char`\}}.} ^^A   8-P
%
% The \textit{number format string} may contain the commands |\form|,
% |\round|, |\zero|, |\plus|, and |\minus|, each of which takes one or
% more arguments. You have only to mention the points that shall differ
% from the default behavior.
% Such a number format might look horrible like this
%
% \begin{example}
% |\EUROFORMAT{all}{%|\\
% |  \form{\,}{,}{\,}%|\\
% |  \round{-2}%|\\
% |  \zero{0}{0}{}%|\\
% |  \plus{}{}%|\\
% |  \minus{\(-\)}{}}|
% \end{example}
%
% which, by fortune, is the predefined default format\footnote{Well, that is a lie: In fact,
% it is only the equivalent of the default definition, which is defined in another way.},
% but it might as well be empty or contain only one of the commands and its arguments.
% Here again all arguments are predefined quite reasonably, so you won't have
% to bother with these verbose definitions.
%
% To make further explanations easier, figure~\ref{fig:nomencl} describes the elements
% that a number may consist of (using my own nomenclature).
%
% \begin{center}
% \begin{figure}
% {\setlength{\unitlength}{1mm}
% \begin{picture}(80,60)(-15,10)
%   \put(50,55){\makebox(0,0)[l]{preamble}}
%     \put(48,55){\line(-1,0){46.5}}
%     \put(1.5,55){\line(0,-1){27}}
%   \put(50,50){\makebox(0,0)[l]{integer part}}
%     \put(3,24){\makebox(8,10){\downbracefill}}
%     \put(48,50){\line(-1,0){41}}
%     \put(7,50){\line(0,-1){19}}
%   \put(50,45){\makebox(0,0)[l]{decimal point}}
%     \put(48,45){\line(-1,0){36.5}}
%     \put(11.5,45){\line(0,-1){17}}
%   \put(50,40){\makebox(0,0)[l]{fractional part}}
%     \put(12.5,24){\makebox(11,10){\downbracefill}}
%     \put(48,40){\line(-1,0){30}}
%     \put(18,40){\line(0,-1){9}}
%   \put(50,35){\makebox(0,0)[l]{postamble (none in this example)}}
%     \put(48,35){\line(-1,0){23}}
%     \put(25,35){\line(0,-1){7}}
% \put(0,25){\makebox(0,0)[l]{\(-\)1 000,234 567}}
%   \put(50,15){\makebox(0,0)[l]{fractional group separator}}
%     \put(48,15){\line(-1,0){30}}
%     \put(18,15){\line(0,1){8}}
%   \put(50,10){\makebox(0,0)[l]{integer group separator}}
%     \put(48,10){\line(-1,0){43}}
%     \put(5,10){\line(0,1){13}}
% \end{picture}}
% \caption{Elements that a number may consist of.}
% \label{fig:nomencl}
% \end{figure}
% \end{center}
%
%
%
%
%
% \subsubsection{The \texttt{\char`\\form} command}
%
% The \DescribeMacro{\form}|\form| command takes three arguments: the \emph{integer group separator},
% the \emph{decimal point} and the \emph{fractional group separator}.
%
% \begin{syntax}
% |\form|\\
% |  {|\<integer group separator>|}|\\
% |  {|\<decimal point>|}|\\
% |  {|\<fractional group separator>|}|
% \end{syntax}
%
%
% \begin{description}
% \item[group separators:]
%   separate groups of three decimal digits to improve legibility of bigger numbers.
%   It's a small space by default, but taking a space, a dot or just nothing might be
%   desirable in some cases.
% \item[decimal point:]
%   separates a number's integer part from the fractional part. It's a comma by default.
%
%   {\EUROFORMAT{main}{\in}
%   \EUROFORMAT{in}{\align\val\hspace*{1cm}}
%   \newcommand*\test[3]{\EUROFORMAT{EUR}{\form{#1}{#2}{#3}}\EURO{EUR}{1000.12345}}
%   \medskip\noindent
%   \begin{center}
%   \begin{tabular}{lr}
%   |\form{.}{,}{.}|&        \test{.}{,}{.}\\
%   |\form{\,}{,}{\,}|&      \test{\,}{,}{\,}\\
%   |\form{~}{,}{~}|&        \test{~}{,}{~}\\
%   |\form{}{,}{}|&          \test{}{,}{}\\
%   |\form{,}{.}{,}|&        \test{,}{.}{,}\\
%   |\form{,}{$\cdot$}{,}|&  \test{,}{$\cdot$}{,}
%   \end{tabular}
%   \end{center}}
% \end{description}
%
%
%
%
% \subsubsection{The \texttt{\char`\\round} command}
%
% The \DescribeMacro{\round}|\round| command takes the \emph{rounding number} as argument.
%
% \begin{syntax}
% |\round{|\<rounding number>|}|
% \end{syntax}
%
% It describes where to round the given money amount. Positive values round to integer digits,
% negative numbers round to fractional digits. Numbers lower than \(-9\) suppress rounding.
%
%   {\EUROFORMAT{main}{\align\in}
%   \EUROFORMAT{in}{\val}
%   \newcommand*\test[1]{\EUROFORMAT{EUR}{\round{#1}}\EURO{EUR}{12345.67898765}}
%   \medskip\noindent
%   \begin{center}
%   \begin{tabular}{r@{\hspace{1cm}}r@{\hspace{1.8cm}}}%
%   \textit{rounding}& \textit{result}\\[.5ex]
%   \hline\\[-1.5ex]
%    |-10|&      \test{-10}\\
%    |-4|&      \test{-4}\\
%    |-3|&      \test{-3}\\
%    |-2|&      \test{-2}\\
%    |-1|&      \test{-1}\\
%    |0|&       \test{0}\\
%    |1|&       \test{1}\\
%    |2|&       \test{2}\\
%    |3|&       \test{3}\\
%    |4|&       \test{4}\\
%    |5|&       \test{5}
%   \end{tabular}
%   \end{center}}
%
%
%
%
% \subsubsection{The \texttt{\char`\\zero} command}
%
% The \DescribeMacro{\zero}|\zero| command describes how to deal with zeros. It takes
% three arguments: the \emph{overall zero} part, the \emph{integer zero} part and the
%  \emph{fractional zero} part.
%
% \begin{syntax}
% |\zero{|\<overall zero>|}{|\<integer zero>|}{|\<fractional zero>|}|
% \end{syntax}
%
% \noindent
% The following table shows some of the possible settings. The first entry is
% the predefined one, which should be used for running text.
% The last line shows the number format that is obtained in table mode with
% the default style \DescribeOption{emdash}\opt{emdash} selected.
%
%   {\makeatletter
%   \EUROFORMAT{main}{\align\in}
%   \EUROFORMAT{in}{\val}
%   \newcommand*\test[4]{\EUROFORMAT{EUR}{\zero{#1}{#2}{#3}}\EURO{EUR}{#4}}
%   \def\|{\hspace{.1em}}
%   \medskip\noindent
%   \begin{center}
%   \begin{tabular}{rr@{\hspace{1cm}}r@{\hspace{1cm}}r@{\hspace{1cm}}}%
%                    & \texttt{0\rlap{.0}} & \texttt{0\rlap{.3}} & \texttt{3\rlap{.0}}\\[.5ex]
%   \hline\\[-1.5ex]
%   |\zero{0}{0}{}|&  \test{0}{0}{}{0}& \test{0}{0}{}{0.3}& \test{0}{0}{}{3.0}\\
%   |\zero{0}{0}{,00}|&  \test{0}{0}{,00}{0}& \test{0}{0}{,00}{0.3}& \test{0}{0}{,00}{3.0}\\
%   |\zero{0}{}{}|&  \test{0}{}{}{0}& \test{0}{}{}{0.3}& \test{0}{}{}{3.0}\\
%   |\zero{---\EURO@align{,---}}{---}{,---}|&
%     \quad\test{---\EURO@align{,---}}{---}{,---}{0}&
%     \test{---\EURO@align{,---}}{---}{,---}{0.3}&
%     \test{---\EURO@align{,---}}{---}{,---}{3.0}\\
%   |\zero{0}{---}{,---}|&
%     \test{0}{---}{,---}{0}&
%     \test{0}{---}{,---}{0.3}&
%     \test{0}{---}{,---}{3.0}\\
%   \end{tabular}
%   \end{center}}
%
% \bigskip\noindent
% The |\EURO@align| command will get replaced by |\rlap| if alignment was requested.
% You only have to state it in the first argument, if you want to align zero
% amounts in tables.
%
%
%
%
% \subsubsection{The \texttt{\char`\\plus} and \texttt{\char`\\minus} commands}
%
% The \DescribeMacro{\plus}|\plus| and |\minus| commands allow to
% define a preamble\slash postamble for positive and negative numbers, respectively.
% \DescribeMacro{\minus}^^A
%
% \begin{syntax}
% |\plus{|\<positive preamble>|}{|\<positive postamble>|}|\\
% |\minus{|\<negative preamble>|}{|\<negative postamble>|}|
% \end{syntax}
%
% While |\plus| isn't used by default, |\minus| is defined to provide a preceding
% minus sign for negative numbers.
%
%   {\EUROFORMAT{main}{\align\in\hspace*{10mm}}
%   \EUROFORMAT{in}{\val}
%   \newcommand*\test[3]{\EUROFORMAT{EUR}{\minus{#1}{#2}}\EURO{EUR}{#3}}
%   \medskip\noindent
%   \begin{center}
%   \begin{tabular}{rrr}%
%                    &  positive numbers         & negative numbers\\[.5ex]
%   \hline\\[-1.5ex]
%   |\minus{\(-\)}{}|&  \test{\(-\)}{}{12000}& \test{\(-\)}{}{-12000}\\
%   |\minus{(}{)}|&     \test{(}{)}{.79}&      \test{(}{)}{-.79}\\
%   |\minus{\color{red}(}{)}|&^^A
%     \test{\color{red}(}{)}{123.456}&^^A
%     \test{\color{red}(}{)}{-123.456}\\^^A
%   |\minus{\color{red}\(-\)}{}|\qquad&^^A
%     \test{\color{red}\(-\)}{}{10}&^^A
%     \test{\color{red}\(-\)}{}{-10}^^A
%   \end{tabular}
%   \end{center}}
%
%
%
%
%
% \subsection{Tables and alignment}
% \label{sec:align}
%
% To achieve proper alignment in tables there's an |\align| command that
% can be used in any of the different format strings no matter if it's a
% \emph{main}, an \emph{in}, \emph{out}, or one of the \emph{number} formats.
% This command is to be stated before the
% concerned |\in|, |\out|, or |\val| command, respectively.
% It lets a number's fractional part have
% no width, thus allowing to align such numbers properly in a flush-right
% table column (|r| column). The example below also shows how to use
% the \DescribeMacro{\table}|\table| keyword. It turns the \opt{table}
% mode on for the current table. To turn it on for the whole document,
% use the \opt{table} package option. If you find the `---' dashes
% too long, you can load the package with the \DescribeOption{endash}\opt{endash}
% option.
%
%
% \medskip
% \newcommand*\ALNUM{\EUROFORMAT{main}{\table\in}\EUROFORMAT{in}{\align\val}\EURO{EUR}}
% \begin{tabular}{lr}
% |\newcommand*\ALNUM{%|\\
% |  \EUROFORMAT{main}{\table\in}%    % no \out currency|\hspace*{-2cm}\\
% |  \EUROFORMAT{in}{\align\val}%     % no symbol/ISO code|\hspace*{-10cm}\\
% |  \EURO{EUR}}%|\\[2ex]
% |\begin{tabular}{r}|&\\
% |\textbf{costs}\\|&     \textbf{costs}\\
% |\ALNUM{123456}\\|&     \ALNUM{123456}\\
% |\ALNUM{1234.56}\\|&    \ALNUM{1234.56}\\
% |\ALNUM{12.3456}\\|&    \ALNUM{12.3456}\\
% |\ALNUM{0.123456}|&     \ALNUM{0.123456}\\
% |\end{tabular}|
% \end{tabular}
%
% \medskip\noindent
% It may be necessary to put a |\hspace| after such an aligned number,
% especially when it is applied more than once. The second column would
% have to be |\llap|ped in this case.
%
% \medskip
% \newcommand*\IEP{^^A
%   \EUROFORMAT{main}{\align\in\hspace{1.8cm}\llap{\align\out}}^^A
%   \EUROFORMAT{in}{\val}^^A
%   \EUROFORMAT{out}{\val}^^A
%   \EURO{IEP}}
% \begin{example}[.9\textwidth]
% |\newcommand*\IEP{%|\\
% |  \EUROFORMAT{main}{\align\in\hspace{1.8cm}\llap{\align\out}}%|\hspace*{-1cm}\\
% |  \EUROFORMAT{in}{\val}%|\\
% |  \EUROFORMAT{out}{\val}%|\\
% |  \EURO{IEP}}|
% \end{example}
% \null
%
% \begin{tabular}{llr}
% |\begin{tabular}{lr}|&\\
% |\bf Month& \bf Irish Pound/Euro\\|& \bf Month& \bf Irish Pound/Euro\\
% |January&   \IEP{6070.83}\\|&   January&  \IEP{6070.83}\\
% |February&  \IEP{1200}\\|&      February& \IEP{1200}\\
% |March&     \IEP{0.123}\\|&     March&    \IEP{0.123}\\
% |April&     \IEP{441.0358}|&    April&    \IEP{441.0358}\\
% |\end{tabular}|
% \end{tabular}
%
% \medskip\noindent
% It would have been much simpler, though, not to combine two
% columns in one |\EURO| command, but to use two separate entries.
% \medskip
%
%
%
%
% \subsection{Dirty tricks}
%
%
% Of course, the format doesn't have to deal with the \euro, nor with monetary amounts
% at all. (The |EUR| currency in the following examples has no meaning,
% we could also have used any other currency, provided that no |\out| command
% is used within the \emph{format string.})
%
% \begin{example}[.6\textwidth]
% |\newcommand*\USD[1]{{%|\\
% |  \EUROFORMAT{main}{\in}%|\\
% |  \EUROFORMAT{in}{\val\,\$}%|\\
% |  \EUROFORMAT{EUR}{\form{,}{.}{,}\round{-2}}%|\hspace*{-1cm}\\
% |  \EURO{EUR}{#1}}}|\\[1.5ex]
% |\USD{-123450.6789}|& \USD{-123450.6789}\\[1ex]
% \end{example}
%
% These examples are probably too complicated for the simple things they do.
% But they may serve as examples of how to use some of the customization
% commands.
%
% \begin{example}[.6\textwidth]
% |\newcommand*\NUM[1]{{%|\\
% |  \EUROFORMAT{main}{\in}%|\\
% |  \EUROFORMAT{in}{\val}%|\\
% |  \EUROFORMAT{EUR}{\form{,}{.}{,}\round{-10}}%|\hspace*{-1cm}\\
% |  \EURO{EUR}{#1}}}|\\[1.5ex]
% |\NUM{1000} red ants|& \NUM{1000} red ants
% \end{example}
% \null
%
%
%
% \subsection{The default settings}
%
% The following lines show how the |\EURO| command's default behavior
% could have been defined. The real settings, however, were defined on
% a lower programming level.
%
% \begin{example}[.6\textwidth]
% |\EUROFORMAT{main}{\in\ (\out)}|\\
% |\EUROFORMAT{in}{\val~\sym}|\\
% |\EUROFORMAT{out}{\val~\sym}|\\
% |\EUROFORMAT{all}{%|\\
% |  \form{\,}{,}{\,}%|\\
% |  \round{-2}%|\\
% |  \zero{0}{0}{}%|\\
% |  \plus{}{}%|\\
% |  \minus{\(-\)}{}}|\\
% |\EUROFORMAT{ITL}{%|\\
% |  \round{0}}|
% \end{example}
% \null
%
%
%
% \subsection{The configuration file}
% \label{sec:config}
%
% If you want to change the predefined settings, create a
% file named `|euro.cfg|' and put it in a directory, where \TeX\
% can find it. This configuration file will then be loaded
% at the end of the |euro.sty| file, so you may redefine
% any settings or commands, select package options and even
% introduce new package options. But if you intend to give
% your documents to others, don't forget to give them the
% required configuration files, too! That's how such a file
%  could look like:
%
% \begin{example}[.92\textwidth]
% |% introduce the US-Dollar and the British Pound Sterling|\\
% |\EUROADD{USD}{\$}{1.0891}|\\
% |\EUROADD{GBP}{\textsterling}{0.6694}|
% \end{example}
%
% \indent
% \begin{example}[.85\textwidth]
% |% let Italian Lire be rounded to 10s|\\
% |\EUROFORMAT{ITL}{\round{1}}|\\
% |% and let their symbol be only `L.'|\\
% |\EUROSYM{ITL}{L.}|
% \end{example}
%
% \indent
% \begin{example}[.92\textwidth]
% |% declare a new package option `bold',|\\
% |% which typesets the source currency in boldface type|\\
% |\DeclareOption{bold}{%|\\
% |  \EUROFORMAT{main}{\textbf{\in} (\out)}}|
% \end{example}
%
% \indent
% \begin{example}[.85\textwidth]
% |% always select the `endash' option|\\
% |\ExecuteOptions{endash}|\\
% |\endinput|
% \end{example}
% \null
%
%
%
%
% \section*{The European Union \&\ Patents on Software}
%
%^^A^^  NOTE TO DISTRIBUTORS: If you feel like distributing the euro package documentation with
%^^A^^  this section removed or modified, note the special copyright clause that applies in this case!
%
% Because this package is dedicated to the European Union's official currency,
% I feel the obligation --~in the name of freedom and democracy, and as a citizen
% of the EU~-- to comment on today's decision on the ``Computer Implemented
% Inventions Directive'':
%
% Today, 2005/03/07, unelected bureaucrats --~the European Council of ministers~-- decided
% to ignore the objections and clear will of the elected European Parliament, those of the
% Committee on Legal Affairs~(JURI), the presidency of the European Parliament, of several
% national parliaments, and nothing less than the interests of the citizens of the European Union.
% Instead, they chose to fulfill the wishes of software industry giants (some of which have
% been convicted of abusing their monopoly power in several countries), and the wishes of
% bureaucrats from the European Patent Office, which has illegally granted 30.000~software
% patents already.
%
% This is an incredible offense and disgusting abuse of power. It has yet to be
% investigated, which r\^ole corruption played in this plot, for which there
% seem to be strong signs. We are facing nothing less than an oligarchy of
% unelected bureaucrats who feel more obliged to maintaining the wealth of the richest
% man on earth, than the interests of the European citizens and the European
% economy. There is still hope that the European Parliament will reject the
% directive in the second reading. This appeal will remain in the documentation, though,
% as long as the European Parliament is treated as a fig leaf for undemocratic decisions.
% And should this directive become effective, and should I ever encounter conflicts
% with software patent claims in \emph{any} of my software packages, the |euro|~package
% will be the first that I will withdraw.
%
% This is a sad day. Shame on the European~Council! Shame on the European~Commission!
%
%
%
%
%
% \begin{thebibliography}{0}
% \bibitem{Duden}{Duden, Volume 1: \textit{Die Rechtschreibung.} Bibliographisches Institut,
%   Mann\-heim--Wien--Z\"urich, 1986, 19th~edition.}
%
% \bibitem{EUrates}{European Council: \textit{Council Regulation (EC) No.~2866/98 of 31~December~1998
%   on the conversion rates between the euro and the currencies of the Member States adopting
%   the euro.} Official Journal L~359. 31~December~1998.}
%
% \bibitem{EUratesGRD}{European Council: \textit{Council Regulation (EC) No.~1478/2000 of 19~June 2000
%   amending Regulation (EC) No.~2866/98 on the conversion rates between the euro and the currencies
%   of the Member States adopting the euro.} Official Journal L~167. 7~July~2000.}
%
% \bibitem{EUround}{European Council: \textit{Certain provisions related to the introduction of the
%   Euro.} Council Regulation 1103/97, 17~June~1997.}
%
% \bibitem{DEK}{\textsc{Knuth, Donald Ervin:} \textit{The \TeX book.}
%   Addison--Wesley Publishing Company, Reading/Massachusetts, 1989, 16th~edition.}
%
% \bibitem{Tschichold}{\textsc{Tschichold, Jan:} \textit{Ausgew\"ahlte Aufs\"atze
%   \"uber Fragen der Gestalt des Buches und der Typographie.}
%   Birkh\"auser, Basel, 1987, 2nd~edition.}
% \end{thebibliography}
%
%
%
% \StopEventually{\addtocontents{toc}{\protect\end{multicols}}}
%
%
%
%
%
%
%
%
%^^A max 72 columns
%^^A--------------------------------------------------------------------
%
%
%
%
% \section{The implementation}
%    \begin{macrocode}
%<*package>
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{euro}[2003/02/19 v1.1 euro  (mf)]
\RequirePackage{fp-basic}
\RequirePackage{fp-snap}
\FPmessagesfalse
%    \end{macrocode}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \subsection{The engine}
%
% \begin{macro}{\EURO@zero}
% \begin{macro}{\EURO@lzero}
% \begin{macro}{\EURO@rzero}
% \begin{macro}{\EURO@lminus}
% \begin{macro}{\EURO@rminus}
% \begin{macro}{\EURO@lplus}
% \begin{macro}{\EURO@rplus}
% \begin{macro}{\EURO@align}
% \begin{macro}{\EURO@lsep}
% \begin{macro}{\EURO@lsep}
% \begin{macro}{\EURO@point}
% \begin{macro}{\EURO@round}
% These macros are for internal use only. They partly predefine the
% format strings. Never change them here, but create a `|euro.cfg|'
% file, where you can redefine them without causing undesirable
% side effects.
%
%    \begin{macrocode}
\newcommand*\EURO@zero{0}
\newcommand*\EURO@lzero{0}
\newcommand*\EURO@rzero{}
\newcommand*\EURO@lminus{\(-\)}
\newcommand*\EURO@rminus{}
\newcommand*\EURO@lplus{}
\newcommand*\EURO@rplus{}
\newcommand*\EURO@align{}
\newcommand*\EURO@lsep{\,}
\newcommand*\EURO@rsep{\,}
\newcommand*\EURO@point{,}
\newcommand*\EURO@round{-2}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EURO}
% \begin{macro}{\EURO@@}
% \begin{macro}{\EURO@scan}
% These macros manage the whole package. All the \emph{format string}
% macros (also called \emph{keywords}) are defined here locally.
% Note the beautiful |####|s! \texttt{;-)}
%
%    \begin{macrocode}
\newcommand*\EURO[1]{\bgroup\def\EURO@icurr{#1}\EURO@@}
\newcommand*\EURO@@[2][EUR]{\FPset\EURO@ival{#2}%
  \def\EURO@set##1##2##3##4##5{\FPset##5{##1}}%
  \csname EURO@@\EURO@icurr\endcsname\EURO@ifac
  \csname EURO@@#1\endcsname\EURO@ofac
  \FPdiv\EURO@oval\EURO@ival\EURO@ifac
  \FPmul\EURO@oval\EURO@oval\EURO@ofac
  \def\EURO@set##1##2##3##4##5{\def##5{##4}}%
  \EURO@@main\EURO@
  \EURO@@all\EURO@dflt
  \let\EURO@set\EURO@scan
  \def\in{{\csname EURO@@\EURO@icurr\endcsname\EURO@ival
    \def\EURO@set####1####2####3{}\EURO@@in}}%
  \def\out{{\csname EURO@@#1\endcsname\EURO@oval
    \def\EURO@set####1####2####3{}\EURO@@out}}%
  \def\align{\def\EURO@align####1{\rlap{####1}\let\EURO@align\relax}}%
  \let\table\EURO@table
  \def\form##1##2##3{\def\EURO@lsep{##1}\def\EURO@rsep{##3}%
    \def\EURO@point{##2}}%
  \def\round##1{\def\EURO@round{##1}}%
  \let\zero\EURO@setzero
  \def\minus##1##2{\def\EURO@lminus{##1}\def\EURO@rminus{##2}}%
  \def\plus##1##2{\def\EURO@lplus{##1}\def\EURO@rplus{##2}}%
  \EURO@\egroup}
\newcommand*\EURO@scan[5]{%
  \def\val{\FPifzero#5\EURO@zero\else\EURO@num#5\fi}%
  \def\iso{#2}\def\sym{#3}\def\EURO@form{\EURO@dflt#4}%
  \ifx\EURO@form\empty\let\EURO@form\EURO@dflt\fi
  \EURO@form}%
\newcommand*\EURO@setzero[3]{\def\EURO@zero{#1}%
  \def\EURO@lzero{#2}\def\EURO@rzero{#3}}%
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EUROSYM}
% \begin{macro}{\EUROFORMAT}
% \begin{macro}{\EUROADD}
% These macros replace the third\slash fourth parameter of the
% respective currency entry with another currency code\slash
% format string, or add a new currency entry.
%
%    \begin{macrocode}
\newcommand*\EUROSYM[2]{%
  \def\EURO@set##1##2##3##4{\toks@={\EURO@set{##1}{##2}{#2}{##4}}%
    \expandafter\edef\csname EURO@@#1\endcsname{\the\toks@}}%
  \csname EURO@@#1\endcsname}
\newcommand*\EUROFORMAT[2]{%
  \def\EURO@set##1##2##3##4{\toks@={\EURO@set{##1}{##2}{##3}{#2}}%
    \expandafter\edef\csname EURO@@#1\endcsname{\the\toks@}}%
  \csname EURO@@#1\endcsname}
\newcommand*\EUROADD[3]{%
  \expandafter\def\csname EURO@@#1\endcsname{\EURO@set{#3}{#1}{#2}{}}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EURO@num}
% \begin{macro}{\EURO@split}
% Takes a macro containing a number, passes the integer part to |\EURO@grp| and
% outputs everything else, cares about rounding and such\dots
%
%    \begin{macrocode}
\newcommand*\EURO@num[1]{{%
  \FPifneg#1%
    \EURO@lminus\let\EURO@post\EURO@rminus\FPneg#1#1%
  \else
    \EURO@lplus\let\EURO@post\EURO@rplus
  \fi
  \EURO@rround#1%
  \let\EURO@aux#1%
  \FPtrunc#1#10%
  \FPifzero#1\EURO@lzero\else\EURO@grp#1\fi
  \EURO@align{%
     \FPsub\EURO@aux\EURO@aux#1%
     \FPifzero\EURO@aux
       \ifnum\EURO@round<0 \EURO@rzero\fi
     \else
       \ifnum\EURO@round<0
         \ifnum\EURO@round<-9
           \FPclip\EURO@aux\EURO@aux
         \else
           \FPtrunc\EURO@aux\EURO@aux{-\EURO@round}%
         \fi
         \EURO@point
         \expandafter\EURO@split\EURO@aux\relax\relax\relax\EURO@
       \fi
     \fi
     \EURO@post}}%
  \let\EURO@align\relax}
\newcommand*\EURO@split{}
\def\EURO@split0.#1#2#3#4\EURO@{#1#2#3%
  \EURO@threedig#4\relax\relax\relax\EURO@}
\newcommand*\EURO@threedig[3]{%
  \if#1\relax
    \let\EURO@\relax
  \else
    \EURO@rsep#1#2#3\let\EURO@\EURO@threedig
  \fi\EURO@}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EURO@rround}
% \begin{macro}{\EURO@rfac}
% Takes a macro containing a number, returns it rounded.
% |\EURO@rfac| calculates the rounding factor \(10^r\)
% for positive \(r\) (\emph{rounding number}).
%
%    \begin{macrocode}
\newcommand*\EURO@rround[1]{%
  \count@=\EURO@round\relax
  \ifnum\count@<1%
    \count@-\count@
    \FPround#1#1\count@
  \else
    \FPset\EURO@aux1%
    \EURO@rfac\EURO@aux\count@
    \FPdiv#1#1\EURO@aux
    \FPround#1#10%
    \FPmul#1#1\EURO@aux
  \fi}
\newcommand*\EURO@rfac[2]{%
  \ifnum#2>0 \advance#2-1 \EURO@rfac#1#2\FPmul#1#1{10}\fi}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EURO@grp}
% Let's do some recursion---it's fun! (This macro does the three-digit grouping.)
%
%    \begin{macrocode}
\newcommand*\EURO@grp[1]{\bgroup%
  \FPtrunc#1#10%
  \FPiflt#1{1000}%
    #1%
  \else
    \let\EURO@aux=#1%
    \FPdiv#1#1{1000}%
    \FPtrunc#1#10%
    \EURO@grp#1%
    \FPmul#1#1{1000}%
    \FPsub\EURO@aux\EURO@aux#1%
    \FPtrunc\EURO@aux\EURO@aux0%
    \count0=\EURO@aux\relax
    \EURO@lsep
    \ifnum\count0<100 0\ifnum\count0<10 0\fi\fi\EURO@aux
  \fi\egroup}
%    \end{macrocode}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \subsection{The facts}
%
% \begin{macro}{\EURO@@ATS}
% \begin{macro}{\EURO@@BEF}
% \begin{macro}{\EURO@@DEM}
% \begin{macro}{\EURO@@ESP}
% \begin{macro}{\EURO@@FIM}
% \begin{macro}{\EURO@@FRF}
% \begin{macro}{\EURO@@GRD}
% \begin{macro}{\EURO@@IEP}
% \begin{macro}{\EURO@@ITL}
% \begin{macro}{\EURO@@LUF}
% \begin{macro}{\EURO@@NLG}
% \begin{macro}{\EURO@@PTE}
% \begin{macro}{\EURO@@EUR}
% These values have been irrevocably fixed by the European Council on suggestion
% by the European Commission and been published in the \emph{Council Regulation (EC) No.~2866/98}
% \cite{EUrates} and \emph{No.~1478/2000} \cite{EUratesGRD}
% (taken from |http://europa.eu.int/|).
%
%    \begin{macrocode}
\newcommand*\EURO@@ATS{\EURO@set{13.7603}{ATS}{\"oS}{}}
\newcommand*\EURO@@BEF{\EURO@set{40.3399}{BEF}{BEF}{}}
\newcommand*\EURO@@DEM{\EURO@set{1.95583}{DEM}{DM}{}}
\newcommand*\EURO@@ESP{\EURO@set{166.386}{ESP}{Pt.}{}}
\newcommand*\EURO@@FIM{\EURO@set{5.94573}{FIM}{FIM}{}}
\newcommand*\EURO@@FRF{\EURO@set{6.55957}{FRF}{FRF}{}}
\newcommand*\EURO@@GRD{\EURO@set{340.750}{GRD}{GRD}{}}
\newcommand*\EURO@@IEP{\EURO@set{.787564}{IEP}{IEP}{}}
\newcommand*\EURO@@ITL{\EURO@set{1936.27}{ITL}{Lit.}{}}
\newcommand*\EURO@@LUF{\EURO@set{40.3399}{LUF}{LUF}{}}
\newcommand*\EURO@@NLG{\EURO@set{2.20371}{NLG}{NLG}{}}
\newcommand*\EURO@@PTE{\EURO@set{200.482}{PTE}{PTE}{}}
\newcommand*\EURO@@EUR{\EURO@set{1.00000}{EUR}{Euro}{}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \begin{macro}{\EURO@@main}
% \begin{macro}{\EURO@@in}
% \begin{macro}{\EURO@@out}
% \begin{macro}{\EURO@@all}
% Define the generic format macros and `fill' them with
% some default settings. Define the number format for
% the \emph{Italian Lira} and the package options,
% load the optional `|euro.cfg|' file and, finally:
% Exit.
%
%
%    \begin{macrocode}
\newcommand*\EURO@@main{\EURO@set0{}{}{}}
\newcommand*\EURO@@in{\EURO@set0{}{}{}}
\newcommand*\EURO@@out{\EURO@set0{}{}{}}
\newcommand*\EURO@@all{\EURO@set0{}{}{}}
\EUROFORMAT{main}{\in\ (\out)}
\EUROFORMAT{in}{\val~\sym}
\EUROFORMAT{out}{\val~\sym}
\EUROFORMAT{ITL}{\round0}
\DeclareOption{eco}%
  {\EUROFORMAT{in}{\iso~\val}%
   \EUROFORMAT{out}{\iso~\val}}
\newcommand*\EURO@emdash{\EURO@setzero
  {0}{---}{\EURO@point---}}
\newcommand*\EURO@endash{\EURO@setzero
  {0}{--\kern.1em}{\EURO@point\kern.1em--}}
\newcommand*\EURO@zeros{\EURO@setzero
  {0\EURO@align{\EURO@point00}}{0}{\EURO@point00}}
\DeclareOption{emdash}{\let\EURO@table\EURO@emdash}
\DeclareOption{endash}{\let\EURO@table\EURO@endash}
\DeclareOption{zeros}{\let\EURO@table\EURO@zeros}
\DeclareOption{table}{\EURO@table}
\DeclareOption{dots}{\let\EURO@lsep.\let\EURO@rsep.}
\ExecuteOptions{emdash}
\InputIfFileExists{euro.cfg}%
  {\PackageInfo{euro}{Local config file euro.cfg used}}{}
\ProcessOptions
\endinput
%</package>
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
%
%^^A--------------------------------------------------------------------
%
%
%
%
% \vspace{2explus1fill}
%\begin{verbatim}
%$Id: euro.dtx,v 1.14 2005/03/07 14:22:19 m Exp $
%\end{verbatim}
% \Finale
%
%
%
%                                                       ^^A.E.I.O.U.^^
% ^^A vim:ts=4:sw=4:et:cindent