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
|
if not modules then modules = { } end modules ['buff-ini'] = {
version = 1.001,
comment = "companion to buff-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local trace_run = false trackers.register("buffers.run", function(v) trace_run = v end)
local trace_visualize = false trackers.register("buffers.visualize", function(v) trace_visualize = v end)
local report_buffers = logs.reporter("buffers","usage")
local concat = table.concat
local type, next = type, next
local sub, format, count, splitlines = string.sub, string.format, string.count, string.splitlines
local variables = interfaces.variables
local settings_to_array = utilities.parsers.settings_to_array
local texprint, ctxcatcodes = tex.print, tex.ctxcatcodes
buffers = { }
local buffers = buffers
local context = context
local data = { }
function buffers.raw(name)
return data[name] or ""
end
local function erase(name)
data[name] = nil
end
local function assign(name,str)
data[name] = str
end
local function append(name,str)
data[name] = (data[name] or "") .. str
end
local function exists(name)
return data[name] ~= nil
end
local function getcontent(name) -- == raw
return data[name] or ""
end
local function getlines(name)
local d = name and data[name]
return d and splitlines(d)
end
local function collectcontent(names,separator) -- no print
if type(names) == "string" then
names = settings_to_array(names)
end
if #names == 1 then
return getcontent(names[1])
else
local t, n = { }, 0
for i=1,#names do
local c = getcontent(names[i])
if c ~= "" then
n = n + 1
t[n] = c
end
end
return concat(t,separator or "\n") -- was \r
end
end
buffers.erase = erase
buffers.assign = assign
buffers.append = append
buffers.exists = exists
buffers.getcontent = getcontent
buffers.getlines = getlines
buffers.collectcontent = collectcontent
-- the context interface
commands.erasebuffer = erase
commands.assignbuffer = assign
local P, patterns, lpegmatch = lpeg.P, lpeg.patterns, lpeg.match
local function countnesting(b,e)
local n
local g = P(b) / function() n = n + 1 end
+ P(e) / function() n = n - 1 end
+ patterns.anything
local p = patterns.alwaysmatched / function() n = 0 end
* g^0
* patterns.alwaysmatched / function() return n end
return p
end
local counters = { }
local nesting = 0
function commands.grabbuffer(name,begintag,endtag,bufferdata) -- maybe move \\ to call
local dn = getcontent(name)
if dn == "" then
nesting = 0
end
-- nesting = nesting + count(bufferdata,"\\"..begintag) - count(bufferdata,"\\"..endtag)
local counter = counters[begintag]
if not counter then
counter = countnesting(begintag,endtag)
counters[begintag] = counter
end
nesting = nesting + lpegmatch(counter,bufferdata)
local more = nesting > 0
if more then
dn = dn .. bufferdata .. endtag
nesting = nesting - 1
else
if dn == "" then
dn = sub(bufferdata,1,-2)
else
dn = dn .. "\n" .. sub(bufferdata,1,-2) -- no \r, \n is more generic
end
local last = sub(dn,-1)
if last == "\n" or last == "\r" then -- \n is unlikely as \r is the endlinechar
dn = sub(dn,1,-2)
end
end
assign(name,dn)
commands.testcase(more)
end
-- The optional prefix hack is there for the typesetbuffer feature and
-- in mkii we needed that (this hidden feature is used in a manual).
local function prepared(name,list) -- list is optional
if not list or list == "" then
list = name
end
if not name or name == "" then
name = tex.jobname .. "-" .. list .. ".tmp"
end
local content = collectcontent(list,nil) or ""
if content == "" then
content = "empty buffer"
end
return name, content
end
local capsule = "\\starttext\n%s\n\\stoptext\n"
local command = "context %s"
function commands.runbuffer(name,list,encapsulate)
local name, content = prepared(name,list)
if encapsulate then
content = format(capsule,content)
end
local data = io.loaddata(name)
if data ~= content then
if trace_run then
report_buffers("changes in '%s', processing forced",name)
end
io.savedata(name,content)
os.execute(format(command,name))
elseif trace_run then
report_buffers("no changes in '%s', not processed",name)
end
end
function commands.savebuffer(list,name) -- name is optional
local name, content = prepared(name,list)
io.savedata(name,content)
end
function commands.getbuffer(name)
local str = data[name]
if str and str ~= "" then
context.viafile(str)
end
end
function commands.getbuffermkvi(name)
context.viafile(resolvers.macros.preprocessed(getcontent(name)))
end
function commands.getbufferctxlua(name)
local ok = loadstring(getcontent(name))
if ok then
ok()
else
report_buffers("invalid lua code in buffer '%s'",name)
end
end
function commands.doifelsebuffer(name)
commands.testcase(exists(name))
end
-- This only used for mp buffers and is a kludge. Don't
-- change the texprint into texsprint as it fails because
-- "p<nl>enddef" becomes "penddef" then.
function commands.feedback(names)
texprint(ctxcatcodes,splitlines(collectcontent(names)))
end
|