summaryrefslogtreecommitdiff
path: root/tex/context/base/strc-blk.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/strc-blk.lua')
-rw-r--r--tex/context/base/strc-blk.lua304
1 files changed, 152 insertions, 152 deletions
diff --git a/tex/context/base/strc-blk.lua b/tex/context/base/strc-blk.lua
index 791f8f99b..16a621ad4 100644
--- a/tex/context/base/strc-blk.lua
+++ b/tex/context/base/strc-blk.lua
@@ -1,152 +1,152 @@
-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 find, format, validstring = string.find, string.format, string.valid
-local settings_to_set, settings_to_array = utilities.parsers.settings_to_set, utilities.parsers.settings_to_array
-local allocate = utilities.storage.allocate
-
-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,format("block.%s",validstring(name,"noname")))
- 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
+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 find, format, validstring = string.find, string.format, string.valid
+local settings_to_set, settings_to_array = utilities.parsers.settings_to_set, utilities.parsers.settings_to_array
+local allocate = utilities.storage.allocate
+
+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,format("block.%s",validstring(name,"noname")))
+ 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
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-01 22:52:47 +0000