Initial Mercurial commit.

src/libraries/luasocket/luasocket.cpp

@@ -0,0 +1,120 @@
+/**
+* Copyright (c) 2006-2009 LOVE Development Team
+* 
+* This software is provided 'as-is', without any express or implied
+* warranty.  In no event will the authors be held liable for any damages
+* arising from the use of this software.
+* 
+* Permission is granted to anyone to use this software for any purpose,
+* including commercial applications, and to alter it and redistribute it
+* freely, subject to the following restrictions:
+* 
+* 1. The origin of this software must not be misrepresented; you must not
+*    claim that you wrote the original software. If you use this software
+*    in a product, an acknowledgment in the product documentation would be
+*    appreciated but is not required.
+* 2. Altered source versions must be plainly marked as such, and must not be
+*    misrepresented as being the original software.
+* 3. This notice may not be removed or altered from any source distribution.
+**/
+
+#include "luasocket.h"
+
+// LuaSocket
+extern "C" {
+#include "libluasocket/luasocket.h"
+#include "libluasocket/mime.h"
+}
+
+// Quick macro for adding functions to 
+// the preloder.
+#define PRELOAD(name, function) \
+	lua_getglobal(L, "package"); \
+	lua_getfield(L, -1, "preload"); \
+	lua_pushcfunction(L, function); \
+	lua_setfield(L, -2, name); \
+	lua_pop(L, 2);	
+
+namespace love
+{
+namespace luasocket
+{
+	int __open(lua_State * L)
+	{
+
+		// Preload code from LuaSocket.
+		PRELOAD("socket.core", luaopen_socket_core);
+		PRELOAD("mime.core", luaopen_mime_core);
+
+		PRELOAD("socket", __open_luasocket_socket);
+		PRELOAD("socket.ftp", __open_luasocket_ftp)
+		PRELOAD("socket.http", __open_luasocket_http);
+		PRELOAD("ltn12", __open_luasocket_ltn12);
+		PRELOAD("mime", __open_luasocket_mime)
+		PRELOAD("socket.smtp", __open_luasocket_smtp);
+		PRELOAD("socket.tp", __open_luasocket_tp)
+		PRELOAD("socket.url", __open_luasocket_url)
+
+		// No need to register garbage collector function.
+
+		return 0;
+	}
+
+	int __open_luasocket_socket(lua_State * L)
+	{
+		#include "libluasocket/socket.lua.h"
+		lua_getglobal(L, "socket");
+		return 1;
+	}
+
+	int __open_luasocket_ftp(lua_State * L)
+	{
+		#include "libluasocket/ftp.lua.h"
+		lua_getglobal(L, "socket.ftp");
+		return 1;
+	}
+
+	int __open_luasocket_http(lua_State * L)
+	{
+		#include "libluasocket/http.lua.h"
+		lua_getglobal(L, "socket.http");
+		return 1;
+	}
+
+	int __open_luasocket_ltn12(lua_State * L)
+	{
+		#include "libluasocket/ltn12.lua.h"
+		lua_getglobal(L, "ltn12");
+		return 1;
+	}
+
+	int __open_luasocket_mime(lua_State * L)
+	{
+		#include "libluasocket/mime.lua.h"
+		lua_getglobal(L, "mime");
+		return 1;
+	}
+
+	int __open_luasocket_smtp(lua_State * L)
+	{
+		#include "libluasocket/smtp.lua.h"
+		lua_getglobal(L, "socket.smtp");
+		return 1;
+	}
+
+	int __open_luasocket_tp(lua_State * L)
+	{
+		#include "libluasocket/tp.lua.h"
+		lua_getglobal(L, "socket.tp");
+		return 1;
+	}
+
+	int __open_luasocket_url(lua_State * L)
+	{
+		#include "libluasocket/url.lua.h"
+		lua_getglobal(L, "socket.url");
+		return 1;
+	}
+
+} // luasocket
+} // love