From d577d991b97ae2b5ee1af23641bcffc3f83af5b2 Mon Sep 17 00:00:00 2001
From: Pixel <pixel@nobis-crew.org>
Date: Wed, 4 Nov 2009 11:56:41 -0800
Subject: Initial import. Contains the im, cd and iup librairies, and a
 "working" Makefile for them under linux.

---
 iup/srclua3/il_spin.c | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100755 iup/srclua3/il_spin.c

(limited to 'iup/srclua3/il_spin.c')

diff --git a/iup/srclua3/il_spin.c b/iup/srclua3/il_spin.c
new file mode 100755
index 0000000..6319c51
--- /dev/null
+++ b/iup/srclua3/il_spin.c
@@ -0,0 +1,66 @@
+/** \file
+ * \brief Bindig of iupspin to Lua 3.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <stdlib.h>
+
+#include "iup.h"
+
+#include <lua.h>
+
+#include "iuplua.h"
+#include "il.h"
+#include "il_controls.h"
+
+
+static int SPIN_spin_cb (Ihandle *handle, int v)
+{
+  iuplua_call_start(handle, "spincb");
+  lua_pushnumber(v);
+  return iuplua_call();
+}
+
+static void CreateSpin(void)
+{
+  int tag = (int)lua_getnumber(lua_getglobal("iuplua_tag"));
+  lua_pushusertag(IupSpin(), tag);
+}
+
+static void CreateSpinbox(void)
+{
+  int tag = (int)lua_getnumber(lua_getglobal("iuplua_tag"));
+  lua_pushusertag(IupSpinbox(iuplua_checkihandle(1)), tag);
+}
+
+int spinlua_open(void)
+{
+  lua_register("iupCreateSpin", CreateSpin);
+  lua_register("iupCreateSpinbox", CreateSpinbox);
+  lua_register("iup_spin_cb", (lua_CFunction)SPIN_spin_cb);
+
+#ifdef IUPLUA_USELOH
+#ifdef TEC_BIGENDIAN
+#ifdef TEC_64
+#include "loh/spin_be64.loh"
+#else
+#include "loh/spin_be32.loh"
+#endif  
+#else
+#ifdef TEC_64
+#ifdef WIN64
+#include "loh/spin_le64w.loh"
+#else
+#include "loh/spin_le64.loh"
+#endif  
+#else
+#include "loh/spin.loh"
+#endif  
+#endif  
+#else
+  iuplua_dofile("luaspin.lua");
+#endif
+
+  return 1;
+}
-- 
cgit v1.2.3