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'.
|