From 645093d2e558d636b8ae634af33564f2a742485a Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 12 Jan 2006 23:55:13 +0000
Subject: euro

git-svn-id: svn://tug.org/texlive/trunk@885 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/euro/euro.sty | 191 ++++++++++++++++++++++++++++++
 1 file changed, 191 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/euro/euro.sty

(limited to 'Master/texmf-dist/tex/latex/euro/euro.sty')

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'.
-- 
cgit v1.2.3

