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

1 files changed, 132 insertions, 0 deletions

diff --git a/iup/srclua5/il_mask.c b/iup/srclua5/il_mask.c
new file mode 100755
index 0000000..f471242
--- /dev/null
+++ b/iup/srclua5/il_mask.c
@@ -0,0 +1,132 @@
+/** \file
+ * \brief iupmask binding for Lua 5.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "iup.h"
+#include "iupmask.h"
+
+#include "iuplua.h"
+#include "il.h"
+#include "il_controls.h"
+
+
+static int cfMaskRemove (lua_State *L)
+{
+  iupmaskRemove(iuplua_checkihandle(L,1));
+  return 0;
+}
+
+static int cfMaskMatRemove(lua_State *L)
+{
+  iupmaskMatRemove(iuplua_checkihandle(L,1),
+                   luaL_checkint(L,2),
+                   luaL_checkint(L,3));
+  return 0;
+}
+
+static int cfMaskSet (lua_State *L)
+{
+  iupmaskSet(iuplua_checkihandle(L,1),
+             (char*)luaL_checkstring(L,2),
+             luaL_checkint(L,3),
+             luaL_checkint(L,4));
+  return 0;
+}
+
+static int cfMaskMatSet(lua_State *L)
+{
+  iupmaskMatSet(iuplua_checkihandle(L,1),
+                (char*)luaL_checkstring(L,2),
+                luaL_checkint(L,3),
+                luaL_checkint(L,4),
+                luaL_checkint(L,5),
+                luaL_checkint(L,6));
+  return 0;
+}
+
+static int cfMaskSetInt(lua_State *L)
+{
+  iupmaskSetInt(iuplua_checkihandle(L,1),
+                luaL_checkint(L,2),
+                luaL_checkint(L,3),
+                luaL_checkint(L,4));
+  return 0;
+}
+
+static int cfMaskSetFloat(lua_State *L)
+{
+  iupmaskSetFloat(iuplua_checkihandle(L,1),
+                  luaL_checkint(L,2),
+                  (float)luaL_checknumber(L,3),
+                  (float)luaL_checknumber(L,4));
+  return 0;
+}
+
+static int cfMaskMatSetInt (lua_State *L)
+{
+  iupmaskMatSetInt(iuplua_checkihandle(L,1),
+                   luaL_checkint(L,2),
+                   luaL_checkint(L,3),
+                   luaL_checkint(L,4),
+                   luaL_checkint(L,5),
+                   luaL_checkint(L,6));
+  return 0;
+}
+
+static int cfMaskMatSetFloat (lua_State *L)
+{
+  iupmaskMatSetFloat(iuplua_checkihandle(L,1),
+                     luaL_checkint(L,2),
+                     (float)luaL_checknumber(L,3),
+                     (float)luaL_checknumber(L,4),
+                     luaL_checkint(L,5),
+                     luaL_checkint(L,6));
+  return 0;
+}
+
+static int cfMaskCheck (lua_State *L)
+{
+  iupmaskCheck(iuplua_checkihandle(L,1));
+  return 0;
+}
+
+static int cfMaskMatCheck (lua_State *L)
+{
+  iupmaskMatCheck(iuplua_checkihandle(L,1),
+                  luaL_checkint(L,2),
+                  luaL_checkint(L,3));
+  return 0;
+}
+
+static int match_cb (Ihandle *handle)
+{
+  lua_State *L = iuplua_call_start(handle, "match_cb");
+  return iuplua_call(L, 0);
+}
+
+void iupmasklua_open(lua_State *L)
+{
+  iuplua_regstring(L, IUP_MASK_FLOAT, "MASK_FLOAT");
+  iuplua_regstring(L, IUP_MASK_UFLOAT, "MASK_UFLOAT");
+  iuplua_regstring(L, IUP_MASK_EFLOAT, "MASK_EFLOAT");
+  iuplua_regstring(L, IUP_MASK_INT, "MASK_INT");
+  iuplua_regstring(L, IUP_MASK_UINT, "MASK_UINT");
+
+  iuplua_register(L, cfMaskRemove, "maskRemove");
+  iuplua_register(L, cfMaskMatRemove, "maskMatRemove");
+  iuplua_register(L, cfMaskSet, "maskSet");
+  iuplua_register(L, cfMaskMatSet, "maskMatSet");
+  iuplua_register(L, cfMaskSetInt, "maskSetInt");
+  iuplua_register(L, cfMaskSetFloat, "maskSetFloat");
+  iuplua_register(L, cfMaskMatSetInt, "maskMatSetInt");
+  iuplua_register(L, cfMaskMatSetFloat, "maskMatSetFloat");
+  iuplua_register(L, cfMaskCheck, "maskCheck");
+  iuplua_register(L, cfMaskMatCheck, "maskMatCheck");
+
+  iuplua_register_cb(L, "MATCH_CB", (lua_CFunction)match_cb, NULL);
+}