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
|
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_Uatop = context.Uatop
local ctx_Uover = context.Uover
-- local function umathfraction(how,style,left,right,width)
-- style = tonumber(style) -- or nil
-- if how == v_no then
-- if left == 0x002E and right == 0x002E then
-- if style then
-- context("\\Uatop style %i",style)
-- else
-- ctx_Uatop()
-- end
-- else
-- if style then
-- context("\\Uatopwithdelims style %i %s%s",style,resolved[left],resolved[right])
-- else
-- context("\\Uatopwithdelims%s%s",resolved[left],resolved[right])
-- end
-- end
-- elseif how == v_yes or how == v_hidden then
-- local norule = how == v_hidden and " norule " or ""
-- if style then
-- if left == 0x002E and right == 0x002E then
-- context("\\Uabove style %i %s%ssp",style,norule,width)
-- else
-- context("\\Uabovewithdelims style %i %s%s%s%ssp",style,norule,resolved[left],resolved[right],width)
-- end
-- else
-- 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
-- end
-- else -- v_auto
-- if left == 0x002E and right == 0x002E then
-- if style then
-- context("\\Uover style %i",style)
-- else
-- ctx_Uover()
-- end
-- else
-- if style then
-- context("\\Uoverwithdelims style %i %s%s",style,resolved[left],resolved[right])
-- else
-- context("\\Uoverwithdelims%s%s",resolved[left],resolved[right])
-- end
-- end
-- end
-- end
--
-- interfaces.implement {
-- name = "umathfraction",
-- actions = umathfraction,
-- arguments = { "string", "string", "number", "number", "dimen" }
-- }
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,
protected = true,
arguments = { "string", "number", "number", "dimen" }
}
|
