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
|
if not modules then modules = { } end modules ['core-env'] = {
version = 1.001,
comment = "companion to core-env.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- maybe this will move to the context name space although the
-- plurals are unlikely to clash with future tex primitives
--
-- if tex.modes['xxxx'] then .... else .... end
local P, C, S, Cc, lpegmatch, patterns = lpeg.P, lpeg.C, lpeg.S, lpeg.Cc, lpeg.match, lpeg.patterns
local texgetcount = tex.getcount
local texsetcount = tex.setcount
local allocate = utilities.storage.allocate
local setmetatableindex = table.setmetatableindex
local setmetatablecall = table.setmetatablecall
local context = context
tex.modes = allocate { }
tex.systemmodes = allocate { }
tex.constants = allocate { }
tex.conditionals = allocate { }
tex.ifs = allocate { }
tex.isdefined = allocate { }
local modes = { }
local systemmodes = { }
-- if newtoken then -- we keep the old code for historic reasons
-- undefined: mode == 0 or cmdname = "undefined_cs"
local create = newtoken.create
local cache = table.setmetatableindex(function(t,k)
local v = create(k)
t[k] = v
return v
end)
-- we can have a modes cache too
local iftrue = cache["iftrue"].mode
local undefined = cache["*undefined*crap*"].mode -- is this ok?
setmetatableindex(tex.modes, function(t,k)
local m = modes[k]
if m then
return m()
else
local n = "mode>" .. k
if cache[n].mode == 0 then
return false
else
modes[k] = function() return texgetcount(n) == 1 end
return texgetcount(n) == 1 -- 2 is prevented
end
end
end)
setmetatableindex(tex.systemmodes, function(t,k)
local m = systemmodes[k]
if m then
return m()
else
local n = "mode>*" .. k
if cache[n].mode == 0 then
return false
else
systemmodes[k] = function() return texgetcount(n) == 1 end
return texgetcount(n) == 1 -- 2 is prevented
end
end
end)
setmetatableindex(tex.constants, function(t,k)
return cache[k].mode ~= 0 and texgetcount(k) or 0
end)
setmetatableindex(tex.conditionals, function(t,k) -- 0 == true
return cache[k].mode ~= 0 and texgetcount(k) == 0
end)
table.setmetatableindex(tex.ifs, function(t,k)
-- local mode = cache[k].mode
-- if mode == 0 then
-- return nil
-- else
-- return mode == iftrue
-- end
return cache[k].mode == iftrue
end)
setmetatableindex(tex.isdefined, function(t,k)
return k and cache[k].mode ~= 0
end)
setmetatablecall(tex.isdefined, function(t,k)
return k and cache[k].mode ~= 0
end)
local dimencode = cache["scratchdimen" ].command
local countcode = cache["scratchcounter"].command
local tokencode = cache["scratchtoken" ].command
local skipcode = cache["scratchskip" ].command
local types = {
[dimencode] = "dimen",
[countcode] = "count",
[tokencode] = "token",
[skipcode ] = "skip",
}
function tex.isdimen(name)
return cache[name].command == dimencode
end
function tex.iscount(name)
return cache[name].command == countcode
end
function tex.istoken(name)
return cache[name].command == tokencode
end
function tex.isskip(name)
return cache[name].command == skipcode
end
function tex.type(name)
return types[cache[name].command] or "macro"
end
-- else
--
-- local csname_id = token.csname_id
-- local create = token.create
--
-- local undefined = csname_id("*undefined*crap*")
-- local iftrue = create("iftrue")[2] -- inefficient hack
--
-- setmetatableindex(tex.modes, function(t,k)
-- local m = modes[k]
-- if m then
-- return m()
-- else
-- local n = "mode>" .. k
-- if csname_id(n) == undefined then
-- return false
-- else
-- modes[k] = function() return texgetcount(n) == 1 end
-- return texgetcount(n) == 1 -- 2 is prevented
-- end
-- end
-- end)
--
-- setmetatableindex(tex.systemmodes, function(t,k)
-- local m = systemmodes[k]
-- if m then
-- return m()
-- else
-- local n = "mode>*" .. k
-- if csname_id(n) == undefined then
-- return false
-- else
-- systemmodes[k] = function() return texgetcount(n) == 1 end
-- return texgetcount(n) == 1 -- 2 is prevented
-- end
-- end
-- end)
--
-- setmetatableindex(tex.constants, function(t,k)
-- return csname_id(k) ~= undefined and texgetcount(k) or 0
-- end)
--
-- setmetatableindex(tex.conditionals, function(t,k) -- 0 == true
-- return csname_id(k) ~= undefined and texgetcount(k) == 0
-- end)
--
-- setmetatableindex(tex.ifs, function(t,k)
-- -- k = "if" .. k -- better not
-- return csname_id(k) ~= undefined and create(k)[2] == iftrue -- inefficient, this create, we need a helper
-- end)
--
-- setmetatableindex(tex.isdefined, function(t,k)
-- return k and csname_id(k) ~= undefined
-- end)
-- setmetatablecall(tex.isdefined, function(t,k)
-- return k and csname_id(k) ~= undefined
-- end)
--
-- local lookuptoken = token.lookup
--
-- local dimencode = lookuptoken("scratchdimen" )[1]
-- local countcode = lookuptoken("scratchcounter")[1]
-- local tokencode = lookuptoken("scratchtoken" )[1]
-- local skipcode = lookuptoken("scratchskip" )[1]
--
-- local types = {
-- [dimencode] = "dimen",
-- [countcode] = "count",
-- [tokencode] = "token",
-- [skipcode ] = "skip",
-- }
--
-- function tex.isdimen(name)
-- return lookuptoken(name)[1] == dimencode
-- end
--
-- function tex.iscount(name)
-- return lookuptoken(name)[1] == countcode
-- end
--
-- function tex.istoken(name)
-- return lookuptoken(name)[1] == tokencode
-- end
--
-- function tex.isskip(name)
-- return lookuptoken(name)[1] == skipcode
-- end
--
-- function tex.type(name)
-- return types[lookuptoken(name)[1]] or "macro"
-- end
--
-- end
function context.setconditional(name,value)
if value then
context.settruevalue(name)
else
context.setfalsevalue(name)
end
end
---- arg = P("{") * C(patterns.nested) * P("}") + Cc("")
local sep = S("), ")
local str = C((1-sep)^1)
local tag = P("(") * C((1-S(")" ))^1) * P(")")
local arg = P("(") * C((1-S("){"))^1) * P("{") * C((1-P("}"))^0) * P("}") * P(")")
local pattern = (
P("lua") * tag / context.luasetup
+ P("xml") * arg / context.setupwithargument -- or xmlw as xmlsetup has swapped arguments
+ (P("tex") * tag + str) / context.texsetup
+ sep^1
)^1
interfaces.implement {
name = "autosetups",
actions = function(str) lpegmatch(pattern,str) end,
arguments = "string"
}
|