forked from Mirrorlandia_minetest/minetest
c013c73f33
previously function used tonumber which returned float this caused errors in large numbers and resulted in obj-def-handlers being invalid when retrived from lua tables in c
649 lines
14 KiB
C++
649 lines
14 KiB
C++
/*
|
|
Minetest
|
|
Copyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>
|
|
|
|
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 "util/numeric.h"
|
|
#include "util/string.h"
|
|
#include "common/c_converter.h"
|
|
#include "constants.h"
|
|
|
|
|
|
#define CHECK_TYPE(index, name, type) do { \
|
|
int t = lua_type(L, (index)); \
|
|
if (t != (type)) { \
|
|
throw LuaError(std::string("Invalid ") + (name) + \
|
|
" (expected " + lua_typename(L, (type)) + \
|
|
" got " + lua_typename(L, t) + ")."); \
|
|
} \
|
|
} while(0)
|
|
#define CHECK_POS_COORD(name) CHECK_TYPE(-1, "position coordinate '" name "'", LUA_TNUMBER)
|
|
#define CHECK_POS_TAB(index) CHECK_TYPE(index, "position", LUA_TTABLE)
|
|
|
|
|
|
void push_v3f(lua_State *L, v3f p)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, p.X);
|
|
lua_setfield(L, -2, "x");
|
|
lua_pushnumber(L, p.Y);
|
|
lua_setfield(L, -2, "y");
|
|
lua_pushnumber(L, p.Z);
|
|
lua_setfield(L, -2, "z");
|
|
}
|
|
|
|
void push_v2f(lua_State *L, v2f p)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, p.X);
|
|
lua_setfield(L, -2, "x");
|
|
lua_pushnumber(L, p.Y);
|
|
lua_setfield(L, -2, "y");
|
|
}
|
|
|
|
v2s16 read_v2s16(lua_State *L, int index)
|
|
{
|
|
v2s16 p;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
p.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
p.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return p;
|
|
}
|
|
|
|
v2s16 check_v2s16(lua_State *L, int index)
|
|
{
|
|
v2s16 p;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
CHECK_POS_COORD("x");
|
|
p.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
CHECK_POS_COORD("y");
|
|
p.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return p;
|
|
}
|
|
|
|
void push_v2s16(lua_State *L, v2s16 p)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, p.X);
|
|
lua_setfield(L, -2, "x");
|
|
lua_pushnumber(L, p.Y);
|
|
lua_setfield(L, -2, "y");
|
|
}
|
|
|
|
void push_v2s32(lua_State *L, v2s32 p)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, p.X);
|
|
lua_setfield(L, -2, "x");
|
|
lua_pushnumber(L, p.Y);
|
|
lua_setfield(L, -2, "y");
|
|
}
|
|
|
|
v2s32 read_v2s32(lua_State *L, int index)
|
|
{
|
|
v2s32 p;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
p.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
p.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return p;
|
|
}
|
|
|
|
v2f read_v2f(lua_State *L, int index)
|
|
{
|
|
v2f p;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
p.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
p.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return p;
|
|
}
|
|
|
|
v2f check_v2f(lua_State *L, int index)
|
|
{
|
|
v2f p;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
CHECK_POS_COORD("x");
|
|
p.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
CHECK_POS_COORD("y");
|
|
p.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return p;
|
|
}
|
|
|
|
v3f read_v3f(lua_State *L, int index)
|
|
{
|
|
v3f pos;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
pos.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
pos.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "z");
|
|
pos.Z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return pos;
|
|
}
|
|
|
|
v3f check_v3f(lua_State *L, int index)
|
|
{
|
|
v3f pos;
|
|
CHECK_POS_TAB(index);
|
|
lua_getfield(L, index, "x");
|
|
CHECK_POS_COORD("x");
|
|
pos.X = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "y");
|
|
CHECK_POS_COORD("y");
|
|
pos.Y = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "z");
|
|
CHECK_POS_COORD("z");
|
|
pos.Z = lua_tonumber(L, -1);
|
|
lua_pop(L, 1);
|
|
return pos;
|
|
}
|
|
|
|
void push_ARGB8(lua_State *L, video::SColor color)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, color.getAlpha());
|
|
lua_setfield(L, -2, "a");
|
|
lua_pushnumber(L, color.getRed());
|
|
lua_setfield(L, -2, "r");
|
|
lua_pushnumber(L, color.getGreen());
|
|
lua_setfield(L, -2, "g");
|
|
lua_pushnumber(L, color.getBlue());
|
|
lua_setfield(L, -2, "b");
|
|
}
|
|
|
|
void pushFloatPos(lua_State *L, v3f p)
|
|
{
|
|
p /= BS;
|
|
push_v3f(L, p);
|
|
}
|
|
|
|
v3f checkFloatPos(lua_State *L, int index)
|
|
{
|
|
return check_v3f(L, index) * BS;
|
|
}
|
|
|
|
void push_v3s16(lua_State *L, v3s16 p)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, p.X);
|
|
lua_setfield(L, -2, "x");
|
|
lua_pushnumber(L, p.Y);
|
|
lua_setfield(L, -2, "y");
|
|
lua_pushnumber(L, p.Z);
|
|
lua_setfield(L, -2, "z");
|
|
}
|
|
|
|
v3s16 read_v3s16(lua_State *L, int index)
|
|
{
|
|
// Correct rounding at <0
|
|
v3f pf = read_v3f(L, index);
|
|
return floatToInt(pf, 1.0);
|
|
}
|
|
|
|
v3s16 check_v3s16(lua_State *L, int index)
|
|
{
|
|
// Correct rounding at <0
|
|
v3f pf = check_v3f(L, index);
|
|
return floatToInt(pf, 1.0);
|
|
}
|
|
|
|
bool read_color(lua_State *L, int index, video::SColor *color)
|
|
{
|
|
if (lua_istable(L, index)) {
|
|
*color = read_ARGB8(L, index);
|
|
} else if (lua_isnumber(L, index)) {
|
|
color->set(lua_tonumber(L, index));
|
|
} else if (lua_isstring(L, index)) {
|
|
video::SColor parsed_color;
|
|
if (!parseColorString(lua_tostring(L, index), parsed_color, true))
|
|
return false;
|
|
|
|
*color = parsed_color;
|
|
} else {
|
|
return false;
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
video::SColor read_ARGB8(lua_State *L, int index)
|
|
{
|
|
video::SColor color(0);
|
|
CHECK_TYPE(index, "ARGB color", LUA_TTABLE);
|
|
lua_getfield(L, index, "a");
|
|
color.setAlpha(lua_isnumber(L, -1) ? lua_tonumber(L, -1) : 0xFF);
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "r");
|
|
color.setRed(lua_tonumber(L, -1));
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "g");
|
|
color.setGreen(lua_tonumber(L, -1));
|
|
lua_pop(L, 1);
|
|
lua_getfield(L, index, "b");
|
|
color.setBlue(lua_tonumber(L, -1));
|
|
lua_pop(L, 1);
|
|
return color;
|
|
}
|
|
|
|
aabb3f read_aabb3f(lua_State *L, int index, f32 scale)
|
|
{
|
|
aabb3f box;
|
|
if(lua_istable(L, index)){
|
|
lua_rawgeti(L, index, 1);
|
|
box.MinEdge.X = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
lua_rawgeti(L, index, 2);
|
|
box.MinEdge.Y = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
lua_rawgeti(L, index, 3);
|
|
box.MinEdge.Z = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
lua_rawgeti(L, index, 4);
|
|
box.MaxEdge.X = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
lua_rawgeti(L, index, 5);
|
|
box.MaxEdge.Y = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
lua_rawgeti(L, index, 6);
|
|
box.MaxEdge.Z = lua_tonumber(L, -1) * scale;
|
|
lua_pop(L, 1);
|
|
}
|
|
return box;
|
|
}
|
|
|
|
void push_aabb3f(lua_State *L, aabb3f box)
|
|
{
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, box.MinEdge.X);
|
|
lua_rawseti(L, -2, 1);
|
|
lua_pushnumber(L, box.MinEdge.Y);
|
|
lua_rawseti(L, -2, 2);
|
|
lua_pushnumber(L, box.MinEdge.Z);
|
|
lua_rawseti(L, -2, 3);
|
|
lua_pushnumber(L, box.MaxEdge.X);
|
|
lua_rawseti(L, -2, 4);
|
|
lua_pushnumber(L, box.MaxEdge.Y);
|
|
lua_rawseti(L, -2, 5);
|
|
lua_pushnumber(L, box.MaxEdge.Z);
|
|
lua_rawseti(L, -2, 6);
|
|
}
|
|
|
|
std::vector<aabb3f> read_aabb3f_vector(lua_State *L, int index, f32 scale)
|
|
{
|
|
std::vector<aabb3f> boxes;
|
|
if(lua_istable(L, index)){
|
|
int n = lua_objlen(L, index);
|
|
// Check if it's a single box or a list of boxes
|
|
bool possibly_single_box = (n == 6);
|
|
for(int i = 1; i <= n && possibly_single_box; i++){
|
|
lua_rawgeti(L, index, i);
|
|
if(!lua_isnumber(L, -1))
|
|
possibly_single_box = false;
|
|
lua_pop(L, 1);
|
|
}
|
|
if(possibly_single_box){
|
|
// Read a single box
|
|
boxes.push_back(read_aabb3f(L, index, scale));
|
|
} else {
|
|
// Read a list of boxes
|
|
for(int i = 1; i <= n; i++){
|
|
lua_rawgeti(L, index, i);
|
|
boxes.push_back(read_aabb3f(L, -1, scale));
|
|
lua_pop(L, 1);
|
|
}
|
|
}
|
|
}
|
|
return boxes;
|
|
}
|
|
|
|
size_t read_stringlist(lua_State *L, int index, std::vector<std::string> *result)
|
|
{
|
|
if (index < 0)
|
|
index = lua_gettop(L) + 1 + index;
|
|
|
|
size_t num_strings = 0;
|
|
|
|
if (lua_istable(L, index)) {
|
|
lua_pushnil(L);
|
|
while (lua_next(L, index)) {
|
|
if (lua_isstring(L, -1)) {
|
|
result->push_back(lua_tostring(L, -1));
|
|
num_strings++;
|
|
}
|
|
lua_pop(L, 1);
|
|
}
|
|
} else if (lua_isstring(L, index)) {
|
|
result->push_back(lua_tostring(L, index));
|
|
num_strings++;
|
|
}
|
|
|
|
return num_strings;
|
|
}
|
|
|
|
/*
|
|
Table field getters
|
|
*/
|
|
|
|
bool getstringfield(lua_State *L, int table,
|
|
const char *fieldname, std::string &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isstring(L, -1)){
|
|
size_t len = 0;
|
|
const char *ptr = lua_tolstring(L, -1, &len);
|
|
if (ptr) {
|
|
result.assign(ptr, len);
|
|
got = true;
|
|
}
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getintfield(lua_State *L, int table,
|
|
const char *fieldname, int &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isnumber(L, -1)){
|
|
result = lua_tointeger(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getintfield(lua_State *L, int table,
|
|
const char *fieldname, u8 &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isnumber(L, -1)){
|
|
result = lua_tointeger(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getintfield(lua_State *L, int table,
|
|
const char *fieldname, u16 &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isnumber(L, -1)){
|
|
result = lua_tointeger(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getintfield(lua_State *L, int table,
|
|
const char *fieldname, u32 &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isnumber(L, -1)){
|
|
result = lua_tointeger(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getfloatfield(lua_State *L, int table,
|
|
const char *fieldname, float &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isnumber(L, -1)){
|
|
result = lua_tonumber(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
bool getboolfield(lua_State *L, int table,
|
|
const char *fieldname, bool &result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
bool got = false;
|
|
if(lua_isboolean(L, -1)){
|
|
result = lua_toboolean(L, -1);
|
|
got = true;
|
|
}
|
|
lua_pop(L, 1);
|
|
return got;
|
|
}
|
|
|
|
size_t getstringlistfield(lua_State *L, int table, const char *fieldname,
|
|
std::vector<std::string> *result)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
|
|
size_t num_strings_read = read_stringlist(L, -1, result);
|
|
|
|
lua_pop(L, 1);
|
|
return num_strings_read;
|
|
}
|
|
|
|
std::string checkstringfield(lua_State *L, int table,
|
|
const char *fieldname)
|
|
{
|
|
lua_getfield(L, table, fieldname);
|
|
CHECK_TYPE(-1, std::string("field \"") + fieldname + '"', LUA_TSTRING);
|
|
size_t len;
|
|
const char *s = lua_tolstring(L, -1, &len);
|
|
lua_pop(L, 1);
|
|
return std::string(s, len);
|
|
}
|
|
|
|
std::string getstringfield_default(lua_State *L, int table,
|
|
const char *fieldname, const std::string &default_)
|
|
{
|
|
std::string result = default_;
|
|
getstringfield(L, table, fieldname, result);
|
|
return result;
|
|
}
|
|
|
|
int getintfield_default(lua_State *L, int table,
|
|
const char *fieldname, int default_)
|
|
{
|
|
int result = default_;
|
|
getintfield(L, table, fieldname, result);
|
|
return result;
|
|
}
|
|
|
|
float getfloatfield_default(lua_State *L, int table,
|
|
const char *fieldname, float default_)
|
|
{
|
|
float result = default_;
|
|
getfloatfield(L, table, fieldname, result);
|
|
return result;
|
|
}
|
|
|
|
bool getboolfield_default(lua_State *L, int table,
|
|
const char *fieldname, bool default_)
|
|
{
|
|
bool result = default_;
|
|
getboolfield(L, table, fieldname, result);
|
|
return result;
|
|
}
|
|
|
|
void setstringfield(lua_State *L, int table,
|
|
const char *fieldname, const char *value)
|
|
{
|
|
lua_pushstring(L, value);
|
|
if(table < 0)
|
|
table -= 1;
|
|
lua_setfield(L, table, fieldname);
|
|
}
|
|
|
|
void setintfield(lua_State *L, int table,
|
|
const char *fieldname, int value)
|
|
{
|
|
lua_pushinteger(L, value);
|
|
if(table < 0)
|
|
table -= 1;
|
|
lua_setfield(L, table, fieldname);
|
|
}
|
|
|
|
void setfloatfield(lua_State *L, int table,
|
|
const char *fieldname, float value)
|
|
{
|
|
lua_pushnumber(L, value);
|
|
if(table < 0)
|
|
table -= 1;
|
|
lua_setfield(L, table, fieldname);
|
|
}
|
|
|
|
void setboolfield(lua_State *L, int table,
|
|
const char *fieldname, bool value)
|
|
{
|
|
lua_pushboolean(L, value);
|
|
if(table < 0)
|
|
table -= 1;
|
|
lua_setfield(L, table, fieldname);
|
|
}
|
|
|
|
|
|
////
|
|
//// Array table slices
|
|
////
|
|
|
|
size_t write_array_slice_float(
|
|
lua_State *L,
|
|
int table_index,
|
|
float *data,
|
|
v3u16 data_size,
|
|
v3u16 slice_offset,
|
|
v3u16 slice_size)
|
|
{
|
|
v3u16 pmin, pmax(data_size);
|
|
|
|
if (slice_offset.X > 0) {
|
|
slice_offset.X--;
|
|
pmin.X = slice_offset.X;
|
|
pmax.X = MYMIN(slice_offset.X + slice_size.X, data_size.X);
|
|
}
|
|
|
|
if (slice_offset.Y > 0) {
|
|
slice_offset.Y--;
|
|
pmin.Y = slice_offset.Y;
|
|
pmax.Y = MYMIN(slice_offset.Y + slice_size.Y, data_size.Y);
|
|
}
|
|
|
|
if (slice_offset.Z > 0) {
|
|
slice_offset.Z--;
|
|
pmin.Z = slice_offset.Z;
|
|
pmax.Z = MYMIN(slice_offset.Z + slice_size.Z, data_size.Z);
|
|
}
|
|
|
|
const u32 ystride = data_size.X;
|
|
const u32 zstride = data_size.X * data_size.Y;
|
|
|
|
u32 elem_index = 1;
|
|
for (u32 z = pmin.Z; z != pmax.Z; z++)
|
|
for (u32 y = pmin.Y; y != pmax.Y; y++)
|
|
for (u32 x = pmin.X; x != pmax.X; x++) {
|
|
u32 i = z * zstride + y * ystride + x;
|
|
lua_pushnumber(L, data[i]);
|
|
lua_rawseti(L, table_index, elem_index);
|
|
elem_index++;
|
|
}
|
|
|
|
return elem_index - 1;
|
|
}
|
|
|
|
|
|
size_t write_array_slice_u16(
|
|
lua_State *L,
|
|
int table_index,
|
|
u16 *data,
|
|
v3u16 data_size,
|
|
v3u16 slice_offset,
|
|
v3u16 slice_size)
|
|
{
|
|
v3u16 pmin, pmax(data_size);
|
|
|
|
if (slice_offset.X > 0) {
|
|
slice_offset.X--;
|
|
pmin.X = slice_offset.X;
|
|
pmax.X = MYMIN(slice_offset.X + slice_size.X, data_size.X);
|
|
}
|
|
|
|
if (slice_offset.Y > 0) {
|
|
slice_offset.Y--;
|
|
pmin.Y = slice_offset.Y;
|
|
pmax.Y = MYMIN(slice_offset.Y + slice_size.Y, data_size.Y);
|
|
}
|
|
|
|
if (slice_offset.Z > 0) {
|
|
slice_offset.Z--;
|
|
pmin.Z = slice_offset.Z;
|
|
pmax.Z = MYMIN(slice_offset.Z + slice_size.Z, data_size.Z);
|
|
}
|
|
|
|
const u32 ystride = data_size.X;
|
|
const u32 zstride = data_size.X * data_size.Y;
|
|
|
|
u32 elem_index = 1;
|
|
for (u32 z = pmin.Z; z != pmax.Z; z++)
|
|
for (u32 y = pmin.Y; y != pmax.Y; y++)
|
|
for (u32 x = pmin.X; x != pmax.X; x++) {
|
|
u32 i = z * zstride + y * ystride + x;
|
|
lua_pushinteger(L, data[i]);
|
|
lua_rawseti(L, table_index, elem_index);
|
|
elem_index++;
|
|
}
|
|
|
|
return elem_index - 1;
|
|
}
|