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
|
if not modules then modules = { } end modules ['strc--blk'] = {
version = 1.001,
comment = "companion to strc--blk.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- this one runs on top of buffers and structure
local texprint, format, gmatch = tex.print, string.format, string.gmatch
local ctxcatcodes = tex.ctxcatcodes
structure = structure or { }
structure.blocks = structure.blocks or { }
local blocks = structure.blocks
blocks.collected = blocks.collected or { }
blocks.tobesaved = blocks.tobesaved or { }
blocks.states = blocks.states or { }
local tobesaved, collected, states = blocks.tobesaved, blocks.collected, blocks.states
local function initializer()
collected, tobesaved = blocks.collected, blocks.tobesaved
end
job.register('structure.blocks.collected', structure.blocks.tobesaved, initializer)
local printer = (lpeg.linebyline/texprint)^0
function blocks.print(name,data,hide)
if hide then
texprint(ctxcatcodes,format("\\dostarthiddenblock{%s}",name))
else
texprint(ctxcatcodes,format("\\dostartnormalblock{%s}",name))
end
if type(data) == "table" then
for i=1,#data do
texprint(data[i])
end
else
printer:match(data)
end
if hide then
texprint(ctxcatcodes,"\\dostophiddenblock")
else
texprint(ctxcatcodes,"\\dostopnormalblock")
end
end
function blocks.define(name)
states[name] = { all = "hide" }
end
function blocks.setstate(state,name,tag)
local all = tag == ""
local tags = not all and aux.settings_to_array(tag)
for n in gmatch(name,"%s*([^,]+)") do
local sn = states[n]
if not sn then
-- error
elseif all then
sn.all = state
else
for _, tag in pairs(tags) do
sn[tag] = state
end
end
end
end
--~ filter_collected(names, criterium, number, collected)
function blocks.select(state,name,tag,criterium)
criterium = criterium or "text"
if tag:find("=") then tag = "" end
local names = aux.settings_to_set(name)
local all = tag == ""
local tags = not all and aux.settings_to_set(tag)
local hide = state == "process"
local n = structure.sections.number_at_depth(criterium)
local result = structure.lists.filter_collected("all", criterium, n, collected)
for i=1,#result do
local ri = result[i]
local metadata = ri.metadata
if names[metadata.name] then
if all then
blocks.print(name,ri.data,hide)
else
local mtags = metadata.tags
for tag, sta in pairs(tags) do
if mtags[tag] then
blocks.print(name,ri.data,hide)
break
end
end
end
end
end
end
function blocks.save(name,tag,buffer) -- wrong, not yet adapted
local data = buffers.data[buffer]
local tags = aux.settings_to_set(tag)
local plus, minus = false, false
if tags['+'] then plus = true tags['+'] = nil end
if tags['-'] then minus = true tags['-'] = nil end
tobesaved[#tobesaved+1] = {
metadata = {
name = name,
tags = tags,
plus = plus,
minus = minus,
},
references = {
section = structure.sections.currentid(),
},
data = data or "error",
}
local allstate = states[name].all
if not next(tags) then
if allstate ~= "hide" then
blocks.print(name,data)
elseif plus then
blocks.print(name,data,true)
end
else
local sn = states[name]
for tag, _ in pairs(tags) do
if sn[tag] == nil then
if allstate ~= "hide" then
blocks.print(name,data)
break
end
elseif sn[tag] ~= "hide" then
blocks.print(name,data)
break
end
end
end
buffers.data[buffer] = nil
end
|