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
|
if not modules then modules = { } end modules ['node-mig'] = {
version = 1.001,
comment = "companion to node-mig.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local format = string.format
local attributes, nodes, node = attributes, nodes, node
local remove_nodes = nodes.remove
local nodecodes = nodes.nodecodes
local tasks = nodes.tasks
local hlist_code = nodecodes.hlist
local vlist_code = nodecodes.vlist
local insert_code = nodecodes.ins
local mark_code = nodecodes.mark
local a_migrated = attributes.private("migrated")
local trace_migrations = false trackers.register("nodes.migrations", function(v) trace_migrations = v end)
local report_nodes = logs.reporter("nodes","migrations")
local migrate_inserts, migrate_marks, inserts_too
local t_inserts, t_marks, t_sweeps = 0, 0, 0
local function locate(head,first,last,ni,nm)
local current = head
while current do
local id = current.id
if id == vlist_code or id == hlist_code then
current.list, first, last, ni, nm = locate(current.list,first,last,ni,nm)
current = current.next
elseif migrate_inserts and id == insert_code then
local insert
head, current, insert = remove_nodes(head,current)
insert.next = nil
if first then
insert.prev, last.next = last, insert
else
insert.prev, first = nil, insert
end
last, ni = insert, ni + 1
elseif migrate_marks and id == mark_code then
local mark
head, current, mark = remove_nodes(head,current)
mark.next = nil
if first then
mark.prev, last.next = last, mark
else
mark.prev, first = nil, mark
end
last, nm = mark, nm + 1
else
current= current.next
end
end
return head, first, last, ni, nm
end
function nodes.handlers.migrate(head,where)
local done = false
if head then
if trace_migrations then
report_nodes("migration sweep %a",where)
end
local current = head
while current do
local id = current.id
-- inserts_too is a temp hack, we should only do them when it concerns
-- newly placed (flushed) inserts
if id == vlist_code or id == hlist_code or (inserts_too and id == insert_code) and not current[a_migrated] then
current[a_migrated] = 1
t_sweeps = t_sweeps + 1
local h = current.list
local first, last, ni, nm
while h do
local id = h.id
if id == vlist_code or id == hlist_code then
h, first, last, ni, nm = locate(h,first,last,0,0)
end
h = h.next
end
if first then
t_inserts, t_marks = t_inserts + ni, t_marks + nm
if trace_migrations and (ni > 0 or nm > 0) then
report_nodes("sweep %a, container %a, %s inserts and %s marks migrated outwards during %a",
t_sweeps,nodecodes[id],ni,nm,where)
end
-- inserts after head
local n = current.next
if n then
last.next, n.prev = n, last
end
current.next, first.prev = first, current
done, current = true, last
end
end
current = current.next
end
return head, done
end
end
-- for the moment this way, this will disappear
experiments.register("marks.migrate", function(v)
if v then
tasks.enableaction("mvlbuilders", "nodes.handlers.migrate")
end
migrate_marks = v
end)
experiments.register("inserts.migrate", function(v)
if v then
tasks.enableaction("mvlbuilders", "nodes.handlers.migrate")
end
migrate_inserts = v
end)
experiments.register("inserts.migrate.nested", function(v)
if v then
tasks.enableaction("mvlbuilders", "nodes.handlers.migrate")
end
inserts_too = v
end)
statistics.register("node migrations", function()
if trace_migrations and t_sweeps > 0 then
return format("%s sweeps, %s inserts moved, %s marks moved",t_sweeps,t_inserts,t_marks)
end
end)
|