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
|
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
local format, gmatch, texsprint, type = string.format, string.gmatch, tex.sprint, type
local traverse_id, first_character = node.traverse_id, node.first_character
local lpegmatch = lpeg.match
local ctxcatcodes = tex.ctxcatcodes
local trace_collecting = false trackers.register("fonts.collecting", function(v) trace_collecting = v end)
local fontdata = fonts.ids
local glyph = node.id('glyph')
fonts.normalizers = fonts.normalizers or { }
fonts.collections = fonts.collections or { }
fonts.collections.definitions = fonts.collections.definitions or { }
fonts.collections.vectors = fonts.collections.vectors or { }
local collections = fonts.collections
local definitions = fonts.collections.definitions
local vectors = fonts.collections.vectors
local list, current, active = { }, 0, false
-- maybe also a copy
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 d then
if name and trace_collecting then
logs.report("fonts","def: extending set %s using %s",name, font)
end
else
if name and trace_collecting then
logs.report("fonts","def: defining set %s using %s",name, font)
end
d = { }
definitions[name] = d
end
details = aux.settings_to_hash(details)
-- todo, combine per font start/stop as arrays
for s in gmatch(ranges,"([^, ]+)") do
local start, stop, description = characters.getrange(s)
if start and stop then
if trace_collecting then
if description then
logs.report("fonts","def: using range %s (U+%04x-U+%04X, %s)",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
logs.report("fonts","def: overlapping ranges U+%04x-U+%04X and U+%04x-U+%04X",start,stop,di.start,di.stop)
end
end
end
details.font, details.start, details.stop = font, start, stop
d[#d+1] = table.fastcopy(details)
end
end
end
function collections.stage_1(name)
local last = font.current()
if trace_collecting then
logs.report("fonts","def: registering font %s with name %s",last,name)
end
list[#list+1] = last
end
function collections.stage_2(name)
statistics.starttiming(fonts)
local d = definitions[name]
local t = { }
if trace_collecting then
logs.report("fonts","def: process collection %s",name)
end
for i=1,#d do
local f = d[i]
local id = list[i]
local start, stop = f.start, f.stop
if trace_collecting then
logs.report("fonts","def: remapping font %s to %s for range U+%04X - U+%04X",current,id,start,stop)
end
local check = toboolean(f.check or "false",true)
local force = toboolean(f.force or "true",true)
local remap = f.remap or nil
-- check: when true, only set when present in font
-- force: when false, then not set when already set
local oldchars = fontdata[current].characters
local newchars = fontdata[id].characters
if check then
for i=start,stop do
if newchars[i] and (force or (not t[i] and not oldchars[i])) then
if remap then
t[i] = { id, remap[i] }
else
t[i] = id
end
end
end
else
for i=start,stop do
if force or (not t[i] and not oldchars[i]) then
if remap then
t[i] = { id, remap[i] }
else
t[i] = id
end
end
end
end
end
vectors[current] = t
if trace_collecting then
logs.report("fonts","def: activating collection %s for font %s",name,current)
end
active = true
statistics.stoptiming(fonts)
end
local P, Cc = lpeg.P, lpeg.Cc
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)
-- todo: check for already done
function collections.prepare(name)
current = font.current()
if vectors[current] then
return
end
local d = definitions[name]
if d then
if trace_collecting then
local filename = file.basename(fontdata[current].filename or "?")
logs.report("fonts","def: applying collection %s to %s (file: %s)",name,current,filename)
end
list = { }
texsprint(ctxcatcodes,"\\dostartcloningfonts") -- move this to tex \dostart...
for i=1,#d do
local f = d[i]
local name = f.font
local scale = f.rscale or 1
if lpegmatch(okay,name) then
texsprint(ctxcatcodes,format("\\doclonefonta{%s}{%s}",name,scale)) -- define with unique specs
else
texsprint(ctxcatcodes,format("\\doclonefontb{%s}{%s}",name,scale)) -- define with inherited specs
end
texsprint(ctxcatcodes,format("\\ctxlua{fonts.collections.stage_1('%s')}",name)) -- registering main font
end
texsprint(ctxcatcodes,format("\\ctxlua{fonts.collections.stage_2('%s')}",name)) -- preparing clone vectors
texsprint(ctxcatcodes,"\\dostopcloningfonts")
elseif trace_collecting then
local filename = file.basename(fontdata[current].filename or "?")
logs.report("fonts","def: error in applying collection %s to %s (file: %s)",name,current,filename)
end
end
function collections.message(message)
if trace_collecting then
logs.report("fonts","tex: %s",message)
end
end
function collections.process(head)
if active then
local done = false
for n in traverse_id(glyph,head) do
local v = vectors[n.font]
if v then
local id = v[n.char]
if id then
if type(id) == "table" then
local newid, newchar = id[1], id[2]
if trace_collecting then
logs.report("fonts","lst: remapping character %s in font %s to character %s in font %s",n.char,n.font,newchar,newid)
end
n.font, n.char = newid, newchar
else
if trace_collecting then
logs.report("fonts","lst: remapping font %s to %s for character %s",n.font,id,n.char)
end
n.font = id
end
end
end
end
end
return head, done
end
|