summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/eurosym/eurosym.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:55:18 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:55:18 +0000
commit6f4f8e7f8a545b62669ba286b11a77b4f378e091 (patch)
tree9ebea73c78d97a5b6f3b439b32735f5af0089192 /Master/texmf-dist/tex/latex/eurosym/eurosym.sty
parent37f1937c6a583dfe035b62da1f23892d116bedd3 (diff)
eurosym
git-svn-id: svn://tug.org/texlive/trunk@889 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/eurosym/eurosym.sty')
-rw-r--r--Master/texmf-dist/tex/latex/eurosym/eurosym.sty75
1 files changed, 75 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/eurosym/eurosym.sty b/Master/texmf-dist/tex/latex/eurosym/eurosym.sty
new file mode 100644
index 00000000000..45f34d8f73f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/eurosym/eurosym.sty
@@ -0,0 +1,75 @@
+% Style to enable the euro currency symbol for LaTeX.
+% by Henrik Theiling (c) 7/98
+%
+% The specifications for the symbol are taken from the German
+% c't magazine, edition 11/98, p. 211.
+%
+% The package provides the macro \euro{} which creates a euro
+% currency symbol.
+%
+
+\ProvidesPackage{eurosym}
+ [1998/08/06 v1.1 European currency symbol ``Euro'']
+
+\DeclareFontFamily{U}{eurosym}{}
+
+\DeclareFontShape{U}{eurosym}{m}{n}{ <-> feymr10 }{}
+ % Note than only this very shape is officially allowed. All others
+ % that follow are extensions by the author of this package to make
+ % the package more suitable.
+\DeclareFontShape{U}{eurosym}{m}{sc}{ <-> ssub*eurosym/m/n }{}
+ % no Small Caps, only normal
+\DeclareFontShape{U}{eurosym}{m}{sl}{ <-> feymo10 }{}
+\DeclareFontShape{U}{eurosym}{m}{it}{ <-> ssub*eurosym/m/sl }{}
+ % No italic, only slanted.
+\DeclareFontShape{U}{eurosym}{m}{ol}{ <-> feyml10 }{}
+
+\DeclareFontShape{U}{eurosym}{bx}{n}{ <-> feybr10 }{}
+\DeclareFontShape{U}{eurosym}{bx}{sc}{ <-> ssub*eurosym/bx/n }{}
+\DeclareFontShape{U}{eurosym}{bx}{sl}{ <-> feybo10 }{}
+\DeclareFontShape{U}{eurosym}{bx}{it}{ <-> ssub*eurosym/bx/sl }{}
+\DeclareFontShape{U}{eurosym}{bx}{ol}{ <-> feybl10 }{}
+
+% The b series is only kept anyway. Perhaps it changes again sometime
+% and bx then looks different from b:
+\DeclareFontShape{U}{eurosym}{b}{n}{ <-> ssub*eurosym/bx/n }{}
+\DeclareFontShape{U}{eurosym}{b}{sl}{ <-> ssub*eurosym/bx/sl }{}
+\DeclareFontShape{U}{eurosym}{b}{it}{ <-> ssub*eurosym/bx/sl }{}
+\DeclareFontShape{U}{eurosym}{b}{sc}{ <-> ssub*eurosym/bx/n }{}
+\DeclareFontShape{U}{eurosym}{b}{ol}{ <-> ssub*eurosym/bx/ol }{}
+
+\DeclareRobustCommand\officialeuro{{\fontencoding{U}\fontfamily{eurosym}\selectfont{}e}}
+
+% The following is for hacking fonts that don't have an own Euro symbol yet
+% Only use this when really necessary.
+\DeclareRobustCommand\eurobars{{\fontencoding{U}\fontfamily{eurosym}\selectfont{}A}}
+\DeclareRobustCommand\eurobarsnarrow{{\fontencoding{U}\fontfamily{eurosym}\selectfont{}B}}
+\DeclareRobustCommand\eurobarswide{{\fontencoding{U}\fontfamily{eurosym}\selectfont{}C}}
+
+\newbox\@eurobox
+\DeclareRobustCommand\geneuro{\setbox\@eurobox\hbox\eurobars%
+ \mbox{\copy\@eurobox\hskip-\wd\@eurobox{}\hskip.5pt{}C}}
+\DeclareRobustCommand\geneuronarrow{\setbox\@eurobox\hbox\eurobarsnarrow%
+ \mbox{\copy\@eurobox\hskip-\wd\@eurobox{}\hskip.5pt{}C}}
+\DeclareRobustCommand\geneurowide{\setbox\@eurobox\hbox\eurobarswide%
+ \mbox{\copy\@eurobox\hskip-\wd\@eurobox{}\hskip.5pt{}C}}
+
+\newif\if@EURleft
+
+\def\EUR#1{\if@EURleft\euro\,\fi#1\if@EURleft\else\,\euro\fi}
+
+\DeclareOption{left}{\@EURlefttrue}
+\DeclareOption{right}{\@EURleftfalse}
+\DeclareOption{official}{\let\euro\officialeuro}
+\DeclareOption{gen}{\let\euro\geneuro}
+\DeclareOption{gennarrow}{\let\euro\geneuronarrow}
+\DeclareOption{genwide}{\let\euro\geneurowide}
+
+\expandafter\ifx\csname umlauthigh\endcsname\relax
+ \ExecuteOptions{left,official}
+\else
+ \ExecuteOptions{right,official}
+\fi
+\ProcessOptions
+
+\endinput