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

1 files changed, 138 insertions, 0 deletions

diff --git a/iup/srclua3/il_mask.c b/iup/srclua3/il_mask.c
new file mode 100755
index 0000000..7f44090
--- /dev/null
+++ b/iup/srclua3/il_mask.c
@@ -0,0 +1,138 @@
+/** \file
+ * \brief Bindig of iupmask to Lua 3.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <stdlib.h>
+
+#include "iup.h"
+#include "iupmask.h"
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "iuplua.h"
+#include "il.h"
+#include "il_controls.h"
+
+
+static void cfMaskSet (void)
+{
+  iupmaskSet(iuplua_checkihandle(1), 
+             luaL_check_string(2), 
+             luaL_check_int(3), 
+             luaL_check_int(4));
+}
+
+static void cfMaskRemove (void)
+{
+  iupmaskRemove(iuplua_checkihandle(1));
+}
+
+static void cfMaskMatSet(void)
+{
+  iupmaskMatSet(iuplua_checkihandle(1),
+                luaL_check_string(2),
+                luaL_check_int(3),
+                luaL_check_int(4),
+                luaL_check_int(5),
+                luaL_check_int(6));
+
+}
+
+static void cfMaskMatRemove(void)
+{
+  iupmaskMatRemove(iuplua_checkihandle(1),
+                   luaL_check_int(2),
+                   luaL_check_int(3));
+
+}
+
+static void cfMaskSetInt(void)
+{
+  iupmaskSetInt(iuplua_checkihandle(1),
+                luaL_check_int(2),
+                luaL_check_int(3),
+                luaL_check_int(4));
+
+}
+
+static void cfMaskSetFloat(void) 
+{
+  iupmaskSetFloat(iuplua_checkihandle(1),
+                  luaL_check_int(2),
+                  (float)luaL_check_number(3),
+                  (float)luaL_check_number(4));
+
+      
+}
+
+static void cfMaskMatSetInt (void)
+{
+  iupmaskMatSetInt(iuplua_checkihandle(1),
+                   luaL_check_int(2),
+                   luaL_check_int(3),
+                   luaL_check_int(4),
+                   luaL_check_int(5),
+                   luaL_check_int(6));
+
+}
+
+static void cfMaskMatSetFloat (void)
+{
+  iupmaskMatSetFloat(iuplua_checkihandle(1),
+                     luaL_check_int(2),
+                     (float)luaL_check_number(3),
+                     (float)luaL_check_number(4),
+                     luaL_check_int(5),
+                     luaL_check_int(6));
+}
+
+static void cfMaskCheck (void)
+{
+  iupmaskCheck(iuplua_checkihandle(1));
+}
+
+static void cfMaskMatCheck (void)
+{
+  iupmaskMatCheck(iuplua_checkihandle(1),
+                  luaL_check_int(2),
+                  luaL_check_int(3));
+}
+
+static int match_cb (Ihandle *handle)
+{
+  iuplua_call_start(handle, "match_cb");
+  return iuplua_call();
+}
+
+
+int masklua_open(void)
+{
+  iuplua_regstring_mask(IUP_MASK_FLOAT, "IUPMASK_FLOAT");
+  iuplua_regstring_mask(IUP_MASK_UFLOAT, "IUPMASK_UFLOAT");
+  iuplua_regstring_mask(IUP_MASK_EFLOAT, "IUPMASK_EFLOAT");
+  iuplua_regstring_mask(IUP_MASK_INT, "IUPMASK_INT");
+  iuplua_regstring_mask(IUP_MASK_UINT, "IUPMASK_UINT");
+  iuplua_regstring(IUP_MASK_FLOAT, "IUP_MASK_FLOAT");
+  iuplua_regstring(IUP_MASK_UFLOAT, "IUP_MASK_UFLOAT");
+  iuplua_regstring(IUP_MASK_EFLOAT, "IUP_MASK_EFLOAT");
+  iuplua_regstring(IUP_MASK_INT, "IUP_MASK_INT");
+  iuplua_regstring(IUP_MASK_UINT, "IUP_MASK_UINT");
+
+  iuplua_register("iupmaskRemove", cfMaskRemove);
+  iuplua_register("iupmaskMatRemove", cfMaskMatRemove);
+  iuplua_register("iupmaskSet", cfMaskSet);
+  iuplua_register("iupmaskMatSet", cfMaskMatSet);
+  iuplua_register("iupmaskSetInt", cfMaskSetInt);
+  iuplua_register("iupmaskSetFloat", cfMaskSetFloat);
+  iuplua_register("iupmaskMatSetInt", cfMaskMatSetInt);
+  iuplua_register("iupmaskMatSetFloat", cfMaskMatSetFloat);
+  iuplua_register("iupmaskCheck", cfMaskCheck);
+  iuplua_register("iupmaskMatCheck", cfMaskMatCheck);
+
+  lua_register("iup_match_cb", (lua_CFunction)match_cb);
+
+  return lua_dostring("iup_callbacks.match_cb = {\"MATCH_CB\", iup_match_cb}");
+}