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
|
if not modules then modules = { } end modules ['font-vfc'] = {
version = 1.001,
comment = "companion to font-ini.mkiv and hand-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local select, type = select, type
local insert = table.insert
local fonts = fonts
local helpers = fonts.helpers
local setmetatableindex = table.setmetatableindex
local makeweak = table.makeweak
-- Helpers dealing with virtual fonts: beware, these are final values so
-- don't change the content of tables gotten this way!
local push = { "push" }
local pop = { "pop" }
local dummy = { "comment" }
function helpers.prependcommands(commands,...)
insert(commands,1,push)
for i=select("#",...),1,-1 do
local s = (select(i,...))
if s then
insert(commands,1,s)
end
end
insert(commands,pop)
return commands
end
function helpers.appendcommands(commands,...)
insert(commands,1,push)
insert(commands,pop)
for i=1,select("#",...) do
local s = (select(i,...))
if s then
insert(commands,s)
end
end
return commands
end
function helpers.prependcommandtable(commands,t)
insert(commands,1,push)
for i=#t,1,-1 do
local s = t[i]
if s then
insert(commands,1,s)
end
end
insert(commands,pop)
return commands
end
function helpers.appendcommandtable(commands,t)
insert(commands,1,push)
insert(commands,pop)
for i=1,#t do
local s = t[i]
if s then
insert(commands,s)
end
end
return commands
end
-- todo: maybe weak
-- todo: maybe indirect so that we can't change them
local char = setmetatableindex(function(t,k)
-- local v = { "char", k }
local v = { "slot", 0, k }
t[k] = v
return v
end)
local right = setmetatableindex(function(t,k)
local v = { "right", k }
t[k] = v
return v
end)
local left = setmetatableindex(function(t,k)
local v = { "right", -k }
t[k] = v
return v
end)
local down = setmetatableindex(function(t,k)
local v = { "down", k }
t[k] = v
return v
end)
local up = setmetatableindex(function(t,k)
local v = { "down", -k }
t[k] = v
return v
end)
-- makeweak(char)
-- makeweak(right)
-- makeweak(left)
-- makeweak(up)
-- makeweak(down)
helpers.commands = utilities.storage.allocate {
char = char,
right = right,
left = left,
down = down,
up = up,
push = push,
pop = pop,
dummy = dummy,
}
|
