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
206
|
if not modules then modules = { } end modules ['trac-deb'] = {
version = 1.001,
comment = "companion to luat-lib.tex",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
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']
lmx.htmfile = function(name) return environment.jobname .. "-status.html" end
lmx.lmxfile = function(name) return resolvers.find_file(name,'tex') end
if not tracers then tracers = { } end
if not tracers.list then tracers.list = { } end
if not tracers.strings then tracers.strings = { } end
tracers.strings.undefined = "undefined"
function tracers.split(csname)
return csname:match("^(.+):(.+)$")
end
function tracers.type(csname)
tag, name = tracers.split(csname)
if tag then return tag else return nil end
end
function tracers.name(csname)
tag, name = tracers.split(csname)
if tag then return name else return csname end
end
function tracers.cs(csname)
tag, name = tracers.split(csname)
if tracers.types[tag] then
return tracers.types[tag](name)
else
return tracers.primitive(csname)
end
end
function tracers.dimen(name)
return (tex.dimen[name] and number.topoints(tex.dimen[name])) or tracers.strings.undefined
end
function tracers.count(name)
return tex.count[name] or tracers.strings.undefined
end
function tracers.toks(name)
return (tex.toks[name] and string.limit(tex.toks[name],40)) or tracers.strings.undefined
end
function tracers.primitive(name)
return tex[name] or tracers.strings.undefined
end
tracers.types = {
['d'] = tracers.dimen,
['c'] = tracers.count,
['t'] = tracers.toks,
['p'] = tracers.primitive
}
function tracers.knownlist(name)
return tracers.list[name] and #tracers.list[name] > 0
end
function tracers.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 tracers.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 tracers.overloaderror()
callback.register('show_error_hook', tracers.showerror)
end
tracers.list['scratch'] = {
0, 2, 4, 6, 8
}
tracers.list['internals'] = {
'p:hsize', 'p:parindent', 'p:leftskip','p:rightskip',
'p:vsize', 'p:parskip', 'p:baselineskip', 'p:lineskip', 'p:topskip'
}
tracers.list['context'] = {
'd:lineheight',
'c:realpageno', 'c:pageno', 'c:subpageno'
}
-- dumping the hash
-- \starttext
-- \ctxlua{tracers.dump_hash()}
-- \stoptext
local saved = { }
function tracers.save_hash()
saved = tex.hashtokens()
end
function tracers.dump_hash(filename,delta)
filename = filename or tex.jobname .. "-hash.log"
local list = { }
local hash = tex.hashtokens()
local command_name = token.command_name
for name, token in pairs(hash) do
if not delta or not saved[name] then
-- token: cmd, chr, csid -- combination cmd,chr determines name
local kind = command_name(token)
local dk = list[kind]
if not dk then
-- a bit funny names but this sorts better (easier to study)
dk = { names = { }, found = 0, code = token[1] }
list[kind] = dk
end
dk.names[name] = { token[2], token[3] }
dk.found = dk.found + 1
end
end
io.savedata(filename,table.serialize(list,true))
end
function tracers.register_dump_hash(delta)
if delta then
tracers.save_hash()
end
main.register_stop_actions(1,function() tracers.dump_hash(nil,true) end) -- at front
end
-- trackers (maybe group the show by class)
function trackers.show()
commands.writestatus("","")
for k,v in ipairs(trackers.list()) do
commands.writestatus("tracker",v)
end
commands.writestatus("","")
end
|
