plopo

src/te4web.h

+/*
+    TE4 - T-Engine 4
+    Copyright (C) 2009 - 2014 Nicolas Casalini
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+    Nicolas Casalini "DarkGod"
+    darkgod@te4.org
+*/
+#ifndef _TE4_TE4WEB_H_
+#define _TE4_TE4WEB_H_
+
+extern void te4_web_load();
+extern void te4_web_init(lua_State *L);
+extern void te4_web_update(lua_State *L);
+
+#endif
+

src/web.c

+/*
+    TE4 - T-Engine 4
+    Copyright (C) 2009 - 2014 Nicolas Casalini
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+    Nicolas Casalini "DarkGod"
+    darkgod@te4.org
+*/
+
+#include "display.h"
+#include "lua.h"
+#include "lauxlib.h"
+#include "lualib.h"
+#include "auxiliar.h"
+#include "core_lua.h"
+#include "types.h"
+#include "main.h"
+#include "te4web.h"
+#include "web/web-external.h"
+#include "lua_externs.h"
+
+/*
+ * Grab web browser methods -- availabe only here
+ */
+static bool webcore = FALSE;
+static void (*te4_web_setup)(int, char**, char*, void*(*)(), void(*)(void*), void(*)(void*), void(*)(void*), unsigned int (*)(int, int), void (*)(unsigned int), void (*)(unsigned int, int, int, const void*), void (*)(bool*, bool*, bool*, bool*));
+static void (*te4_web_initialize)();
+static void (*te4_web_do_update)(void (*cb)(WebEvent*));
+static void (*te4_web_new)(web_view_type *view, const char *url, int w, int h);
+static bool (*te4_web_close)(web_view_type *view);
+static bool (*te4_web_toscreen)(web_view_type *view, int *w, int *h, unsigned int *tex);
+static bool (*te4_web_loading)(web_view_type *view);
+static void (*te4_web_focus)(web_view_type *view, bool focus);
+static void (*te4_web_inject_mouse_move)(web_view_type *view, int x, int y);
+static void (*te4_web_inject_mouse_wheel)(web_view_type *view, int x, int y);
+static void (*te4_web_inject_mouse_button)(web_view_type *view, int kind, bool up);
+static void (*te4_web_inject_key)(web_view_type *view, int scancode, int asymb, const char *uni, int unilen, bool up);
+static void (*te4_web_download_action)(web_view_type *view, long id, const char *path);
+
+static int lua_web_new(lua_State *L) {
+	int w = luaL_checknumber(L, 1);
+	int h = luaL_checknumber(L, 2);
+	const char* url = luaL_checkstring(L, 3);
+
+	web_view_type *view = (web_view_type*)lua_newuserdata(L, sizeof(web_view_type));
+	auxiliar_setclass(L, "web{view}", -1);
+
+	lua_pushvalue(L, 4);
+	view->handlers = luaL_ref(L, LUA_REGISTRYINDEX);
+
+	te4_web_new(view, url, w, h);
+
+	return 1;
+}
+
+static int lua_web_close(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	if (!te4_web_close(view)) {
+		luaL_unref(L, LUA_REGISTRYINDEX, view->handlers);
+	}
+	return 0;
+}
+
+static int lua_web_toscreen(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	int x = luaL_checknumber(L, 2);
+	int y = luaL_checknumber(L, 3);
+	int w = -1;
+	int h = -1;
+	if (lua_isnumber(L, 4)) w = lua_tonumber(L, 4);
+	if (lua_isnumber(L, 5)) h = lua_tonumber(L, 5);
+	unsigned int tex;
+
+	if (te4_web_toscreen(view, &w, &h, &tex)) {
+		float r = 1, g = 1, b = 1, a = 1;
+
+		glBindTexture(GL_TEXTURE_2D, tex);
+
+		GLfloat texcoords[2*4] = {
+			0, 0,
+			0, 1,
+			1, 1,
+			1, 0,
+		};
+		GLfloat colors[4*4] = {
+			r, g, b, a,
+			r, g, b, a,
+			r, g, b, a,
+			r, g, b, a,
+		};
+		glColorPointer(4, GL_FLOAT, 0, colors);
+		glTexCoordPointer(2, GL_FLOAT, 0, texcoords);
+
+		GLfloat vertices[2*4] = {
+			x, y,
+			x, y + h,
+			x + w, y + h,
+			x + w, y,
+		};
+		glVertexPointer(2, GL_FLOAT, 0, vertices);
+
+		glDrawArrays(GL_QUADS, 0, 4);
+	}
+	return 0;
+}
+
+static int lua_web_loading(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+
+	lua_pushboolean(L, te4_web_loading(view));
+	return 1;
+}
+
+static int lua_web_focus(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	te4_web_focus(view, lua_toboolean(L, 2));
+	return 0;
+}
+
+static int lua_web_inject_mouse_move(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	int x = luaL_checknumber(L, 2);
+	int y = luaL_checknumber(L, 3);
+
+	te4_web_inject_mouse_move(view, x, y);
+	return 0;
+}
+
+static int lua_web_inject_mouse_wheel(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	int x = luaL_checknumber(L, 2);
+	int y = luaL_checknumber(L, 3);
+
+	te4_web_inject_mouse_wheel(view, x, y);
+	return 0;
+}
+
+static int lua_web_inject_mouse_button(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	bool up = lua_toboolean(L, 2);
+	int kind = luaL_checknumber(L, 3);
+
+	te4_web_inject_mouse_button(view, kind, up);
+	return 0;
+}
+
+static int lua_web_inject_key(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	bool up = lua_toboolean(L, 2);
+	int scancode = lua_tonumber(L, 3);
+	int asymb = lua_tonumber(L, 4);
+	const char *uni = NULL;
+	size_t unilen = 0;
+	if (lua_isstring(L, 5)) uni = lua_tolstring(L, 5, &unilen);
+
+	te4_web_inject_key(view, scancode, asymb, uni, unilen, up);
+	return 0;
+}
+
+static int lua_web_download_action(lua_State *L) {
+	web_view_type *view = (web_view_type*)auxiliar_checkclass(L, "web{view}", 1);
+	long id = lua_tonumber(L, 2);
+	if (lua_isstring(L, 3)) te4_web_download_action(view, id, lua_tostring(L, 3));
+	else te4_web_download_action(view, id, NULL);
+	return 0;
+}
+
+static const struct luaL_Reg view_reg[] =
+{
+	{"__gc", lua_web_close},
+	{"downloadAction", lua_web_download_action},
+	{"toScreen", lua_web_toscreen},
+	{"focus", lua_web_focus},
+	{"loading", lua_web_loading},
+	{"injectMouseMove", lua_web_inject_mouse_move},
+	{"injectMouseWheel", lua_web_inject_mouse_wheel},
+	{"injectMouseButton", lua_web_inject_mouse_button},
+	{"injectKey", lua_web_inject_key},
+//	{"setMethod", lua_web_set_method},
+	{NULL, NULL},
+};
+
+static const struct luaL_Reg weblib[] =
+{
+	{"new", lua_web_new},
+	{NULL, NULL},
+};
+
+static lua_State *he_L;
+static void handle_event(WebEvent *event) {
+	switch (event->kind) {
+		case TE4_WEB_EVENT_TITLE_CHANGE:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_title");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushstring(he_L, event->data.title);
+				docall(he_L, 2, 0);
+			} else lua_pop(he_L, 1);
+			break;
+
+		case TE4_WEB_EVENT_REQUEST_POPUP_URL:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_popup");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushstring(he_L, event->data.popup.url);
+				lua_pushnumber(he_L, event->data.popup.w);
+				lua_pushnumber(he_L, event->data.popup.h);
+				docall(he_L, 4, 0);
+			} else lua_pop(he_L, 1);
+			break;
+
+		case TE4_WEB_EVENT_DOWNLOAD_REQUEST:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_download_request");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushnumber(he_L, event->data.download_request.id);
+				lua_pushstring(he_L, event->data.download_request.url);
+				lua_pushstring(he_L, event->data.download_request.name);
+				lua_pushstring(he_L, event->data.download_request.mime);
+				docall(he_L, 5, 0);
+			} else lua_pop(he_L, 1);
+			break;
+
+		case TE4_WEB_EVENT_DOWNLOAD_UPDATE:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_download_update");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushnumber(he_L, event->data.download_update.id);
+				lua_pushnumber(he_L, event->data.download_update.got);
+				lua_pushnumber(he_L, event->data.download_update.total);
+				lua_pushnumber(he_L, event->data.download_update.percent);
+				lua_pushnumber(he_L, event->data.download_update.speed);
+				docall(he_L, 6, 0);
+			} else lua_pop(he_L, 1);
+			break;
+
+		case TE4_WEB_EVENT_DOWNLOAD_FINISH:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_download_finish");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushnumber(he_L, event->data.download_update.id);
+				docall(he_L, 2, 0);
+			} else lua_pop(he_L, 1);
+			break;
+
+		case TE4_WEB_EVENT_LOADING:
+			lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+			lua_pushstring(he_L, "on_loading");
+			lua_gettable(he_L, -2);
+			lua_remove(he_L, -2);
+			if (!lua_isnil(he_L, -1)) {
+				lua_rawgeti(he_L, LUA_REGISTRYINDEX, event->handlers);
+				lua_pushstring(he_L, event->data.loading.url);
+				lua_pushnumber(he_L, event->data.loading.status);
+				docall(he_L, 3, 0);
+			} else lua_pop(he_L, 1);
+			break;
+	}
+}
+
+void te4_web_update(lua_State *L) {
+	if (webcore) {
+		he_L = L;
+		te4_web_do_update(handle_event);
+	}
+}
+
+void te4_web_init(lua_State *L) {
+	if (!webcore) return;
+
+	te4_web_initialize();
+
+	auxiliar_newclass(L, "web{view}", view_reg);
+	luaL_openlib(L, "core.webview", weblib, 0);
+	lua_settop(L, 0);
+}
+
+static void *web_mutex_create() {
+	return (void*)SDL_CreateMutex();
+}
+static void web_mutex_destroy(void *mutex) {
+	SDL_DestroyMutex((SDL_mutex*)mutex);
+}
+static void web_mutex_lock(void *mutex) {
+	SDL_mutexP((SDL_mutex*)mutex);
+}
+static void web_mutex_unlock(void *mutex) {
+	SDL_mutexV((SDL_mutex*)mutex);
+}
+
+static unsigned int web_make_texture(int w, int h) {
+	GLuint tex;
+	glGenTextures(1, &tex);
+	glBindTexture(GL_TEXTURE_2D, tex);
+	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP);
+	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP);
+	GLfloat largest_supported_anisotropy;
+	glGetFloatv(GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT, &largest_supported_anisotropy);
+	glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAX_ANISOTROPY_EXT, largest_supported_anisotropy);
+	unsigned char *buffer = calloc(w * h * 4, sizeof(unsigned char));
+	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, w, h, 0, GL_BGRA, GL_UNSIGNED_BYTE, buffer);
+	free(buffer);
+	return tex;
+}
+static void web_del_texture(unsigned int tex) {
+	GLuint t = tex;
+	glDeleteTextures(1, &t);
+}
+static void web_texture_update(unsigned int tex, int w, int h, const void* buffer) {
+	tglBindTexture(GL_TEXTURE_2D, tex);
+	glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, w, h, GL_BGRA, GL_UNSIGNED_BYTE, buffer);
+}
+
+static void web_key_mods(bool *shift, bool *ctrl, bool *alt, bool *meta) {
+	SDL_Keymod smod = SDL_GetModState();
+
+	*shift = *ctrl = *alt = *meta = FALSE;
+	if (smod & KMOD_SHIFT) *shift = TRUE;
+	if (smod & KMOD_CTRL) *ctrl = TRUE;
+	if (smod & KMOD_ALT) *alt = TRUE;
+	if (smod & KMOD_GUI) *meta = TRUE;
+}
+
+void te4_web_load() {
+#if defined(SELFEXE_LINUX)
+	void *web = SDL_LoadObject("libte4-web.so");
+#elif defined(SELFEXE_BSD)
+	void *web = SDL_LoadObject("libte4-web.so");
+#elif defined(SELFEXE_WINDOWS)
+	void *web = SDL_LoadObject("te4-web.dll");
+#elif defined(SELFEXE_MACOSX)
+	void *web = SDL_LoadObject("libte4-web.dylib");
+#else
+	void *web = NULL;
+#endif
+	printf("Loading web core: %s\n", web ? "loaded!" : SDL_GetError());
+
+	if (web) {
+		webcore = TRUE;
+		te4_web_setup = (void (*)(int, char**, char*, void*(*)(), void(*)(void*), void(*)(void*), void(*)(void*), unsigned int (*)(int, int), void (*)(unsigned int), void (*)(unsigned int, int, int, const void*), void (*)(bool*, bool*, bool*, bool*) )) SDL_LoadFunction(web, "te4_web_setup");
+		te4_web_initialize = (void (*)()) SDL_LoadFunction(web, "te4_web_initialize");
+		te4_web_do_update = (void (*)(void (*cb)(WebEvent*))) SDL_LoadFunction(web, "te4_web_do_update");
+		te4_web_new = (void (*)(web_view_type *view, const char *url, int w, int h)) SDL_LoadFunction(web, "te4_web_new");
+		te4_web_close = (bool (*)(web_view_type *view)) SDL_LoadFunction(web, "te4_web_close");
+		te4_web_toscreen = (bool (*)(web_view_type *view, int *w, int *h, unsigned int *tex)) SDL_LoadFunction(web, "te4_web_toscreen");
+		te4_web_loading = (bool (*)(web_view_type *view)) SDL_LoadFunction(web, "te4_web_loading");
+		te4_web_focus = (void (*)(web_view_type *view, bool focus)) SDL_LoadFunction(web, "te4_web_focus");
+		te4_web_inject_mouse_move = (void (*)(web_view_type *view, int x, int y)) SDL_LoadFunction(web, "te4_web_inject_mouse_move");
+		te4_web_inject_mouse_wheel = (void (*)(web_view_type *view, int x, int y)) SDL_LoadFunction(web, "te4_web_inject_mouse_wheel");
+		te4_web_inject_mouse_button = (void (*)(web_view_type *view, int kind, bool up)) SDL_LoadFunction(web, "te4_web_inject_mouse_button");
+		te4_web_inject_key = (void (*)(web_view_type *view, int scancode, int asymb, const char *uni, int unilen, bool up)) SDL_LoadFunction(web, "te4_web_inject_key");
+		te4_web_download_action = (void (*)(web_view_type *view, long id, const char *path)) SDL_LoadFunction(web, "te4_web_download_action");
+
+		te4_web_setup(
+			g_argc, g_argv, NULL,
+			web_mutex_create, web_mutex_destroy, web_mutex_lock, web_mutex_unlock,
+			web_make_texture, web_del_texture, web_texture_update,
+			web_key_mods
+			);
+	}
+}

