mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-10-29 16:58:06 +00:00
3b69cf992e
* Installs luarocks WITH it's executable (easy to install other rocks if necessary) * Use Lua supplied with luarocks * Create Utils/luadocumentor.bat, which works with RELATIVE PATH ! -> Everybody can generate the doc * Updated launch files accordingly
80 lines
2.6 KiB
Lua
80 lines
2.6 KiB
Lua
|
|
--- Module implementing the LuaRocks "purge" command.
|
|
-- Remove all rocks from a given tree.
|
|
local purge = {}
|
|
package.loaded["luarocks.purge"] = purge
|
|
|
|
local util = require("luarocks.util")
|
|
local fs = require("luarocks.fs")
|
|
local path = require("luarocks.path")
|
|
local search = require("luarocks.search")
|
|
local deps = require("luarocks.deps")
|
|
local repos = require("luarocks.repos")
|
|
local manif = require("luarocks.manif")
|
|
local cfg = require("luarocks.cfg")
|
|
local remove = require("luarocks.remove")
|
|
|
|
util.add_run_function(purge)
|
|
purge.help_summary = "Remove all installed rocks from a tree."
|
|
purge.help_arguments = "--tree=<tree> [--old-versions]"
|
|
purge.help = [[
|
|
This command removes rocks en masse from a given tree.
|
|
By default, it removes all rocks from a tree.
|
|
|
|
The --tree argument is mandatory: luarocks purge does not
|
|
assume a default tree.
|
|
|
|
--old-versions Keep the highest-numbered version of each
|
|
rock and remove the other ones. By default
|
|
it only removes old versions if they are
|
|
not needed as dependencies. This can be
|
|
overridden with the flag --force.
|
|
]]
|
|
|
|
function purge.command(flags)
|
|
local tree = flags["tree"]
|
|
|
|
if type(tree) ~= "string" then
|
|
return nil, "The --tree argument is mandatory. "..util.see_help("purge")
|
|
end
|
|
|
|
local results = {}
|
|
local query = search.make_query("")
|
|
query.exact_name = false
|
|
if not fs.is_dir(tree) then
|
|
return nil, "Directory not found: "..tree
|
|
end
|
|
|
|
local ok, err = fs.check_command_permissions(flags)
|
|
if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end
|
|
|
|
search.manifest_search(results, path.rocks_dir(tree), query)
|
|
|
|
local sort = function(a,b) return deps.compare_versions(b,a) end
|
|
if flags["old-versions"] then
|
|
sort = deps.compare_versions
|
|
end
|
|
|
|
for package, versions in util.sortedpairs(results) do
|
|
for version, repositories in util.sortedpairs(versions, sort) do
|
|
if flags["old-versions"] then
|
|
util.printout("Keeping "..package.." "..version.."...")
|
|
local ok, err = remove.remove_other_versions(package, version, flags["force"], flags["force-fast"])
|
|
if not ok then
|
|
util.printerr(err)
|
|
end
|
|
break
|
|
else
|
|
util.printout("Removing "..package.." "..version.."...")
|
|
local ok, err = repos.delete_version(package, version, "none", true)
|
|
if not ok then
|
|
util.printerr(err)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
return manif.make_manifest(cfg.rocks_dir, "one")
|
|
end
|
|
|
|
return purge
|