src « lua « lib - minetest.git - modified minetest for gpcfs purposes

about summary refs log tree commit diff

path: root/lib/lua/src

Mode	Name	Size
-rw-r--r--	CMakeLists.txt	695	log plain
-rw-r--r--	lapi.c	22708	log plain
-rw-r--r--	lapi.h	262	log plain
-rw-r--r--	lauxlib.c	17419	log plain
-rw-r--r--	lauxlib.h	5777	log plain
-rw-r--r--	lbaselib.c	17046	log plain
-rw-r--r--	lcode.c	21335	log plain
-rw-r--r--	lcode.h	2750	log plain
-rw-r--r--	ldblib.c	10069	log plain
-rw-r--r--	ldebug.c	16840	log plain
-rw-r--r--	ldebug.h	1061	log plain
-rw-r--r--	ldo.c	14851	log plain
-rw-r--r--	ldo.h	1897	log plain
-rw-r--r--	ldump.c	3114	log plain
-rw-r--r--	lfunc.c	4618	log plain
-rw-r--r--	lfunc.h	1125	log plain
-rw-r--r--	lgc.c	20099	log plain
-rw-r--r--	lgc.h	3159	log plain
-rw-r--r--	linit.c	765	log plain
-rw-r--r--	liolib.c	13406	log plain
-rw-r--r--	llex.c	12556	log plain
-rw-r--r--	llex.h	2177	log plain
-rw-r--r--	llimits.h	2349	log plain
-rw-r--r--	lmathlib.c	5831	log plain
-rw-r--r--	lmem.c	2172	log plain
-rw-r--r--	lmem.h	1494	log plain
-rw-r--r--	loadlib.c	19216	log plain
-rw-r--r--	lobject.c	5498	log plain
-rw-r--r--	lobject.h	8502	log plain
-rw-r--r--	lopcodes.c	2884	log plain
-rw-r--r--	lopcodes.h	8086	log plain
-rw-r--r--	loslib.c	5992	log plain
-rw-r--r--	lparser.c	36696	log plain
-rw-r--r--	lparser.h	2261	log plain
-rw-r--r--	lstate.c	5674	log plain
-rw-r--r--	lstate.h	5011	log plain
-rw-r--r--	lstring.c	3110	log plain
-rw-r--r--	lstring.h	814	log plain
-rw-r--r--	lstrlib.c	23481	log plain
-rw-r--r--	ltable.c	16263	log plain
-rw-r--r--	ltable.h	1184	log plain
-rw-r--r--	ltablib.c	7343	log plain
-rw-r--r--	ltm.c	1650	log plain
-rw-r--r--	ltm.h	1018	log plain
-rw-r--r--	lua.c	10163	log plain
-rw-r--r--	lua.h	11688	log plain
-rw-r--r--	luac.c	4661	log plain
-rw-r--r--	luaconf.h	22299	log plain
-rw-r--r--	lualib.h	1026	log plain
-rw-r--r--	lundump.c	4629	log plain
-rw-r--r--	lundump.h	890	log plain
-rw-r--r--	lvm.c	23126	log plain
-rw-r--r--	lvm.h	1159	log plain
-rw-r--r--	lzio.c	1628	log plain
-rw-r--r--	lzio.h	1556	log plain
-rw-r--r--	print.c	4944	log plain

