FilesExpand file tree

 master

/

command_line.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

155 lines (140 loc) · 4.64 KB

 master

/

command_line.lua

Copy path

Top

File metadata and controls

• Code
• Blame

155 lines (140 loc) · 4.64 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

--- Functions for command-line scripts.

module("luarocks.command_line", package.seeall)

local util = require("luarocks.util")

local cfg = require("luarocks.cfg")

local fs = require("luarocks.fs")

local path = require("luarocks.path")

local dir = require("luarocks.dir")

--- Display an error message and exit.

-- @param message string: The error message.

local function die(message)

assert(type(message) == "string")

local ok, err = pcall(util.run_scheduled_functions)

if not ok then

print("\nLuaRocks "..cfg.program_version.." internal bug (please report at luarocks-developers@lists.luaforge.net):\n"..err)

end

print("\nError: "..message)

os.exit(1)

end

local function is_writable(tree)

if type(tree) == "string" then

return fs.make_dir(tree) and fs.is_writable(tree)

else

writable = true

for k, v in pairs(tree) do

writable = writable and fs.make_dir(v) and fs.is_writable(v)

end

return writable

end

end

--- Main command-line processor.

-- Parses input arguments and calls the appropriate driver function

-- to execute the action requested on the command-line, forwarding

-- to it any additional arguments passed by the user.

-- Uses the global table "commands", which contains

-- the loaded modules representing commands.

-- @param ... string: Arguments given on the command-line.

function run_command(...)

local args = {...}

local cmdline_vars = {}

for i = #args, 1, -1 do

local arg = args[i]

if arg:match("^[^-][^=]*=") then

local var, val = arg:match("^([A-Z_][A-Z0-9_]*)=(.*)")

if val then

cmdline_vars[var] = val

table.remove(args, i)

else

die("Invalid assignment: "..arg)

end

end

end

local nonflags = { util.parse_flags(unpack(args)) }

local flags = table.remove(nonflags, 1)

cfg.flags = flags

if flags["to"] then

if flags["to"] == true then

die("Argument error: use --to=<path>")

end

local root_dir = fs.absolute_name(flags["to"])

cfg.root_dir = root_dir

cfg.rocks_dir = path.rocks_dir(root_dir)

cfg.deploy_bin_dir = path.deploy_bin_dir(root_dir)

cfg.deploy_lua_dir = path.deploy_lua_dir(root_dir)

cfg.deploy_lib_dir = path.deploy_lib_dir(root_dir)

else

local trees = cfg.rocks_trees

for i = #trees, 1, -1 do

local tree = trees[i]

if is_writable(tree) then

cfg.root_dir = tree

cfg.rocks_dir = path.rocks_dir(tree)

cfg.deploy_bin_dir = path.deploy_bin_dir(tree)

cfg.deploy_lua_dir = path.deploy_lua_dir(tree)

cfg.deploy_lib_dir = path.deploy_lib_dir(tree)

break

end

end

end

if type(cfg.root_dir) == "string" then

cfg.root_dir = cfg.root_dir:gsub("/+$", "")

else

cfg.root_dir.root = cfg.root_dir.root:gsub("/+$", "")

end

cfg.rocks_dir = cfg.rocks_dir:gsub("/+$", "")

cfg.deploy_bin_dir = cfg.deploy_bin_dir:gsub("/+$", "")

cfg.deploy_lua_dir = cfg.deploy_lua_dir:gsub("/+$", "")

cfg.deploy_lib_dir = cfg.deploy_lib_dir:gsub("/+$", "")

cfg.variables.ROCKS_TREE = cfg.rocks_dir

cfg.variables.SCRIPTS_DIR = cfg.deploy_bin_dir

if flags["from"] then

if flags["from"] == true then

die("Argument error: use --from=<url>")

end

local protocol, path = dir.split_url(flags["from"])

table.insert(cfg.rocks_servers, 1, protocol.."://"..path)

end

if flags["only-from"] then

if flags["only-from"] == true then

die("Argument error: use --only-from=<url>")

end

cfg.rocks_servers = { flags["only-from"] }

end

local command

if flags["version"] then

print(program_name.." "..cfg.program_version)

print(program_description)

print()

os.exit(0)

elseif flags["help"] or #nonflags == 0 then

command = "help"

args = nonflags

else

command = nonflags[1]

for i, arg in ipairs(args) do

if arg == command then

table.remove(args, i)

break

end

end

end

if command ~= "help" then

for k, v in pairs(cmdline_vars) do

cfg.variables[k] = v

end

end

command = command:gsub("-", "_")

if commands[command] then

local xp, ok, err = xpcall(function() return commands[command].run(unpack(args)) end, function(err)

die(debug.traceback("LuaRocks "..cfg.program_version

.." bug (please report at luarocks-developers@lists.luaforge.net).\n"

..err, 2))

end)

if xp and (not ok) then

die(err)

end

else

die("Unknown command: "..command)

end

util.run_scheduled_functions()

end