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
|
-- filename : luat-deb.lua
-- comment : companion to luat-deb.tex
-- author : Hans Hagen, PRAGMA-ADE, Hasselt NL
-- copyright: PRAGMA ADE / ConTeXt Development Team
-- license : see context related readme files
if not versions then versions = { } end versions['luat-deb'] = 1.001
if not lmx then lmx = { } end
if not lmx.variables then lmx.variables = { } end
lmx.variables['color-background-green'] = '#4F6F6F'
lmx.variables['color-background-blue'] = '#6F6F8F'
lmx.variables['color-background-yellow'] = '#8F8F6F'
lmx.variables['color-background-purple'] = '#8F6F8F'
lmx.variables['color-background-body'] = '#808080'
lmx.variables['color-background-main'] = '#3F3F3F'
lmx.variables['color-background-one'] = lmx.variables['color-background-green']
lmx.variables['color-background-two'] = lmx.variables['color-background-blue']
lmx.variables['title-default'] = 'ConTeXt Status Information'
lmx.variables['title'] = lmx.variables['title-default']
if not trace then trace = { } end
if not trace.list then trace.list = { } end
if not trace.strings then trace.strings = { } end
trace.strings.undefined = "undefined"
function trace.split(csname)
return csname:match("^(.+):(.+)$")
end
function trace.type(csname)
tag, name = trace.split(csname)
if tag then return tag else return nil end
end
function trace.name(csname)
tag, name = trace.split(csname)
if tag then return name else return csname end
end
function trace.cs(csname)
tag, name = trace.split(csname)
if trace.types[tag] then
return trace.types[tag](name)
else
return trace.primitive(csname)
end
end
function trace.dimen(name)
return (tex.dimen[name] and number.topoints(tex.dimen[name])) or trace.strings.undefined
end
function trace.count(name)
return tex.count[name] or trace.strings.undefined
end
function trace.toks(name)
return (tex.toks[name] and string.limit(tex.toks[name],40)) or trace.strings.undefined
end
function trace.primitive(name)
return tex[name] or trace.strings.undefined
end
trace.types = {
['d'] = trace.dimen,
['c'] = trace.count,
['t'] = trace.toks,
['p'] = trace.primitive
}
function trace.knownlist(name)
return trace.list[name] and #trace.list[name] > 0
end
function trace.showdebuginfo()
lmx.set('title', 'ConTeXt Debug Information')
lmx.set('color-background-one', lmx.get('color-background-green'))
lmx.set('color-background-two', lmx.get('color-background-blue'))
lmx.show('context-debug.lmx')
lmx.restore()
end
function trace.showerror()
lmx.set('title', 'ConTeXt Error Information')
lmx.set('errormessage', status.lasterrorstring)
lmx.set('linenumber', status.linenumber)
lmx.set('color-background-one', lmx.get('color-background-yellow'))
lmx.set('color-background-two', lmx.get('color-background-purple'))
local filename = status.filename
local linenumber = tonumber(status.linenumber or "0")
if not filename then
lmx.set('filename', 'unknown')
lmx.set('errorcontext', 'error in filename')
elseif type(filename) == "number" then
lmx.set('filename', "<read " .. filename .. ">")
lmx.set('errorcontext', 'unknown error')
elseif io.exists(filename) then
-- todo: use an input opener so that we also catch utf16 an reencoding
lmx.set('filename', filename)
lines = io.lines(filename)
if lines then
local context = { }
n, m = 1, linenumber
b, e = m-10, m+10
s = string.len(tostring(e))
for line in lines do
if n > e then
break
elseif n > b then
if n == m then
context[#context+1] = string.format("%" .. s .. "d",n) .. " >> " .. line
else
context[#context+1] = string.format("%" .. s .. "d",n) .. " " .. line
end
end
n = n + 1
end
lmx.set('errorcontext', table.concat(context,"\n"))
else
lmx.set('errorcontext', "")
end
else
lmx.set('filename', filename)
lmx.set('errorcontext', 'file not found')
end
lmx.show('context-error.lmx')
lmx.restore()
end
function trace.overloaderror()
--~ callback.register('show_error_hook', function(identifier, filename, linenumber)
--~ trace.showerror(identifier, filename, linenumber)
--~ end )
callback.register('show_error_hook', trace.showerror)
end
trace.list['scratch'] = {
0, 2, 4, 6, 8
}
trace.list['internals'] = {
'p:hsize', 'p:parindent', 'p:leftskip','p:rightskip',
'p:vsize', 'p:parskip', 'p:baselineskip', 'p:lineskip', 'p:topskip'
}
trace.list['context'] = {
'd:lineheight',
'c:realpageno', 'c:pageno', 'c:subpageno'
}
|