src/web/web-external.h

+/*
+    TE4 - T-Engine 4
+    Copyright (C) 2009, 2010, 2011, 2012, 2013 Nicolas Casalini
+
+    No permission to copy or replicate in any ways.
+*/
+
+#ifndef __TE4WEB_EXTERNAL_H__
+#define __TE4WEB_EXTERNAL_H__
+
+enum web_event_kind {
+	TE4_WEB_EVENT_TITLE_CHANGE,
+	TE4_WEB_EVENT_REQUEST_POPUP_URL,
+	TE4_WEB_EVENT_DOWNLOAD_REQUEST,
+	TE4_WEB_EVENT_DOWNLOAD_UPDATE,
+	TE4_WEB_EVENT_DOWNLOAD_FINISH,
+	TE4_WEB_EVENT_LOADING,
+};
+
+typedef struct {
+	enum web_event_kind kind;
+	int handlers;
+	union {
+		const char *title;
+		struct {
+			const char *url;
+			int w, h;
+		} popup;
+		struct {
+			long id;
+			const char *url;
+			const char *mime;
+			const char *name;
+		} download_request;
+		struct {
+			long id;
+			long total, got, speed;
+			int percent;
+		} download_update;
+		struct {
+			long id;
+		} download_finish;
+		struct {
+			const char *url;
+			signed char status;
+		} loading;
+	} data;
+} WebEvent;
+
+typedef struct {
+	void *opaque;
+	int w, h;
+	int last_mouse_x, last_mouse_y;
+	int handlers;
+	bool closed;
+} web_view_type;
+
+#endif

