Changeset 3127 for code/branches/pch/src/tolua/tolua_is.c

Timestamp:

Jun 9, 2009, 4:29:42 PM (15 years ago)

Author:

rgrieder

Message:

Update to tolua 1.0.93

File:

• code/branches/pch/src/tolua/tolua_is.c (modified) (4 diffs)

code/branches/pch/src/tolua/tolua_is.c

@@ -86 +86 @@
 }
 
-TOLUA_API void tolua_error (lua_State* L, char* msg, tolua_Error* err)
+TOLUA_API void tolua_error (lua_State* L, const char* msg, tolua_Error* err)
 {
         if (msg[0] == '#')
@@ -117 +117 @@
 
 /* the equivalent of lua_is* for usertable */
-static  int lua_isusertable (lua_State* L, int lo, const char* type)
+static  int lua_isusertable (lua_State* L, int lo, const const char* type)
 {
         int r = 0;
@@ -213 +213 @@
  return 0;
 }
+
+TOLUA_API int tolua_isboolean (lua_State* L, int lo, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+        if (lua_isnil(L,lo) || lua_isboolean(L,lo))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = "boolean";
+        return 0;
+}
+
+TOLUA_API int tolua_isnumber (lua_State* L, int lo, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+        if (lua_isnumber(L,lo))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = "number";
+        return 0;
+}
+
+TOLUA_API int tolua_isstring (lua_State* L, int lo, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+ if (lua_isnil(L,lo) || lua_isstring(L,lo))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = "string";
+        return 0;
+}
+
+TOLUA_API int tolua_istable (lua_State* L, int lo, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+        if (lua_istable(L,lo))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = "table";
+        return 0;
+}
+
+TOLUA_API int tolua_isusertable (lua_State* L, int lo, const char* type, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+        if (lua_isusertable(L,lo,type))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = type;
+        return 0;
+}
+
+
+TOLUA_API int tolua_isuserdata (lua_State* L, int lo, int def, tolua_Error* err)
+{
+        if (def && lua_gettop(L)<abs(lo))
+                return 1;
+        if (lua_isnil(L,lo) || lua_isuserdata(L,lo))
+                return 1;
+        err->index = lo;
+        err->array = 0;
+        err->type = "userdata";
+        return 0;
+}
+
+TOLUA_API int tolua_isvaluenil (lua_State* L, int lo, tolua_Error* err) {
+
+        if (lua_gettop(L)<abs(lo))
+                return 0; /* somebody else should chack this */
+        if (!lua_isnil(L, lo))
+                return 0;
+        
+        err->index = lo;
+        err->array = 0;
+        err->type = "value";
+        return 1;
+};
+
 TOLUA_API int tolua_isvalue (lua_State* L, int lo, int def, tolua_Error* err)
 {
@@ -220 +307 @@
         err->array = 0;
         err->type = "value";
-        return 0;
-}
-
-TOLUA_API int tolua_isboolean (lua_State* L, int lo, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
-        if (lua_isnil(L,lo) || lua_isboolean(L,lo))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = "boolean";
-        return 0;
-}
-
-TOLUA_API int tolua_isnumber (lua_State* L, int lo, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
-        if (lua_isnumber(L,lo))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = "number";
-        return 0;
-}
-
-TOLUA_API int tolua_isstring (lua_State* L, int lo, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
- if (lua_isnil(L,lo) || lua_isstring(L,lo))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = "string";
-        return 0;
-}
-
-TOLUA_API int tolua_istable (lua_State* L, int lo, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
-        if (lua_istable(L,lo))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = "table";
-        return 0;
-}
-
-TOLUA_API int tolua_isusertable (lua_State* L, int lo, const char* type, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
-        if (lua_isusertable(L,lo,type))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = type;
-        return 0;
-}
-
-
-TOLUA_API int tolua_isuserdata (lua_State* L, int lo, int def, tolua_Error* err)
-{
-        if (def && lua_gettop(L)<abs(lo))
-                return 1;
-        if (lua_isnil(L,lo) || lua_isuserdata(L,lo))
-                return 1;
-        err->index = lo;
-        err->array = 0;
-        err->type = "userdata";
         return 0;
 }