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
|
if not modules then modules = { } end modules ['luat-fio'] = {
version = 1.001,
comment = "companion to luat-lib.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local format = string.format
local concat = table.concat
local sequenced = table.sequenced
texconfig.kpse_init = false
texconfig.shell_escape = 't'
texconfig.max_in_open = 127
texconfig.max_print_line = 100000
if not resolvers.instance then
resolvers.reset()
resolvers.instance.validfile = resolvers.validctxfile
-- we now load the file database as we might need files other than
-- tex and lua file on the given path
-- trackers.enable("resolvers.*")
resolvers.load()
-- trackers.disable("resolvers.*")
local findbinfile, loadbinfile = resolvers.findbinfile, resolvers.loadbinfile
local findtexfile, opentexfile = resolvers.findtexfile, resolvers.opentexfile
if callback then
local register = callbacks.register
-- register('process_jobname' , function(name) return name end, true)
register('find_read_file' , function(id,name) return findtexfile(name) end, true)
register('open_read_file' , function( name) return opentexfile(name) end, true)
register('find_data_file' , function(name) return findbinfile(name,"tex") end, true)
register('find_enc_file' , function(name) return findbinfile(name,"enc") end, true)
register('find_font_file' , function(name) return findbinfile(name,"tfm") end, true)
register('find_format_file' , function(name) return findbinfile(name,"fmt") end, true)
register('find_image_file' , function(name) return findbinfile(name,"tex") end, true)
register('find_map_file' , function(name) return findbinfile(name,"map") end, true)
register('find_opentype_file' , function(name) return findbinfile(name,"otf") end, true)
register('find_output_file' , function(name) return name end, true)
register('find_pk_file' , function(name) return findbinfile(name,"pk") end, true)
register('find_sfd_file' , function(name) return findbinfile(name,"sfd") end, true)
register('find_truetype_file' , function(name) return findbinfile(name,"ttf") end, true)
register('find_type1_file' , function(name) return findbinfile(name,"pfb") end, true)
register('find_vf_file' , function(name) return findbinfile(name,"vf") end, true)
register('find_cidmap_file' , function(name) return findbinfile(name,"cidmap") end, true)
register('read_data_file' , function(file) return loadbinfile(file,"tex") end, true)
register('read_enc_file' , function(file) return loadbinfile(file,"enc") end, true)
register('read_font_file' , function(file) return loadbinfile(file,"tfm") end, true)
-- format
-- image
register('read_map_file' , function(file) return loadbinfile(file,"map") end, true)
-- output
register('read_pk_file' , function(file) return loadbinfile(file,"pk") end, true) -- 600dpi/manfnt.720pk
register('read_sfd_file' , function(file) return loadbinfile(file,"sfd") end, true)
register('read_vf_file' , function(file) return loadbinfile(file,"vf" ) end, true)
register('find_font_file' , function(name) return findbinfile(name,"ofm") end, true)
register('find_vf_file' , function(name) return findbinfile(name,"ovf") end, true)
register('read_font_file' , function(file) return loadbinfile(file,"ofm") end, true)
register('read_vf_file' , function(file) return loadbinfile(file,"ovf") end, true)
-- register('read_opentype_file' , function(file) return loadbinfile(file,"otf") end, true)
-- register('read_truetype_file' , function(file) return loadbinfile(file,"ttf") end, true)
-- register('read_type1_file' , function(file) return loadbinfile(file,"pfb") end, true)
-- register('read_cidmap_file' , function(file) return loadbinfile(file,"cidmap") end, true)
register('find_write_file' , function(id,name) return name end, true)
register('find_format_file' , function(name) return name end, true)
end
end
local report_system = logs.reporter("system","files")
local report_files = logs.reporter("used files")
luatex.registerstopactions(function()
local foundintrees = resolvers.instance.foundintrees
if #foundintrees > 0 then
logs.pushtarget("logfile")
logs.newline()
report_system("start used files")
logs.newline()
for i=1,#foundintrees do
report_files("%4i: % T",i,foundintrees[i])
end
logs.newline()
report_system("stop used files")
logs.newline()
logs.poptarget()
end
end)
statistics.register("resource resolver", function()
local scandata = resolvers.scandata()
return format("loadtime %s seconds, %s scans with scantime %s seconds, %s shared scans, %s found files, scanned paths: %s",
resolvers.loadtime(),
scandata.n,
scandata.time,
scandata.shared,
#resolvers.instance.foundintrees,
#scandata.paths > 0 and concat(scandata.paths," ") or "<none>"
)
end)
|
