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
|
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, match, find = string.sub, string.format, string.match, string.find
local count, splitlines = string.count, string.splitlines
local variables = interfaces.variables
local settings_to_array = utilities.parsers.settings_to_array
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
local nnames = #names
if nnames == 0 then
return data[""] or "" -- default buffer
elseif nnames == 1 then
return getcontent(names[1])
else
local t, n = { }, 0
for i=1,nnames 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
local autoundent = true
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
-- bufferdata ends with a \
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
if autoundent then
local margin = match(dn,"[\n\r]( +)[\n\r]*$") or ""
local indent = #margin
if indent > 0 then
local lines = splitlines(dn)
local ok = true
local pattern = "^" .. margin
for i=1,#lines do
local l = lines[i]
if find(l,pattern) then
lines[i] = sub(l,indent+1)
else
ok = false
break
end
end
if ok then
dn = concat(lines,"\n")
end
end
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 = list
end
local content = collectcontent(list,nil) or ""
if content == "" then
content = "empty buffer"
end
return tex.jobname .. "-" .. name .. ".tmp", 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
function commands.feedback(names) -- bad name, maybe rename to injectbuffercontent
context.printlines(collectcontent(names))
end
|