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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
if not modules then modules = { } end modules ['math-spa'] = {
version = 1.001,
comment = "companion to math-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- for the moment (when testing) we use a penalty 1
local setmetatableindex = table.setmetatableindex
local boundary_code = nodes.nodecodes.boundary
local hlist_code = nodes.nodecodes.hlist
local kern_code = nodes.nodecodes.kern
local penalty_code = nodes.nodecodes.penalty
local glue_code = nodes.nodecodes.glue
local line_code = nodes.listcodes.line
local ghost_code = nodes.listcodes.ghost
local middle_code = nodes.listcodes.middle
local leftskip_code = nodes.gluecodes.leftskip
local rightskip_code = nodes.gluecodes.rightskip
local nuts = nodes.nuts
local tonut = nodes.tonut
local tonode = nodes.tonode
local getid = nuts.getid
local getsubtype = nuts.getsubtype
local getnext = nuts.getnext
local getwidth = nuts.getwidth
local getdata = nuts.getdata
local getdepth = nuts.getdepth
local getheight = nuts.getheight
local getlist = nuts.getlist
local setglue = nuts.setglue
local setwhd = nuts.setwhd
local getdimensions = nuts.dimensions
local getnormalizedline = node.direct.getnormalizedline
local getbox = nuts.getbox
local setoffsets = nuts.setoffsets
local addxoffset = nuts.addxoffset
local nextglue = nuts.traversers.glue
local nextlist = nuts.traversers.list
local nextboundary = nuts.traversers.boundary
local nextnode = nuts.traversers.node
local texgetdimen = tex.getdimen
local texsetdimen = tex.setdimen
local texsetcount = tex.setcount
local texisdimen = tex.isdimen
local texiscount = tex.iscount
local boundary = tex.boundaries.system("mathalign")
local stages = { }
local initial = { }
local c_strc_math_n_of_lines = texiscount("c_strc_math_n_of_lines")
local d_strc_math_max_width = texisdimen("d_strc_math_max_width")
local d_strc_math_first_width = texisdimen("d_strc_math_first_width")
local d_strc_math_last_width = texisdimen("d_strc_math_last_width")
local d_strc_math_first_height = texisdimen("d_strc_math_first_height")
local d_strc_math_last_depth = texisdimen("d_strc_math_last_depth")
local d_strc_math_indent = texisdimen("d_strc_math_indent")
stages[1] = function(specification,stage)
local box = getbox(specification.box)
local head = getlist(box)
local align = specification.alignstate
local distance = specification.distance
for s in nextboundary, head do
if getdata(s) == boundary then
-- todo: skip over ghost, maybe penalty, maybe glues all in one loop
-- local n = getnext(s)
-- if n and getid(n) == kern_code then -- also needed
-- n = getnext(n)
-- end
-- while n and getid(n) == hlist_code and getsubtype(n) == ghost_code do
-- n = getnext(n)
-- end
-- -- while n and getid(n) == glue_code do
-- if n and getid(n) == glue_code then
-- n = getnext(n)
-- end
for n, id, subtype in nextnode, getnext(s) do
s = n
if id == kern_code then
-- move on (s_2 case)
elseif id == glue_code then
-- move on
elseif id == penalty_code then
-- move on (untested)
elseif id == hlist_code and subtype == ghost_code then
-- move on
else
break
end
end
distance = distance + getdimensions(head,s)
break
end
end
texsetdimen("global",d_strc_math_indent,distance)
if align == 2 then
for n in nextglue, head do
setglue(n,getwidth(n),0,0,0,0)
end
end
end
local function reposition(n,offset)
-- We need to relocate the local boxes that we use to push something left or
-- right ... quite horrible and one needs a bit twisted mindset for this.
for n, id, subtype, list in nextlist, getlist(n) do
if subtype == middle_code then
addxoffset(n,-offset)
end
end
-- this is tricky ... see line numbering so it might become a real shift
-- inside the box: setprops(n,"repositioned",true)
addxoffset(n,offset)
end
stages[2] = function(specification,stage)
local head = getlist(getbox(specification.box))
local align = specification.alignstate
local maxwidth = false
local cnt = 0
local lastwidth = 0
local firstheight = 0
local lastdepth = 0
for n, id, subtype, list in nextlist, head do
if subtype == line_code then
local t = getnormalizedline(n)
local m = t.rightskip + t.parfillrightskip
if not maxwidth then
maxwidth = m
firstheight = getheight(n)
firstwidth = m
elseif m < maxwidth then
maxwidth = m
end
cnt = cnt + 1
lastwidth = m
lastdepth = getdepth(n)
end
end
if stage == 2 and (align == 2 or align == 3) then
for n, id, subtype, list in nextlist, head do
if subtype == line_code then
if align == 1 then -- flushleft
-- todo
elseif align == 2 then -- middle
reposition(n,maxwidth/2)
elseif align == 3 then -- flushright
reposition(n,maxwidth)
end
end
end
end
texsetcount("global",c_strc_math_n_of_lines,cnt)
texsetdimen("global",d_strc_math_max_width,maxwidth)
texsetdimen("global",d_strc_math_first_width,firstwidth)
texsetdimen("global",d_strc_math_last_width,lastwidth)
texsetdimen("global",d_strc_math_first_height,firstheight)
texsetdimen("global",d_strc_math_last_depth,lastdepth)
end
stages[3] = stages[2]
stages[4] = function(specification,stage)
local box = getbox(specification.box)
nuts.openup(specification,getlist(box))
local w, h, d = getdimensions(getlist(box),true) -- vertical
setwhd(box,w,h,d)
end
interfaces.implement {
name = "handlemathhang",
arguments = {
{
{ "stage", "integer" },
-- { "method" },
{ "alignstate", "integer" },
{ "box", "integer" },
{ "distance", "dimension" },
{ "inbetween", "dimension" },
{ "height", "dimension" },
{ "depth", "dimension" },
{ "splitmethod" },
}
},
actions = function(specification)
local stage = specification.stage
if stage == 1 then
initial = specification
else
setmetatableindex(specification,initial)
end
if stage > 0 and stage <= #stages then
stages[stage](specification,stage)
end
end
}
|