summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/euro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:55:13 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:55:13 +0000
commit645093d2e558d636b8ae634af33564f2a742485a (patch)
tree356bb9059885f59dff6467f1b95963f23bfcccd0 /Master/texmf-dist/tex/latex/euro
parent04a59cea116afd3f7084e09e59e67505d734400d (diff)
euro
git-svn-id: svn://tug.org/texlive/trunk@885 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/euro')
-rw-r--r--Master/texmf-dist/tex/latex/euro/euro.sty191
1 files changed, 191 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/euro/euro.sty b/Master/texmf-dist/tex/latex/euro/euro.sty
new file mode 100644
index 00000000000..ed880ecc3ac
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/euro/euro.sty
@@ -0,0 +1,191 @@
+%%
+%% This is file `euro.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% euro.dtx (with options: `package')
+%%
+%% IMPORTANT NOTICE:
+%%
+%% For the copyright see the source file.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from euro.sty.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file euro.dtx.
+%%
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% 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 $
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{euro}[2003/02/19 v1.1 euro (mf)]
+\RequirePackage{fp-basic}
+\RequirePackage{fp-snap}
+\FPmessagesfalse
+\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}
+\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}}%
+\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}{}}}
+\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@}
+\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}
+\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}
+\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}{}}
+\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
+%%
+%% End of file `euro.sty'.