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
|
if not modules then modules = { } end modules ['mult-ini'] = {
version = 1.001,
comment = "companion to mult-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local format, gmatch, gsub = string.format, string.gmatch, string.gsub
local lpegmatch = lpeg.match
local serialize = table.serialize
interfaces = interfaces or { }
interfaces.messages = interfaces.messages or { }
interfaces.constants = interfaces.constants or { }
interfaces.variables = interfaces.variables or { }
storage.register("interfaces/messages", interfaces.messages, "interfaces.messages" )
storage.register("interfaces/constants", interfaces.constants, "interfaces.constants")
storage.register("interfaces/variables", interfaces.variables, "interfaces.variables")
local messages, constants, variables = interfaces.messages, interfaces.constants, interfaces.variables
function interfaces.setmessages(category,str)
local m = messages[category] or { }
for k, v in gmatch(str,"(%S+) *: *(.-) *[\n\r]") do
m[k] = gsub(v,"%-%-","%%s")
end
messages[category] = m
end
function interfaces.setmessage(category,tag,message)
local m = messages[category]
if not m then
m = { }
messages[category] = m
end
m[tag] = gsub(message,"%-%-","%%s")
end
function interfaces.getmessage(category,tag,default)
local m = messages[category]
return (m and m[tag]) or default or "unknown message"
end
function interfaces.doifelsemessage(category,tag)
local m = messages[category]
return commands.testcase(m and m[tag])
end
local messagesplitter = lpeg.splitat(",")
function interfaces.makemessage(category,tag,arguments)
local m = messages[category]
m = (m and (m[tag] or m[tostring(tag)])) or format("unknown message, category '%s', tag '%s'",category,tag)
if not m then
return m .. " " .. tag
elseif not arguments then
return m
else
return format(m,lpegmatch(messagesplitter,arguments))
end
end
function interfaces.showmessage(category,tag,arguments)
local m = messages[category]
commands.writestatus((m and m.title) or "unknown title",interfaces.makemessage(category,tag,arguments))
end
function interfaces.setvariable(variable,given)
--~ variables[given] = variable
variables[variable] = given
end
function interfaces.setconstant(constant,given)
constants[given] = constant
end
-- it's nicer to have numbers as reference than a hash
interfaces.cachedsetups = interfaces.cachedsetups or { }
interfaces.hashedsetups = interfaces.hashedsetups or { }
storage.register("interfaces.cachedsetups", interfaces.cachedsetups, "interfaces.cachedsetups")
storage.register("interfaces.hashedsetups", interfaces.hashedsetups, "interfaces.hashedsetups")
local cachedsetups = interfaces.cachedsetups
local hashedsetups = interfaces.hashedsetups
function interfaces.cachesetup(t)
local hash = serialize(t)
local done = hashedsetups[hash]
if done then
return cachedsetups[done]
else
done = #cachedsetups + 1
cachedsetups[done] = t
hashedsetups[hash] = done
return t
end
end
function interfaces.is_command(str)
return (str and str ~= "" and token.csname_name(token.create(str)) ~= "") or false
end
|