From 6e6cf05093bbb907d788641733424677452fb99c Mon Sep 17 00:00:00 2001 From: Přemysl Janouch Date: Sun, 18 Jan 2015 22:48:03 +0100 Subject: We Lua 5.2 now Lua 5.1 seems to have been obsoleted. Luckily this was pretty simple. --- liblogdiag/ld-lua.c | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) (limited to 'liblogdiag') diff --git a/liblogdiag/ld-lua.c b/liblogdiag/ld-lua.c index 935c2a1..b8b0e48 100644 --- a/liblogdiag/ld-lua.c +++ b/liblogdiag/ld-lua.c @@ -196,17 +196,14 @@ ld_lua_init (LdLua *self) /* XXX: Might not be a bad idea to use lua_atpanic(). */ /* Load some safe libraries. */ - lua_pushcfunction (L, luaopen_string); - lua_call (L, 0, 0); - - lua_pushcfunction (L, luaopen_table); - lua_call (L, 0, 0); - - lua_pushcfunction (L, luaopen_math); - lua_call (L, 0, 0); + luaL_requiref (L, "string", luaopen_string, TRUE); + luaL_requiref (L, "table", luaopen_table, TRUE); + luaL_requiref (L, "math", luaopen_math, TRUE); + lua_pop (L, 3); /* Load the application library. */ - luaL_register (L, LD_LUA_LIBRARY_NAME, ld_lua_logdiag_lib); + luaL_newlib (L, ld_lua_logdiag_lib); + lua_setglobal (L, LD_LUA_LIBRARY_NAME); /* Store user data to the registry. */ ud = lua_newuserdata (L, sizeof *ud); @@ -351,7 +348,9 @@ ld_lua_private_draw (LdLua *self, LdLuaSymbol *symbol, cairo_t *cr) data.cr = cr; data.save_count = 0; - if (lua_cpcall (self->priv->L, ld_lua_private_draw_cb, &data)) + lua_pushcfunction (self->priv->L, ld_lua_private_draw_cb); + lua_pushlightuserdata (self->priv->L, &data); + if (lua_pcall (self->priv->L, 1, 0, 0)) { g_warning ("Lua error: %s", lua_tostring (self->priv->L, -1)); lua_pop (self->priv->L, 1); @@ -415,7 +414,9 @@ ld_lua_private_unregister (LdLua *self, LdLuaSymbol *symbol) g_return_if_fail (LD_IS_LUA (self)); g_return_if_fail (LD_IS_LUA_SYMBOL (symbol)); - if (lua_cpcall (self->priv->L, ld_lua_private_unregister_cb, symbol)) + lua_pushcfunction (self->priv->L, ld_lua_private_unregister_cb); + lua_pushlightuserdata (self->priv->L, symbol); + if (lua_pcall (self->priv->L, 1, 0, 0)) { g_warning ("Lua error: %s", lua_tostring (self->priv->L, -1)); lua_pop (self->priv->L, 1); @@ -580,7 +581,7 @@ read_symbol_area (lua_State *L, int index, LdRectangle *area) { lua_Number x1, x2, y1, y2; - if (lua_objlen (L, index) != 4) + if (lua_rawlen (L, index) != 4) return FALSE; lua_rawgeti (L, index, 1); @@ -628,7 +629,7 @@ read_terminals (lua_State *L, int index, LdPointArray **terminals) LdPointArray *points; size_t num_points; - num_points = lua_objlen (L, index); + num_points = lua_rawlen (L, index); points = ld_point_array_sized_new (num_points); lua_pushnil (L); @@ -636,7 +637,7 @@ read_terminals (lua_State *L, int index, LdPointArray **terminals) { g_assert (points->length < points->size); - if (!lua_istable (L, -1) || lua_objlen (L, -1) != 2) + if (!lua_istable (L, -1) || lua_rawlen (L, -1) != 2) goto read_terminals_fail; lua_rawgeti (L, -1, 1); -- cgit v1.2.3-70-g09d2