1 files changed, 308 insertions, 0 deletions
diff --git a/iup/srclua3/il_matrix.c b/iup/srclua3/il_matrix.c
new file mode 100755
index 0000000..21bb8ce
--- /dev/null
+++ b/iup/srclua3/il_matrix.c
@@ -0,0 +1,308 @@
+/** \file
+ * \brief Bindig of iupmatrix to Lua 3.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <stdlib.h>
+
+#include "iup.h"
+#include "iupcontrols.h"
+
+#include <cd.h>
+
+#include <lua.h>
+
+#include <cdlua.h>
+
+#include "iuplua.h"
+#include "il.h"
+#include "il_controls.h"
+
+
+static int MATRIX_draw(Ihandle *handle, int lin, int col, 
+                                        int x1, int x2, int y1, int y2, cdCanvas* cnv)
+{
+  iuplua_call_start(handle, "draw");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushnumber(x1);
+  lua_pushnumber(x2);
+  lua_pushnumber(y1);
+  lua_pushnumber(y2);
+  cdlua_pushcanvas(cnv);
+  return iuplua_call();
+}
+
+static int MATRIX_action (Ihandle *handle, int c, int lin, int col, int active, char *after)
+{
+  iuplua_call_start(handle, "action");
+  lua_pushnumber(c);
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushnumber(active);
+  lua_pushstring(after);
+  return iuplua_call();
+}
+
+static int MATRIX_edition (Ihandle *handle, int lin, int col, int modo, int update)
+{
+  iuplua_call_start(handle, "edition");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushnumber(modo);
+  lua_pushnumber(update);
+  return iuplua_call();
+}
+
+static int MATRIX_dropcheck (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "dropcheck");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_markedit_cb (Ihandle *handle, int lin, int col, int marked)
+{
+  iuplua_call_start(handle, "markedit_cb");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushnumber(marked);
+  return iuplua_call();
+}
+
+static int MATRIX_mark_cb (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "mark_cb");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_drop (Ihandle *handle, Ihandle *drop, int lin, int col)
+{
+  iuplua_regihandle(drop);
+  iuplua_call_start(handle, "drop");
+  iuplua_pushihandle_cb(drop);
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_dropselect (Ihandle *handle, int lin, int col,
+                              Ihandle *list, char *t, int i, int v)
+{
+  iuplua_regihandle(list);
+  iuplua_call_start(handle, "dropselect");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  iuplua_pushihandle_cb(list);
+  lua_pushstring(t);
+  lua_pushnumber(i);
+  lua_pushnumber(v);
+  return iuplua_call();
+}
+
+static int MATRIX_enteritem (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "enteritem");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_leaveitem (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "leaveitem");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_mousemove (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "mousemove");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_click (Ihandle *handle, int lin, int col, char *r)
+{
+  iuplua_call_start(handle, "click");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushstring(r);
+  return iuplua_call();
+}
+
+static int MATRIX_release_cb (Ihandle *handle, int lin, int col, char *r)
+{
+  iuplua_call_start(handle, "release_cb");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushstring(r);
+  return iuplua_call();
+}
+
+static int MATRIX_scrolltop (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "scrolltop");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int MATRIX_color(Ihandle *handle, char* name, int lin, int col, unsigned int *red, unsigned int *green, unsigned int *blue)
+{
+  lua_Object obj;
+  iuplua_call_start(handle, name);
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  if (lua_call ("iupCallMethod"))
+  {
+    lua_endblock ();
+    return IUP_IGNORE;
+  }
+  obj = lua_getresult (1);
+  if (obj == LUA_NOOBJECT)
+  {
+    lua_endblock ();
+    return IUP_IGNORE;
+  }
+  else if (lua_isnumber (obj))
+  {
+    int ret;
+    *red = (unsigned int)lua_getnumber (obj);
+
+    obj = lua_getresult (2);
+    if (obj == LUA_NOOBJECT || !lua_isnumber (obj))
+    {
+      lua_endblock ();
+      return IUP_IGNORE;
+    }
+    *green = (unsigned int)lua_getnumber (obj);
+
+    obj = lua_getresult (3);
+    if (obj == LUA_NOOBJECT || !lua_isnumber (obj))
+    {
+      lua_endblock ();
+      return IUP_IGNORE;
+    }
+    *blue = (unsigned int)lua_getnumber (obj);
+
+    obj = lua_getresult (4);
+    if (obj == LUA_NOOBJECT || !lua_isnumber (obj))
+    {
+      lua_endblock ();
+      return IUP_DEFAULT;
+    }
+    ret = (int)lua_getnumber (obj);
+    lua_endblock ();
+    return ret;
+  }
+
+  lua_endblock ();
+  return IUP_IGNORE;
+}
+
+static int MATRIX_fgcolor(Ihandle *handle, int lin, int col, unsigned int *red, unsigned int *green, unsigned int *blue)
+{
+  return MATRIX_color(handle, "fgcolorcb", lin, col, red, green, blue);
+}
+
+static int MATRIX_bgcolor(Ihandle *handle, int lin, int col, unsigned int *red, unsigned int *green, unsigned int *blue)
+{
+  return MATRIX_color(handle, "bgcolorcb", lin, col, red, green, blue);
+}
+
+static char* MATRIX_value (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "valuecb");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call_rs();
+}
+
+static int MATRIX_value_edit (Ihandle *handle, int lin, int col, char* val)
+{
+  iuplua_call_start(handle, "value_edit");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  lua_pushstring(val);
+  return iuplua_call();
+}
+
+static char* MATRIX_font_cb (Ihandle *handle, int lin, int col)
+{
+  iuplua_call_start(handle, "font_cb");
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+  return iuplua_call_rs();
+}
+
+static void CreateMatrix(void)
+{
+  int tag = (int)lua_getnumber(lua_getglobal("iuplua_tag"));
+  lua_pushusertag(IupMatrix(NULL), tag);
+}
+
+int matrixlua_open(void)
+{
+  struct AssocList {
+    char *name;
+    lua_CFunction func;
+  } MatAssocList [] = {
+    {"iup_mat_action_cb", (lua_CFunction)MATRIX_action},
+    {"iup_mat_edition_cb", (lua_CFunction)MATRIX_edition},
+    {"iup_mat_enteritem_cb", (lua_CFunction)MATRIX_enteritem},
+    {"iup_mat_drop_cb", (lua_CFunction)MATRIX_drop},
+    {"iup_mat_dropselect_cb", (lua_CFunction)MATRIX_dropselect},
+    {"iup_mat_leaveitem_cb", (lua_CFunction)MATRIX_leaveitem},
+    {"iup_mat_click_cb", (lua_CFunction)MATRIX_click},
+    {"iup_mat_release_cb", (lua_CFunction)MATRIX_release_cb},
+    {"iup_mat_mousemove_cb", (lua_CFunction)MATRIX_mousemove},
+    {"iup_mat_scrolltop_cb", (lua_CFunction)MATRIX_scrolltop},
+    {"iup_mat_fgcolor_cb", (lua_CFunction)MATRIX_fgcolor},
+    {"iup_mat_bgcolor_cb", (lua_CFunction)MATRIX_bgcolor},
+    {"iup_mat_draw_cb", (lua_CFunction)MATRIX_draw},
+    {"iup_mat_dropcheck_cb", (lua_CFunction)MATRIX_dropcheck},
+    {"iup_mat_font_cb", (lua_CFunction)MATRIX_font_cb},
+    {"iup_mat_value_cb", (lua_CFunction)MATRIX_value},
+    {"iup_mat_value_edit_cb", (lua_CFunction)MATRIX_value_edit},
+    {"iup_mat_mark_cb", (lua_CFunction)MATRIX_mark_cb},
+    {"iup_mat_markedit_cb", (lua_CFunction)MATRIX_markedit_cb}
+  };
+  int SizeMatAssocList = (sizeof(MatAssocList)/sizeof(struct AssocList));
+  int i;
+
+  lua_register("iupCreateMatrix", CreateMatrix);
+
+  for (i = 0; i < SizeMatAssocList; i++)
+    lua_register(MatAssocList[i].name, MatAssocList[i].func);
+
+#ifdef IUPLUA_USELOH
+#ifdef TEC_BIGENDIAN
+#ifdef TEC_64
+#include "loh/matrix_be64.loh"
+#else
+#include "loh/matrix_be32.loh"
+#endif  
+#else
+#ifdef TEC_64
+#ifdef WIN64
+#include "loh/matrix_le64w.loh"
+#else
+#include "loh/matrix_le64.loh"
+#endif  
+#else
+#include "loh/matrix.loh"
+#endif  
+#endif  
+#else
+  iuplua_dofile("luamatrix.lua");
+#endif
+
+  return 1;
+}