From b81017d069ac64164f5d302f199ce7cb5a5f4777 Mon Sep 17 00:00:00 2001
From: Jean-Francois Remacle <jean-francois.remacle@uclouvain.be>
Date: Thu, 3 Dec 2009 22:08:46 +0000
Subject: [PATCH]
---
Solver/dgMainLua.cpp | 42 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
create mode 100644 Solver/dgMainLua.cpp
diff --git a/Solver/dgMainLua.cpp b/Solver/dgMainLua.cpp
new file mode 100644
index 0000000000..487487f38c
--- /dev/null
+++ b/Solver/dgMainLua.cpp
@@ -0,0 +1,42 @@
+#include <iostream>
+#include "Gmsh.h"
+#include "LuaBindings_Geo.h"
+#include "dgSystemOfEquations.h"
+#include "function.h"
+
+void report_errors(lua_State *L, int status)
+{
+ if ( status!=0 ) {
+ std::cerr << "-- " << lua_tostring(L, -1) << std::endl;
+ lua_pop(L, 1); // remove error message
+ }
+}
+
+int main(int argc, char *argv[])
+{
+ GmshInitialize(argc,argv);
+ lua_State *L = lua_open();
+ luaopen_base(L);
+ luaopen_table(L);
+ //luaopen_io(L);
+ luaopen_string(L);
+ luaopen_math(L);
+ luaopen_debug(L);
+
+ // Register GModel bindings
+ LuaGModel::Register(L);
+ dgSystemOfEquations::Register(L);
+ fullMatrix<double>::Register(L);
+ function::registerDefaultFunctions();
+
+ int s = luaL_loadfile(L, argv[1]);
+
+ if ( s==0 ) {
+ printf("lua executes %s\n",argv[1]);
+ s = lua_pcall(L, 0, LUA_MULTRET, 0);
+ }
+ report_errors(L, s);
+
+ lua_close(L);
+ return 0;
+}
--
GitLab