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
|
if not modules then modules = { } end modules ['data-tre'] = {
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"
}
-- \input tree://oeps1/**/oeps.tex
local finders, openers, loaders = resolvers.finders, resolvers.openers, resolvers.loaders
local done, found = { }, { }
function finders.tree(specification,filetype)
local fnd = found[specification]
if not fnd then
local spec = resolvers.splitmethod(specification).path or ""
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 = "/" .. name:gsub("([%.%-%+])", "%%%1") .. "$"
for k, v in pairs(hash) do
if v:find(pattern) then
found[specification] = v
return v
end
end
end
fnd = unpack(finders.notfound)
found[specification] = fnd
end
return fnd
end
openers.tree = openers.generic
loaders.tree = loaders.generic
|
