blob: 5b532cd9e6b273b0c5d2377bb32e327c195d9b60 (
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
%% fontfam.tex
%%%%%%%%%%%%%%%%%%%%
% Petr Olsak, 2016
% This is module for OPmac macros, see http://petr.olsak.net/opmac.html
% The file is read automatically when \fontfam macro is used.
% The command:
% \fontfam [Font Family Name]
% loads the approriate fontfile or lists the available
% Font Family Names if unknown. Example:
% \fontfam [Times] or \fontfam [Times Roman] ... does \input ctimes
% See end of this file this for more details.
\ifx\OPmacversion\udefined \input opmac \fi
\def\fontfamL{}
\def\setfontfam [#1]{\def\fsname{}\setfsname #1 {} \setfontfamB{#1}}
\def\setfsname #1 {\ifx\relax#1\relax
\lowercase\expandafter{\expandafter\def\expandafter\fsname\expandafter{\fsname}}%
\else \addto\fsname{#1}\expandafter\setfsname\fi
}
\def\setfontfamB#1#2#3#4#5#6(#7)#8{\sdef{fs:\fsname}{\fontfamexec{#1}{#2}{#3}{#4}{#5}{#7}{#8}}%
\expandafter\addto\expandafter\fontfamL\csname fs:\fsname\endcsname
}
\def\fontfam[#1]{\def\fontfamname{#1}%
\ifx\fotenc\undefined
\ifx\chyph\undefined \def\fotenc{8t}\else \def\fotenc{8z}\fi
\ifx\font\corkencoded \def\fotenc{8t}\fi
\ifx\font\unicoded \def\fotenc{U}\fi
\def\tmp##1##2\relax{\def\tmp{##2}}\tmp ^^^^abcd\relax
\ifx\tmp\empty \def\fotenc{U}\fi
\fi
\let\fontfamexec=\fontfamexecA
\def\fsname{}\setfsname #1 {}
\expandafter \ifx \csname fs:\fsname\endcsname \relax
\immediate\write16{\string\fontfam: unknown font family [#1] (\fotenc). Choose:}
{\let\fontfamexec=\fontfamexecB \fontfamL}%
\else \csname fs:\fsname\expandafter\expandafter\expandafter\endcsname
\fi
}
\def\fontfamexecA#1#2#3#4#5#6#7{\testfotenc{#6}\iftrue#7 \else
\opwarning{[#1] (#6) family unavailable in \fotenc\space enc}\fi
}
\def\fontfamexecB#1#2#3#4#5#6#7{\testfotenc{#6}%
\iftrue
{\toks2={#2}\toks3={#3}\toks4={#4}%
\immediate\write16{ [#1] \space
{\the\toks2
\ifx\relax#3\relax \else ; mod:\the\toks3 \fi
\ifx\relax#4\relax \else ; \the\toks4 \fi
\ifx\relax#5\relax \else ; +#5\fi} (#6)}}%
\else
\immediate\write16{ -- [#1] (#6) -- unavailable in \fotenc\space enc.}%
\fi
}
\def\testfotenc#1{\def\tmpa{ #1 }\edef\tmpb{\space\fotenc\space}%
\ifx\relax#1\relax \def\tmpa{x}\def\tmpb{x}\fi
\expandafter\isinlist\expandafter\tmpa\expandafter{\tmpb}%
}
\def\famalias#1#2{\slet{fs:#1}{fs:#2}}
\def\fontfamnote#1{\addto\fontfamL{\fontfamnoteA{#1}}}
\def\fontfamnoteA#1{\immediate\write16{=== #1 ===}}
\input fontfam-global
\openin10=fontfam-local
\ifeof10 \else \closein10 \input fontfam-local \fi
\setfontfam [Catalog] {} {} {print catalogue} {} () {\input fontfam-catalog}
\famalias{catalogue}{catalog}
\endinput
------------------------------------------------------------
After
\input opmac
you can use
\fontfam [Font Family Name].
The [Font Family Names] are declared in fontfam-global.tex file and a user
can set his/her own data to fontfam-local.tex file with analogical syntax.
The parameter [Font Family Name] is case insensitive and the spaces are
irrelevat in it. So [Times Roman] is the same as [TimesRoman] or [timesroman].
If a required [Font Family Name] is not known, then all available Font Family
Names are printed on terminal and into log file. Typical usage: \fontfam [?].
If a required [Font Family Name] is known then appropriate \input fontfile
is done. Nothing more. This means that \fontfam gives you possibility to
keep a good overview about fontfiles.
You can use special parameter \fontfam [Catalog]. Then all available font
families are printed to the document with font samples. The pre-defined font
sample can be rewritten: \def\fontfamsample{...}.
Each fontfile supports a limited set of encodings of the fonts. This is
listed in round brackets: 8t means T1 encoding, 8z means IL2 encoding and
U means Unicode. The default encoding is 8t in pdftex, 8z in pdfcsplain.
XeTeX or LuaTeX uses U as default. The csplain provides one change of default
encoding at begining of the document using \input t1code or \input ucode.
If a fontfile (required by [Font Family name]) does not provide chosen encoding
then warning occurs and nothig is done. The list of [Font Family Names]
printed by \fontfam [?] or \fontfam [Catalog] includes only those Names
which provides the encoding currently chosen.
The fontfam-global.tex or fontfam-local.tex files uses \setfontfam with
following format:
\setfontfam [Name] {variants} {modifiers} {comment} {math} (encodings) {\input fontfile}
And \famalias can be used:
\famalias{aliasname}{origname}
The aliasname and origname must be lowecase and without spaces. See
fontfam-global.tex for examples.
\fontfamnote{text} prints text to the listing of font families.
Note that the macro file fontfam.tex and the data fontfam-global.tex and
fontfam-local.tex are read on demand only when \fontfam macro is used in
OPmac. It is not loaded by OPmac directly because user may not need to use
\fontfam, so the data are irrelevant in such case. And you can generate
a TeX format with opmac macros.
|