+ tolua

1 files changed, 144 insertions, 0 deletions

diff --git a/ThirdParty/tolua-5.2.4/src/lib/tolua_push.c b/ThirdParty/tolua-5.2.4/src/lib/tolua_push.c
new file mode 100644
index 0000000..4413548
--- /dev/null
+++ b/ThirdParty/tolua-5.2.4/src/lib/tolua_push.c
@@ -0,0 +1,144 @@
+/* tolua: functions to push C values.
+ ** Support code for Lua bindings.
+ ** Written by Waldemar Celes
+ ** TeCGraf/PUC-Rio
+ ** Apr 2003
+ ** $Id: tolua_push.c,v 1.7 2010/01/22 15:39:29 fabraham Exp $
+ */
+
+/* This code is free software; you can redistribute it and/or modify it.
+ ** The software provided hereunder is on an "as is" basis, and
+ ** the author has no obligation to provide maintenance, support, updates,
+ ** enhancements, or modifications.
+ */
+
+#include "tolua.h"
+#include "lauxlib.h"
+
+#include <stdlib.h>
+
+TOLUA_API void tolua_pushvalue (lua_State* L, int lo)
+{
+  lua_pushvalue(L,lo);
+}
+
+TOLUA_API void tolua_pushboolean (lua_State* L, int value)
+{
+  lua_pushboolean(L,value);
+}
+
+TOLUA_API void tolua_pushnumber (lua_State* L, double value)
+{
+  lua_pushnumber(L,value);
+}
+
+TOLUA_API void tolua_pushstring (lua_State* L, const char* value)
+{
+  if (value == NULL)
+    lua_pushnil(L);
+  else
+    lua_pushstring(L,value);
+}
+
+TOLUA_API void tolua_pushuserdata (lua_State* L, void* value)
+{
+  if (value == NULL)
+    lua_pushnil(L);
+  else
+    lua_pushlightuserdata(L,value);
+}
+
+TOLUA_API void tolua_pushusertype (lua_State* L, void* value, const char* type)
+{
+  if (value == NULL)
+    lua_pushnil(L);
+  else
+  {
+    lua_pushstring(L,"tolua_ubox");
+    lua_rawget(L,LUA_REGISTRYINDEX);        /* stack: ubox */
+    lua_pushlightuserdata(L,value);
+    lua_rawget(L,-2);                       /* stack: ubox ubox[u] */
+    if (lua_isnil(L,-1))
+    {
+      /* creating ubox of value */
+      lua_pop(L,1);                          /* stack: ubox */
+      lua_pushlightuserdata(L,value);
+      *(void**)lua_newuserdata(L,sizeof(void *)) = value;   /* stack: ubox u newud */
+      lua_pushvalue(L,-1);                   /* stack: ubox u newud newud */
+      lua_insert(L,-4);                      /* stack: newud ubox u newud */
+      lua_rawset(L,-3);                      /* stack: newud ubox */
+      lua_pop(L,1);                          /* stack: newud */
+      tolua_getmetatable(L,type);             /* stack: newud mt */
+      lua_setmetatable(L,-2);                /* stack: newud */
+    }
+    else
+    {
+      /* reusing ubox of value */
+      /* check the need of updating the metatable to a more specialized class */
+      lua_insert(L,-2);                       /* stack: ubox[u] ubox */
+      lua_pop(L,1);                           /* stack: ubox[u] */
+      lua_pushstring(L,"tolua_super");
+      lua_rawget(L,LUA_REGISTRYINDEX);        /* stack: ubox[u] super */
+      lua_getmetatable(L,-2);                 /* stack: ubox[u] super mt */
+      lua_rawget(L,-2);                       /* stack: ubox[u] super super[mt] */
+      if (lua_istable(L,-1))
+      {
+        lua_pushstring(L,type);                 /* stack: ubox[u] super super[mt] type */
+        lua_rawget(L,-2);                       /* stack: ubox[u] super super[mt] flag */
+        if (lua_toboolean(L,-1) == 1)           /* if true */
+        {
+          lua_pop(L,3);                         /* stack: ubox[u] */
+          return;
+        }
+      }
+      /* type represents a more specilized type */
+      tolua_getmetatable(L,type);             /* stack: ubox[u] super super[mt] flag mt */
+      lua_setmetatable(L,-5);                /* stack: ubox[u] super super[mt] flag */
+      lua_pop(L,3);                          /* stack: ubox[u] */
+    }
+  }
+}
+
+TOLUA_API void tolua_pushfieldvalue (lua_State* L, int lo, int index, int v)
+{
+  lua_pushnumber(L,index);
+  lua_pushvalue(L,v);
+  lua_settable(L,lo);
+}
+
+TOLUA_API void tolua_pushfieldboolean (lua_State* L, int lo, int index, int v)
+{
+  lua_pushnumber(L,index);
+  lua_pushboolean(L,v);
+  lua_settable(L,lo);
+}
+
+
+TOLUA_API void tolua_pushfieldnumber (lua_State* L, int lo, int index, double v)
+{
+  lua_pushnumber(L,index);
+  tolua_pushnumber(L,v);
+  lua_settable(L,lo);
+}
+
+TOLUA_API void tolua_pushfieldstring (lua_State* L, int lo, int index, const char* v)
+{
+  lua_pushnumber(L,index);
+  tolua_pushstring(L,v);
+  lua_settable(L,lo);
+}
+
+TOLUA_API void tolua_pushfielduserdata (lua_State* L, int lo, int index, void* v)
+{
+  lua_pushnumber(L,index);
+  tolua_pushuserdata(L,v);
+  lua_settable(L,lo);
+}
+
+TOLUA_API void tolua_pushfieldusertype (lua_State* L, int lo, int index, void* v, const char* type)
+{
+  lua_pushnumber(L,index);
+  tolua_pushusertype(L,v,type);
+  lua_settable(L,lo);
+}
+