b">bool update_light = !lua_isboolean(L, 2) || readParam<bool>(L, 2); GET_ENV_PTR; ServerMap *map = &(env->getServerMap()); if (o->is_mapgen_vm || !update_light) { o->vm->blitBackAll(&(o->modified_blocks)); } else { voxalgo::blit_back_with_light(map, o->vm, &(o->modified_blocks)); } MapEditEvent event; event.type = MEET_OTHER; for (const auto &modified_block : o->modified_blocks) event.modified_blocks.insert(modified_block.first); map->dispatchEvent(event); o->modified_blocks.clear(); return 0; } int LuaVoxelManip::l_get_node_at(lua_State *L) { NO_MAP_LOCK_REQUIRED; const NodeDefManager *ndef = getServer(L)->getNodeDefManager(); LuaVoxelManip *o = checkobject(L, 1); v3s16 pos = check_v3s16(L, 2); pushnode(L, o->vm->getNodeNoExNoEmerge(pos), ndef); return 1; } int LuaVoxelManip::l_set_node_at(lua_State *L) { NO_MAP_LOCK_REQUIRED; const NodeDefManager *ndef = getServer(L)->getNodeDefManager(); LuaVoxelManip *o = checkobject(L, 1); v3s16 pos = check_v3s16(L, 2); MapNode n = readnode(L, 3, ndef); o->vm->setNodeNoEmerge(pos, n); return 0; } int LuaVoxelManip::l_update_liquids(lua_State *L) { GET_ENV_PTR; LuaVoxelManip *o = checkobject(L, 1); Map *map = &(env->getMap()); const NodeDefManager *ndef = getServer(L)->getNodeDefManager(); MMVManip *vm = o->vm; Mapgen mg; mg.vm = vm; mg.ndef = ndef; mg.updateLiquid(&map->m_transforming_liquid, vm->m_area.MinEdge, vm->m_area.MaxEdge); return 0; } int LuaVoxelManip::l_calc_lighting(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); if (!o->is_mapgen_vm) { warningstream << "VoxelManip:calc_lighting called for a non-mapgen " "VoxelManip object" << std::endl; return 0; } const NodeDefManager *ndef = getServer(L)->getNodeDefManager(); EmergeManager *emerge = getServer(L)->getEmergeManager(); MMVManip *vm = o->vm; v3s16 yblock = v3s16(0, 1, 0) * MAP_BLOCKSIZE; v3s16 fpmin = vm->m_area.MinEdge; v3s16 fpmax = vm->m_area.MaxEdge; v3s16 pmin = lua_istable(L, 2) ? check_v3s16(L, 2) : fpmin + yblock; v3s16 pmax = lua_istable(L, 3) ? check_v3s16(L, 3) : fpmax - yblock; bool propagate_shadow = !lua_isboolean(L, 4) || readParam<bool>(L, 4); sortBoxVerticies(pmin, pmax); if (!vm->m_area.contains(VoxelArea(pmin, pmax))) throw LuaError("Specified voxel area out of VoxelManipulator bounds"); Mapgen mg; mg.vm = vm; mg.ndef = ndef; mg.water_level = emerge->mgparams->water_level; mg.calcLighting(pmin, pmax, fpmin, fpmax, propagate_shadow); return 0; } int LuaVoxelManip::l_set_lighting(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); if (!o->is_mapgen_vm) { warningstream << "VoxelManip:set_lighting called for a non-mapgen " "VoxelManip object" << std::endl; return 0; } if (!lua_istable(L, 2)) throw LuaError("VoxelManip:set_lighting called with missing parameter"); u8 light; light = (getintfield_default(L, 2, "day", 0) & 0x0F); light |= (getintfield_default(L, 2, "night", 0) & 0x0F) << 4; MMVManip *vm = o->vm; v3s16 yblock = v3s16(0, 1, 0) * MAP_BLOCKSIZE; v3s16 pmin = lua_istable(L, 3) ? check_v3s16(L, 3) : vm->m_area.MinEdge + yblock; v3s16 pmax = lua_istable(L, 4) ? check_v3s16(L, 4) : vm->m_area.MaxEdge - yblock; sortBoxVerticies(pmin, pmax); if (!vm->m_area.contains(VoxelArea(pmin, pmax))) throw LuaError("Specified voxel area out of VoxelManipulator bounds"); Mapgen mg; mg.vm = vm; mg.setLighting(light, pmin, pmax); return 0; } int LuaVoxelManip::l_get_light_data(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); MMVManip *vm = o->vm; u32 volume = vm->m_area.getVolume(); lua_createtable(L, volume, 0); for (u32 i = 0; i != volume; i++) { lua_Integer light = vm->m_data[i].param1; lua_pushinteger(L, light); lua_rawseti(L, -2, i + 1); } return 1; } int LuaVoxelManip::l_set_light_data(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); MMVManip *vm = o->vm; if (!lua_istable(L, 2)) throw LuaError("VoxelManip:set_light_data called with missing " "parameter"); u32 volume = vm->m_area.getVolume(); for (u32 i = 0; i != volume; i++) { lua_rawgeti(L, 2, i + 1); u8 light = lua_tointeger(L, -1); vm->m_data[i].param1 = light; lua_pop(L, 1); } return 0; } int LuaVoxelManip::l_get_param2_data(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); bool use_buffer = lua_istable(L, 2); MMVManip *vm = o->vm; u32 volume = vm->m_area.getVolume(); if (use_buffer) lua_pushvalue(L, 2); else lua_createtable(L, volume, 0); for (u32 i = 0; i != volume; i++) { lua_Integer param2 = vm->m_data[i].param2; lua_pushinteger(L, param2); lua_rawseti(L, -2, i + 1); } return 1; } int LuaVoxelManip::l_set_param2_data(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); MMVManip *vm = o->vm; if (!lua_istable(L, 2)) throw LuaError("VoxelManip:set_param2_data called with missing " "parameter"); u32 volume = vm->m_area.getVolume(); for (u32 i = 0; i != volume; i++) { lua_rawgeti(L, 2, i + 1); u8 param2 = lua_tointeger(L, -1); vm->m_data[i].param2 = param2; lua_pop(L, 1); } return 0; } int LuaVoxelManip::l_update_map(lua_State *L) { return 0; } int LuaVoxelManip::l_was_modified(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); MMVManip *vm = o->vm; lua_pushboolean(L, vm->m_is_dirty); return 1; } int LuaVoxelManip::l_get_emerged_area(lua_State *L) { NO_MAP_LOCK_REQUIRED; LuaVoxelManip *o = checkobject(L, 1); push_v3s16(L, o->vm->m_area.MinEdge); push_v3s16(L, o->vm->m_area.MaxEdge); return 2; } LuaVoxelManip::LuaVoxelManip(MMVManip *mmvm, bool is_mg_vm) : is_mapgen_vm(is_mg_vm), vm(mmvm) { } LuaVoxelManip::LuaVoxelManip(Map *map) : vm(new MMVManip(map)) { } LuaVoxelManip::LuaVoxelManip(Map *map, v3s16 p1, v3s16 p2) { vm = new MMVManip(map); v3s16 bp1 = getNodeBlockPos(p1); v3s16 bp2 = getNodeBlockPos(p2); sortBoxVerticies(bp1, bp2); vm->initialEmerge(bp1, bp2); } LuaVoxelManip::~LuaVoxelManip() { if (!is_mapgen_vm) delete vm; } // LuaVoxelManip() // Creates an LuaVoxelManip and leaves it on top of stack int LuaVoxelManip::create_object(lua_State *L) { GET_ENV_PTR; Map *map = &(env->getMap()); LuaVoxelManip *o = (lua_istable(L, 1) && lua_istable(L, 2)) ? new LuaVoxelManip(map, check_v3s16(L, 1), check_v3s16(L, 2)) : new LuaVoxelManip(map); *(void **)(lua_newuserdata(L, sizeof(void *))) = o; luaL_getmetatable(L, className); lua_setmetatable(L, -2); return 1; } LuaVoxelManip *LuaVoxelManip::checkobject(lua_State *L, int narg) { NO_MAP_LOCK_REQUIRED; luaL_checktype(L, narg, LUA_TUSERDATA); void *ud = luaL_checkudata(L, narg, className); if (!ud) luaL_typerror(L, narg, className); return *(LuaVoxelManip **)ud; // unbox pointer } void LuaVoxelManip::Register(lua_State *L) { lua_newtable(L); int methodtable = lua_gettop(L); luaL_newmetatable(L, className); int metatable = lua_gettop(L); lua_pushliteral(L, "__metatable"); lua_pushvalue(L, methodtable); lua_settable(L, metatable); // hide metatable from Lua getmetatable() lua_pushliteral(L, "__index"); lua_pushvalue(L, methodtable); lua_settable(L, metatable); lua_pushliteral(L, "__gc"); lua_pushcfunction(L, gc_object); lua_settable(L, metatable); lua_pop(L, 1); // drop metatable luaL_openlib(L, 0, methods, 0); // fill methodtable lua_pop(L, 1); // drop methodtable // Can be created from Lua (VoxelManip()) lua_register(L, className, create_object); } const char LuaVoxelManip::className[] = "VoxelManip"; const luaL_Reg LuaVoxelManip::methods[] = { luamethod(LuaVoxelManip, read_from_map), luamethod(LuaVoxelManip, get_data), luamethod(LuaVoxelManip, set_data), luamethod(LuaVoxelManip, get_node_at), luamethod(LuaVoxelManip, set_node_at), luamethod(LuaVoxelManip, write_to_map), luamethod(LuaVoxelManip, update_map), luamethod(LuaVoxelManip, update_liquids), luamethod(LuaVoxelManip, calc_lighting), luamethod(LuaVoxelManip, set_lighting), luamethod(LuaVoxelManip, get_light_data), luamethod(LuaVoxelManip, set_light_data), luamethod(LuaVoxelManip, get_param2_data), luamethod(LuaVoxelManip, set_param2_data), luamethod(LuaVoxelManip, was_modified), luamethod(LuaVoxelManip, get_emerged_area), {0,0} };