6 files changed, 293 insertions, 0 deletions
diff --git a/Sluift/.gitignore b/Sluift/.gitignore
new file mode 100644
index 0000000..d6ff3b9
--- /dev/null
+++ b/Sluift/.gitignore
@@ -0,0 +1,2 @@
+lua.c
+sluift
diff --git a/Sluift/SConscript b/Sluift/SConscript
new file mode 100644
index 0000000..a8d985e
--- /dev/null
+++ b/Sluift/SConscript
@@ -0,0 +1,16 @@
+Import("env")
+
+if env["SCONS_STAGE"] == "build" :
+	myenv = env.Clone()
+	myenv.UseFlags(env["LUA_FLAGS"])
+	myenv.UseFlags(env["SWIFTEN_FLAGS"])
+	myenv.UseFlags(env["SWIFTEN_DEP_FLAGS"])
+
+	myenv["SHLIBPREFIX"] = ""
+	if myenv["PLATFORM"] == "win32" :
+		myenv.Append(CPPDEFINES = ["SLUIFT_BUILD_DLL"])
+	elif myenv["PLATFORM"] == "darwin" :
+		myenv["SHLIBSUFFIX"] = ".so"
+	myenv.SharedLibrary("sluift", [
+			"sluift.cpp",
+		])
diff --git a/Sluift/example.lua b/Sluift/example.lua
new file mode 100644
index 0000000..4083848
--- /dev/null
+++ b/Sluift/example.lua
@@ -0,0 +1,6 @@
+require "sluift"
+
+c = sluift.connect(os.getenv("SWIFT_CLIENTTEST_JID"), os.getenv("SWIFT_CLIENTTEST_PASS"))
+v = c:get_version("swift.im")
+print(v["name"], v["version"], v["os"])
+c:disconnect()
diff --git a/Sluift/linit.c b/Sluift/linit.c
new file mode 100644
index 0000000..4cb4c26
--- /dev/null
+++ b/Sluift/linit.c
@@ -0,0 +1,40 @@
+/*
+** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $
+** Initialization of libraries for lua.c
+** See Copyright Notice in lua.h
+*/
+
+
+#define linit_c
+#define LUA_LIB
+
+#include "lua.h"
+
+#include "lualib.h"
+#include "lauxlib.h"
+#include "sluift.h"
+
+
+static const luaL_Reg lualibs[] = {
+  {"", luaopen_base},
+  {LUA_LOADLIBNAME, luaopen_package},
+  {LUA_TABLIBNAME, luaopen_table},
+  {LUA_IOLIBNAME, luaopen_io},
+  {LUA_OSLIBNAME, luaopen_os},
+  {LUA_STRLIBNAME, luaopen_string},
+  {LUA_MATHLIBNAME, luaopen_math},
+  {LUA_DBLIBNAME, luaopen_debug},
+	{"sluift", luaopen_sluift},
+  {NULL, NULL}
+};
+
+
+LUALIB_API void luaL_openlibs (lua_State *L) {
+  const luaL_Reg *lib = lualibs;
+  for (; lib->func; lib++) {
+    lua_pushcfunction(L, lib->func);
+    lua_pushstring(L, lib->name);
+    lua_call(L, 1, 0);
+  }
+}
+
diff --git a/Sluift/sluift.cpp b/Sluift/sluift.cpp
new file mode 100644
index 0000000..cab5361
--- /dev/null
+++ b/Sluift/sluift.cpp
@@ -0,0 +1,212 @@
+/*
+ * Copyright (c) 2011 Remko Tronçon
+ * Licensed under the GNU General Public License v3.
+ * See Documentation/Licenses/GPLv3.txt for more information.
+ */
+
+extern "C" {
+	#include "sluift.h"
+	#include <lauxlib.h>
+}
+
+#include <iostream>
+#include <string>
+
+#include <Swiften/Client/Client.h>
+#include <Swiften/Client/ClientXMLTracer.h>
+#include <Swiften/JID/JID.h>
+#include <Swiften/EventLoop/DummyEventLoop.h>
+#include <Swiften/Network/BoostNetworkFactories.h>
+#include <Swiften/Base/sleep.h>
+#include <Swiften/Elements/SoftwareVersion.h>
+#include <Swiften/Queries/Requests/GetSoftwareVersionRequest.h>
+
+using namespace Swift;
+
+#define SLUIFT_CLIENT "SluiftClient*"
+
+/*******************************************************************************
+ * Helper classes
+ ******************************************************************************/
+
+DummyEventLoop eventLoop;
+BoostNetworkFactories networkFactories(&eventLoop);
+
+class SluiftClient {
+	public:
+		SluiftClient(const JID& jid, const std::string& password) {
+			client = new Client(jid, password, &networkFactories);
+			client->setAlwaysTrustCertificates();
+			tracer = new ClientXMLTracer(client);
+		}
+
+		~SluiftClient() {
+			delete tracer;
+			delete client;
+		}
+
+		void connect() {
+			client->connect();
+			while (client->isActive() && !client->isAvailable()) {
+				processEvents();
+			}
+		}
+
+		bool isConnected() const {
+			return client->isAvailable();
+		}
+
+		void sendMessage(const JID& to, const std::string& body) {
+			Message::ref message = boost::make_shared<Message>();
+			message->setTo(to);
+			message->setBody(body);
+			client->sendMessage(message);
+		}
+
+		void disconnect() {
+			client->disconnect();
+			while (client->isActive()) {
+				processEvents();
+			}
+		}
+
+		boost::optional<SoftwareVersion> getSoftwareVersion(const JID& jid) {
+			GetSoftwareVersionRequest::ref request = GetSoftwareVersionRequest::create(jid, client->getIQRouter());
+			request->onResponse.connect(boost::bind(&SluiftClient::handleSoftwareVersionResponse, this, _1, _2));
+			softwareVersion.reset();
+			error.reset();
+			request->send();
+			while (!softwareVersion && !error) {
+				processEvents();
+			}
+			return softwareVersion;
+		}
+
+	private:
+		void processEvents() {
+			Swift::sleep(100);
+			eventLoop.processEvents();
+		}
+
+		void handleSoftwareVersionResponse(boost::shared_ptr<SoftwareVersion> version, ErrorPayload::ref error) {
+			if (error) {
+				this->error = error;
+			}
+			else if (version) {
+				this->softwareVersion = *version;
+			}
+			else {
+				this->softwareVersion = SoftwareVersion("", "", "");
+			}
+		}
+	
+	private:
+		Client* client;
+		ClientXMLTracer* tracer;
+		boost::optional<SoftwareVersion> softwareVersion;
+		ErrorPayload::ref error;
+};
+
+
+/*******************************************************************************
+ * Client functions.
+ ******************************************************************************/
+
+static inline SluiftClient* getClient(lua_State* L) {
+	return *reinterpret_cast<SluiftClient**>(luaL_checkudata(L, 1, SLUIFT_CLIENT));
+}
+
+static int sluift_client_is_connected(lua_State *L) {
+	lua_pushboolean(L, getClient(L)->isConnected());
+	return 1;
+}
+
+static int sluift_client_disconnect(lua_State *L) {
+	getClient(L)->disconnect();
+	return 0;
+}
+
+
+static int sluift_client_get_version(lua_State *L) {
+	SluiftClient* client = getClient(L);
+	JID jid(std::string(luaL_checkstring(L, 2)));
+
+	boost::optional<SoftwareVersion> version = client->getSoftwareVersion(jid);
+	if (version) {
+		lua_createtable(L, 0, 3);
+		lua_pushstring(L, version->getName().c_str());
+		lua_setfield(L, -2, "name");
+		lua_pushstring(L, version->getVersion().c_str());
+		lua_setfield(L, -2, "version");
+		lua_pushstring(L, version->getOS().c_str());
+		lua_setfield(L, -2, "os");
+	}
+	else {
+		lua_pushnil(L);
+	}
+	return 1;
+}
+
+static int sluift_client_send_message(lua_State *L) {
+	getClient(L)->sendMessage(std::string(luaL_checkstring(L, 2)), luaL_checkstring(L, 3));
+	return 0;
+}
+
+static int sluift_client_gc (lua_State *L) {
+	SluiftClient* client = getClient(L);
+	delete client;
+	return 0;
+}
+
+
+static const luaL_reg sluift_client_functions[] = {
+	{"is_connected", sluift_client_is_connected},
+	{"disconnect",  sluift_client_disconnect},
+	{"send_message", sluift_client_send_message},
+	{"get_version", sluift_client_get_version},
+	{"__gc", sluift_client_gc},
+	{NULL, NULL}
+};
+
+/*******************************************************************************
+ * Module functions
+ ******************************************************************************/
+
+static int sluift_connect(lua_State *L) {
+	JID jid(std::string(luaL_checkstring(L, 1)));
+	std::string password(luaL_checkstring(L, 2));
+
+	SluiftClient** client = reinterpret_cast<SluiftClient**>(lua_newuserdata(L, sizeof(SluiftClient*)));
+	luaL_getmetatable(L, SLUIFT_CLIENT);
+	lua_setmetatable(L, -2);
+
+	*client = new SluiftClient(jid, password);
+	(*client)->connect();
+	if (!(*client)->isConnected()) {
+		lua_pushnil(L);
+	}
+	return 1;
+}
+
+static const luaL_reg sluift_functions[] = {
+	{"connect",   sluift_connect},
+	{NULL, NULL}
+};
+
+
+/*******************************************************************************
+ * Module registration
+ ******************************************************************************/
+
+SLUIFT_API int luaopen_sluift(lua_State *L) {
+	// Register functions
+	luaL_register(L, "sluift", sluift_functions);
+
+	// Register the client metatable
+	luaL_newmetatable(L, SLUIFT_CLIENT);
+	lua_pushvalue(L, -1);
+	lua_setfield(L, -2, "__index");
+	luaL_register(L, NULL, sluift_client_functions);
+
+	return 1;
+}
diff --git a/Sluift/sluift.h b/Sluift/sluift.h
new file mode 100644
index 0000000..f28862e
--- /dev/null
+++ b/Sluift/sluift.h
@@ -0,0 +1,17 @@
+/*
+ * Copyright (c) 2011 Remko Tronçon
+ * Licensed under the GNU General Public License v3.
+ * See Documentation/Licenses/GPLv3.txt for more information.
+ */
+
+#pragma once
+
+#if defined(SLUIFT_BUILD_DLL)
+#define SLUIFT_API __declspec(dllexport)
+#else
+#define SLUIFT_API extern
+#endif
+
+#include "lua.h"
+
+SLUIFT_API int (luaopen_sluift)(lua_State *L);