Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.

1 files changed, 85 insertions, 0 deletions

diff --git a/iup/srclua5/il_matrix_aux.c b/iup/srclua5/il_matrix_aux.c
new file mode 100755
index 0000000..240c837
--- /dev/null
+++ b/iup/srclua5/il_matrix_aux.c
@@ -0,0 +1,85 @@
+/** \file
+ * \brief matrix binding for Lua 5.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "iup.h"
+#include "iupcontrols.h"
+#include <cd.h>
+#include <cdlua.h>
+
+#include "iuplua.h"
+#include "il.h"
+#include "il_controls.h"
+
+static int matrix_draw_cb(Ihandle *self, int p0, int p1, int p2, int p3, int p4, int p5, cdCanvas* cnv)
+{
+  lua_State *L = iuplua_call_start(self, "draw_cb");
+  lua_pushnumber(L, p0);
+  lua_pushnumber(L, p1);
+  lua_pushnumber(L, p2);
+  lua_pushnumber(L, p3);
+  lua_pushnumber(L, p4);
+  lua_pushnumber(L, p5);
+  cdlua_pushcanvas(L, cnv);
+  return iuplua_call(L, 7);
+}
+
+static int matrix_bgcolor_cb(Ihandle *self, int p0, int p1, unsigned int *p2, unsigned int *p3, unsigned int *p4)
+{
+  int ret;
+  lua_State *L = iuplua_call_start(self, "bgcolor_cb");
+  lua_pushnumber(L, p0);
+  lua_pushnumber(L, p1);
+  ret = iuplua_call_raw(L, 2+2, LUA_MULTRET);   /* 2 args + 2 args(errormsg, handle), variable number of returns */
+  if (ret || lua_isnil(L, -1))
+    return IUP_DEFAULT;
+  ret = (int)lua_tonumber(L,-1);
+
+  if (ret == IUP_IGNORE) 
+  {
+    lua_pop(L, 1);
+    return IUP_IGNORE;
+  }
+
+  *p2 = (unsigned int)lua_tonumber(L, -4); 
+  *p3 = (unsigned int)lua_tonumber(L, -3); 
+  *p4 = (unsigned int)lua_tonumber(L, -2); 
+  lua_pop(L, 1);
+  return IUP_DEFAULT;
+}
+
+static int matrix_fgcolor_cb(Ihandle *self, int p0, int p1, unsigned int *p2, unsigned int *p3, unsigned int *p4)
+{
+  int ret;
+  lua_State *L = iuplua_call_start(self, "fgcolor_cb");
+  lua_pushnumber(L, p0);
+  lua_pushnumber(L, p1);
+  ret = iuplua_call_raw(L, 2+2, LUA_MULTRET);   /* 2 args + 2 args(errormsg, handle), variable number of returns */
+  if (ret || lua_isnil(L, -1))
+    return IUP_DEFAULT;
+  ret = (int)lua_tonumber(L,-1);
+
+  if (ret == IUP_IGNORE) 
+  {
+    lua_pop(L, 1);
+    return IUP_IGNORE;
+  }
+
+  *p2 = (unsigned int)lua_tonumber(L, -4); 
+  *p3 = (unsigned int)lua_tonumber(L, -3); 
+  *p4 = (unsigned int)lua_tonumber(L, -2); 
+  lua_pop(L, 1);
+  return IUP_DEFAULT;
+}
+
+void iuplua_matrixfuncs_open (lua_State *L)
+{
+  iuplua_register_cb(L, "BGCOLOR_CB", (lua_CFunction)matrix_bgcolor_cb, NULL);
+  iuplua_register_cb(L, "FGCOLOR_CB", (lua_CFunction)matrix_fgcolor_cb, NULL);
+  iuplua_register_cb(L, "DRAW_CB", (lua_CFunction)matrix_draw_cb, NULL);
+}