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
|
if not modules then modules = { } end modules ['node-par'] = {
version = 1.001,
comment = "companion to node-par.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
parbuilders = parbuilders or { }
parbuilders.constructors = parbuilders.constructors or { }
parbuilders.names = parbuilders.names or { }
parbuilders.numbers = parbuilders.numbers or { }
parbuilders.attribute = attributes.numbers['parbuilder'] or 999
storage.register("parbuilders.names", parbuilders.names, "parbuilders.names")
storage.register("parbuilders.numbers", parbuilders.numbers, "parbuilders.numbers")
local constructors, names, numbers, p_attribute = parbuilders.constructors, parbuilders.names, parbuilders.numbers, parbuilders.attribute
local has_attribute = node.has_attribute
local starttiming, stoptiming = statistics.starttiming, statistics.stoptiming
local mainconstructor = nil -- not stored in format
function parbuilders.register(name,number)
parbuilders.names[number] = name
parbuilders.numbers[name] = number
end
function parbuilders.setmain(name)
mainconstructor = numbers[name]
end
-- return values:
--
-- true : tex will break itself
-- false : idem but dangerous
-- head : list of valid vmode nodes with last being hlist
function parbuilders.constructor(head,followed_by_display)
if type(head) == "boolean" then
return head
else
local attribute = has_attribute(head,p_attribute) or mainconstructor
if attribute then
local constructor = names[attribute]
if constructor then
local handler = constructor and constructors[constructor]
if handler then
return handler(head,followed_by_display)
else
logs.report("parbuilders","handler '%s' is not defined",tostring(constructor))
return true -- let tex break
end
end
end
return true -- let tex break
end
end
-- just for testing
function parbuilders.constructors.default(head,followed_by_display)
return true -- let tex break
end
-- also for testing (no surrounding spacing done)
function parbuilders.constructors.oneline(head,followed_by_display)
return node.hpack(head)
end
-- It makes no sense to have a sequence here as we already have
-- pre and post hooks and only one parbuilder makes sense, so no:
--
-- local actions = tasks.actions("parbuilders",1)
-- todo: enable one as main
local actions = parbuilders.constructor
local enabled = false
function parbuilders.enable () enabled = true end
function parbuilders.disable() enabled = false end
local function processor(head,followed_by_display)
if enabled then
starttiming(parbuilders)
local head = actions(head,followed_by_display)
stoptiming(parbuilders)
return head
else
return true -- let tex do the work
end
end
callbacks.register('linebreak_filter', processor, "breaking paragraps into lines")
statistics.register("linebreak processing time", function()
return statistics.elapsedseconds(parbuilders)
end)
|