keplerproject
/
luarocks
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
luarocks/install.bat

1231 lines
39 KiB
Batchfile
Raw Permalink Blame History

rem=rem --[[--lua
@setlocal& set luafile="%~f0" & if exist "%~f0.bat" set luafile="%~f0.bat"
@win32\lua5.1\bin\lua5.1.exe %luafile% %*& exit /b ]]
local vars = {}
vars.PREFIX = nil
vars.VERSION = "3.0"
vars.SYSCONFDIR = nil
vars.CONFBACKUPDIR = nil
vars.SYSCONFFILENAME = nil
vars.CONFIG_FILE = nil
vars.TREE_ROOT = nil
vars.TREE_BIN = nil
vars.TREE_LMODULE = nil
vars.TREE_CMODULE = nil
vars.LUA_INTERPRETER = nil
vars.LUA_PREFIX = nil
vars.LUA_BINDIR = nil
vars.LUA_INCDIR = nil
vars.LUA_LIBDIR = nil
vars.LUA_LIBNAME = nil
vars.LUA_VERSION = "5.1"
vars.LUA_SHORTV = nil -- "51"
vars.LUA_RUNTIME = nil
vars.UNAME_M = nil
vars.COMPILER_ENV_CMD = nil
vars.MINGW_BIN_PATH = nil
vars.MINGW_CC = nil
vars.MINGW_MAKE = nil
vars.MINGW_RC = nil
vars.MINGW_LD = nil
vars.MINGW_AR = nil
vars.MINGW_RANLIB = nil
local FORCE = false
local FORCE_CONFIG = false
local INSTALL_LUA = false
local USE_MINGW = false
local USE_MSVC_MANUAL = false
local REGISTRY = true
local NOADMIN = false
local PROMPT = true
local SELFCONTAINED = false
local lua_version_set = false
---
-- Some helpers
--
local pe = assert(loadfile(".\\win32\\pe-parser.lua"))()
local function die(message)
if message then print(message) end
print()
print("Failed installing LuaRocks. Run with /? for help.")
os.exit(1)
end
local function exec(cmd)
--print(cmd)
local status = os.execute("type NUL && "..cmd)
return (status == 0 or status == true) -- compat 5.1/5.2
end
local function exists(filename)
local fd, _, code = io.open(filename, "r")
if code == 13 then
-- code 13 means "Permission denied" on both Unix and Windows
-- io.open on folders always fails with code 13 on Windows
return true
end
if fd then
fd:close()
return true
end
return false
end
local function mkdir (dir)
return exec([[MKDIR "]]..dir..[[" >NUL]])
end
-- does the current user have admin privileges ( = elevated)
local function permission()
return exec("net session >NUL 2>&1") -- fails if not admin
end
-- rename filename (full path) to backupname (name only), appending number if required
-- returns the new name (name only)
local function backup(filename, backupname)
local path = filename:match("(.+)%\\.-$").."\\"
local nname = backupname
local i = 0
while exists(path..nname) do
i = i + 1
nname = backupname..tostring(i)
end
exec([[REN "]]..filename..[[" "]]..nname..[[" > NUL]])
return nname
end
-- interpolate string with values from 'vars' table
local function S (tmpl)
return (tmpl:gsub('%$([%a_][%w_]*)', vars))
end
local function print_help()
print(S[[
Installs LuaRocks.
/P [dir] Where to install LuaRocks.
Default is %PROGRAMFILES%\LuaRocks
Configuring the destinations:
/TREE [dir] Root of the local system tree of installed rocks.
Default is {BIN}\..\ if {BIN} ends with '\bin'
otherwise it is {BIN}\systree.
/SCRIPTS [dir] Where to install commandline scripts installed by
rocks. Default is {TREE}\bin.
/LUAMOD [dir] Where to install Lua modules installed by rocks.
Default is {TREE}\share\lua\{LV}.
/CMOD [dir] Where to install c modules installed by rocks.
Default is {TREE}\lib\lua\{LV}.
/CONFIG [dir] Location where the config file should be installed.
Default is to follow /P option
/SELFCONTAINED Creates a self contained installation in a single
directory given by /P.
Sets the /TREE and /CONFIG options to the same
location as /P. And does not load registry info
with option /NOREG. The only option NOT self
contained is the user rock tree, so don't use that
if you create a self contained installation.
Configuring the Lua interpreter:
/LV [version] Lua version to use; either 5.1, 5.2, 5.3, or 5.4.
Default is auto-detected.
/LUA [dir] Location where Lua is installed - e.g. c:\lua\5.1\
If not provided, the installer will search the system
path and some default locations for a valid Lua
installation.
This is the base directory, the installer will look
for subdirectories bin, lib, include. Alternatively
these can be specified explicitly using the /INC,
/LIB, and /BIN options.
/INC [dir] Location of Lua includes - e.g. c:\lua\5.1\include
If provided overrides sub directory found using /LUA.
/LIB [dir] Location of Lua libraries (.dll/.lib) - e.g. c:\lua\5.1\lib
If provided overrides sub directory found using /LUA.
/BIN [dir] Location of Lua executables - e.g. c:\lua\5.1\bin
If provided overrides sub directory found using /LUA.
/L Install LuaRocks' own copy of Lua even if detected,
this will always be a 5.1 installation.
(/LUA, /INC, /LIB, /BIN cannot be used with /L)
Compiler configuration:
By default the installer will try to determine the
Microsoft toolchain to use. And will automatically use
a setup command to initialize that toolchain when
LuaRocks is run. If it cannot find it, it will default
to the /MSVC switch.
/MSVC Use MS toolchain, without a setup command (tools must
be in your path)
/MW Use mingw as build system (tools must be in your path)
Other options:
/FORCECONFIG Use a single config location. Do not use the
LUAROCKS_CONFIG variable or the user's home directory.
Useful to avoid conflicts when LuaRocks
is embedded within an application.
/F Remove installation directory if it already exists.
/NOREG Do not load registry info to register '.rockspec'
extension with LuaRocks commands (right-click).
/NOADMIN The installer requires admin privileges. If not
available it will elevate a new process. Use this
switch to prevent elevation, but make sure the
destination paths are all accessible for the current
user.
/Q Do not prompt for confirmation of settings
]])
end
-- ***********************************************************
-- Option parser
-- ***********************************************************
local function parse_options(args)
for _, option in ipairs(args) do
local name = option.name:upper()
if name == "/?" then
print_help()
os.exit(0)
elseif name == "/P" then
vars.PREFIX = option.value
elseif name == "/CONFIG" then
vars.SYSCONFDIR = option.value
elseif name == "/TREE" then
vars.TREE_ROOT = option.value
elseif name == "/SCRIPTS" then
vars.TREE_BIN = option.value
elseif name == "/LUAMOD" then
vars.TREE_LMODULE = option.value
elseif name == "/CMOD" then
vars.TREE_CMODULE = option.value
elseif name == "/LV" then
vars.LUA_VERSION = option.value
lua_version_set = true
elseif name == "/L" then
INSTALL_LUA = true
elseif name == "/MW" then
USE_MINGW = true
elseif name == "/MSVC" then
USE_MSVC_MANUAL = true
elseif name == "/LUA" then
vars.LUA_PREFIX = option.value
elseif name == "/LIB" then
vars.LUA_LIBDIR = option.value
elseif name == "/INC" then
vars.LUA_INCDIR = option.value
elseif name == "/BIN" then
vars.LUA_BINDIR = option.value
elseif name == "/FORCECONFIG" then
FORCE_CONFIG = true
elseif name == "/F" then
FORCE = true
elseif name == "/SELFCONTAINED" then
SELFCONTAINED = true
elseif name == "/NOREG" then
REGISTRY = false
elseif name == "/NOADMIN" then
NOADMIN = true
elseif name == "/Q" then
PROMPT = false
else
die("Unrecognized option: " .. name)
end
end
end
-- check for combination/required flags
local function check_flags()
if SELFCONTAINED then
if not vars.PREFIX then
die("Option /P is required when using /SELFCONTAINED")
end
if vars.SYSCONFDIR or vars.TREE_ROOT or vars.TREE_BIN or vars.TREE_LMODULE or vars.TREE_CMODULE then
die("Cannot combine /TREE, /SCRIPTS, /LUAMOD, /CMOD, or /CONFIG with /SELFCONTAINED")
end
end
if INSTALL_LUA then
if vars.LUA_INCDIR or vars.LUA_BINDIR or vars.LUA_LIBDIR or vars.LUA_PREFIX then
die("Cannot combine option /L with any of /LUA /BIN /LIB /INC")
end
if vars.LUA_VERSION ~= "5.1" then
die("Bundled Lua version is 5.1, cannot install "..vars.LUA_VERSION)
end
end
if not vars.LUA_VERSION:match("^5%.[1234]$") then
die("Bad argument: /LV must either be 5.1, 5.2, 5.3, or 5.4")
end
if USE_MSVC_MANUAL and USE_MINGW then
die("Cannot combine option /MSVC and /MW")
end
end
-- ***********************************************************
-- Detect Lua
-- ***********************************************************
local function detect_lua_version(interpreter_path)
local handler = io.popen(('type NUL && "%s" -e "io.stdout:write(_VERSION)" 2>NUL'):format(interpreter_path), "r")
if not handler then
return nil, "interpreter does not work"
end
local full_version = handler:read("*a")
handler:close()
local version = full_version:match(" (5%.[1234])$")
if not version then
return nil, "unknown interpreter version '" .. full_version .. "'"
end
return version
end
local function look_for_interpreter(directory)
local names
if lua_version_set then
names = {S"lua$LUA_VERSION.exe", S"lua$LUA_SHORTV.exe"}
else
names = {"lua5.4.exe", "lua54.exe", "lua5.3.exe", "lua53.exe", "lua5.2.exe", "lua52.exe", "lua5.1.exe", "lua51.exe"}
end
table.insert(names, "lua.exe")
table.insert(names, "luajit.exe")
local directories
if vars.LUA_BINDIR then
-- If LUA_BINDIR is specified, look only in that directory.
directories = {vars.LUA_BINDIR}
else
-- Try candidate directory and its `bin` subdirectory.
directories = {directory, directory .. "\\bin"}
end
for _, dir in ipairs(directories) do
for _, name in ipairs(names) do
local full_name = dir .. "\\" .. name
if exists(full_name) then
print(" Found " .. name .. ", testing it...")
local version, err = detect_lua_version(full_name)
if not version then
print(" Error: " .. err)
else
if version ~= vars.LUA_VERSION then
if lua_version_set then
die("Version of interpreter clashes with the value of /LV. Please check your configuration.")
else
vars.LUA_VERSION = version
vars.LUA_SHORTV = version:gsub("%.", "")
end
end
vars.LUA_INTERPRETER = name
vars.LUA_BINDIR = dir
return true
end
end
end
end
if vars.LUA_BINDIR then
die(("Working Lua executable (one of %s) not found in %s"):format(table.concat(names, ", "), vars.LUA_BINDIR))
end
return false
end
local function look_for_link_libraries(directory)
-- MinGW does not generate .lib, nor needs it to link, but MSVC does,
-- so .lib must be listed first to ensure they are found first if present,
-- to prevent MSVC trying to link to a .dll, which won't work.
local names = {S"lua$LUA_VERSION.lib", S"lua$LUA_SHORTV.lib", S"lua$LUA_VERSION.dll", S"lua$LUA_SHORTV.dll", "liblua.dll.a"}
local directories
if vars.LUA_LIBDIR then
directories = {vars.LUA_LIBDIR}
else
directories = {directory, directory .. "\\lib", directory .. "\\bin"}
end
for _, dir in ipairs(directories) do
for _, name in ipairs(names) do
local full_name = dir .. "\\" .. name
print(" checking for " .. full_name)
if exists(full_name) then
vars.LUA_LIBDIR = dir
vars.LUA_LIBNAME = name
print(" Found " .. name)
return true
end
end
end
if vars.LUA_LIBDIR then
die(("Link library (one of %s) not found in %s"):format(table.concat(names, ", "), vars.LUA_LIBDIR))
end
return false
end
local function look_for_headers(directory)
local directories
if vars.LUA_INCDIR then
directories = {vars.LUA_INCDIR}
else
directories = {
directory .. S"\\include\\lua\\$LUA_VERSION",
directory .. S"\\include\\lua$LUA_SHORTV",
directory .. S"\\include\\lua$LUA_VERSION",
directory .. "\\include",
directory
}
end
for _, dir in ipairs(directories) do
local full_name = dir .. "\\lua.h"
print(" checking for " .. full_name)
if exists(full_name) then
vars.LUA_INCDIR = dir
print(" Found lua.h")
return true
end
end
if vars.LUA_INCDIR then
die(S"lua.h not found in $LUA_INCDIR")
end
return false
end
local function get_runtime()
local f
vars.LUA_RUNTIME, f = pe.msvcrt(vars.LUA_BINDIR.."\\"..vars.LUA_INTERPRETER)
if type(vars.LUA_RUNTIME) ~= "string" then
-- analysis failed, issue a warning
vars.LUA_RUNTIME = "MSVCR80"
print("*** WARNING ***: could not analyse the runtime used, defaulting to "..vars.LUA_RUNTIME)
else
print(" "..f.." uses "..vars.LUA_RUNTIME..".DLL as runtime")
end
return true
end
local function get_architecture()
-- detect processor arch interpreter was compiled for
local proc = (pe.parse(vars.LUA_BINDIR.."\\"..vars.LUA_INTERPRETER) or {}).Machine
if not proc then
die("Could not detect processor architecture used in "..vars.LUA_INTERPRETER)
end
print("arch: " .. proc .. " -> " .. pe.const.Machine[proc])
proc = pe.const.Machine[proc] -- collect name from constant value
if proc == "IMAGE_FILE_MACHINE_I386" then
proc = "x86"
elseif proc == "IMAGE_FILE_MACHINE_ARM64" then
proc = "arm64"
else
proc = "x86_64"
end
return proc
end
-- get a string value from windows registry.
local function get_registry(key, value)
local keys = {key}
local key64, replaced = key:gsub("(%u+\\Software\\)", "%1Wow6432Node\\", 1)
if replaced == 1 then
keys = {key64, key}
end
for _, k in ipairs(keys) do
local h = io.popen('reg query "'..k..'" /v '..value..' 2>NUL')
local output = h:read("*a")
h:close()
local v = output:match("REG_SZ%s+([^\n]+)")
if v then
return v
end
end
return nil
end
local function get_visual_studio_directory_from_registry()
assert(type(vars.LUA_RUNTIME)=="string", "requires vars.LUA_RUNTIME to be set before calling this function.")
local major, minor = vars.LUA_RUNTIME:match('VCR%u*(%d+)(%d)$') -- MSVCR<x><y> or VCRUNTIME<x><y>
if not major then
print(S[[ Cannot auto-detect Visual Studio version from $LUA_RUNTIME]])
return nil
end
local keys = {
"HKLM\\Software\\Microsoft\\VisualStudio\\%d.%d\\Setup\\VC",
"HKLM\\Software\\Microsoft\\VCExpress\\%d.%d\\Setup\\VS"
}
for _, key in ipairs(keys) do
local versionedkey = key:format(major, minor)
local vcdir = get_registry(versionedkey, "ProductDir")
print(" checking: "..versionedkey)
if vcdir then
print(" Found: "..vcdir)
return vcdir
end
end
return nil
end
local function get_visual_studio_directory_from_vswhere()
assert(type(vars.LUA_RUNTIME)=="string", "requires vars.LUA_RUNTIME to be set before calling this function.")
local major, minor = vars.LUA_RUNTIME:match('VCR%u*(%d+)(%d)$')
if not major then
print(S[[ Cannot auto-detect Visual Studio version from $LUA_RUNTIME]])
return nil
end
if tonumber(major) < 14 then
return nil
end
local program_dir = os.getenv('PROGRAMFILES(X86)')
if not program_dir then
return nil
end
local vswhere = program_dir.."\\Microsoft Visual Studio\\Installer\\vswhere.exe"
if not exists(vswhere) then
return nil
end
local f, msg = io.popen('"'..vswhere..'" -products * -property installationPath')
if not f then return nil, "failed to run vswhere: "..msg end
local vsdir = nil
while true do
local l, err = f:read()
if not l then
if err then
f:close()
return nil, err
else
break
end
end
vsdir = l
end
f:close()
if not vsdir then
return nil
end
print(" Visual Studio 2017 or higher found in: "..vsdir)
return vsdir
end
local function get_windows_sdk_directory()
assert(type(vars.LUA_RUNTIME) == "string", "requires vars.LUA_RUNTIME to be set before calling this function.")
-- Only v7.1 and v6.1 shipped with compilers
-- Other versions requires a separate installation of Visual Studio.
-- see https://github.com/luarocks/luarocks/pull/443#issuecomment-152792516
local wsdks = {
["MSVCR100"] = "v7.1", -- shipped with Visual Studio 2010 compilers.
["MSVCR100D"] = "v7.1", -- shipped with Visual Studio 2010 compilers.
["MSVCR90"] = "v6.1", -- shipped with Visual Studio 2008 compilers.
["MSVCR90D"] = "v6.1", -- shipped with Visual Studio 2008 compilers.
}
local wsdkver = wsdks[vars.LUA_RUNTIME]
if not wsdkver then
print(S[[ Cannot auto-detect Windows SDK version from $LUA_RUNTIME]])
return nil
end
local key = "HKLM\\Software\\Microsoft\\Microsoft SDKs\\Windows\\"..wsdkver
print(" checking: "..key)
local dir = get_registry(key, "InstallationFolder")
if dir then
print(" Found: "..dir)
return dir
end
print(" No SDK found")
return nil
end
-- returns the batch command to setup msvc compiler path.
-- or an empty string (eg. "") if not found
local function get_msvc_env_setup_cmd()
print(S[[Looking for Microsoft toolchain matching runtime $LUA_RUNTIME and architecture $UNAME_M]])
assert(type(vars.UNAME_M) == "string", "requires vars.UNAME_M to be set before calling this function.")
local x64 = vars.UNAME_M=="x86_64"
-- 1. try visual studio command line tools of VS 2017 or higher
local vsdir, err = get_visual_studio_directory_from_vswhere()
if err then
print(" Error when finding Visual Studio directory from vswhere: "..err)
end
if vsdir then
local vcvarsall = vsdir .. '\\VC\\Auxiliary\\Build\\vcvarsall.bat'
if exists(vcvarsall) then
local vcvarsall_args = { x86 = "", x86_64 = " x64", arm64 = " x86_arm64" }
assert(vcvarsall_args[vars.UNAME_M], "vars.UNAME_M: only x86, x86_64 and arm64 are supported")
return ('call "%s"%s > NUL'):format(vcvarsall, vcvarsall_args[vars.UNAME_M])
end
end
-- 2. try visual studio command line tools
local vcdir = get_visual_studio_directory_from_registry()
if vcdir then
local vcvars_bats = {
x86 = {
"bin\\vcvars32.bat", -- prefers native compiler
"bin\\amd64_x86\\vcvarsamd64_x86.bat"-- then cross compiler
},
x86_64 = {
"bin\\amd64\\vcvars64.bat", -- prefers native compiler
"bin\\x86_amd64\\vcvarsx86_amd64.bat" -- then cross compiler
},
arm64 = {
"bin\\x86_arm64\\vcvarsx86_arm64.bat" -- need to use cross compiler"
}
}
assert(vcvars_bats[vars.UNAME_M], "vars.UNAME_M: only x86, arm64 and x86_64 are supported")
for _, bat in ipairs(vcvars_bats[vars.UNAME_M]) do
local full_path = vcdir .. bat
if exists(full_path) then
return ('call "%s" > NUL'):format(full_path)
end
end
-- try vcvarsall.bat in case MS changes the undocumented bat files above.
-- but this way we don't know if specified compiler is installed...
local vcvarsall = vcdir .. 'vcvarsall.bat'
if exists(vcvarsall) then
local vcvarsall_args = { x86 = "", x86_64 = " amd64", arm64 = " x86_arm64" }
return ('call "%s"%s > NUL'):format(vcvarsall, vcvarsall_args[vars.UNAME_M])
end
end
-- 3. try for Windows SDKs command line tools.
local wsdkdir = get_windows_sdk_directory()
if wsdkdir then
local setenv = wsdkdir.."Bin\\SetEnv.cmd"
if exists(setenv) then
return ('call "%s" /%s > NUL'):format(setenv, x64 and "x64" or "x86")
end
end
-- finally, we can't detect more, just don't setup the msvc compiler in luarocks.bat.
return ""
end
local function get_possible_lua_directories()
if vars.LUA_PREFIX then
return {vars.LUA_PREFIX}
end
-- No prefix given, so use PATH.
local path = os.getenv("PATH") or ""
local directories = {}
for dir in path:gmatch("[^;]+") do
-- Remove trailing backslashes, but not from a drive letter like `C:\`.
dir = dir:gsub("([^:])\\+$", "%1")
-- Remove trailing `bin` subdirectory, the searcher will check there anyway.
if dir:upper():match("[:\\]BIN$") then
dir = dir:sub(1, -5)
end
table.insert(directories, dir)
end
-- Finally add some other default paths.
table.insert(directories, [[c:\lua5.1.2]])
table.insert(directories, [[c:\lua]])
table.insert(directories, [[c:\kepler\1.1]])
return directories
end
local function look_for_lua_install ()
print("Looking for Lua interpreter")
if vars.LUA_BINDIR and vars.LUA_LIBDIR and vars.LUA_INCDIR then
if look_for_interpreter(vars.LUA_BINDIR) and
look_for_link_libraries(vars.LUA_LIBDIR) and
look_for_headers(vars.LUA_INCDIR)
then
if get_runtime() then
print("Runtime check completed.")
return true
end
end
return false
end
for _, directory in ipairs(get_possible_lua_directories()) do
print(" checking " .. directory)
if exists(directory) then
if look_for_interpreter(directory) then
print("Interpreter found, now looking for link libraries...")
if look_for_link_libraries(directory) then
print("Link library found, now looking for headers...")
if look_for_headers(directory) then
print("Headers found, checking runtime to use...")
if get_runtime() then
print("Runtime check completed.")
return true
end
end
end
end
end
end
return false
end
-- backup config[x.x].lua[.bak]
local function backup_config_files()
local temppath
while not temppath do
temppath = os.getenv("temp").."\\LR-config-backup-"..tostring(math.random(10000))
if exists(temppath) then temppath = nil end
end
vars.CONFBACKUPDIR = temppath
mkdir(vars.CONFBACKUPDIR)
exec(S[[COPY "$PREFIX\config*.*" "$CONFBACKUPDIR" >NUL]])
end
-- restore previously backed up config files
local function restore_config_files()
if not vars.CONFBACKUPDIR then return end -- there is no backup to restore
exec(S[[COPY "$CONFBACKUPDIR\config*.*" "$PREFIX" >NUL]])
-- cleanup
exec(S[[RD /S /Q "$CONFBACKUPDIR"]])
vars.CONFBACKUPDIR = nil
end
-- Find GCC based toolchain
local find_gcc_suite = function()
-- read output os-command
local read_output = function(cmd)
local f = io.popen("type NUL && " .. cmd .. ' 2>NUL')
if not f then return nil, "failed to open command: " .. tostring(cmd) end
local lines = {}
while true do
local l = f:read()
if not l then
f:close()
return lines
end
table.insert(lines, l)
end
end
-- returns: full filename, path, filename
local find_file = function(mask, path)
local cmd
if path then
cmd = 'where.exe /R "' .. path .. '" ' .. mask
else
cmd = 'where.exe ' .. mask
end
local files, err = read_output(cmd)
if not files or not files[1] then
return nil, "couldn't find '".. mask .. "', " .. (err or "not found")
end
local path, file = string.match(files[1], "^(.+)%\\([^%\\]+)$")
return files[1], path, file
end
local first_one = "*gcc.exe" -- first file we're assuming to point to the compiler suite
local full, path, filename = find_file(first_one, nil)
if not full then
return nil, path
end
vars.MINGW_BIN_PATH = path
local result = {
gcc = full
}
for i, name in ipairs({"make", "ar", "windres", "ranlib"}) do
result[name] = find_file(name..".exe", path)
if not result[name] then
result[name] = find_file("*"..name.."*.exe", path)
end
end
vars.MINGW_MAKE = (result.make and '[['..result.make..']]') or "nil, -- not found by installer"
vars.MINGW_CC = (result.gcc and '[['..result.gcc..']]') or "nil, -- not found by installer"
vars.MINGW_RC = (result.windres and '[['..result.windres..']]') or "nil, -- not found by installer"
vars.MINGW_LD = (result.gcc and '[['..result.gcc..']]') or "nil, -- not found by installer"
vars.MINGW_AR = (result.ar and '[['..result.ar..']]') or "nil, -- not found by installer"
vars.MINGW_RANLIB = (result.ranlib and '[['..result.ranlib..']]') or "nil, -- not found by installer"
return true
end
-- ***********************************************************
-- Installer script start
-- ***********************************************************
-- Poor man's command-line parsing
local config = {}
local with_arg = { -- options followed by an argument, others are flags
["/P"] = true,
["/CONFIG"] = true,
["/TREE"] = true,
["/SCRIPTS"] = true,
["/LUAMOD"] = true,
["/CMOD"] = true,
["/LV"] = true,
["/LUA"] = true,
["/INC"] = true,
["/BIN"] = true,
["/LIB"] = true,
}
-- reconstruct argument values with spaces and double quotes
-- this will be damaged by the batch construction at the start of this file
local oarg = arg -- retain old table
if #arg > 0 then
local farg = table.concat(arg, " ") .. " "
arg = {}
farg = farg:gsub('%"', "")
local i = 0
while #farg>0 do
i = i + 1
if (farg:sub(1,1) ~= "/") and ((arg[i-1] or ""):sub(1,1) ~= "/") then
i = i - 1 -- continued previous arg
if i == 0 then i = 1 end
end
if arg[i] then
arg[i] = arg[i] .. " "
else
arg[i] = ""
end
local v,r = farg:match("^(.-)%s(.*)$")
arg[i], farg = arg[i]..v, r
while farg:sub(1,1) == " " do farg = farg:sub(2,-1) end -- remove prefix spaces
end
end
for k,v in pairs(oarg) do if k < 1 then arg[k] = v end end -- copy 0 and negative indexes
-- build config option table with name and value elements
local i = 1
while i <= #arg do
local opt = arg[i]
if with_arg[opt:upper()] then
local value = arg[i + 1]
if not value then
die("Missing value for option "..opt)
end
config[#config + 1] = { name = opt, value = value }
i = i + 1
else
config[#config + 1] = { name = opt }
end
i = i + 1
end
print(S"LuaRocks $VERSION.x installer.\n")
parse_options(config)
print([[
========================
== Checking system... ==
========================
]])
check_flags()
if not permission() then
if not NOADMIN then
-- must elevate the process with admin privileges
if not exec("PowerShell /? >NUL 2>&1") then
-- powershell is not available, so error out
die("No administrative privileges detected and cannot auto-elevate. Please run with admin privileges or use the /NOADMIN switch")
end
print("Need admin privileges, now elevating a new process to continue installing...")
local runner = os.getenv("TEMP").."\\".."LuaRocks_Installer.bat"
local f = io.open(runner, "w")
f:write("@echo off\n")
f:write("CHDIR /D "..arg[0]:match("(.+)%\\.-$").."\n") -- return to current dir, elevation changes current path
f:write('"'..arg[-1]..'" "'..table.concat(arg, '" "', 0)..'"\n')
f:write("ECHO Press any key to close this window...\n")
f:write("PAUSE > NUL\n")
f:write('DEL "'..runner..'"') -- temp batch file deletes itself
f:close()
-- run the created temp batch file in elevated mode
exec("PowerShell -Command (New-Object -com 'Shell.Application').ShellExecute('"..runner.."', '', '', 'runas')\n")
print("Now exiting unprivileged installer")
os.exit() -- exit here, the newly created elevated process will do the installing
else
print("Attempting to install without admin privileges...")
end
else
print("Admin privileges available for installing")
end
vars.PREFIX = vars.PREFIX or os.getenv("PROGRAMFILES")..[[\LuaRocks]]
vars.BINDIR = vars.PREFIX
vars.LIBDIR = vars.PREFIX
vars.LUADIR = S"$PREFIX\\lua"
vars.INCDIR = S"$PREFIX\\include"
vars.LUA_SHORTV = vars.LUA_VERSION:gsub("%.", "")
if INSTALL_LUA then
vars.LUA_INTERPRETER = "lua5.1"
vars.LUA_BINDIR = vars.BINDIR
vars.LUA_LIBDIR = vars.LIBDIR
vars.LUA_INCDIR = vars.INCDIR
vars.LUA_LIBNAME = "lua5.1.lib"
vars.LUA_RUNTIME = "MSVCR80"
vars.UNAME_M = "x86"
else
if not look_for_lua_install() then
die("Could not find Lua. See /? for options for specifying the location of Lua, or installing a bundled copy of Lua 5.1.")
end
vars.UNAME_M = get_architecture() -- can only do when installation was found
end
-- check location of system tree
if not vars.TREE_ROOT then
-- no system tree location given, so we need to construct a default value
if vars.LUA_BINDIR:lower():match([[([\/]+bin[\/]*)$]]) then
-- lua binary is located in a 'bin' subdirectory, so assume
-- default Lua layout and match rocktree on top
vars.TREE_ROOT = vars.LUA_BINDIR:lower():gsub([[[\/]+bin[\/]*$]], [[\]])
else
-- no 'bin', so use a named tree next to the Lua executable
vars.TREE_ROOT = vars.LUA_BINDIR .. [[\systree]]
end
end
vars.SYSCONFDIR = vars.SYSCONFDIR or vars.PREFIX
vars.SYSCONFFILENAME = S"config-$LUA_VERSION.lua"
vars.CONFIG_FILE = vars.SYSCONFDIR.."\\"..vars.SYSCONFFILENAME
if SELFCONTAINED then
vars.SYSCONFDIR = vars.PREFIX
vars.TREE_ROOT = vars.PREFIX..[[\systree]]
REGISTRY = false
end
if USE_MINGW then
vars.COMPILER_ENV_CMD = ""
local found, err = find_gcc_suite()
if not found then
die("Failed to find MinGW/gcc based toolchain, make sure it is in your path: " .. tostring(err))
end
else
vars.COMPILER_ENV_CMD = (USE_MSVC_MANUAL and "") or get_msvc_env_setup_cmd()
end
print(S[[
==========================
== System check results ==
==========================
Will configure LuaRocks with the following paths:
LuaRocks : $PREFIX
Config file : $CONFIG_FILE
Rocktree : $TREE_ROOT
Lua interpreter : $LUA_BINDIR\$LUA_INTERPRETER
binaries : $LUA_BINDIR
libraries : $LUA_LIBDIR
includes : $LUA_INCDIR
architecture: $UNAME_M
binary link : $LUA_LIBNAME with runtime $LUA_RUNTIME.dll
]])
if USE_MINGW then
print(S[[Compiler : MinGW/gcc (make sure it is in your path before using LuaRocks)]])
print(S[[ in: $MINGW_BIN_PATH]])
else
if vars.COMPILER_ENV_CMD == "" then
print("Compiler : Microsoft (make sure it is in your path before using LuaRocks)")
else
print(S[[Compiler : Microsoft, using; $COMPILER_ENV_CMD]])
end
end
if PROMPT then
print("\nPress <ENTER> to start installing, or press <CTRL>+<C> to abort. Use install /? for installation options.")
io.read()
end
print([[
============================
== Installing LuaRocks... ==
============================
]])
-- ***********************************************************
-- Install LuaRocks files
-- ***********************************************************
if exists(vars.PREFIX) then
if not FORCE then
die(S"$PREFIX exists. Use /F to force removal and reinstallation.")
else
backup_config_files()
print(S"Removing $PREFIX...")
exec(S[[RD /S /Q "$PREFIX"]])
print()
end
end
print(S"Installing LuaRocks in $PREFIX...")
if not exists(vars.BINDIR) then
if not mkdir(vars.BINDIR) then
die()
end
end
if INSTALL_LUA then
-- Copy the included Lua interpreter binaries
if not exists(vars.LUA_BINDIR) then
mkdir(vars.LUA_BINDIR)
end
if not exists(vars.LUA_INCDIR) then
mkdir(vars.LUA_INCDIR)
end
exec(S[[COPY win32\lua5.1\bin\*.* "$LUA_BINDIR" >NUL]])
exec(S[[COPY win32\lua5.1\include\*.* "$LUA_INCDIR" >NUL]])
print(S"Installed the LuaRocks bundled Lua interpreter in $LUA_BINDIR")
end
-- Copy the LuaRocks binaries
if not exists(S[[$BINDIR\tools]]) then
if not mkdir(S[[$BINDIR\tools]]) then
die()
end
end
if not exec(S[[COPY win32\tools\*.* "$BINDIR\tools" >NUL]]) then
die()
end
-- Copy LR bin helper files
if not exec(S[[COPY win32\*.* "$BINDIR" >NUL]]) then
die()
end
-- Copy the LuaRocks lua source files
if not exists(S[[$LUADIR\luarocks]]) then
if not mkdir(S[[$LUADIR\luarocks]]) then
die()
end
end
if not exec(S[[XCOPY /S src\luarocks\*.* "$LUADIR\luarocks" >NUL]]) then
die()
end
-- Create start scripts
if not exec(S[[COPY src\bin\*.* "$BINDIR" >NUL]]) then
die()
end
for _, c in ipairs{"luarocks", "luarocks-admin"} do
-- rename unix-lua scripts to .lua files
if not exec( (S[[RENAME "$BINDIR\%s" %s.lua]]):format(c, c) ) then
die()
end
-- create a bootstrap batch file for the lua file, to start them
exec(S[[DEL /F /Q "$BINDIR\]]..c..[[.bat" 2>NUL]])
local f = io.open(vars.BINDIR.."\\"..c..".bat", "w")
f:write(S[[
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
$COMPILER_ENV_CMD
SET "LUA_PATH=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH%"
IF NOT "%LUA_PATH_5_2%"=="" (
SET "LUA_PATH_5_2=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH_5_2%"
)
IF NOT "%LUA_PATH_5_3%"=="" (
SET "LUA_PATH_5_3=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH_5_3%"
)
SET "PATH=$BINDIR;%PATH%"
"$LUA_BINDIR\$LUA_INTERPRETER" "$BINDIR\]]..c..[[.lua" %*
SET EXITCODE=%ERRORLEVEL%
IF NOT "%EXITCODE%"=="2" GOTO EXITLR
REM Permission denied error, try and auto elevate...
REM already an admin? (checking to prevent loops)
NET SESSION >NUL 2>&1
IF "%ERRORLEVEL%"=="0" GOTO EXITLR
REM Do we have PowerShell available?
PowerShell /? >NUL 2>&1
IF NOT "%ERRORLEVEL%"=="0" GOTO EXITLR
:GETTEMPNAME
SET TMPFILE=%TEMP%\LuaRocks-Elevator-%RANDOM%.bat
IF EXIST "%TMPFILE%" GOTO :GETTEMPNAME
ECHO @ECHO OFF > "%TMPFILE%"
ECHO CHDIR /D %CD% >> "%TMPFILE%"
ECHO ECHO %0 %* >> "%TMPFILE%"
ECHO ECHO. >> "%TMPFILE%"
ECHO CALL %0 %* >> "%TMPFILE%"
ECHO ECHO. >> "%TMPFILE%"
ECHO ECHO Press any key to close this window... >> "%TMPFILE%"
ECHO PAUSE ^> NUL >> "%TMPFILE%"
ECHO DEL "%TMPFILE%" >> "%TMPFILE%"
ECHO Now retrying as a privileged user...
PowerShell -Command (New-Object -com 'Shell.Application').ShellExecute('%TMPFILE%', '', '', 'runas')
:EXITLR
exit /b %EXITCODE%
]])
f:close()
print(S"Created LuaRocks command: $BINDIR\\"..c..".bat")
end
-- ***********************************************************
-- Configure LuaRocks
-- ***********************************************************
restore_config_files()
print()
print("Configuring LuaRocks...")
-- Create hardcoded.lua
local hardcoded_lua = S[[$LUADIR\luarocks\core\hardcoded.lua]]
os.remove(hardcoded_lua)
vars.SYSTEM = USE_MINGW and "mingw" or "windows"
local f = io.open(hardcoded_lua, "w")
f:write(S[=[
return {
LUA_INCDIR=[[$LUA_INCDIR]],
LUA_LIBDIR=[[$LUA_LIBDIR]],
LUA_BINDIR=[[$LUA_BINDIR]],
LUA_INTERPRETER=[[$LUA_INTERPRETER]],
SYSTEM = [[$SYSTEM]],
PROCESSOR = [[$UNAME_M]],
PREFIX = [[$PREFIX]],
SYSCONFDIR = [[$SYSCONFDIR]],
WIN_TOOLS = [[$PREFIX/tools]],
]=])
if FORCE_CONFIG then
f:write(" FORCE_CONFIG = true,\n")
end
f:write("}\n")
f:close()
print(S([[Created LuaRocks hardcoded settings file: $LUADIR\luarocks\core\hardcoded.lua]]))
-- create config file
if not exists(vars.SYSCONFDIR) then
mkdir(vars.SYSCONFDIR)
end
if exists(vars.CONFIG_FILE) then
local nname = backup(vars.CONFIG_FILE, vars.SYSCONFFILENAME..".bak")
print("***************")
print(S"*** WARNING *** LuaRocks config file already exists: '$CONFIG_FILE'. The old file has been renamed to '"..nname.."'")
print("***************")
end
local f = io.open(vars.CONFIG_FILE, "w")
f:write([=[
rocks_trees = {
]=])
if FORCE_CONFIG then
f:write(" home..[[/luarocks]],\n")
end
f:write(S" { name = [[user]],\n")
f:write(S" root = home..[[/luarocks]],\n")
f:write(S" },\n")
f:write(S" { name = [[system]],\n")
f:write(S" root = [[$TREE_ROOT]],\n")
if vars.TREE_BIN then
f:write(S" bin_dir = [[$TREE_BIN]],\n")
end
if vars.TREE_CMODULE then
f:write(S" lib_dir = [[$TREE_CMODULE]],\n")
end
if vars.TREE_LMODULE then
f:write(S" lua_dir = [[$TREE_LMODULE]],\n")
end
f:write(S" },\n")
f:write("}\n")
f:write("variables = {\n")
if USE_MINGW and vars.LUA_RUNTIME == "MSVCRT" then
f:write(" MSVCRT = 'm', -- make MinGW use MSVCRT.DLL as runtime\n")
else
f:write(" MSVCRT = '"..vars.LUA_RUNTIME.."',\n")
end
f:write(S" LUALIB = '$LUA_LIBNAME',\n")
if USE_MINGW then
f:write(S[[
CC = $MINGW_CC,
MAKE = $MINGW_MAKE,
RC = $MINGW_RC,
LD = $MINGW_LD,
AR = $MINGW_AR,
RANLIB = $MINGW_RANLIB,
]])
end
f:write("}\n")
f:write("verbose = false -- set to 'true' to enable verbose output\n")
f:close()
print(S"Created LuaRocks config file: $CONFIG_FILE")
print()
print("Creating rocktrees...")
if not exists(vars.TREE_ROOT) then
mkdir(vars.TREE_ROOT)
print(S[[Created system rocktree : "$TREE_ROOT"]])
else
print(S[[System rocktree exists : "$TREE_ROOT"]])
end
vars.APPDATA = os.getenv("APPDATA")
vars.LOCAL_TREE = vars.APPDATA..[[\LuaRocks]]
if not exists(vars.LOCAL_TREE) then
mkdir(vars.LOCAL_TREE)
print(S[[Created local user rocktree: "$LOCAL_TREE"]])
else
print(S[[Local user rocktree exists : "$LOCAL_TREE"]])
end
-- Load registry information
if REGISTRY then
-- expand template with correct path information
print()
print([[Loading registry information for ".rockspec" files]])
exec( S[[win32\lua5.1\bin\lua5.1.exe "$PREFIX\LuaRocks.reg.lua" "$PREFIX\LuaRocks.reg.template"]] )
exec( S[[regedit /S "$PREFIX\\LuaRocks.reg"]] )
end
-- ***********************************************************
-- Cleanup
-- ***********************************************************
-- remove registry related files, no longer needed
exec( S[[del "$PREFIX\LuaRocks.reg.*" >NUL]] )
-- ***********************************************************
-- Exit handlers
-- ***********************************************************
vars.TREE_BIN = vars.TREE_BIN or vars.TREE_ROOT..[[\bin]]
vars.TREE_LMODULE = vars.TREE_LMODULE or vars.TREE_ROOT..[[\share\lua\]]..vars.LUA_VERSION
vars.TREE_CMODULE = vars.TREE_CMODULE or vars.TREE_ROOT..[[\lib\lua\]]..vars.LUA_VERSION
print(S[[
============================
== LuaRocks is installed! ==
============================
You may want to add the following elements to your paths;
Lua interpreter;
PATH : $LUA_BINDIR
PATHEXT : .LUA
LuaRocks;
PATH : $PREFIX
LUA_PATH : $PREFIX\lua\?.lua;$PREFIX\lua\?\init.lua
Local user rocktree (Note: %APPDATA% is user dependent);
PATH : %APPDATA%\LuaRocks\bin
LUA_PATH : %APPDATA%\LuaRocks\share\lua\$LUA_VERSION\?.lua;%APPDATA%\LuaRocks\share\lua\$LUA_VERSION\?\init.lua
LUA_CPATH: %APPDATA%\LuaRocks\lib\lua\$LUA_VERSION\?.dll
System rocktree
PATH : $TREE_BIN
LUA_PATH : $TREE_LMODULE\?.lua;$TREE_LMODULE\?\init.lua
LUA_CPATH: $TREE_CMODULE\?.dll
Note that the %APPDATA% element in the paths above is user specific and it MUST be replaced by its actual value.
For the current user that value is: $APPDATA.
]])
os.exit(0)
Reference in New Issue View Git Blame Copy Permalink