Omnicleanup: header cleanup, add ModApiUtil shared between game and mainmenu

1 files changed, 0 insertions, 1128 deletions

diff --git a/src/guiLuaApi.cpp b/src/guiLuaApi.cpp
deleted file mode 100644
index 5d3e9dc12..000000000
--- a/src/guiLuaApi.cpp
+++ /dev/null
@@ -1,1128 +0,0 @@
-/*
-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.
-*/
-
-extern "C" {
-#include "lua.h"
-#include "lauxlib.h"
-#include "lualib.h"
-}
-#include "porting.h"
-#include "guiMainMenu.h"
-#include "subgame.h"
-#include "guiKeyChangeMenu.h"
-#include "guiFileSelectMenu.h"
-#include "main.h"
-#include "settings.h"
-#include "filesys.h"
-#include "convert_json.h"
-#include "sound.h"
-
-
-#include "IFileArchive.h"
-#include "IFileSystem.h"
-
-#include "guiLuaApi.h"
-#include "guiEngine.h"
-
-#define API_FCT(name) registerFunction(L,#name,l_##name,top)
-
-void guiLuaApi::initialize(lua_State* L,GUIEngine* engine)
-{
-	lua_pushlightuserdata(L, engine);
-	lua_setfield(L, LUA_REGISTRYINDEX, "engine");
-
-	lua_pushstring(L, DIR_DELIM);
-	lua_setglobal(L, "DIR_DELIM");
-
-	lua_newtable(L);
-	lua_setglobal(L, "gamedata");
-
-	lua_newtable(L);
-	lua_setglobal(L, "engine");
-
-	lua_getglobal(L, "engine");
-	int top = lua_gettop(L);
-
-	bool retval = true;
-
-	//add api functions
-	retval &= API_FCT(update_formspec);
-	retval &= API_FCT(set_clouds);
-	retval &= API_FCT(get_textlist_index);
-	retval &= API_FCT(get_worlds);
-	retval &= API_FCT(get_games);
-	retval &= API_FCT(start);
-	retval &= API_FCT(close);
-	retval &= API_FCT(get_favorites);
-	retval &= API_FCT(show_keys_menu);
-	retval &= API_FCT(setting_set);
-	retval &= API_FCT(setting_get);
-	retval &= API_FCT(setting_getbool);
-	retval &= API_FCT(setting_setbool);
-	retval &= API_FCT(create_world);
-	retval &= API_FCT(delete_world);
-	retval &= API_FCT(delete_favorite);
-	retval &= API_FCT(set_background);
-	retval &= API_FCT(set_topleft_text);
-	retval &= API_FCT(get_modpath);
-	retval &= API_FCT(get_gamepath);
-	retval &= API_FCT(get_texturepath);
-	retval &= API_FCT(get_dirlist);
-	retval &= API_FCT(create_dir);
-	retval &= API_FCT(delete_dir);
-	retval &= API_FCT(copy_dir);
-	retval &= API_FCT(extract_zip);
-	retval &= API_FCT(get_scriptdir);
-	retval &= API_FCT(show_file_open_dialog);
-	retval &= API_FCT(get_version);
-	retval &= API_FCT(download_file);
-	retval &= API_FCT(get_modstore_details);
-	retval &= API_FCT(get_modstore_list);
-	retval &= API_FCT(sound_play);
-	retval &= API_FCT(sound_stop);
-
-	if (!retval) {
-		//TODO show error
-	}
-}
-
-/******************************************************************************/
-bool guiLuaApi::registerFunction(	lua_State* L,
-									const char* name,
-									lua_CFunction fct,
-									int top
-									)
-{
-	lua_pushstring(L,name);
-	lua_pushcfunction(L,fct);
-	lua_settable(L, top);
-
-	return true;
-}
-
-/******************************************************************************/
-GUIEngine* guiLuaApi::get_engine(lua_State *L)
-{
-	// Get server from registry
-	lua_getfield(L, LUA_REGISTRYINDEX, "engine");
-	GUIEngine* sapi_ptr = (GUIEngine*) lua_touserdata(L, -1);
-	lua_pop(L, 1);
-	return sapi_ptr;
-}
-
-/******************************************************************************/
-std::string guiLuaApi::getTextData(lua_State *L, std::string name)
-{
-	lua_getglobal(L, "gamedata");
-
-	lua_getfield(L, -1, name.c_str());
-
-	if(lua_isnil(L, -1))
-		return "";
-
-	return luaL_checkstring(L, -1);
-}
-
-/******************************************************************************/
-int guiLuaApi::getIntegerData(lua_State *L, std::string name,bool& valid)
-{
-	lua_getglobal(L, "gamedata");
-
-	lua_getfield(L, -1, name.c_str());
-
-	if(lua_isnil(L, -1)) {
-		valid = false;
-		return -1;
-		}
-
-	valid = true;
-	return luaL_checkinteger(L, -1);
-}
-
-/******************************************************************************/
-int guiLuaApi::getBoolData(lua_State *L, std::string name,bool& valid)
-{
-	lua_getglobal(L, "gamedata");
-
-	lua_getfield(L, -1, name.c_str());
-
-	if(lua_isnil(L, -1)) {
-		valid = false;
-		return false;
-		}
-
-	valid = true;
-	return lua_toboolean(L, -1);
-}
-
-/******************************************************************************/
-int guiLuaApi::l_update_formspec(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	if (engine->m_startgame)
-		return 0;
-
-	//read formspec
-	std::string formspec(luaL_checkstring(L, 1));
-
-	if (engine->m_formspecgui != 0) {
-		engine->m_formspecgui->setForm(formspec);
-	}
-
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_start(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	//update c++ gamedata from lua table
-
-	bool valid = false;
-
-
-	engine->m_data->selected_world		= getIntegerData(L, "selected_world",valid) -1;
-	engine->m_data->simple_singleplayer_mode = getBoolData(L,"singleplayer",valid);
-	engine->m_data->name				= getTextData(L,"playername");
-	engine->m_data->password			= getTextData(L,"password");
-	engine->m_data->address				= getTextData(L,"address");
-	engine->m_data->port				= getTextData(L,"port");
-	engine->m_data->serverdescription	= getTextData(L,"serverdescription");
-	engine->m_data->servername			= getTextData(L,"servername");
-
-	//close menu next time
-	engine->m_startgame = true;
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_close(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	engine->m_data->kill = true;
-
-	//close menu next time
-	engine->m_startgame = true;
-	engine->m_menu->quitMenu();
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_set_background(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::string backgroundlevel(luaL_checkstring(L, 1));
-	std::string texturename(luaL_checkstring(L, 2));
-
-	bool retval = false;
-
-	if (backgroundlevel == "background") {
-		retval |= engine->setTexture(TEX_LAYER_BACKGROUND,texturename);
-	}
-
-	if (backgroundlevel == "overlay") {
-		retval |= engine->setTexture(TEX_LAYER_OVERLAY,texturename);
-	}
-
-	if (backgroundlevel == "header") {
-		retval |= engine->setTexture(TEX_LAYER_HEADER,texturename);
-	}
-
-	if (backgroundlevel == "footer") {
-		retval |= engine->setTexture(TEX_LAYER_FOOTER,texturename);
-	}
-
-	lua_pushboolean(L,retval);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_set_clouds(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	bool value = lua_toboolean(L,1);
-
-	engine->m_clouds_enabled = value;
-
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_textlist_index(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::string listboxname(luaL_checkstring(L, 1));
-
-	int selection = engine->m_menu->getListboxIndex(listboxname);
-
-	if (selection >= 0)
-		selection++;
-
-	lua_pushinteger(L, selection);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_worlds(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::vector<WorldSpec> worlds = getAvailableWorlds();
-
-	lua_newtable(L);
-	int top = lua_gettop(L);
-	unsigned int index = 1;
-
-	for (unsigned int i = 0; i < worlds.size(); i++)
-	{
-		lua_pushnumber(L,index);
-
-		lua_newtable(L);
-		int top_lvl2 = lua_gettop(L);
-
-		lua_pushstring(L,"path");
-		lua_pushstring(L,worlds[i].path.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"name");
-		lua_pushstring(L,worlds[i].name.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"gameid");
-		lua_pushstring(L,worlds[i].gameid.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_settable(L, top);
-		index++;
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_games(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::vector<SubgameSpec> games = getAvailableGames();
-
-	lua_newtable(L);
-	int top = lua_gettop(L);
-	unsigned int index = 1;
-
-	for (unsigned int i = 0; i < games.size(); i++)
-	{
-		lua_pushnumber(L,index);
-		lua_newtable(L);
-		int top_lvl2 = lua_gettop(L);
-
-		lua_pushstring(L,"id");
-		lua_pushstring(L,games[i].id.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"path");
-		lua_pushstring(L,games[i].path.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"gamemods_path");
-		lua_pushstring(L,games[i].gamemods_path.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"name");
-		lua_pushstring(L,games[i].name.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"menuicon_path");
-		lua_pushstring(L,games[i].menuicon_path.c_str());
-		lua_settable(L, top_lvl2);
-
-		lua_pushstring(L,"addon_mods_paths");
-		lua_newtable(L);
-		int table2 = lua_gettop(L);
-		int internal_index=1;
-		for (std::set<std::string>::iterator iter = games[i].addon_mods_paths.begin();
-				iter != games[i].addon_mods_paths.end(); iter++) {
-			lua_pushnumber(L,internal_index);
-			lua_pushstring(L,(*iter).c_str());
-			lua_settable(L, table2);
-			internal_index++;
-		}
-		lua_settable(L, top_lvl2);
-		lua_settable(L, top);
-		index++;
-	}
-	return 1;
-}
-/******************************************************************************/
-int guiLuaApi::l_get_modstore_details(lua_State *L)
-{
-	const char *modid	= luaL_checkstring(L, 1);
-
-	if (modid != 0) {
-		Json::Value details;
-		std::string url = "";
-		try{
-			url = g_settings->get("modstore_details_url");
-		}
-		catch(SettingNotFoundException &e) {
-			lua_pushnil(L);
-			return 1;
-		}
-
-		size_t idpos = url.find("*");
-		url.erase(idpos,1);
-		url.insert(idpos,modid);
-
-		details = getModstoreUrl(url);
-
-		ModStoreModDetails current_mod = readModStoreModDetails(details);
-
-		if ( current_mod.valid) {
-			lua_newtable(L);
-			int top = lua_gettop(L);
-
-			lua_pushstring(L,"id");
-			lua_pushnumber(L,current_mod.id);
-			lua_settable(L, top);
-
-			lua_pushstring(L,"title");
-			lua_pushstring(L,current_mod.title.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"basename");
-			lua_pushstring(L,current_mod.basename.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"description");
-			lua_pushstring(L,current_mod.description.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"author");
-			lua_pushstring(L,current_mod.author.username.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"download_url");
-			lua_pushstring(L,current_mod.versions[0].file.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"screenshot_url");
-			lua_pushstring(L,current_mod.titlepic.file.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"license");
-			lua_pushstring(L,current_mod.license.shortinfo.c_str());
-			lua_settable(L, top);
-
-			lua_pushstring(L,"rating");
-			lua_pushnumber(L,current_mod.rating);
-			lua_settable(L, top);
-
-			//TODO depends
-
-			//TODO softdepends
-			return 1;
-		}
-	}
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_modstore_list(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::string listtype = "local";
-
-	if (!lua_isnone(L,1)) {
-		listtype = luaL_checkstring(L,1);
-	}
-	Json::Value mods;
-	std::string url = "";
-	try{
-		url = g_settings->get("modstore_listmods_url");
-	}
-	catch(SettingNotFoundException &e) {
-		lua_pushnil(L);
-		return 1;
-	}
-
-	mods = getModstoreUrl(url);
-
-	std::vector<ModStoreMod> moddata = readModStoreList(mods);
-
-	lua_newtable(L);
-	int top = lua_gettop(L);
-	unsigned int index = 1;
-
-	for (unsigned int i = 0; i < moddata.size(); i++)
-	{
-		if (moddata[i].valid) {
-			lua_pushnumber(L,index);
-			lua_newtable(L);
-
-			int top_lvl2 = lua_gettop(L);
-
-			lua_pushstring(L,"id");
-			lua_pushnumber(L,moddata[i].id);
-			lua_settable(L, top_lvl2);
-
-			lua_pushstring(L,"title");
-			lua_pushstring(L,moddata[i].title.c_str());
-			lua_settable(L, top_lvl2);
-
-			lua_pushstring(L,"basename");
-			lua_pushstring(L,moddata[i].basename.c_str());
-			lua_settable(L, top_lvl2);
-
-			lua_settable(L, top);
-			index++;
-		}
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_favorites(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::string listtype = "local";
-
-	if (!lua_isnone(L,1)) {
-		listtype = luaL_checkstring(L,1);
-	}
-
-	std::vector<ServerListSpec> servers;
-#if USE_CURL
-	if(listtype == "online") {
-		servers = ServerList::getOnline();
-	} else {
-		servers = ServerList::getLocal();
-	}
-#else
-	servers = ServerList::getLocal();
-#endif
-
-	lua_newtable(L);
-	int top = lua_gettop(L);
-	unsigned int index = 1;
-
-	for (unsigned int i = 0; i < servers.size(); i++)
-	{
-		lua_pushnumber(L,index);
-
-		lua_newtable(L);
-		int top_lvl2 = lua_gettop(L);
-
-		if (servers[i]["clients"].asString().size()) {
-
-			const char* clients_raw = servers[i]["clients"].asString().c_str();
-			char* endptr = 0;
-			int numbervalue = strtol(clients_raw,&endptr,10);
-
-			if ((*clients_raw != 0) && (*endptr == 0)) {
-				lua_pushstring(L,"clients");
-				lua_pushnumber(L,numbervalue);
-				lua_settable(L, top_lvl2);
-			}
-		}
-
-		if (servers[i]["clients_max"].asString().size()) {
-
-			const char* clients_max_raw = servers[i]["clients_max"].asString().c_str();
-			char* endptr = 0;
-			int numbervalue = strtol(clients_max_raw,&endptr,10);
-
-			if ((*clients_max_raw != 0) && (*endptr == 0)) {
-				lua_pushstring(L,"clients_max");
-				lua_pushnumber(L,numbervalue);
-				lua_settable(L, top_lvl2);
-			}
-		}
-
-		if (servers[i]["version"].asString().size()) {
-			lua_pushstring(L,"version");
-			lua_pushstring(L,servers[i]["version"].asString().c_str());
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["password"].asString().size()) {
-			lua_pushstring(L,"password");
-			lua_pushboolean(L,true);
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["creative"].asString().size()) {
-			lua_pushstring(L,"creative");
-			lua_pushboolean(L,true);
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["damage"].asString().size()) {
-			lua_pushstring(L,"damage");
-			lua_pushboolean(L,true);
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["pvp"].asString().size()) {
-			lua_pushstring(L,"pvp");
-			lua_pushboolean(L,true);
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["description"].asString().size()) {
-			lua_pushstring(L,"description");
-			lua_pushstring(L,servers[i]["description"].asString().c_str());
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["name"].asString().size()) {
-			lua_pushstring(L,"name");
-			lua_pushstring(L,servers[i]["name"].asString().c_str());
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["address"].asString().size()) {
-			lua_pushstring(L,"address");
-			lua_pushstring(L,servers[i]["address"].asString().c_str());
-			lua_settable(L, top_lvl2);
-		}
-
-		if (servers[i]["port"].asString().size()) {
-			lua_pushstring(L,"port");
-			lua_pushstring(L,servers[i]["port"].asString().c_str());
-			lua_settable(L, top_lvl2);
-		}
-
-		lua_settable(L, top);
-		index++;
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_delete_favorite(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::vector<ServerListSpec> servers;
-
-	std::string listtype = "local";
-
-	if (!lua_isnone(L,2)) {
-		listtype = luaL_checkstring(L,2);
-	}
-
-	if ((listtype != "local") &&
-		(listtype != "online"))
-		return 0;
-
-#if USE_CURL
-	if(listtype == "online") {
-		servers = ServerList::getOnline();
-	} else {
-		servers = ServerList::getLocal();
-	}
-#else
-	servers = ServerList::getLocal();
-#endif
-
-	int fav_idx	= luaL_checkinteger(L,1) -1;
-
-	if ((fav_idx >= 0) &&
-			(fav_idx < (int) servers.size())) {
-
-		ServerList::deleteEntry(servers[fav_idx]);
-	}
-
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_show_keys_menu(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	GUIKeyChangeMenu *kmenu
-		= new GUIKeyChangeMenu(	engine->m_device->getGUIEnvironment(),
-								engine->m_parent,
-								-1,
-								engine->m_menumanager);
-	kmenu->drop();
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_setting_set(lua_State *L)
-{
-	const char *name = luaL_checkstring(L, 1);
-	const char *value = luaL_checkstring(L, 2);
-	g_settings->set(name, value);
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_setting_get(lua_State *L)
-{
-	const char *name = luaL_checkstring(L, 1);
-	try{
-		std::string value = g_settings->get(name);
-		lua_pushstring(L, value.c_str());
-	} catch(SettingNotFoundException &e){
-		lua_pushnil(L);
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_setting_getbool(lua_State *L)
-{
-	const char *name = luaL_checkstring(L, 1);
-	try{
-		bool value = g_settings->getBool(name);
-		lua_pushboolean(L, value);
-	} catch(SettingNotFoundException &e){
-		lua_pushnil(L);
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_setting_setbool(lua_State *L)
-{
-	const char *name = luaL_checkstring(L, 1);
-	bool value = lua_toboolean(L,2);
-
-	g_settings->setBool(name,value);
-
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_create_world(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	const char *name	= luaL_checkstring(L, 1);
-	int gameidx			= luaL_checkinteger(L,2) -1;
-
-	std::string path = porting::path_user + DIR_DELIM
-			"worlds" + DIR_DELIM
-			+ name;
-
-	std::vector<SubgameSpec> games = getAvailableGames();
-
-	if ((gameidx >= 0) &&
-			(gameidx < (int) games.size())) {
-
-		// Create world if it doesn't exist
-		if(!initializeWorld(path, games[gameidx].id)){
-			lua_pushstring(L, "Failed to initialize world");
-
-		}
-		else {
-		lua_pushnil(L);
-		}
-	}
-	else {
-		lua_pushstring(L, "Invalid game index");
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_delete_world(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	int worldidx	= luaL_checkinteger(L,1) -1;
-
-	std::vector<WorldSpec> worlds = getAvailableWorlds();
-
-	if ((worldidx >= 0) &&
-		(worldidx < (int) worlds.size())) {
-
-		WorldSpec spec = worlds[worldidx];
-
-		std::vector<std::string> paths;
-		paths.push_back(spec.path);
-		fs::GetRecursiveSubPaths(spec.path, paths);
-
-		// Delete files
-		if (!fs::DeletePaths(paths)) {
-			lua_pushstring(L, "Failed to delete world");
-		}
-		else {
-			lua_pushnil(L);
-		}
-	}
-	else {
-		lua_pushstring(L, "Invalid world index");
-	}
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_set_topleft_text(lua_State *L)
-{
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	std::string text = "";
-
-	if (!lua_isnone(L,1) &&	!lua_isnil(L,1))
-		text = luaL_checkstring(L, 1);
-
-	engine->setTopleftText(text);
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_modpath(lua_State *L)
-{
-	std::string modpath
-			= fs::RemoveRelativePathComponents(porting::path_user + DIR_DELIM + "mods" + DIR_DELIM);
-	lua_pushstring(L, modpath.c_str());
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_gamepath(lua_State *L)
-{
-	std::string gamepath
-			= fs::RemoveRelativePathComponents(porting::path_user + DIR_DELIM + "games" + DIR_DELIM);
-	lua_pushstring(L, gamepath.c_str());
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_texturepath(lua_State *L)
-{
-	std::string gamepath
-			= fs::RemoveRelativePathComponents(porting::path_user + DIR_DELIM + "textures");
-	lua_pushstring(L, gamepath.c_str());
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_dirlist(lua_State *L) {
-	const char *path	= luaL_checkstring(L, 1);
-	bool dironly		= lua_toboolean(L, 2);
-
-	std::vector<fs::DirListNode> dirlist = fs::GetDirListing(path);
-
-	unsigned int index = 1;
-	lua_newtable(L);
-	int table = lua_gettop(L);
-
-	for (unsigned int i=0;i< dirlist.size(); i++) {
-		if ((dirlist[i].dir) || (dironly == false)) {
-			lua_pushnumber(L,index);
-			lua_pushstring(L,dirlist[i].name.c_str());
-			lua_settable(L, table);
-			index++;
-		}
-	}
-
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_create_dir(lua_State *L) {
-	const char *path	= luaL_checkstring(L, 1);
-
-	if (guiLuaApi::isMinetestPath(path)) {
-		lua_pushboolean(L,fs::CreateAllDirs(path));
-		return 1;
-	}
-	lua_pushboolean(L,false);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_delete_dir(lua_State *L) {
-	const char *path	= luaL_checkstring(L, 1);
-
-	std::string absolute_path = fs::RemoveRelativePathComponents(path);
-
-	if (guiLuaApi::isMinetestPath(absolute_path)) {
-		lua_pushboolean(L,fs::RecursiveDelete(absolute_path));
-		return 1;
-	}
-	lua_pushboolean(L,false);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_copy_dir(lua_State *L) {
-	const char *source	= luaL_checkstring(L, 1);
-	const char *destination	= luaL_checkstring(L, 2);
-
-	bool keep_source = true;
-
-	if ((!lua_isnone(L,3)) &&
-			(!lua_isnil(L,3))) {
-		keep_source = lua_toboolean(L,3);
-	}
-
-	std::string absolute_destination = fs::RemoveRelativePathComponents(destination);
-	std::string absolute_source = fs::RemoveRelativePathComponents(source);
-
-	if ((guiLuaApi::isMinetestPath(absolute_source)) &&
-			(guiLuaApi::isMinetestPath(absolute_destination))) {
-		bool retval = fs::CopyDir(absolute_source,absolute_destination);
-
-		if (retval && (!keep_source)) {
-
-			retval &= fs::RecursiveDelete(absolute_source);
-		}
-		lua_pushboolean(L,retval);
-		return 1;
-	}
-	lua_pushboolean(L,false);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_extract_zip(lua_State *L) {
-
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	const char *zipfile	= luaL_checkstring(L, 1);
-	const char *destination	= luaL_checkstring(L, 2);
-
-	std::string absolute_destination = fs::RemoveRelativePathComponents(destination);
-
-	if (guiLuaApi::isMinetestPath(absolute_destination)) {
-		fs::CreateAllDirs(absolute_destination);
-
-		io::IFileSystem* fs = engine->m_device->getFileSystem();
-
-		fs->addFileArchive(zipfile,true,false,io::EFAT_ZIP);
-
-		assert(fs->getFileArchiveCount() > 0);
-
-		/**********************************************************************/
-		/* WARNING this is not threadsafe!!                                   */
-		/**********************************************************************/
-		io::IFileArchive* opened_zip =
-			fs->getFileArchive(fs->getFileArchiveCount()-1);
-
-		const io::IFileList* files_in_zip = opened_zip->getFileList();
-
-		unsigned int number_of_files = files_in_zip->getFileCount();
-
-		for (unsigned int i=0; i < number_of_files;  i++) {
-			std::string fullpath = destination;
-			fullpath += DIR_DELIM;
-			fullpath += files_in_zip->getFullFileName(i).c_str();
-
-			if (files_in_zip->isDirectory(i)) {
-				if (! fs::CreateAllDirs(fullpath) ) {
-					fs->removeFileArchive(fs->getFileArchiveCount()-1);
-					lua_pushboolean(L,false);
-					return 1;
-				}
-			}
-			else {
-				io::IReadFile* toread = opened_zip->createAndOpenFile(i);
-
-				FILE *targetfile = fopen(fullpath.c_str(),"wb");
-
-				if (targetfile == NULL) {
-					fs->removeFileArchive(fs->getFileArchiveCount()-1);
-					lua_pushboolean(L,false);
-					return 1;
-				}
-
-				char read_buffer[1024];
-				unsigned int total_read = 0;
-
-				while (total_read < toread->getSize()) {
-
-					unsigned int bytes_read =
-							toread->read(read_buffer,sizeof(read_buffer));
-					unsigned int bytes_written;
-					if ((bytes_read < 0 ) ||
-						(bytes_written = fwrite(read_buffer, 1, bytes_read, targetfile) != bytes_read))
-					{
-						fclose(targetfile);
-						fs->removeFileArchive(fs->getFileArchiveCount()-1);
-						lua_pushboolean(L,false);
-						return 1;
-					}
-					total_read += bytes_read;
-				}
-
-				fclose(targetfile);
-			}
-
-		}
-
-		fs->removeFileArchive(fs->getFileArchiveCount()-1);
-		lua_pushboolean(L,true);
-		return 1;
-	}
-
-	lua_pushboolean(L,false);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_scriptdir(lua_State *L) {
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	lua_pushstring(L,engine->getScriptDir().c_str());
-	return 1;
-}
-
-/******************************************************************************/
-bool guiLuaApi::isMinetestPath(std::string path) {
-
-
-	if (fs::PathStartsWith(path,fs::TempPath()))
-		return true;
-
-	/* games */
-	if (fs::PathStartsWith(path,fs::RemoveRelativePathComponents(porting::path_share + DIR_DELIM + "games")))
-		return true;
-
-	/* mods */
-	if (fs::PathStartsWith(path,fs::RemoveRelativePathComponents(porting::path_user + DIR_DELIM + "mods")))
-		return true;
-
-	/* worlds */
-	if (fs::PathStartsWith(path,fs::RemoveRelativePathComponents(porting::path_user + DIR_DELIM + "worlds")))
-		return true;
-
-
-	return false;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_show_file_open_dialog(lua_State *L) {
-
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	const char *formname= luaL_checkstring(L, 1);
-	const char *title	= luaL_checkstring(L, 2);
-
-	GUIFileSelectMenu* fileOpenMenu =
-		new GUIFileSelectMenu(engine->m_device->getGUIEnvironment(),
-								engine->m_parent,
-								-1,
-								engine->m_menumanager,
-								title,
-								formname);
-	fileOpenMenu->setTextDest(engine->m_buttonhandler);
-	fileOpenMenu->drop();
-	return 0;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_get_version(lua_State *L) {
-	lua_pushstring(L,VERSION_STRING);
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_sound_play(lua_State *L) {
-	GUIEngine* engine = get_engine(L);
-
-	SimpleSoundSpec spec;
-	if(lua_isnil(L, 1))
-	{
-	} else if(lua_istable(L, 1)){
-		lua_getfield(L, 1, "name");
-		if(lua_isstring(L, -1)){
-			size_t len = 0;
-			spec.name = lua_tolstring(L, -1, &len);
-		}
-		lua_pop(L, 1);
-
-		//luaL_checkfloat(L, 1, "gain", spec.gain);
-		lua_getfield(L, 1, "gain");
-		if(lua_isnumber(L, -1)){
-			spec.gain = lua_tonumber(L, -1);
-		}
-		lua_pop(L, 1);
-	} else if(lua_isstring(L, 1)){
-		spec.name = luaL_checkstring(L, 1);
-	}
-	bool looped = lua_toboolean(L, 2);
-
-	u32 handle = engine->playSound(spec, looped);
-
-	lua_pushinteger(L, handle);
-
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_sound_stop(lua_State *L) {
-	GUIEngine* engine = get_engine(L);
-
-	u32 handle = luaL_checkinteger(L, 1);
-	engine->stopSound(handle);
-
-	return 1;
-}
-
-/******************************************************************************/
-int guiLuaApi::l_download_file(lua_State *L) {
-	GUIEngine* engine = get_engine(L);
-	assert(engine != 0);
-
-	const char *url    = luaL_checkstring(L, 1);
-	const char *target = luaL_checkstring(L, 2);
-
-	//check path
-	std::string absolute_destination = fs::RemoveRelativePathComponents(target);
-
-	if (guiLuaApi::isMinetestPath(absolute_destination)) {
-		if (engine->downloadFile(url,absolute_destination)) {
-			lua_pushboolean(L,true);
-			return 1;
-		}
-	}
-	lua_pushboolean(L,false);
-	return 1;
-}