src/web/web-internal.h

+/*
+    TE4 - T-Engine 4
+    Copyright (C) 2009, 2010, 2011, 2012, 2013 Nicolas Casalini
+
+    No permission to copy or replicate in any ways.
+*/
+
+#ifndef __TE4WEB_INTERNAL_H__
+#define __TE4WEB_INTERNAL_H__
+
+extern void te4_web_init_utils();
+
+extern void push_order(WebEvent *event);
+extern WebEvent *pop_order();
+extern void push_event(WebEvent *event);
+extern WebEvent *pop_event();
+
+extern void *(*web_mutex_create)();
+extern void (*web_mutex_destroy)(void *mutex);
+extern void (*web_mutex_lock)(void *mutex);
+extern void (*web_mutex_unlock)(void *mutex);
+
+#endif

src/web/web-utils.cpp

+/*
+    TE4 - T-Engine 4
+    Copyright (C) 2009, 2010, 2011, 2012, 2013 Nicolas Casalini
+
+    No permission to copy or replicate in any ways, awesomium is not gpl so we cant link directly
+*/
+
+extern "C" {
+#include <stdio.h>
+#include "web-external.h"
+}
+
+#include "web.h"
+#include "web-internal.h"
+
+#include <vector>
+
+static std::vector<WebEvent*> *iqueue = new std::vector<WebEvent*>;
+static std::vector<WebEvent*> *oqueue = new std::vector<WebEvent*>;
+static void *lock_iqueue = NULL;
+static void *lock_oqueue = NULL;
+
+void te4_web_init_utils() {
+	if (!lock_iqueue) lock_iqueue = web_mutex_create();
+	if (!lock_oqueue) lock_oqueue = web_mutex_create();
+}
+
+void push_order(WebEvent *event)
+{
+	if (!lock_iqueue) return;
+	web_mutex_lock(lock_iqueue);
+	iqueue->push_back(event);
+	web_mutex_unlock(lock_iqueue);
+}
+
+WebEvent *pop_order()
+{
+	if (!lock_iqueue) return NULL;
+	WebEvent *event = NULL;
+
+	web_mutex_lock(lock_iqueue);
+	if (!iqueue->empty()) {
+		event = iqueue->back();
+		iqueue->pop_back();
+	}
+	web_mutex_unlock(lock_iqueue);
+
+	return event;
+}
+
+void push_event(WebEvent *event)
+{
+	if (!lock_oqueue) return;
+	web_mutex_lock(lock_oqueue);
+	oqueue->push_back(event);
+	web_mutex_unlock(lock_oqueue);
+}
+
+WebEvent *pop_event()
+{
+	if (!lock_oqueue) return NULL;
+	WebEvent *event = NULL;
+
+	web_mutex_lock(lock_oqueue);
+	if (!oqueue->empty()) {
+		event = oqueue->back();
+		oqueue->pop_back();
+	}
+	web_mutex_unlock(lock_oqueue);
+
+	return event;
+}
+