summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/eurosym/eurosym.sty
blob: 45f34d8f73f9d88e3daa5060fe5b8ccb40adc736 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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