diff options
author | Tomas Guisasola <tomas@luaforge.net> | 2004-10-15 15:28:09 +0000 |
---|---|---|
committer | Tomas Guisasola <tomas@luaforge.net> | 2004-10-15 15:28:09 +0000 |
commit | 4464cd205813c369b5036b755e3505406a13399c (patch) | |
tree | e5d95be4e68c6178d909ad8376219f053ffd9004 /lualdap/src | |
parent | Atualizacao da documentacao sobre instalacao (proposta de pacotes de Lua 5.1) (diff) | |
download | lualdap-4464cd205813c369b5036b755e3505406a13399c.tar.xz lualdap-4464cd205813c369b5036b755e3505406a13399c.zip |
Adaptacao para o uso dos arquivos compat-5.1.[c,h].
Diffstat (limited to 'lualdap/src')
-rwxr-xr-x | lualdap/src/lualdap.c | 30 |
1 files changed, 9 insertions, 21 deletions
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 <stdlib.h> @@ -12,6 +12,7 @@ #include <lua.h> #include <lauxlib.h> +#include <compat-5.1.h> #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; } |