/html; charset=UTF-8
Last-Modified: Sun, 15 Nov 2026 10:24:36 GMT
Expires: Wed, 12 Nov 2036 10:24:36 GMT
Export new Rwt functions to lua environment for luaatc - advtrains.git - Advtrains mod for minetest.
/*MinetestCopyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>This program is free software; you can redistribute it and/or modifyit under the terms of the GNU Lesser General Public License as published bythe 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 ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theGNU Lesser General Public License for more details.You should have received a copy of the GNU Lesser General Public License alongwith this program; if not, write to the Free Software Foundation, Inc.,51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.*/#include"lua_api/l_util.h"#include"lua_api/l_internal.h"#include"lua_api/l_settings.h"#include"common/c_converter.h"#include"common/c_content.h"#include"cpp_api/s_async.h"#include"serialization.h"#include <json/json.h>#include"cpp_api/s_security.h"#include"porting.h"#include"convert_json.h"#include"debug.h"#include"log.h"#include"tool.h"#include"filesys.h"#include"settings.h"#include"util/auth.h"#include"util/base64.h"#include"config.h"#include"version.h"#include"util/hex.h"#include"util/sha1.h"#include <algorithm>// log([level,] text)// Writes a line to the logger.// The one-argument version logs to LL_NONE.// The two-argument version accepts a log level.// Either the special case "deprecated" for deprecation notices, or any specified in// Logger::stringToLevel(name).intModApiUtil::l_log(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::string text;
LogLevel level = LL_NONE;if(lua_isnone(L,2)) {
text =luaL_checkstring(L,1);}else{std::string name =luaL_checkstring(L,1);
text =luaL_checkstring(L,2);if(name =="deprecated") {log_deprecated(L, text,2);return0;}
level =Logger::stringToLevel(name);if(level == LL_MAX) {
warningstream <<"Tried to log at unknown level '"<< name
<<"'. Defaulting to\"none\"."<<std::endl;
level = LL_NONE;}}
g_logger.log(level, text);return0;}// get_us_time()intModApiUtil::l_get_us_time(lua_State *L){
NO_MAP_LOCK_REQUIRED;lua_pushnumber(L,porting::getTimeUs());return1;}// parse_json(str[, nullvalue])intModApiUtil::l_parse_json(lua_State *L){
NO_MAP_LOCK_REQUIRED;const char*jsonstr =luaL_checkstring(L,1);// Use passed nullvalue or default to nilint nullindex =2;if(lua_isnone(L, nullindex)) {lua_pushnil(L);
nullindex =lua_gettop(L);}Json::Value root;{std::istringstream stream(jsonstr);Json::CharReaderBuilder builder;
builder.settings_["collectComments"] =false;std::string errs;if(!Json::parseFromStream(builder, stream, &root, &errs)) {
errorstream <<"Failed to parse json data "<< errs <<std::endl;size_t jlen =strlen(jsonstr);if(jlen >100) {
errorstream <<"Data ("<< jlen
<<" bytes) printed to warningstream."<<std::endl;
warningstream <<"data:\""<< jsonstr <<"\""<<std::endl;}else{
errorstream <<"data:\""<< jsonstr <<"\""<<std::endl;}lua_pushnil(L);return1;}}if(!push_json_value(L, root, nullindex)) {
errorstream <<"Failed to parse json data, "<<"depth exceeds lua stack limit"<<std::endl;
errorstream <<"data:\""<< jsonstr <<"\""<<std::endl;lua_pushnil(L);}return1;}// write_json(data[, styled]) -> string or nil and error messageintModApiUtil::l_write_json(lua_State *L){
NO_MAP_LOCK_REQUIRED;bool styled =false;if(!lua_isnone(L,2)) {
styled = readParam<bool>(L,2);lua_pop(L,1);}Json::Value root;try{read_json_value(L, root,1);}catch(SerializationError &e) {lua_pushnil(L);lua_pushstring(L, e.what());return2;}std::string out;if(styled) {
out = root.toStyledString();}else{
out =fastWriteJson(root);}lua_pushlstring(L, out.c_str(), out.size());return1;}// get_dig_params(groups, tool_capabilities)intModApiUtil::l_get_dig_params(lua_State *L){
NO_MAP_LOCK_REQUIRED;
ItemGroupList groups;read_groups(L,1, groups);
ToolCapabilities tp =read_tool_capabilities(L,2);push_dig_params(L,getDigParams(groups, &tp));return1;}// get_hit_params(groups, tool_capabilities[, time_from_last_punch])intModApiUtil::l_get_hit_params(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::unordered_map<std::string,int> groups;read_groups(L,1, groups);
ToolCapabilities tp =read_tool_capabilities(L,2);if(lua_isnoneornil(L,3))push_hit_params(L,getHitParams(groups, &tp));elsepush_hit_params(L,getHitParams(groups, &tp, readParam<float>(L,3)));return1;}// check_password_entry(name, entry, password)intModApiUtil::l_check_password_entry(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::string name =luaL_checkstring(L,1);std::string entry =luaL_checkstring(L,2);std::string password =luaL_checkstring(L,3);if(base64_is_valid(entry)) {std::string hash =translate_password(name, password);lua_pushboolean(L, hash == entry);return1;}std::string salt;std::string verifier;if(!decode_srp_verifier_and_salt(entry, &verifier, &salt)) {// invalid format
warningstream <<"Invalid password format for "<< name <<std::endl;lua_pushboolean(L,false);return1;}std::string gen_verifier =generate_srp_verifier(name, password, salt);lua_pushboolean(L, gen_verifier == verifier);return1;}// get_password_hash(name, raw_password)intModApiUtil::l_get_password_hash(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::string name =luaL_checkstring(L,1);std::string raw_password =luaL_checkstring(L,2);std::string hash =translate_password(name, raw_password);lua_pushstring(L, hash.c_str());return1;}// is_yes(arg)intModApiUtil::l_is_yes(lua_State *L){
NO_MAP_LOCK_REQUIRED;lua_getglobal(L,"tostring");// function to be calledlua_pushvalue(L,1);// 1st argumentlua_call(L,1,1);// execute functionstd::string str = readParam<std::string>(L, -1);// get resultlua_pop(L,1);bool yes =is_yes(str);lua_pushboolean(L, yes);return1;}// get_builtin_path()intModApiUtil::l_get_builtin_path(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::string path =porting::path_share + DIR_DELIM +"builtin"+ DIR_DELIM;lua_pushstring(L, path.c_str());return1;}// get_user_path()intModApiUtil::l_get_user_path(lua_State *L){
NO_MAP_LOCK_REQUIRED;std::string path =porting::path_user;lua_pushstring(L, path.c_str());return1;}// compress(data, method, level)intModApiUtil::l_compress(lua_State *L){
NO_MAP_LOCK_REQUIRED;size_t size;const char*data =luaL_checklstring(L,1, &size);int level = -1;if(!lua_isnone(L,3) && !lua_isnil(L,3))
level = readParam<float>(L,3);std::ostringstream os;compressZlib(std::string(data, size), os, level);std::string out = os.str();lua_pushlstring(L, out.data(), out.size());return1;}// decompress(data, method)intModApiUtil::l_decompress(lua_State *L){
NO_MAP_LOCK_REQUIRED;size_t size;const char*data =luaL_checklstring(L,1, &size);std::istringstream is(std::string(data, size));std::ostringstream os;decompressZlib(is, os);std::string out = os.str();lua_pushlstring(L, out.data(), out.size());return1;}// encode_base64(string)intModApiUtil::l_encode_base64(lua_State *L){
NO_MAP_LOCK_REQUIRED;size_t size;const char*data =luaL_checklstring(L,1, &size);std::string out =base64_encode((const unsigned char*)(data), size);lua_pushlstring(L, out.data(), out.size());return1;}// decode_base64(string)intModApiUtil::l_decode_base64(lua_State *L){
NO_MAP_LOCK_REQUIRED;size_t size;const char*d =luaL_checklstring(L,1, &size);conststd::string data =std::string(d, size);if(!base64_is_valid(data))return0;std::string out =base64_decode(data);lua_pushlstring(L, out.data(), out.size());return1;}// mkdir(path)intModApiUtil::l_mkdir(lua_State *L){
NO_MAP_LOCK_REQUIRED;const char*path =luaL_checkstring(L,1);CHECK_SECURE_PATH(L, path,true);lua_pushboolean(L,fs::CreateAllDirs(path));return1;}// get_dir_list(path, is_dir)intModApiUtil::l_get_dir_list(lua_State *L){
NO_MAP_LOCK_REQUIRED;const char*path =luaL_checkstring(L,1);bool list_all = !lua_isboolean(L,2);// if its not a boolean list allbool list_dirs = readParam<bool>(L,2);// true: list dirs, false: list filesCHECK_SECURE_PATH(L, path,false);std::vector<fs::DirListNode> list =fs::GetDirListing(path);int index =0;lua_newtable(L);for(constfs::DirListNode &dln : list) {if(list_all || list_dirs == dln.dir) {lua_pushstring(L, dln.name.c_str());lua_rawseti(L, -2, ++index);}}return1;}// safe_file_write(path, content)intModApiUtil::l_safe_file_write(lua_State *L){
NO_MAP_LOCK_REQUIRED;const char*path =luaL_checkstring(L,1);size_t size;const char*content =luaL_checklstring(L,2, &size);CHECK_SECURE_PATH(L, path,true);bool ret =fs::safeWriteToFile(path,std::string(content, size));lua_pushboolean(L, ret);return1;}// request_insecure_environment()intModApiUtil::l_request_insecure_environment(lua_State *L){
NO_MAP_LOCK_REQUIRED;// Just return _G if security is disabledif(!ScriptApiSecurity::isSecure(L)) {lua_getglobal(L,"_G");return1;}// We have to make sure that this function is being called directly by// a mod, otherwise a malicious mod could override this function and// steal its return value.
lua_Debug info;// Make sure there's only one item below this function on the stack...if(lua_getstack(L,2, &info)) {return0;}FATAL_ERROR_IF(!lua_getstack(L,1, &info),"lua_getstack() failed");FATAL_ERROR_IF(!lua_getinfo(L,"S", &info),"lua_getinfo() failed");// ...and that that item is the main file scope.if(strcmp(info.what,"main") !=0) {return0;}// Get mod namelua_rawgeti(L, LUA_REGISTRYINDEX, CUSTOM_RIDX_CURRENT_MOD_NAME);if(!lua_isstring(L, -1)) {return0;}// Check secure.trusted_modsstd::string mod_name = readParam<std::string>(L, -1);std::string trusted_mods = g_settings->get("secure.trusted_mods");
trusted_mods.erase(std::remove_if(trusted_mods.begin(),
trusted_mods.end(),static_cast<int(*)(int)>(&std::isspace)),
trusted_mods.end());std::vector<std::string> mod_list =str_split(trusted_mods,',');if(std::find(mod_list.begin(), mod_list.end(), mod_name) ==
mod_list.end()) {return0;}// Push insecure environmentlua_rawgeti(L, LUA_REGISTRYINDEX, CUSTOM_RIDX_GLOBALS_BACKUP);return1;}// get_version()intModApiUtil::l_get_version(lua_State *L){lua_createtable(L,0,3);int table =lua_gettop(L);lua_pushstring(L, PROJECT_NAME_C);lua_setfield(L, table,"project");lua_pushstring(L, g_version_string);lua_setfield(L, table,"string");if(strcmp(g_version_string, g_version_hash) !=0) {lua_pushstring(L, g_version_hash);lua_setfield(L, table,"hash");}return1;}intModApiUtil::l_sha1(lua_State *L){
NO_MAP_LOCK_REQUIRED;size_t size;const char*data =luaL_checklstring(L,1, &size);bool hex = !lua_isboolean(L,2) || !readParam<bool>(L,2);// Compute actual checksum of datastd::string data_sha1;{
SHA1 ctx;
ctx.addBytes(data, size);unsigned char*data_tmpdigest = ctx.getDigest();
data_sha1.assign((char*) data_tmpdigest,20);free(data_tmpdigest);}if(hex) {std::string sha1_hex =hex_encode(data_sha1);lua_pushstring(L, sha1_hex.c_str());}else{lua_pushlstring(L, data_sha1.data(), data_sha1.size());}return1;}voidModApiUtil::Initialize(lua_State *L,int top){API_FCT(log);API_FCT(get_us_time);API_FCT(parse_json);API_FCT(write_json);API_FCT(get_dig_params);API_FCT(get_hit_params);API_FCT(check_password_entry);API_FCT(get_password_hash);API_FCT(is_yes);API_FCT(get_builtin_path);API_FCT(get_user_path);API_FCT(compress);API_FCT(decompress);API_FCT(mkdir);API_FCT(get_dir_list);API_FCT(safe_file_write);API_FCT(request_insecure_environment);API_FCT(encode_base64);API_FCT(decode_base64);API_FCT(get_version);API_FCT(sha1);LuaSettings::create(L, g_settings, g_settings_path);lua_setfield(L, top,"settings");}voidModApiUtil::InitializeClient(lua_State *L,int top){API_FCT(log);API_FCT(get_us_time);API_FCT(parse_json);API_FCT(write_json);API_FCT(is_yes);API_FCT(compress);API_FCT(decompress);API_FCT(encode_base64);API_FCT(decode_base64);API_FCT(get_version);API_FCT(sha1);}voidModApiUtil::InitializeAsync(lua_State *L,int top){API_FCT(log);API_FCT(get_us_time);API_FCT(parse_json);API_FCT(write_json);API_FCT(is_yes);API_FCT(get_builtin_path);API_FCT(get_user_path);API_FCT(compress);API_FCT(decompress);API_FCT(mkdir);API_FCT(get_dir_list);API_FCT(encode_base64);API_FCT(decode_base64);API_FCT(get_version);API_FCT(sha1);LuaSettings::create(L, g_settings, g_settings_path);lua_setfield(L, top,"settings");}
