Atualizacao para a versao final da "proposta de pacotes" do Roberto.

1 files changed, 23 insertions, 2 deletions

diff --git a/lualdap/src/lualdap.c b/lualdap/src/lualdap.c
index b424392..eb87bf3 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.28 2004-07-09 16:16:32 tomas Exp $
+** $Id: lualdap.c,v 1.29 2004-09-17 15:40:18 tomas Exp $
 */
 
 #include <stdlib.h>
@@ -944,14 +944,35 @@ static int lualdap_open_simple (lua_State *L) {
 /*
 ** Create ldap table and register the open method.
 */
-int lualdap_libopen (lua_State *L) {
+int luaopen_lualdap (lua_State *L) {
+	const char *name;
+	int lualdap;
+
 	lualdap_createmeta (L);
 
 	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;
 }