summaryrefslogtreecommitdiff
path: root/texmf-dist/tex/latex/adobecaslon/adobecaslon.sty
blob: 14f423481f4224ba999850c250b6fe2470ce821e (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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
%%
%% This is file `adobecaslon.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% adobecaslon.dtx  (with options: `style')
%% Copyright (c) 1996, Ulrik Vieth
%% Copyright (c) 2012, Boris Veytsman
%% Copyright (c) 2013-2016, Reuben Thomas
%% 
%% All rights reserved.
%% 
%% Redistribution and use in source and binary forms, with or without
%% modification, are permitted provided that the following conditions
%% are met:
%% 
%%    * Redistributions of source code must retain the above copyright
%%    notice, this list of conditions and the following disclaimer.
%%    * Redistributions in binary form must reproduce the above
%%    copyright notice, this list of conditions and the following
%%    disclaimer in the documentation and/or other materials provided
%%    with the distribution.
%%    * Neither the name of the original author nor the names of the
%%    contributors may be used to endorse or promote products derived
%%    from this software without specific prior written permission.
%% 
%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
%% CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
%% INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
%% MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
%% DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
%% BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
%% EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
%% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
%% DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
%% ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
%% OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
%% OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
%% POSSIBILITY OF SUCH DAMAGE.
%% 
%% \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         \~}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{adobecaslon}
   [2017/01/22 v2.2 Using Adobe Caslon Font in LaTeX]
\RequirePackage{kvoptions}
\RequirePackage{ifthen}
\def\adobecaslonf@ntsuffix{}
\DeclareVoidOption{expert}{\def\adobecaslonf@ntsuffix{x}}
\DeclareVoidOption{osf}{\def\adobecaslonf@ntsuffix{j}}
\DeclareVoidOption{swashit}{\def\adobecaslonf@ntsuffix{w}}
\DeclareVoidOption{alternate}{\def\adobecaslonf@ntsuffix{a}}
\newif\ifadobecaslon@longs\adobecaslon@longsfalse
\DeclareVoidOption{longs}{\def\adobecaslonf@ntsuffix{aa}\adobecaslon@longstrue}
\newif\ifadobecaslon@eighteenth\adobecaslon@eighteenthfalse
\DeclareVoidOption{c18th}{\def\adobecaslonf@ntsuffix{aa8}\adobecaslon@eighteenthtrue}
\DeclareVoidOption{swashlongs}{\def\adobecaslonf@ntsuffix{aaw}}
\DeclareBoolOption[false]{extraligs}
\DeclareBoolOption[true]{rmdefault}
\DeclareComplementaryOption{normdefault}{rmdefault}
\DeclareStringOption[1.00]{scaled}
\DeclareBoolOption{bold}
\DeclareComplementaryOption{semibold}{bold}
\ProcessKeyvalOptions*
\def\adobecaslonf@ntextraligs{}
\ifadobecaslon@extraligs
  \def\adobecaslonf@ntextraligs{e}
  \ifthenelse{\(\boolean{adobecaslon@longs}\OR\boolean{adobecaslon@eighteenth}\)}{%
    \edef\adobecaslonf@ntsuffix{\adobecaslonf@ntsuffix e}}{}
\fi
\ifadobecaslon@rmdefault
  \renewcommand{\rmdefault}{pac\adobecaslonf@ntsuffix}
  \ifadobecaslon@bold\else
    \def\bfdefault{sb}
  \fi
\fi
\DeclareRobustCommand\adobecaslonfamily{\fontfamily{pac}\selectfont}
\DeclareTextFontCommand{\textadobecaslon}{\adobecaslonfamily}
\DeclareRobustCommand\sbseries{\fontseries{sb}\selectfont}
\DeclareTextFontCommand{\textsb}{\sbseries}
\DeclareRobustCommand\adobecaslonexpert{\fontfamily{pacx}\selectfont}
\DeclareRobustCommand\adobecaslonosf{\fontfamily{pacj}\selectfont}
\DeclareRobustCommand\adobecaslonalternate{\fontfamily{paca}\selectfont}
\DeclareRobustCommand\adobecaslonlongs{\fontfamily{pacaa\adobecaslonf@ntextraligs}\selectfont}
\DeclareRobustCommand\adobecasloneighteenth{\fontfamily{pacaa8\adobecaslonf@ntextraligs}\selectfont}
\DeclareRobustCommand\adobecaslonswashit{\usefont{T1}{pacw}{\f@series}{it}}
\DeclareRobustCommand\adobecaslonswashcaps{\usefont{U}{pac}{\f@series}{iw}}
\DeclareRobustCommand\adobecaslonornaments{\usefont{U}{pac}{m}{n}}
\endinput
%%
%% End of file `adobecaslon.sty'.