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
|
#!/usr/bin/env texlua
-----------------------------------------------------------------------
-- FILE: luaotfload-loaders.lua
-- DESCRIPTION: Luaotfload callback handling
-- REQUIREMENTS: luatex v.0.80 or later; packages lualibs, luatexbase
-- AUTHOR: Philipp Gesang (Phg), <phg@phi-gamma.net>, Hans Hagen, Khaled Hosny, Elie Roux
-----------------------------------------------------------------------
--
--- Contains parts of the earlier main script.
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 install_formats = function ()
local fonts = fonts
if not fonts then return false end
local readers = fonts.readers
local handlers = fonts.handlers
local formats = fonts.formats
if not readers or not handlers or not formats then return false end
local aux = function (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 “%s”.", which)
return false
end
formats [which] = "type1"
readers [which] = reader
handlers [which] = { }
return true
end
return aux ("pfa", function (spec) return readers.opentype (spec, "pfa", "type1") end)
and aux ("pfb", function (spec) return readers.opentype (spec, "pfb", "type1") end)
and aux ("ofm", readers.tfm)
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 read = fonts.definers.read
local patch = function (specification, size, id)
local fontdata = read (specification, size, id)
if type (fontdata) == "table" and fontdata.shared then
--- We need to test for the “shared” field here
--- or else the fontspec capheight callback will
--- operate on tfm fonts.
luatexbase.call_callback ("luaotfload.patch_font", fontdata, specification)
else
luatexbase.call_callback ("luaotfload.patch_font_unsafe", fontdata, specification)
end
return fontdata
end
local mk_info = function (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
logreport ("both", 0, "loaders", " > font definition failed")
return
elseif 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>")
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 reset_callback(name,make_false)
for _,v in pairs(luatexbase.callback_descriptions(name))
do
luatexbase.remove_from_callback(name,v)
end
if make_false == true then
luatexbase.disable_callback(name)
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)
reset_callback "define_font"
local definer = config.luaotfload.run.definer
luatexbase.add_to_callback ("define_font",
definers[definer or "patch"],
"luaotfload.define_font",
1)
return true
end
return {
init = function ()
local ret = true
if not install_formats () then
logreport ("log", 0, "loaders", "Error initializing OFM/PF{A,B} loaders.")
ret = false
end
if not install_callbacks () then
logreport ("log", 0, "loaders", "Error installing font loader callbacks.")
ret = false
end
return ret
end
}
-- vim:tw=79:sw=2:ts=2:expandtab
|
