From 4464cd205813c369b5036b755e3505406a13399c Mon Sep 17 00:00:00 2001 From: Tomas Guisasola Date: Fri, 15 Oct 2004 15:28:09 +0000 Subject: Adaptacao para o uso dos arquivos compat-5.1.[c,h]. --- lualdap/src/lualdap.c | 30 +++++++++--------------------- 1 file changed, 9 insertions(+), 21 deletions(-) (limited to 'lualdap/src') diff --git a/lualdap/src/lualdap.c b/lualdap/src/lualdap.c index eb87bf3..d9bb6f1 100755 --- a/lualdap/src/lualdap.c +++ b/lualdap/src/lualdap.c @@ -1,7 +1,7 @@ /* ** LuaLDAP ** See Copyright Notice in license.html -** $Id: lualdap.c,v 1.29 2004-09-17 15:40:18 tomas Exp $ +** $Id: lualdap.c,v 1.30 2004-10-15 15:28:09 tomas Exp $ */ #include @@ -12,6 +12,7 @@ #include #include +#include #define LUALDAP_PREFIX "LuaLDAP: " @@ -945,34 +946,21 @@ static int lualdap_open_simple (lua_State *L) { ** Create ldap table and register the open method. */ int luaopen_lualdap (lua_State *L) { - const char *name; - int lualdap; + struct luaL_reg lualdap[] = { + {"open_simple", lualdap_open_simple}, + {NULL, NULL}, + }; lualdap_createmeta (L); - + luaL_openlib (L, LUALDAP_TABLENAME, lualdap, 0); +/* lua_newtable (L); lualdap = lua_gettop (L); lua_pushliteral (L, "open_simple"); lua_pushcfunction (L, lualdap_open_simple); lua_rawset (L, -3); lua_setglobal (L, LUALDAP_TABLENAME); - - /* if Lua 5.0 then Set package.loaded[name] = lualdap */ - if (lua_isstring(L, 1)) - name = lua_tostring (L, 1); - else { - lua_getglobal (L, "arg"); - lua_rawgeti (L, -1, 1); - name = lua_tostring (L, -1); - lua_pop (L, 2); - } - lua_getglobal (L, "package"); - lua_pushliteral (L, "loaded"); - lua_gettable (L, -2); - lua_pushstring (L, name); - lua_pushvalue (L, lualdap); - lua_settable (L, -3); /* package.loaded[name] = lualdap */ - lua_pop (L, 2); +*/ return 1; } -- cgit v1.2.3-59-g8ed1b