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
|
if not modules then modules = { } end modules ['data-tre'] = {
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"
}
-- \input tree://oeps1/**/oeps.tex
local find, gsub, format = string.find, string.gsub, string.format
local trace_locating = false trackers.register("resolvers.locating", function(v) trace_locating = v end)
local report_trees = logs.reporter("resolvers","trees")
local resolvers = resolvers
local done, found, notfound = { }, { }, resolvers.finders.notfound
function resolvers.finders.tree(specification)
local spec = specification.filename
local fnd = found[spec]
if fnd == nil then
if spec ~= "" then
local path, name = file.dirname(spec), file.basename(spec)
if path == "" then path = "." end
local hash = done[path]
if not hash then
local pattern = path .. "/*" -- we will use the proper splitter
hash = dir.glob(pattern)
done[path] = hash
end
local pattern = "/" .. gsub(name,"([%.%-%+])", "%%%1") .. "$"
for k=1,#hash do
local v = hash[k]
if find(v,pattern) then
found[spec] = v
return v
end
end
end
fnd = notfound() -- false
found[spec] = fnd
end
return fnd
end
function resolvers.locators.tree(specification)
local name = specification.filename
local realname = resolvers.resolve(name) -- no shortcut
if realname and realname ~= '' and lfs.isdir(realname) then
if trace_locating then
report_trees("locator %a found",realname)
end
resolvers.appendhash('tree',name,false) -- don't cache
elseif trace_locating then
report_trees("locator %a not found",name)
end
end
function resolvers.hashers.tree(specification)
local name = specification.filename
if trace_locating then
report_trees("analysing %a",name)
end
resolvers.methodhandler("hashers",name)
resolvers.generators.file(specification)
end
resolvers.concatinators.tree = resolvers.concatinators.file
resolvers.generators.tree = resolvers.generators.file
resolvers.openers.tree = resolvers.openers.file
resolvers.loaders.tree = resolvers.loaders.file
|
