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
|
if not modules then modules = { } end modules ['math-frc'] = {
version = 1.001,
comment = "companion to math-frc.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local utfchar = utf.char
local context = context
local variables = interfaces.variables
local v_no = variables.no
local v_yes = variables.yes
local v_hidden = variables.hidden
local resolved = {
[0x007B] = "\\{",
[0x007D] = "\\}",
}
table.setmetatableindex(resolved, function(t,k)
local v = utfchar(k)
t[k] = v
return v
end)
local ctx_normalatop = context.normalatop
local ctx_normalover = context.normalover
local function mathfraction(how,left,right,width)
if how == v_no then
if left == 0x002E and right == 0x002E then
ctx_normalatop()
else
context("\\atopwithdelims%s%s",resolved[left],resolved[right])
end
elseif how == v_yes or how == v_hidden then
local norule = how == v_hidden and LUATEXFUNCTIONALITY > 7361 and " norule " or ""
if left == 0x002E and right == 0x002E then
context("\\normalabove%s%s%ssp",norule,width)
else
context("\\abovewithdelims%s%s%s%s%ssp",norule,resolved[left],resolved[right],width)
end
else -- v_auto
if left == 0x002E and right == 0x002E then
ctx_normalover()
else
context("\\overwithdelims%s%s",resolved[left],resolved[right])
end
end
end
interfaces.implement {
name = "mathfraction",
actions = mathfraction,
arguments = { "string", "number", "number", "dimen" }
}
local ctx_Uatop = context.Uatop
local ctx_Uover = context.Uover
local function umathfraction(how,left,right,width)
if how == v_no then
if left == 0x002E and right == 0x002E then
ctx_Uatop()
else
context("\\Uatopwithdelims%s%s",resolved[left],resolved[right])
end
elseif how == v_yes or how == v_hidden then
local norule = how == v_hidden and " norule " or ""
if left == 0x002E and right == 0x002E then
context("\\Uabove%s%ssp",norule,width)
else
context("\\Uabovewithdelims%s%s%s%ssp",norule,resolved[left],resolved[right],width)
end
else -- v_auto
if left == 0x002E and right == 0x002E then
ctx_Uover()
else
context("\\Uoverwithdelims%s%s",resolved[left],resolved[right])
end
end
end
interfaces.implement {
name = "umathfraction",
actions = umathfraction,
arguments = { "string", "number", "number", "dimen" }
}
|