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/srcconsole/iup_lua3.c | 128 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100755 iup/srcconsole/iup_lua3.c

(limited to 'iup/srcconsole/iup_lua3.c')

diff --git a/iup/srcconsole/iup_lua3.c b/iup/srcconsole/iup_lua3.c
new file mode 100755
index 0000000..aef041b
--- /dev/null
+++ b/iup/srcconsole/iup_lua3.c
@@ -0,0 +1,128 @@
+/** \file
+ * \brief Creates a Lua executable linked to all standard IUP libraries
+ * If user does not provide arguments environment variable 
+ * "console3.lua" will be searched. And if fails
+ * internal Lua code will be executed to provide a basic interface
+ * for the user.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+#include "lua.h"
+#include "lualib.h"   
+#include "luadebug.h"
+
+#include "iup.h"
+#include "iupkey.h"
+#include "iuplua.h"
+
+#ifndef IUPLUA_NO_GL
+#include "iupgl.h"
+#include "iupluagl.h"
+#endif
+
+#ifndef IUPLUA_NO_CD
+#include "iupcontrols.h"
+#include "iupluacontrols.h"
+#include "iup_pplot.h"
+#include "iuplua_pplot.h"
+#include <cd.h>
+#include <cdlua.h>
+#include <cdluaiup.h>
+#endif
+
+#ifndef IUPLUA_NO_IM
+#include "iupluaim.h"
+#include <imlua.h>
+#endif
+
+int main ( int argc, char **argv )
+{
+  IupOpen(&argc, &argv);
+#ifndef IUPLUA_NO_GL
+  IupGLCanvasOpen(); 
+#endif
+#ifndef IUPLUA_NO_CD
+  IupControlsOpen();
+  IupPPlotOpen();
+#endif
+
+  lua_open();
+
+  lua_setdebug(1);
+
+  lua_iolibopen( );
+  lua_strlibopen( );
+  lua_mathlibopen( );  
+  
+  iuplua_open( );
+  iupkey_open( );
+#ifndef IUPLUA_NO_GL
+  iupgllua_open();
+#endif
+#ifndef IUPLUA_NO_CD
+  iupcontrolslua_open();
+  iup_pplotlua_open();
+  cdlua_open();
+  cdluaiup_open();
+#endif
+#ifndef IUPLUA_NO_IM
+  iupimlua_open();
+  imlua_open();
+#endif
+
+  if (argc <= 1) 
+  {
+    if(!iuplua_dofile("console3.lua"))
+    {
+#ifdef TEC_BIGENDIAN
+#ifdef TEC_64
+#include "loh/console3_be64.loh"
+#else
+#include "loh/console3_be32.loh"
+#endif  
+#else
+#ifdef TEC_64
+#ifdef WIN64
+#include "loh/console3_le64w.loh"
+#else
+#include "loh/console3_le64.loh"
+#endif  
+#else
+#include "loh/console3.loh"
+#endif  
+#endif  
+    }
+  }
+  else
+  {
+    int ok = 1,
+        i  = 1;
+
+    /* Running all .lua given as arguments */
+    while(ok & (i < argc))
+    {
+      ok = iuplua_dofile(argv[i]);
+      i++;
+    }
+
+    if(!ok)
+    {
+      return EXIT_FAILURE;
+    }
+  }
+
+#ifndef IUPLUA_NO_CD
+  cdlua_close();
+  IupControlsClose();
+#endif
+  IupClose();
+  
+  lua_close();
+  
+  return EXIT_SUCCESS;
+}
-- 
cgit v1.2.3