Method ReadVar

source/lib/Scripts/src/Scripts.cpp:421–528

}

ScriptVar ScriptVar::ReadVar(int index, bool with_metatable_index)
{
	lua_init();

	ScriptVar r;

	EXIT_IF(index == 0);

	// script_dbg_dump_stack(String::FromPrintf("script_read_var( %d )", index));

	if (index < 0)
	{
		index = lua_gettop(g_lua_state) + index + 1;
	}

	lua_pushvalue(g_lua_state, index);

	// printf("sizeof(lua_Integer) = %d\n", (int)sizeof(lua_Integer));
	// printf("LUA_INTEGER_FRMLEN = %s\n", LUA_INTEGER_FRMLEN);
	// printf("LUA_MAXINTEGER = %" PRIi64"\n", (int64_t)LUA_MAXINTEGER);
	// printf("LUA_MININTEGER = %" PRIi64"\n", (int64_t)LUA_MININTEGER);

	r.m_p->val_double = lua_tonumber(g_lua_state, -1);
	r.m_p->val_bool   = (lua_toboolean(g_lua_state, -1) != 0);
#if KYTY_LUA_VER == KYTY_LUA_5_3
	Read.m_p->val_integer = lua_tointeger(g_lua_state, -1);
#endif
	r.m_p->val_string   = String::FromUtf8(lua_tostring(g_lua_state, -1));
	r.m_p->val_userdata = lua_touserdata(g_lua_state, -1);

	r.m_p->is_c_function = (lua_iscfunction(g_lua_state, -1) != 0);
	r.m_p->is_double     = (lua_isnumber(g_lua_state, -1) != 0);
	r.m_p->is_function   = lua_isfunction(g_lua_state, -1);
#if KYTY_LUA_VER == KYTY_LUA_5_3
	Read.is_integer = lua_isinteger(g_lua_state, -1);
	if (!Read.is_integer)
	{
		Read.is_integer = lua_tointeger(g_lua_state, -1) != 0 || lua_tostring(g_lua_state, -1) == String("0");
	}
#endif
	r.m_p->is_nil      = lua_isnil(g_lua_state, -1);
	r.m_p->is_string   = (lua_isstring(g_lua_state, -1) != 0);
	r.m_p->is_table    = lua_istable(g_lua_state, -1);
	r.m_p->is_userdata = (lua_isuserdata(g_lua_state, -1) != 0);

	if (r.m_p->is_function)
	{
		r.m_p->val_function.LoadFromStack();
	}

	lua_pop(g_lua_state, 1);

	if (r.m_p->is_table)
	{
		lua_pushnil(g_lua_state); /* first key */

		// script_dbg_dump_stack(String::FromPrintf("is_table"));