[cinvoke-svn] r102 - trunk/cinvoke/bindings/lua

[will]

Author: will
Date: 2006-08-03 13:03:20 -0400 (Thu, 03 Aug 2006)
New Revision: 102

Modified:
   trunk/cinvoke/bindings/lua/cinvoke_lua.c
Log:
lua pointer/string bugfixes


Modified: trunk/cinvoke/bindings/lua/cinvoke_lua.c
===================================================================
--- trunk/cinvoke/bindings/lua/cinvoke_lua.c    2006-08-03 13:43:07 UTC (rev 
101)
+++ trunk/cinvoke/bindings/lua/cinvoke_lua.c    2006-08-03 17:03:20 UTC (rev 
102)
@@ -509,7 +509,7 @@
        const char *pstr;
        if (lua_isnil(l, index))
                return 0;
-       pstr = tostring(l, index);
+       pstr = lua_tostring(l, index);
        if (strlen(pstr) == 0) return 0;
        if (strlen(pstr) == 1 ||
                strncmp("0x", pstr, 2)) {
@@ -1307,7 +1307,7 @@
        for (i = 0; i < len; i++) {
                lua_pushinteger(l, i + 1);
                lua_pushlstring(l, s + i, 1);
-               lua_settable(l, 1);
+               lua_settable(l, -3);
        }
 
        return 1;
@@ -1359,7 +1359,7 @@
 int _cinv_ptr_to_string(lua_State *l) {
        char *ptr;
        int len = -1;
-       if (lua_gettop(l) != 1 || lua_gettop(l) != 2) {
+       if (lua_gettop(l) != 1 && lua_gettop(l) != 2) {
                lua_pushstring(l, "usage: cinv.ptr_to_string(cptr[, len])");
                lua_error(l);
        }