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
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
if not modules then modules = { } end modules ['font-col'] = {
version = 1.001,
comment = "companion to font-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- possible optimization: delayed initialization of vectors
-- we should also share equal vectors (math)
local context, commands, trackers, logs = context, commands, trackers, logs
local node, nodes, fonts, characters = node, nodes, fonts, characters
local file, lpeg, table, string = file, lpeg, table, string
local type, next, toboolean = type, next, toboolean
local gmatch = string.gmatch
local fastcopy = table.fastcopy
local nuts = nodes.nuts
local tonut = nuts.tonut
local getfont = nuts.getfont
local getchar = nuts.getchar
local setfield = nuts.setfield
local setfont = nuts.setfont
local traverse_id = nuts.traverse_id
local traverse_char = nuts.traverse_char
local settings_to_hash = utilities.parsers.settings_to_hash
local trace_collecting = false trackers.register("fonts.collecting", function(v) trace_collecting = v end)
local report_fonts = logs.reporter("fonts","collections")
local enableaction = nodes.tasks.enableaction
local disableaction = nodes.tasks.disableaction
local collections = fonts.collections or { }
fonts.collections = collections
local definitions = collections.definitions or { }
collections.definitions = definitions
local vectors = collections.vectors or { }
collections.vectors = vectors
local fontdata = fonts.hashes.identifiers
local chardata = fonts.hashes.characters
local currentfont = font.current
local fontpatternhassize = fonts.helpers.fontpatternhassize
local implement = interfaces.implement
local list = { }
local current = 0
local enabled = false
local function checkenabled()
-- a bit ugly but nicer than a fuzzy state while defining math
if next(vectors) then
if not enabled then
enableaction("processors","fonts.collections.process")
enabled = true
end
else
if enabled then
disableaction("processors","fonts.collections.process")
enabled = false
end
end
end
collections.checkenabled = checkenabled
function collections.reset(name,font)
if font and font ~= "" then
local d = definitions[name]
if d then
d[font] = nil
if not next(d) then
definitions[name] = nil
end
end
else
definitions[name] = nil
end
end
function collections.define(name,font,ranges,details)
-- todo: details -> method=force|conditional rscale=
-- todo: remap=name
local d = definitions[name]
if not d then
d = { }
definitions[name] = d
end
if name and trace_collecting then
report_fonts("extending collection %a using %a",name,font)
end
details = settings_to_hash(details)
-- todo, combine per font start/stop as arrays
for s in gmatch(ranges,"[^, ]+") do
local start, stop, description, gaps = characters.getrange(s,true)
if start and stop then
if trace_collecting then
if description then
report_fonts("using range %a, slots %U - %U, description %a)",s,start,stop,description)
end
for i=1,#d do
local di = d[i]
if (start >= di.start and start <= di.stop) or (stop >= di.start and stop <= di.stop) then
report_fonts("overlapping ranges %U - %U and %U - %U",start,stop,di.start,di.stop)
end
end
end
local offset = details.offset
if type(offset) == "string" then
local start = characters.getrange(offset,true)
offset = start or false
else
offset = tonumber(offset) or false
end
d[#d+1] = {
font = font,
start = start,
stop = stop,
gaps = gaps,
offset = offset,
rscale = tonumber (details.rscale) or 1,
force = toboolean(details.force,true),
check = toboolean(details.check,true),
features = details.features,
}
end
end
end
-- todo: provide a lua variant (like with definefont)
function collections.registermain(name)
local last = currentfont()
if trace_collecting then
report_fonts("registering font %a with name %a",last,name)
end
list[#list+1] = last
end
-- check: when true, only set when present in font
-- force: when false, then not set when already set
function collections.clonevector(name)
statistics.starttiming(fonts)
if trace_collecting then
report_fonts("processing collection %a",name)
end
local definitions = definitions[name]
local vector = { }
vectors[current] = vector
for i=1,#definitions do
local definition = definitions[i]
local name = definition.font
local start = definition.start
local stop = definition.stop
local check = definition.check
local force = definition.force
local offset = definition.offset or start
local remap = definition.remap
local cloneid = list[i]
local oldchars = fontdata[current].characters
local newchars = fontdata[cloneid].characters
if trace_collecting then
report_fonts("remapping font %a to %a for range %U - %U",current,cloneid,start,stop)
end
if check then
for unicode = start, stop do
local unic = unicode + offset - start
if not newchars[unicode] then
-- not in font
elseif force or (not vector[unic] and not oldchars[unic]) then
if remap then
vector[unic] = { cloneid, remap[unicode] }
else
vector[unic] = cloneid
end
end
end
else
for unicode = start, stop do
local unic = unicode + offset - start
if force or (not vector[unic] and not oldchars[unic]) then
if remap then
vector[unic] = { cloneid, remap[unicode] }
else
vector[unic] = cloneid
end
end
end
end
end
if trace_collecting then
report_fonts("activating collection %a for font %a",name,current)
end
checkenabled()
statistics.stoptiming(fonts)
end
-- we already have this parser
--
-- local spec = (P("sa") + P("at") + P("scaled") + P("at") + P("mo")) * P(" ")^1 * (1-P(" "))^1 * P(" ")^0 * -1
-- local okay = ((1-spec)^1 * spec * Cc(true)) + Cc(false)
--
-- if lpegmatch(okay,name) then
function collections.prepare(name) -- we can do this in lua now .. todo
current = currentfont()
if vectors[current] then
return
end
if fontdata[current].mathparameters then
return
end
local d = definitions[name]
if d then
if trace_collecting then
local filename = file.basename(fontdata[current].properties.filename or "?")
report_fonts("applying collection %a to %a, file %a",name,current,filename)
end
list = { }
context.pushcatcodes("prt") -- context.unprotect()
context.font_fallbacks_start_cloning()
for i=1,#d do
local f = d[i]
local name = f.font
local scale = f.rscale or 1
if fontpatternhassize(name) then
context.font_fallbacks_clone_unique(name,scale)
else
context.font_fallbacks_clone_inherited(name,scale)
end
context.font_fallbacks_register_main(name)
end
context.font_fallbacks_prepare_clone_vectors(name)
context.font_fallbacks_stop_cloning()
context.popcatcodes() -- context.protect()
elseif trace_collecting then
local filename = file.basename(fontdata[current].properties.filename or "?")
report_fonts("error while applying collection %a to %a, file %a",name,current,filename)
end
end
function collections.report(message)
if trace_collecting then
report_fonts("tex: %s",message)
end
end
function collections.process(head) -- this way we keep feature processing
local done = false
for n in traverse_char(tonut(head)) do
local font = getfont(n)
local vector = vectors[font]
if vector then
local char = getchar(n)
local vect = vector[char]
if not vect then
-- keep it
elseif type(vect) == "table" then
local newfont = vect[1]
local newchar = vect[2]
if trace_collecting then
report_fonts("remapping character %C in font %a to character %C in font %a%s",
char,font,newchar,newfont,not chardata[newfont][newchar] and " (missing)" or ""
)
end
setfont(n,newfont,newchar)
done = true
else
if trace_collecting then
report_fonts("remapping font %a to %a for character %C%s",
font,vect,char,not chardata[vect][char] and " (missing)" or ""
)
end
setfont(n,vect)
done = true
end
end
end
return head, done
end
function collections.found(font,char) -- this way we keep feature processing
if not char then
font, char = currentfont(), font
end
if chardata[font][char] then
return true -- in normal font
else
local v = vectors[font]
return v and v[char] and true or false
end
end
-- interface
implement {
name = "fontcollectiondefine",
actions = collections.define,
arguments = { "string", "string", "string", "string" }
}
implement {
name = "fontcollectionreset",
actions = collections.reset,
arguments = { "string", "string" }
}
implement {
name = "fontcollectionprepare",
actions = collections.prepare,
arguments = "string"
}
implement {
name = "fontcollectionreport",
actions = collections.report,
arguments = "string"
}
implement {
name = "fontcollectionregister",
actions = collections.registermain,
arguments = "string"
}
implement {
name = "fontcollectionclone",
actions = collections.clonevector,
arguments = "string"
}
implement {
name = "doifelsecharinfont",
actions = { collections.found, commands.doifelse },
arguments = { "integer" }
}
|