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
|
if not modules then modules = { } end modules ['luatex-font-enc'] = {
version = 1.001,
comment = "companion to luatex-*.tex",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
if context then
os.exit()
end
local fonts = fonts
local encodings = { }
fonts.encodings = encodings
encodings.agl = { }
encodings.known = { }
setmetatable(encodings.agl, { __index = function(t,k)
if k == "unicodes" then
logs.report("fonts","loading (extended) adobe glyph list")
local unicodes = dofile(resolvers.findfile("font-age.lua"))
encodings.agl = { unicodes = unicodes }
return unicodes
else
return nil
end
end })
-- adapted for generic
encodings.cache = containers.define("fonts", "enc", encodings.version, true)
function encodings.load(filename)
local name = file.removesuffix(filename)
local data = containers.read(encodings.cache,name)
if data then
return data
end
local vector, tag, hash, unicodes = { }, "", { }, { }
local foundname = resolvers.findfile(filename,'enc')
if foundname and foundname ~= "" then
local ok, encoding, size = resolvers.loadbinfile(foundname)
if ok and encoding then
encoding = string.gsub(encoding,"%%(.-)\n","")
local unicoding = encodings.agl.unicodes
local tag, vec = string.match(encoding,"/(%w+)%s*%[(.*)%]%s*def")
local i = 0
for ch in string.gmatch(vec,"/([%a%d%.]+)") do
if ch ~= ".notdef" then
vector[i] = ch
if not hash[ch] then
hash[ch] = i
else
-- duplicate, play safe for tex ligs and take first
end
local u = unicoding[ch]
if u then
unicodes[u] = i
end
end
i = i + 1
end
end
end
local data = {
name = name,
tag = tag,
vector = vector,
hash = hash,
unicodes = unicodes
}
return containers.write(encodings.cache, name, data)
end
|
