forked from Mirrorlandia_minetest/minetest
c3984569c0
Fix crash on using cursor keys in client menu without selected server Add support for non fixed size tabviews
563 lines
12 KiB
Lua
563 lines
12 KiB
Lua
--Minetest
|
|
--Copyright (C) 2013 sapier
|
|
--
|
|
--This program is free software; you can redistribute it and/or modify
|
|
--it under the terms of the GNU Lesser General Public License as published by
|
|
--the Free Software Foundation; either version 2.1 of the License, or
|
|
--(at your option) any later version.
|
|
--
|
|
--This program is distributed in the hope that it will be useful,
|
|
--but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
--MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
--GNU Lesser General Public License for more details.
|
|
--
|
|
--You should have received a copy of the GNU Lesser General Public License along
|
|
--with this program; if not, write to the Free Software Foundation, Inc.,
|
|
--51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
--------------------------------------------------------------------------------
|
|
function get_mods(path,retval,modpack)
|
|
|
|
local mods = core.get_dirlist(path,true)
|
|
for i=1,#mods,1 do
|
|
local toadd = {}
|
|
local modpackfile = nil
|
|
|
|
toadd.name = mods[i]
|
|
toadd.path = path .. DIR_DELIM .. mods[i] .. DIR_DELIM
|
|
if modpack ~= nil and
|
|
modpack ~= "" then
|
|
toadd.modpack = modpack
|
|
else
|
|
local filename = path .. DIR_DELIM .. mods[i] .. DIR_DELIM .. "modpack.txt"
|
|
local error = nil
|
|
modpackfile,error = io.open(filename,"r")
|
|
end
|
|
|
|
if modpackfile ~= nil then
|
|
modpackfile:close()
|
|
toadd.is_modpack = true
|
|
table.insert(retval,toadd)
|
|
get_mods(path .. DIR_DELIM .. mods[i],retval,mods[i])
|
|
else
|
|
table.insert(retval,toadd)
|
|
end
|
|
end
|
|
end
|
|
|
|
--modmanager implementation
|
|
modmgr = {}
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.extract(modfile)
|
|
if modfile.type == "zip" then
|
|
local tempfolder = os.tempfolder()
|
|
|
|
if tempfolder ~= nil and
|
|
tempfolder ~= "" then
|
|
core.create_dir(tempfolder)
|
|
if core.extract_zip(modfile.name,tempfolder) then
|
|
return tempfolder
|
|
end
|
|
end
|
|
end
|
|
return nil
|
|
end
|
|
|
|
-------------------------------------------------------------------------------
|
|
function modmgr.getbasefolder(temppath)
|
|
|
|
if temppath == nil then
|
|
return {
|
|
type = "invalid",
|
|
path = ""
|
|
}
|
|
end
|
|
|
|
local testfile = io.open(temppath .. DIR_DELIM .. "init.lua","r")
|
|
if testfile ~= nil then
|
|
testfile:close()
|
|
return {
|
|
type="mod",
|
|
path=temppath
|
|
}
|
|
end
|
|
|
|
testfile = io.open(temppath .. DIR_DELIM .. "modpack.txt","r")
|
|
if testfile ~= nil then
|
|
testfile:close()
|
|
return {
|
|
type="modpack",
|
|
path=temppath
|
|
}
|
|
end
|
|
|
|
local subdirs = core.get_dirlist(temppath,true)
|
|
|
|
--only single mod or modpack allowed
|
|
if #subdirs ~= 1 then
|
|
return {
|
|
type = "invalid",
|
|
path = ""
|
|
}
|
|
end
|
|
|
|
testfile =
|
|
io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."init.lua","r")
|
|
if testfile ~= nil then
|
|
testfile:close()
|
|
return {
|
|
type="mod",
|
|
path= temppath .. DIR_DELIM .. subdirs[1]
|
|
}
|
|
end
|
|
|
|
testfile =
|
|
io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."modpack.txt","r")
|
|
if testfile ~= nil then
|
|
testfile:close()
|
|
return {
|
|
type="modpack",
|
|
path=temppath .. DIR_DELIM .. subdirs[1]
|
|
}
|
|
end
|
|
|
|
return {
|
|
type = "invalid",
|
|
path = ""
|
|
}
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.isValidModname(modpath)
|
|
if modpath:find("-") ~= nil then
|
|
return false
|
|
end
|
|
|
|
return true
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.parse_register_line(line)
|
|
local pos1 = line:find("\"")
|
|
local pos2 = nil
|
|
if pos1 ~= nil then
|
|
pos2 = line:find("\"",pos1+1)
|
|
end
|
|
|
|
if pos1 ~= nil and pos2 ~= nil then
|
|
local item = line:sub(pos1+1,pos2-1)
|
|
|
|
if item ~= nil and
|
|
item ~= "" then
|
|
local pos3 = item:find(":")
|
|
|
|
if pos3 ~= nil then
|
|
local retval = item:sub(1,pos3-1)
|
|
if retval ~= nil and
|
|
retval ~= "" then
|
|
return retval
|
|
end
|
|
end
|
|
end
|
|
end
|
|
return nil
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.parse_dofile_line(modpath,line)
|
|
local pos1 = line:find("\"")
|
|
local pos2 = nil
|
|
if pos1 ~= nil then
|
|
pos2 = line:find("\"",pos1+1)
|
|
end
|
|
|
|
if pos1 ~= nil and pos2 ~= nil then
|
|
local filename = line:sub(pos1+1,pos2-1)
|
|
|
|
if filename ~= nil and
|
|
filename ~= "" and
|
|
filename:find(".lua") then
|
|
return modmgr.identify_modname(modpath,filename)
|
|
end
|
|
end
|
|
return nil
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.identify_modname(modpath,filename)
|
|
local testfile = io.open(modpath .. DIR_DELIM .. filename,"r")
|
|
if testfile ~= nil then
|
|
local line = testfile:read()
|
|
|
|
while line~= nil do
|
|
local modname = nil
|
|
|
|
if line:find("minetest.register_tool") then
|
|
modname = modmgr.parse_register_line(line)
|
|
end
|
|
|
|
if line:find("minetest.register_craftitem") then
|
|
modname = modmgr.parse_register_line(line)
|
|
end
|
|
|
|
|
|
if line:find("minetest.register_node") then
|
|
modname = modmgr.parse_register_line(line)
|
|
end
|
|
|
|
if line:find("dofile") then
|
|
modname = modmgr.parse_dofile_line(modpath,line)
|
|
end
|
|
|
|
if modname ~= nil then
|
|
testfile:close()
|
|
return modname
|
|
end
|
|
|
|
line = testfile:read()
|
|
end
|
|
testfile:close()
|
|
end
|
|
|
|
return nil
|
|
end
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.render_modlist(render_list)
|
|
local retval = ""
|
|
|
|
if render_list == nil then
|
|
if modmgr.global_mods == nil then
|
|
modmgr.refresh_globals()
|
|
end
|
|
render_list = modmgr.global_mods
|
|
end
|
|
|
|
local list = render_list:get_list()
|
|
local last_modpack = nil
|
|
|
|
for i,v in ipairs(list) do
|
|
if retval ~= "" then
|
|
retval = retval ..","
|
|
end
|
|
|
|
local color = ""
|
|
|
|
if v.is_modpack then
|
|
local rawlist = render_list:get_raw_list()
|
|
|
|
local all_enabled = true
|
|
for j=1,#rawlist,1 do
|
|
if rawlist[j].modpack == list[i].name and
|
|
rawlist[j].enabled ~= true then
|
|
all_enabled = false
|
|
break
|
|
end
|
|
end
|
|
|
|
if all_enabled == false then
|
|
color = mt_color_grey
|
|
else
|
|
color = mt_color_dark_green
|
|
end
|
|
end
|
|
|
|
if v.typ == "game_mod" then
|
|
color = mt_color_blue
|
|
else
|
|
if v.enabled then
|
|
color = mt_color_green
|
|
end
|
|
end
|
|
|
|
retval = retval .. color
|
|
if v.modpack ~= nil then
|
|
retval = retval .. " "
|
|
end
|
|
retval = retval .. v.name
|
|
end
|
|
|
|
return retval
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.get_dependencies(modfolder)
|
|
local toadd = ""
|
|
if modfolder ~= nil then
|
|
local filename = modfolder ..
|
|
DIR_DELIM .. "depends.txt"
|
|
|
|
local dependencyfile = io.open(filename,"r")
|
|
|
|
if dependencyfile then
|
|
local dependency = dependencyfile:read("*l")
|
|
while dependency do
|
|
if toadd ~= "" then
|
|
toadd = toadd .. ","
|
|
end
|
|
toadd = toadd .. dependency
|
|
dependency = dependencyfile:read()
|
|
end
|
|
dependencyfile:close()
|
|
end
|
|
end
|
|
|
|
return toadd
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.get_worldconfig(worldpath)
|
|
local filename = worldpath ..
|
|
DIR_DELIM .. "world.mt"
|
|
|
|
local worldfile = Settings(filename)
|
|
|
|
local worldconfig = {}
|
|
worldconfig.global_mods = {}
|
|
worldconfig.game_mods = {}
|
|
|
|
for key,value in pairs(worldfile:to_table()) do
|
|
if key == "gameid" then
|
|
worldconfig.id = value
|
|
else
|
|
worldconfig.global_mods[key] = core.is_yes(value)
|
|
end
|
|
end
|
|
|
|
--read gamemods
|
|
local gamespec = gamemgr.find_by_gameid(worldconfig.id)
|
|
gamemgr.get_game_mods(gamespec, worldconfig.game_mods)
|
|
|
|
return worldconfig
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.installmod(modfilename,basename)
|
|
local modfile = modmgr.identify_filetype(modfilename)
|
|
local modpath = modmgr.extract(modfile)
|
|
|
|
if modpath == nil then
|
|
gamedata.errormessage = fgettext("Install Mod: file: \"$1\"", modfile.name) ..
|
|
fgettext("\nInstall Mod: unsupported filetype \"$1\" or broken archive", modfile.type)
|
|
return
|
|
end
|
|
|
|
local basefolder = modmgr.getbasefolder(modpath)
|
|
|
|
if basefolder.type == "modpack" then
|
|
local clean_path = nil
|
|
|
|
if basename ~= nil then
|
|
clean_path = "mp_" .. basename
|
|
end
|
|
|
|
if clean_path == nil then
|
|
clean_path = get_last_folder(cleanup_path(basefolder.path))
|
|
end
|
|
|
|
if clean_path ~= nil then
|
|
local targetpath = core.get_modpath() .. DIR_DELIM .. clean_path
|
|
if not core.copy_dir(basefolder.path,targetpath) then
|
|
gamedata.errormessage = fgettext("Failed to install $1 to $2", basename, targetpath)
|
|
end
|
|
else
|
|
gamedata.errormessage = fgettext("Install Mod: unable to find suitable foldername for modpack $1", modfilename)
|
|
end
|
|
end
|
|
|
|
if basefolder.type == "mod" then
|
|
local targetfolder = basename
|
|
|
|
if targetfolder == nil then
|
|
targetfolder = modmgr.identify_modname(basefolder.path,"init.lua")
|
|
end
|
|
|
|
--if heuristic failed try to use current foldername
|
|
if targetfolder == nil then
|
|
targetfolder = get_last_folder(basefolder.path)
|
|
end
|
|
|
|
if targetfolder ~= nil and modmgr.isValidModname(targetfolder) then
|
|
local targetpath = core.get_modpath() .. DIR_DELIM .. targetfolder
|
|
core.copy_dir(basefolder.path,targetpath)
|
|
else
|
|
gamedata.errormessage = fgettext("Install Mod: unable to find real modname for: $1", modfilename)
|
|
end
|
|
end
|
|
|
|
core.delete_dir(modpath)
|
|
|
|
modmgr.refresh_globals()
|
|
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.preparemodlist(data)
|
|
local retval = {}
|
|
|
|
local global_mods = {}
|
|
local game_mods = {}
|
|
|
|
--read global mods
|
|
local modpath = core.get_modpath()
|
|
|
|
if modpath ~= nil and
|
|
modpath ~= "" then
|
|
get_mods(modpath,global_mods)
|
|
end
|
|
|
|
for i=1,#global_mods,1 do
|
|
global_mods[i].typ = "global_mod"
|
|
table.insert(retval,global_mods[i])
|
|
end
|
|
|
|
--read game mods
|
|
local gamespec = gamemgr.find_by_gameid(data.gameid)
|
|
gamemgr.get_game_mods(gamespec, game_mods)
|
|
|
|
for i=1,#game_mods,1 do
|
|
game_mods[i].typ = "game_mod"
|
|
table.insert(retval,game_mods[i])
|
|
end
|
|
|
|
if data.worldpath == nil then
|
|
return retval
|
|
end
|
|
|
|
--read world mod configuration
|
|
local filename = data.worldpath ..
|
|
DIR_DELIM .. "world.mt"
|
|
|
|
local worldfile = Settings(filename)
|
|
|
|
for key,value in pairs(worldfile:to_table()) do
|
|
if key:sub(1, 9) == "load_mod_" then
|
|
key = key:sub(10)
|
|
local element = nil
|
|
for i=1,#retval,1 do
|
|
if retval[i].name == key and
|
|
not retval[i].is_modpack then
|
|
element = retval[i]
|
|
break
|
|
end
|
|
end
|
|
if element ~= nil then
|
|
element.enabled = core.is_yes(value)
|
|
else
|
|
core.log("info", "Mod: " .. key .. " " .. dump(value) .. " but not found")
|
|
end
|
|
end
|
|
end
|
|
|
|
return retval
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.comparemod(elem1,elem2)
|
|
if elem1 == nil or elem2 == nil then
|
|
return false
|
|
end
|
|
if elem1.name ~= elem2.name then
|
|
return false
|
|
end
|
|
if elem1.is_modpack ~= elem2.is_modpack then
|
|
return false
|
|
end
|
|
if elem1.typ ~= elem2.typ then
|
|
return false
|
|
end
|
|
if elem1.modpack ~= elem2.modpack then
|
|
return false
|
|
end
|
|
|
|
if elem1.path ~= elem2.path then
|
|
return false
|
|
end
|
|
|
|
return true
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.mod_exists(basename)
|
|
|
|
if modmgr.global_mods == nil then
|
|
modmgr.refresh_globals()
|
|
end
|
|
|
|
if modmgr.global_mods:raw_index_by_uid(basename) > 0 then
|
|
return true
|
|
end
|
|
|
|
return false
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.get_global_mod(idx)
|
|
|
|
if modmgr.global_mods == nil then
|
|
return nil
|
|
end
|
|
|
|
if idx == nil or idx < 1 or
|
|
idx > modmgr.global_mods:size() then
|
|
return nil
|
|
end
|
|
|
|
return modmgr.global_mods:get_list()[idx]
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.refresh_globals()
|
|
modmgr.global_mods = filterlist.create(
|
|
modmgr.preparemodlist, --refresh
|
|
modmgr.comparemod, --compare
|
|
function(element,uid) --uid match
|
|
if element.name == uid then
|
|
return true
|
|
end
|
|
end,
|
|
nil, --filter
|
|
{}
|
|
)
|
|
modmgr.global_mods:add_sort_mechanism("alphabetic", sort_mod_list)
|
|
modmgr.global_mods:set_sortmode("alphabetic")
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
function modmgr.identify_filetype(name)
|
|
|
|
if name:sub(-3):lower() == "zip" then
|
|
return {
|
|
name = name,
|
|
type = "zip"
|
|
}
|
|
end
|
|
|
|
if name:sub(-6):lower() == "tar.gz" or
|
|
name:sub(-3):lower() == "tgz"then
|
|
return {
|
|
name = name,
|
|
type = "tgz"
|
|
}
|
|
end
|
|
|
|
if name:sub(-6):lower() == "tar.bz2" then
|
|
return {
|
|
name = name,
|
|
type = "tbz"
|
|
}
|
|
end
|
|
|
|
if name:sub(-2):lower() == "7z" then
|
|
return {
|
|
name = name,
|
|
type = "7z"
|
|
}
|
|
end
|
|
|
|
return {
|
|
name = name,
|
|
type = "ukn"
|
|
}
|
|
end
|