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
|
local t_concat = table.concat;
local path_sep = package.config:sub(1,1);
local path_util = {}
-- Helper function to resolve relative paths (needed by config)
function path_util.resolve_relative_path(parent_path, path)
if path then
-- Some normalization
parent_path = parent_path:gsub("%"..path_sep.."+$", "");
path = path:gsub("^%.%"..path_sep.."+", "");
local is_relative;
if path_sep == "/" and path:sub(1,1) ~= "/" then
is_relative = true;
elseif path_sep == "\\" and (path:sub(1,1) ~= "/" and (path:sub(2,3) ~= ":\\" and path:sub(2,3) ~= ":/")) then
is_relative = true;
end
if is_relative then
return parent_path..path_sep..path;
end
end
return path;
end
-- Helper function to convert a glob to a Lua pattern
function path_util.glob_to_pattern(glob)
return "^"..glob:gsub("[%p*?]", function (c)
if c == "*" then
return ".*";
elseif c == "?" then
return ".";
else
return "%"..c;
end
end).."$";
end
function path_util.join(...)
return t_concat({...}, path_sep);
end
function path_util.complement_lua_path(installer_plugin_path)
-- Checking for duplicates
-- The commands using luarocks need the path to the directory that has the /share and /lib folders.
local lua_version = _VERSION:match(" (.+)$");
local lua_path_sep = package.config:sub(3,3);
local dir_sep = package.config:sub(1,1);
local sub_path = dir_sep.."lua"..dir_sep..lua_version..dir_sep;
if not string.match(package.path, installer_plugin_path) then
package.path = package.path..lua_path_sep..installer_plugin_path..dir_sep.."share"..sub_path.."?.lua";
package.path = package.path..lua_path_sep..installer_plugin_path..dir_sep.."share"..sub_path.."?"..dir_sep.."init.lua";
end
if not string.match(package.path, installer_plugin_path) then
package.cpath = package.cpath..lua_path_sep..installer_plugin_path..dir_sep.."lib"..sub_path.."?.lua";
end
end
return path_util;
|
