From 96807d2f3dcec583ca54b503e7fc70014115e308 Mon Sep 17 00:00:00 2001 From: Johannes Dewender Date: Thu, 4 Apr 2013 17:23:43 +0200 Subject: [PATCH] Finish lua 5.2 support, trac #865 Lua52 support was started with ac959fed0082cb253d45c7a04866e8654e962442. Compilation tested with Lua 5.2.1 and Lua 5.1.5. The short typerror() snippet is taken from luaL_typerror in Lua 5.1.5 (MIT license) Signed-off-by: Johannes Dewender --- luaext/lposix.c | 21 +++++++++++++++------ rpmio/rpmlua.c | 8 ++++++++ 2 files changed, 23 insertions(+), 6 deletions(-) diff --git a/luaext/lposix.c b/luaext/lposix.c index f3c787e..a59be3e 100644 --- a/luaext/lposix.c +++ b/luaext/lposix.c @@ -58,6 +58,15 @@ static const char *filetype(mode_t m) typedef int (*Selector)(lua_State *L, int i, const void *data); +/* implemented as luaL_typerror until lua 5.1, dropped in 5.2 + * (C) 1994-2012 Lua.org, PUC-Rio. MIT license + */ +static int typerror (lua_State *L, int narg, const char *tname) { + const char *msg = lua_pushfstring(L, "%s expected, got %s", + tname, luaL_typename(L, narg)); + return luaL_argerror(L, narg, msg); +} + static int doselection(lua_State *L, int i, const char *const S[], Selector F, const void *data) { if (lua_isnone(L, i)) @@ -139,7 +148,7 @@ static uid_t mygetuid(lua_State *L, int i) return (p==NULL) ? -1 : p->pw_uid; } else - return luaL_typerror(L, i, "string or number"); + return typerror(L, i, "string or number"); } static gid_t mygetgid(lua_State *L, int i) @@ -154,7 +163,7 @@ static gid_t mygetgid(lua_State *L, int i) return (g==NULL) ? -1 : g->gr_gid; } else - return luaL_typerror(L, i, "string or number"); + return typerror(L, i, "string or number"); } @@ -573,7 +582,7 @@ static int Pgetpasswd(lua_State *L) /** getpasswd(name or id) */ else if (lua_isstring(L, 1)) p = getpwnam(lua_tostring(L, 1)); else - luaL_typerror(L, 1, "string or number"); + typerror(L, 1, "string or number"); if (p==NULL) lua_pushnil(L); else @@ -590,7 +599,7 @@ static int Pgetgroup(lua_State *L) /** getgroup(name or id) */ else if (lua_isstring(L, 1)) g = getgrnam(lua_tostring(L, 1)); else - luaL_typerror(L, 1, "string or number"); + typerror(L, 1, "string or number"); if (g==NULL) lua_pushnil(L); else @@ -709,10 +718,10 @@ static int Puname(lua_State *L) /** uname([string]) */ luaL_buffinit(L, &b); for (s=luaL_optstring(L, 1, "%s %n %r %v %m"); *s; s++) if (*s!='%') - luaL_putchar(&b, *s); + luaL_addchar(&b, *s); else switch (*++s) { - case '%': luaL_putchar(&b, *s); break; + case '%': luaL_addchar(&b, *s); break; case 'm': luaL_addstring(&b,u.machine); break; case 'n': luaL_addstring(&b,u.nodename); break; case 'r': luaL_addstring(&b,u.release); break; diff --git a/rpmio/rpmlua.c b/rpmio/rpmlua.c index 86d0408..0576318 100644 --- a/rpmio/rpmlua.c +++ b/rpmio/rpmlua.c @@ -7,14 +7,22 @@ #include #include +/* replaced in 5.1 */ #ifndef lua_open #define lua_open() luaL_newstate() #endif +/* defined as lua_objlen in 5.1 */ #ifndef lua_strlen #define lua_strlen(L,i) lua_rawlen(L, (i)) #endif +/* deprecated in 5.1, defined as lua_objlen in 5.1 */ +#ifndef luaL_getn +#define luaL_getn(L,i) ((int)lua_rawlen(L, i)) +#endif + +/* define added in 5.2 */ #ifndef lua_pushglobaltable #define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX) #endif -- 1.8.1.3