1 files changed, 14 insertions, 6 deletions

diff --git a/src/tools.h b/src/tools.h
index 4a77a6a..d0169cf 100644
--- a/src/tools.h
+++ b/src/tools.h
@@ -25,6 +25,8 @@
 #define lua_getuservalue lua_getfenv
 #define lua_rawlen lua_objlen
 #define luaG_registerlibfuncs( L, _funcs) luaL_register( L, NULL, _funcs)
+#define LUA_OK 0
+#define LUA_ERRGCMM 666 // doesn't exist in Lua 5.1, we don't care about the actual value
 #endif // LUA_VERSION_NUM == 501
 
 // wrap Lua 5.2 calls under Lua 5.1 API when it is simpler that way
@@ -33,14 +35,21 @@
 #define luaG_registerlibfuncs( L, _funcs) luaL_setfuncs( L, _funcs, 0)
 #endif // LUA_VERSION_NUM == 502
 
+#define USE_DEBUG_SPEW 0
+#if USE_DEBUG_SPEW
+extern char const* debugspew_indent;
+#define DEBUGSPEW_CODE(_code) _code
+#else // USE_DEBUG_SPEW
+#define DEBUGSPEW_CODE(_code)
+#endif // USE_DEBUG_SPEW
+
+
 #ifdef NDEBUG
   #define _ASSERT_L(lua,c)  /*nothing*/
   #define STACK_CHECK(L)    /*nothing*/
   #define STACK_MID(L,c)    /*nothing*/
   #define STACK_END(L,c)    /*nothing*/
   #define STACK_DUMP(L)    /*nothing*/
-  #define DEBUG()   /*nothing*/
-  #define DEBUGEXEC(_code) {}  /*nothing*/
 #else
   #define _ASSERT_L(lua,c)  do { if (!(c)) luaL_error( lua, "ASSERT failed: %s:%d '%s'", __FILE__, __LINE__, #c ); } while( 0)
   //
@@ -50,8 +59,6 @@
   #define STACK_END(L,change)  STACK_MID(L,change) }
 
   #define STACK_DUMP(L)    luaG_dump(L);
-  #define DEBUG()   fprintf( stderr, "<<%s %d>>\n", __FILE__, __LINE__ );
-  #define DEBUGEXEC(_code) {_code;}  /*nothing*/
 #endif
 #define ASSERT_L(c) _ASSERT_L(L,c)
 
@@ -73,7 +80,8 @@ typedef struct {
     void *deep;
 } DEEP_PRELUDE;
 
-void luaG_push_proxy( lua_State *L, luaG_IdFunction idfunc, DEEP_PRELUDE *deep_userdata );
+void luaG_push_proxy( lua_State *L, luaG_IdFunction idfunc, DEEP_PRELUDE *deep_userdata);
+void luaG_inter_copy_package( lua_State* L, lua_State* L2, int _idx);
 
 int luaG_inter_copy( lua_State *L, lua_State *L2, uint_t n);
 int luaG_inter_move( lua_State *L, lua_State *L2, uint_t n);
@@ -85,7 +93,7 @@ int luaG_nameof( lua_State* L);
 extern MUTEX_T deep_lock;
 extern MUTEX_T mtid_lock;
 
-void populate_func_lookup_table( lua_State *L, int _i, char const *_name);
+void populate_func_lookup_table( lua_State* L, int _i, char const* _name);
 void serialize_require( lua_State *L);
 extern MUTEX_T require_cs;