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
|
if not modules then modules = { } end modules ['trac-hsh'] = {
version = 1.001,
comment = "companion to trac-deb.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- moved from trac-deb.lua
local saved = { }
function trackers.save_hash()
saved = tex.hashtokens()
end
function trackers.dump_hash(filename,delta)
local list, hash, command_name = { }, tex.hashtokens(), token.command_name
for name, token in next, 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 or tex.jobname .. "-hash.log",table.serialize(list,true))
end
local delta = nil
local function dump_hash(wanteddelta)
if delta == nil then
saved = saved or tex.hashtokens()
luatex.register_stop_actions(1,function() trackers.dump_hash(nil,wanteddelta) end) -- at front
end
delta = wanteddelta
end
directives.register("system.dumphash", function() dump_hash(false) end)
directives.register("system.dumpdelta", function() dump_hash(true ) end)
|
