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
|
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 type = type
local gmatch, find = string.gmatch, string.find
local lpegmatch = lpeg.match
local settings_to_set, settings_to_array = utilities.parsers.settings_to_set, utilities.parsers.settings_to_array
local allocate, mark = utilities.storage.allocate, utilities.storage.mark
local structures, context = structures, context
structures.blocks = structures.blocks or { }
local blocks = structures.blocks
local sections = structures.sections
local lists = structures.lists
local collected = allocate()
local tobesaved = allocate()
local states = allocate()
blocks.collected = collected
blocks.tobesaved = tobesaved
blocks.states = states
local function initializer()
collected = blocks.collected
tobesaved = blocks.tobesaved
end
job.register('structures.blocks.collected', tobesaved, initializer)
local listitem = utilities.parsers.listitem
function blocks.print(name,data,hide)
if hide then
context.dostarthiddenblock(name)
else
context.dostartnormalblock(name)
end
context.viafile(data)
if hide then
context.dostophiddenblock()
else
context.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 settings_to_array(tag)
for n in listitem(name) do
local sn = states[n]
if not sn then
-- error
elseif all then
sn.all = state
else
for _, tag in next, tags do
sn[tag] = state
end
end
end
end
function blocks.select(state,name,tag,criterium)
criterium = criterium or "text"
if find(tag,"=") then tag = "" end
local names = settings_to_set(name)
local all = tag == ""
local tags = not all and settings_to_set(tag)
local hide = state == "process"
local n = sections.numberatdepth(criterium)
local result = lists.filtercollected("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 next, 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.getcontent(buffer)
local tags = 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 = 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 next, 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.erase(buffer)
end
-- interface
commands.definestructureblock = blocks.define
commands.savestructureblock = blocks.save
commands.selectstructureblock = blocks.select
commands.setstructureblockstate = blocks.setstate
|