added two lua tutorials

git-svn-id: svn://anubis/misc/lua@130 bd8a9e45-a331-0410-811e-c64571078777

tut/Makefile

@@ -0,0 +1,9 @@
+
+TARGET := tut
+CPPFLAGS := -I/usr/include/lua5.1
+LDFLAGS  := -llua5.1
+
+all: $(TARGET)
+
+$(TARGET): $(TARGET).cc
+	$(CXX) -o $@ $(CPPFLAGS) $(CXXFLAGS) $^ $(LDFLAGS)

tut/hello_world.lua

@@ -0,0 +1,3 @@
+
+-- The first program in every language
+io.write("Hello world, from", _VERSION, "!\n")

tut/tut.cc

@@ -0,0 +1,48 @@
+
+#include <iostream>
+#include <lua.hpp>
+using namespace std;
+
+void report_errors(lua_State * L, int status)
+{
+    if ( status != 0 )
+    {
+        cerr << "-- " << lua_tostring(L, -1) << endl;
+        lua_pop(L, 1); // remove error message
+    }
+}
+
+int main(int argc, char ** argv)
+{
+    for ( int n = 1; n < argc; ++n )
+    {
+        const char * file = argv[n];
+
+        lua_State * L = lua_open();
+
+        luaL_openlibs(L);
+#if 0
+        luaopen_io(L);              // provides io.*
+        luaopen_base(L);
+        luaopen_table(L);
+        luaopen_string(L);
+        luaopen_math(L);
+#endif
+
+        cerr << "-- Loading file: " << file << endl;
+
+        int s = luaL_loadfile(L, file);
+
+        if ( s == 0 )
+        {
+            // execute Lua program
+            s = lua_pcall(L, 0, LUA_MULTRET, 0);
+        }
+
+        report_errors(L, s);
+        lua_close(L);
+        cerr << endl;
+    }
+
+    return 0;
+}

tut2/Makefile

@@ -0,0 +1,9 @@
+
+TARGET := tut
+CPPFLAGS := -I/usr/include/lua5.1
+LDFLAGS  := -llua5.1
+
+all: $(TARGET)
+
+$(TARGET): $(TARGET).cc
+	$(CXX) -o $@ $(CPPFLAGS) $(CXXFLAGS) $^ $(LDFLAGS)

tut2/test.lua

@@ -0,0 +1,4 @@
+
+io.write("Running ", _VERSION, "\n")
+a = my_function(1, 2, 3, "abc", "def")
+io.write("my_function() returned ", a, "\n")

tut2/tut.cc

@@ -0,0 +1,61 @@
+
+#include <iostream>
+#include <lua.hpp>
+using namespace std;
+
+int my_function(lua_State * L)
+{
+    int argc = lua_gettop(L);
+
+    cerr << "-- my_function() called with " << argc
+         << " arguments:" << endl;
+
+    for ( int n = 1; n <= argc; ++n )
+    {
+        cerr << "-- argument " << n << ": "
+             << lua_tostring(L, n) << endl;
+    }
+
+    lua_pushnumber(L, 123); // return value
+    return 1; // number of return values
+}
+
+void report_errors(lua_State *L, int status)
+{
+    if ( status!=0 )
+    {
+        cerr << "-- " << lua_tostring(L, -1) << endl;
+        lua_pop(L, 1); // remove error message
+    }
+}
+
+int main(int argc, char ** argv)
+{
+    for ( int n = 1; n < argc; ++n )
+    {
+        const char * file = argv[n];
+
+        lua_State * L = lua_open();
+
+        luaL_openlibs(L);
+
+        // make my_function() available to Lua programs
+        lua_register(L, "my_function", my_function);
+
+        cerr << "-- Loading file: " << file << endl;
+
+        int s = luaL_loadfile(L, file);
+
+        if ( s == 0 )
+        {
+            // execute Lua program
+            s = lua_pcall(L, 0, LUA_MULTRET, 0);
+        }
+
+        report_errors(L, s);
+        lua_close(L);
+        cerr << endl;
+    }
+
+    return 0;
+}