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
|
--- @module luarocks.path_cmd
-- Driver for the `luarocks path` command.
local path_cmd = {}
local util = require("luarocks.util")
local cfg = require("luarocks.core.cfg")
local fs = require("luarocks.fs")
function path_cmd.add_to_parser(parser)
local cmd = parser:command("path", [[
Returns the package path currently configured for this installation
of LuaRocks, formatted as shell commands to update LUA_PATH and LUA_CPATH.
On Unix systems, you may run:
eval `luarocks path`
And on Windows:
luarocks path > "%temp%\_lrp.bat"
call "%temp%\_lrp.bat" && del "%temp%\_lrp.bat"]],
util.see_also())
:summary("Return the currently configured package path.")
cmd:flag("--no-bin", "Do not export the PATH variable.")
cmd:flag("--append", "Appends the paths to the existing paths. Default is "..
"to prefix the LR paths to the existing paths.")
cmd:flag("--lr-path", "Prints Lua path components defined by the configured rocks trees " ..
"(not formatted as a shell command)")
cmd:flag("--lr-cpath", "Prints Lua cpath components defined by the configured rocks trees " ..
"(not formatted as a shell command)")
cmd:flag("--full", "By default, --lr-path and --lr-cpath only include the paths " ..
"derived by the LuaRocks rocks_trees. Using --full includes any other components " ..
"defined in your system's package.(c)path, either via the running interpreter's " ..
"default paths or via LUA_(C)PATH(_5_x) environment variables (in short, using " ..
"--full produces the same lists as shown in the shell outputs of 'luarocks path').")
cmd:flag("--lr-bin", "Exports the system path (not formatted as shell command).")
cmd:flag("--bin"):hidden(true)
end
--- Driver function for "path" command.
-- @return boolean This function always succeeds.
function path_cmd.command(args)
local lr_path, lr_cpath, lr_bin = cfg.package_paths(args.tree)
local path_sep = cfg.export_path_separator
local full_list = ((not args.lr_path) and (not args.lr_cpath) and (not args.lr_bin))
or args.full
local clean_path = util.cleanup_path(os.getenv("PATH") or "", path_sep, nil, true)
if full_list then
if args.append then
lr_path = package.path .. ";" .. lr_path
lr_cpath = package.cpath .. ";" .. lr_cpath
lr_bin = clean_path .. path_sep .. lr_bin
else
lr_path = lr_path.. ";" .. package.path
lr_cpath = lr_cpath .. ";" .. package.cpath
lr_bin = lr_bin .. path_sep .. clean_path
end
end
if args.lr_path then
util.printout(util.cleanup_path(lr_path, ';', cfg.lua_version, true))
return true
elseif args.lr_cpath then
util.printout(util.cleanup_path(lr_cpath, ';', cfg.lua_version, true))
return true
elseif args.lr_bin then
util.printout(util.cleanup_path(lr_bin, path_sep, nil, true))
return true
end
local lpath_var, lcpath_var = util.lua_path_variables()
util.printout(fs.export_cmd(lpath_var, util.cleanup_path(lr_path, ';', cfg.lua_version, args.append)))
util.printout(fs.export_cmd(lcpath_var, util.cleanup_path(lr_cpath, ';', cfg.lua_version, args.append)))
if not args.no_bin then
util.printout(fs.export_cmd("PATH", util.cleanup_path(lr_bin, path_sep, nil, args.append)))
end
return true
end
return path_cmd
|
