Repository navigation
Expand file tree
/
Copy pathdatafile.lua
More file actions
77 lines (66 loc) · 1.86 KB
/
Copy pathdatafile.lua
File metadata and controls
77 lines (66 loc) · 1.86 KB
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
local datafile = {}
local util = require("datafile.util")
-- An array of datafile.openers, analog to package.searchers
datafile.openers = {}
local openers = {
"datafile.openers.luarocks",
"datafile.openers.caller",
"datafile.openers.xdg",
"datafile.openers.unix",
"datafile.openers.windows",
}
-- Install openers, if present
for _, opener in ipairs(openers) do
local ok, mod = pcall(require, opener)
if ok then
table.insert(datafile.openers, mod)
end
end
-- Fallback opener
table.insert(datafile.openers, { get_dirs = function() return { "." } end })
function datafile.open(file, mode, context, open_fn)
local tried = {}
mode = mode or "r"
for _, mod in ipairs(datafile.openers) do
local fd, path
if mod.opener then
fd, path = mod.opener(file, mode, context)
elseif mod.get_dirs then
local dirs, err = mod.get_dirs(context, file, mode)
if dirs then
fd, path = util.try_dirs(dirs, file, mode, open_fn or io.open)
elseif err then
path = err
end
end
if fd then
return fd, path
elseif path then
tried[#tried+1] = path
end
end
return nil, ("file '"..file.."' not found:\n"..table.concat(tried, "\n")):gsub("\n+", "\n\t")
end
local function find_file(file, mode)
local ok, err, code = os.rename(file, file)
if not ok then
if code == 13 or code == 30 then
-- Permission denied, but it exists
if mode:match("w") then
return nil, file .. ": " .. err
else
return true, file
end
end
return nil, file .. ": " .. err
end
return true, file
end
function datafile.path(file, mode, context)
local fd, path = datafile.open(file, mode or "r", context, find_file)
if fd == true then
return path
end
return nil, path
end
return datafile