[lua] added %luacode feature, documentation & examples

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10312 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Lib/lua/lua.swg

@@ -228,5 +228,8 @@ SWIG_fail;%}
 /* -----------------------------------------------------------------------------
  *                          extras
  * ----------------------------------------------------------------------------- */
+// this %define is to allow insertion of lua source code into the wrapper file
+#define %luacode  %insert("luacode")
+
 
 /* ------------------------------ end lua.swg  ------------------------------ */

Lib/lua/luarun.swg

@@ -671,12 +671,6 @@ SWIGRUNTIME const char *SWIG_Lua_typename(lua_State *L, int tp)
 /* lua callable function to get the userdata's type */
 SWIGRUNTIME int SWIG_Lua_type(lua_State* L)
 {
-/*  swig_lua_userdata* usr;
-  if (!lua_isuserdata(L,1))  /* just in case */
-  /*  return 0;  /* nil reply */
-  /*usr=(swig_lua_userdata*)lua_touserdata(L,1);  /* get data */
-  /*lua_pushstring(L,usr->type->name);
-  return 1;*/
   lua_pushstring(L,SWIG_Lua_typename(L,1));
   return 1;
 }
@@ -698,9 +692,6 @@ SWIGRUNTIME int SWIG_Lua_equal(lua_State* L)
   return 1;
 }
 
-
-
-
 /* -----------------------------------------------------------------------------
  * global variable support code: class/struct typemap functions
  * ----------------------------------------------------------------------------- */
@@ -747,6 +738,35 @@ SWIG_Lua_InstallConstants(lua_State* L, swig_lua_const_info constants[]) {
   }
 }
 
+/* -----------------------------------------------------------------------------
+ * executing lua code from within the wrapper
+ * ----------------------------------------------------------------------------- */
+
+#ifndef SWIG_DOSTRING_FAIL /* Allows redefining of error function */
+#define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
+#endif
+/* Executes a C string in Lua a really simple way of calling lua from C
+Unfortunately lua keeps changing its API's, so we need a conditional compile
+In lua 5.0.X its lua_dostring()
+In lua 5.1.X its luaL_dostring()
+*/
+SWIGINTERN int 
+SWIG_Lua_dostring(lua_State *L, const char* str) {
+  int ok,top;
+  if (str==0 || str[0]==0) return 0; /* nothing to do */
+  top=lua_gettop(L); /* save stack */
+#if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
+  ok=luaL_dostring(L,str);	/* looks like this is lua 5.1.X or later, good */
+#else
+  ok=lua_dostring(L,str);	/* might be lua 5.0.x, using lua_dostring */
+#endif
+  if (ok!=0) {
+    SWIG_DOSTRING_FAIL(lua_tostring(L,-1));
+  }
+  lua_settop(L,top); /* restore the stack */
+  return ok;
+}    
+
 #ifdef __cplusplus
 }
 #endif

Lib/lua/luaruntime.swg

@@ -16,7 +16,7 @@
 
 /* Forward declaration of where the user's %init{} gets inserted */
 void SWIG_init_user(lua_State* L );
-
+    
 #ifdef __cplusplus
 extern "C" {
 #endif

Lib/lua/typemaps.i

@@ -94,7 +94,7 @@ and quite a few functions defined
 assuming we have functions
 void process_array(int arr[3]);	// nice fixed size array
 void process_var_array(float arr[],int len);	// variable sized array
-void process_var_array_inout(double arr*,int len);	// variable sized array
+void process_var_array_inout(double* arr,int len);	// variable sized array
 			// data passed in & out
 void process_enum_inout_array_var(enum Days *arrinout, int len);	// using enums
 void return_array_5(int arrout[5]);	// out array only