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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
|
-----------------------------------------------------------------------
-- FILE: luaotfload-loaders.lua
-- DESCRIPTION: Luaotfload callback handling
-- REQUIREMENTS: luatex v.0.80 or later; package lualibs
-- AUTHOR: Philipp Gesang <phg@phi-gamma.net>
-- AUTHOR: Hans Hagen, Khaled Hosny, Elie Roux, David Carlisle
-----------------------------------------------------------------------
local ProvidesLuaModule = {
name = "luaotfload-loaders",
version = "3.13", --TAGVERSION
date = "2020-05-01", --TAGDATE
description = "luaotfload submodule / callback handling",
license = "GPL v2.0"
}
if luatexbase and luatexbase.provides_module then
luatexbase.provides_module (ProvidesLuaModule)
end
-----------------------------------------------------------------------
if not lualibs then error "this module requires Luaotfload" end
if not luaotfload then error "this module requires Luaotfload" end
local logreport = luaotfload.log and luaotfload.log.report or print
local function lua_reader (specification)
local fullname = specification.resolved
if fullname then
local loader = loadfile (fullname)
loader = loader and loader ()
return loader and loader (specification)
end
end
local function eval_reader (specification)
local eval = specification.eval
if not eval or type (eval) ~= "function" then return nil end
logreport ("both", 0, "loaders",
"eval: found tfmdata for %q, injecting.",
specification.name)
return eval ()
end
local function unsupported_reader (format)
return function (specification)
logreport ("both", 4, "loaders",
"font format %q unsupported; cannot load %s.",
format, tostring (specification.name))
end
end
local type1_reader = fonts.readers.afm
local tfm_reader = fonts.readers.tfm
local function install_formats ()
local fonts = fonts
if not fonts then return false end
local readers = fonts.readers
local sequence = readers.sequence
local seqset = table.tohash (sequence)
local formats = fonts.formats
if not readers or not formats then return false end
local function aux (which, reader)
if not which or type (which) ~= "string"
or not reader or type (reader) ~= "function" then
logreport ("both", 2, "loaders", "Error installing reader for %q.", which)
return false
end
formats [which] = "type1"
readers [which] = reader
if not seqset [which] then
logreport ("both", 3, "loaders",
"Extending reader sequence for %q.", which)
sequence [#sequence + 1] = which
seqset [which] = true
end
return true
end
return aux ("evl", eval_reader)
and aux ("lua", lua_reader)
and aux ("pfa", unsupported_reader "pfa")
and aux ("afm", type1_reader)
and aux ("pfb", type1_reader)
and aux ("tfm", tfm_reader)
and aux ("ofm", tfm_reader)
and aux ("dfont", unsupported_reader "dfont")
end
local function not_found_msg (specification, size, id)
logreport ("both", 0, "loaders", "")
logreport ("both", 0, "loaders",
"--------------------------------------------------------")
logreport ("both", 0, "loaders", "")
logreport ("both", 0, "loaders", "Font definition failed for:")
logreport ("both", 0, "loaders", "")
logreport ("both", 0, "loaders", " > id : %d", id)
logreport ("both", 0, "loaders", " > specification : %q", specification)
if size > 0 then
logreport ("both", 0, "loaders", " > size : %.2f pt", size / 2^16)
end
logreport ("both", 0, "loaders", "")
logreport ("both", 0, "loaders",
"--------------------------------------------------------")
end
--[[doc--
\subsection{\CONTEXT override}
\label{define-font}
We provide a simplified version of the original font definition
callback.
--doc]]--
local definers --- (string, spec -> size -> id -> tmfdata) hash_t
do
local ctx_read = fonts.definers.read
local register = fonts.definers.register
local function read(specification, size, id)
local tfmdata = ctx_read(specification, size, id)
if not tfmdata or id or tonumber(tfmdata) then
return tfmdata
end
id = font.define(tfmdata)
register(tfmdata, id)
return id
end
local function patch (specification, size, id)
local fontdata = ctx_read (specification, size, id)
----if not fontdata then not_found_msg (specification, size, id) end
if type (fontdata) == "table" and fontdata.encodingbytes == 2 then
--- We need to test for `encodingbytes` to avoid passing
--- tfm fonts to `patch_font`. These fonts are fragile
--- because they use traditional TeX font handling.
luatexbase.call_callback ("luaotfload.patch_font", fontdata, specification, id)
else
luatexbase.call_callback ("luaotfload.patch_font_unsafe", fontdata, specification, id)
end
if not fontdata or id or tonumber(fontdata) then
return fontdata
end
id = font.define(fontdata)
register(fontdata, id)
return id
end
local function mk_info (name)
local definer = name == "patch" and patch or read
return function (specification, size, id)
logreport ("both", 0, "loaders", "defining font no. %d", id)
logreport ("both", 0, "loaders", " > active font definer: %q", name)
logreport ("both", 0, "loaders", " > spec %q", specification)
logreport ("both", 0, "loaders", " > at size %.2f pt", size / 2^16)
local result = definer (specification, size, id)
if not result then return not_found_msg (specification, size, id) end
if type (result) == "number" then
logreport ("both", 0, "loaders", " > font definition yielded id %d", result)
return result
end
logreport ("both", 0, "loaders", " > font definition successful")
logreport ("both", 0, "loaders", " > name %q", result.name or "<nil>")
logreport ("both", 0, "loaders", " > fontname %q", result.fontname or "<nil>")
logreport ("both", 0, "loaders", " > fullname %q", result.fullname or "<nil>")
logreport ("both", 0, "loaders", " > type %s", result.type or "<nil>")
local spec = result.specification
if spec then
logreport ("both", 0, "loaders", " > file %q", spec.filename or "<nil>")
logreport ("both", 0, "loaders", " > subfont %s", spec.sub or "<nil>")
end
return result
end
end
definers = {
patch = patch,
generic = read,
info_patch = mk_info "patch",
info_generic = mk_info "generic",
}
end
--[[doc--
We create callbacks for patching fonts on the fly, to be used by
other packages. In addition to the regular \identifier{patch_font}
callback there is an unsafe variant \identifier{patch_font_unsafe}
that will be invoked even if the target font lacks certain essential
tfmdata tables.
The callbacks initially contain the empty function that we are going
to override below.
--doc]]--
local function purge_define_font ()
local cdesc = luatexbase.callback_descriptions "define_font"
--- define_font is an “exclusive” callback, meaning that there can
--- only ever be one entry. Everything beyond that would indicate
--- that something is broken.
local _, d = next (cdesc)
if d then
local i, d2 = next (cdesc, 1)
if d2 then --> issue warning
logreport ("both", 0, "loaders",
"Callback table for define_font contains multiple entries: \z
{ [%d] = %q } -- seems fishy.", i, d2)
end
logreport ("log", 0, "loaders",
"Entry %q present in define_font callback; overriding.", d)
luatexbase.remove_from_callback ("define_font", d)
end
end
local install_callbacks = function ()
local create_callback = luatexbase.create_callback
local dummy_function = function () end
create_callback ("luaotfload.patch_font", "simple", dummy_function)
create_callback ("luaotfload.patch_font_unsafe", "simple", dummy_function)
purge_define_font ()
local definer = config.luaotfload.run.definer or "patch"
local selected_definer = definers[definer]
luaotfload.define_font = selected_definer
luatexbase.add_to_callback ("define_font",
selected_definer,
"luaotfload.define_font",
1)
return true
end
return function ()
if not install_formats () then
logreport ("log", 0, "loaders", "Error initializing OFM/PF{A,B} loaders.")
return false
end
if not install_callbacks () then
logreport ("log", 0, "loaders", "Error installing font loader callbacks.")
return false
end
return true
end
-- vim:tw=79:sw=2:ts=2:expandtab
|
