From 23a1f25130ebe17a4bf7939487942e950195e33f Mon Sep 17 00:00:00 2001
From: Přemysl Janouch <p.janouch@gmail.com>
Date: Sat, 25 Sep 2010 16:55:07 +0200
Subject: Created LdLua class.

---
 src/ld-lua.c | 105 ++++++++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 79 insertions(+), 26 deletions(-)

(limited to 'src/ld-lua.c')

diff --git a/src/ld-lua.c b/src/ld-lua.c
index 9bf0e76..e5b6c78 100644
--- a/src/ld-lua.c
+++ b/src/ld-lua.c
@@ -16,12 +16,17 @@
 #include "config.h"
 
 #include "ld-library.h"
+#include "ld-symbol-category.h"
 #include "ld-lua.h"
 
 
-/* TODO */
-/* A virtual superclass can be made for this. */
-
+/**
+ * SECTION:ld-lua
+ * @short_description: Lua symbol engine.
+ * @see_also: #LdSymbol
+ *
+ * #LdLua is a symbol engine that uses Lua scripts to manage symbols.
+ */
 /* Lua state belongs to the library.
  * One Lua file should be able to register multiple symbols.
  */
@@ -36,12 +41,25 @@
  *
  */
 
-static void *
-ld_lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize);
+/*
+ * LdLuaPrivate:
+ * @L: Lua state.
+ *
+ * The library contains the real function for rendering.
+ */
+struct _LdLuaPrivate
+{
+	lua_State *L;
+};
 
+G_DEFINE_TYPE (LdLua, ld_lua, G_TYPE_OBJECT);
+
+static void ld_lua_finalize (GObject *gobject);
+
+static void *ld_lua_alloc (void *ud, void *ptr, size_t osize, size_t nsize);
 
-static int
-ld_lua_logdiag_register (lua_State *L);
+
+static int ld_lua_logdiag_register (lua_State *L);
 
 static luaL_Reg ld_lua_logdiag_lib[] =
 {
@@ -50,18 +68,12 @@ static luaL_Reg ld_lua_logdiag_lib[] =
 };
 
 
-static int
-ld_lua_cairo_move_to (lua_State *L);
-static int
-ld_lua_cairo_line_to (lua_State *L);
-static int
-ld_lua_cairo_stroke (lua_State *L);
-static int
-ld_lua_cairo_stroke_preserve (lua_State *L);
-static int
-ld_lua_cairo_fill (lua_State *L);
-static int
-ld_lua_cairo_fill_preserve (lua_State *L);
+static int ld_lua_cairo_move_to (lua_State *L);
+static int ld_lua_cairo_line_to (lua_State *L);
+static int ld_lua_cairo_stroke (lua_State *L);
+static int ld_lua_cairo_stroke_preserve (lua_State *L);
+static int ld_lua_cairo_fill (lua_State *L);
+static int ld_lua_cairo_fill_preserve (lua_State *L);
 
 static luaL_Reg ld_lua_cairo_table[] =
 {
@@ -74,15 +86,30 @@ static luaL_Reg ld_lua_cairo_table[] =
 	{NULL, NULL}
 };
 
+
 /* ===== Generic =========================================================== */
 
-lua_State *
-ld_lua_init (void)
+static void
+ld_lua_class_init (LdLuaClass *klass)
+{
+	GObjectClass *object_class;
+
+	object_class = G_OBJECT_CLASS (klass);
+	object_class->finalize = ld_lua_finalize;
+
+	g_type_class_add_private (klass, sizeof (LdLuaPrivate));
+}
+
+static void
+ld_lua_init (LdLua *self)
 {
 	lua_State *L;
 
-	L = lua_newstate (ld_lua_alloc, NULL);
-	g_return_val_if_fail (L != NULL, NULL);
+	self->priv = G_TYPE_INSTANCE_GET_PRIVATE
+		(self, LD_TYPE_LUA, LdLuaPrivate);
+
+	L = self->priv->L = lua_newstate (ld_lua_alloc, NULL);
+	g_return_if_fail (L != NULL);
 
 	/* TODO: lua_atpanic () */
 
@@ -100,10 +127,29 @@ ld_lua_init (void)
 	luaL_register (L, "logdiag", ld_lua_logdiag_lib);
 }
 
-void
-ld_lua_destroy (lua_State *L)
+static void
+ld_lua_finalize (GObject *gobject)
 {
-	lua_close (L);
+	LdLua *self;
+
+	self = LD_LUA (gobject);
+	lua_close (self->priv->L);
+
+	/* Chain up to the parent class. */
+	G_OBJECT_CLASS (ld_lua_parent_class)->finalize (gobject);
+}
+
+/**
+ * ld_lua_new:
+ * @library: A library object.
+ * @filename: The file from which the symbol will be loaded.
+ *
+ * Load a symbol from a file into the library.
+ */
+LdLua *
+ld_lua_new (void)
+{
+	return g_object_new (LD_TYPE_LUA, NULL);
 }
 
 static void *
@@ -134,6 +180,7 @@ ld_lua_logdiag_register (lua_State *L)
 	/* TODO: Push a function. */
 	lua_call (L, 1, 0);
 #endif /* 0 */
+	return 0;
 }
 
 /* ===== Cairo ============================================================= */
@@ -147,6 +194,11 @@ push_cairo_object (lua_State *L, cairo_t *cr)
 	lua_newtable (L);
 
 	/* Add methods. */
+	/* XXX: The light user data pointer gets invalid after the end of
+	 *      "render" function invocation. If the script stores the "cr" object
+	 *      in some global variable and then tries to reuse it the next time,
+	 *      the application will go SIGSEGV.
+	 */
 	for (fn = ld_lua_cairo_table; fn->name; fn++)
 	{
 		lua_pushlightuserdata (L, cr);
@@ -155,6 +207,7 @@ push_cairo_object (lua_State *L, cairo_t *cr)
 	}
 }
 
+/* TODO: Implement the functions. */
 static int
 ld_lua_cairo_move_to (lua_State *L)
 {
-- 
cgit v1.2.3-54-g00ecf