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
|
if not modules then modules = { } end modules ['data-fil'] = {
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 trace_locating = false trackers.register("resolvers.locating", function(v) trace_locating = v end)
local report_files = logs.reporter("resolvers","files")
local resolvers = resolvers
local resolveprefix = resolvers.resolve
local finders, openers, loaders, savers = resolvers.finders, resolvers.openers, resolvers.loaders, resolvers.savers
local locators, hashers, generators, concatinators = resolvers.locators, resolvers.hashers, resolvers.generators, resolvers.concatinators
local checkgarbage = utilities.garbagecollector and utilities.garbagecollector.check
function locators.file(specification)
local filename = specification.filename
local realname = resolveprefix(filename) -- no shortcut
if realname and realname ~= '' and lfs.isdir(realname) then
if trace_locating then
report_files("file locator %a found as %a",filename,realname)
end
resolvers.appendhash('file',filename,true) -- cache
elseif trace_locating then
report_files("file locator %a not found",filename)
end
end
function hashers.file(specification)
local pathname = specification.filename
local content = caches.loadcontent(pathname,'files')
resolvers.registerfilehash(pathname,content,content==nil)
end
function generators.file(specification)
local pathname = specification.filename
local content = resolvers.scanfiles(pathname,false,true) -- scan once
resolvers.registerfilehash(pathname,content,true)
end
concatinators.file = file.join
function finders.file(specification,filetype)
local filename = specification.filename
local foundname = resolvers.findfile(filename,filetype)
if foundname and foundname ~= "" then
if trace_locating then
report_files("file finder: %a found",filename)
end
return foundname
else
if trace_locating then
report_files("file finder: %a not found",filename)
end
return finders.notfound()
end
end
-- The default textopener will be overloaded later on.
function openers.helpers.textopener(tag,filename,f)
return {
reader = function() return f:read () end,
close = function() logs.show_close(filename) return f:close() end,
}
end
function openers.file(specification,filetype)
local filename = specification.filename
if filename and filename ~= "" then
local f = io.open(filename,"r")
if f then
if trace_locating then
report_files("file opener: %a opened",filename)
end
return openers.helpers.textopener("file",filename,f)
end
end
if trace_locating then
report_files("file opener: %a not found",filename)
end
return openers.notfound()
end
function loaders.file(specification,filetype)
local filename = specification.filename
if filename and filename ~= "" then
local f = io.open(filename,"rb")
if f then
logs.show_load(filename)
if trace_locating then
report_files("file loader: %a loaded",filename)
end
local s = f:read("*a") -- io.readall(f) is faster but we never have large files here
if checkgarbage then
checkgarbage(#s)
end
f:close()
if s then
return true, s, #s
end
end
end
if trace_locating then
report_files("file loader: %a not found",filename)
end
return loaders.notfound()
end
|
