Changeset 3138 for code/branches/pch/src/tolua/lua/operator.lua

Timestamp:

Jun 10, 2009, 4:01:42 PM (15 years ago)

Author:

rgrieder

Message:

Tolua update to v1.0.93 is not working properly and I would not know how to fix it. I have created a patch however, just in case we need it after all.

File:

• code/branches/pch/src/tolua/lua/operator.lua (modified) (4 diffs)

code/branches/pch/src/tolua/lua/operator.lua

@@ -75 +75 @@
     output(' if (\n')
     -- check self
-    local is_func = get_is_function(self.parent.type)
-    output('     !'..is_func..'(tolua_S,1,"'..self.parent.type..'",0,&tolua_err) ||\n')
+    output('     !'..'tolua_isusertype(tolua_S,1,"'..self.parent.type..'",0,&tolua_err) ||\n')
     output('     !tolua_isnoobj(tolua_S,2,&tolua_err)\n )')
     output('  goto tolua_lerror;')
@@ -87 +86 @@
     output(' ',self.const,self.parent.type,'*','self = ')
     output('(',self.const,self.parent.type,'*) ')
-    local to_func = get_to_func(self.parent.type)
-    output(to_func,'(tolua_S,1,0);')
+    output('tolua_tousertype(tolua_S,1,0);')
 
     -- check self
     output('#ifndef TOLUA_RELEASE\n')
-    output('  if (!self) tolua_error(tolua_S,"'..output_error_hook("invalid \'self\' in function \'%s\'", self.name)..'",NULL);');
+    output('  if (!self) tolua_error(tolua_S,"invalid \'self\' in function \''..self.name..'\'",NULL);');
     output('#endif\n')
 
@@ -105 +103 @@
     else
         t = self.type
-        local push_func = get_push_function(t)
         new_t = string.gsub(t, "const%s+", "")
         if self.ptr == '' then
             output('   {')
             output('#ifdef __cplusplus\n')
-            output('    void* tolua_obj = Mtolua_new((',new_t,')(tolua_ret));')
-            output('    ',push_func,'(tolua_S,tolua_obj,"',t,'");')
-            output('    tolua_register_gc(tolua_S,lua_gettop(tolua_S));')
+            output('    void* tolua_obj = new',new_t,'(tolua_ret);')
+            output('    tolua_pushusertype_and_takeownership(tolua_S,tolua_obj,"',t,'");')
             output('#else\n')
             output('    void* tolua_obj = tolua_copy(tolua_S,(void*)&tolua_ret,sizeof(',t,'));')
-            output('    ',push_func,'(tolua_S,tolua_obj,"',t,'");')
-            output('    tolua_register_gc(tolua_S,lua_gettop(tolua_S));')
+            output('    tolua_pushusertype_and_takeownership(tolua_S,tolua_obj,"',t,'");')
             output('#endif\n')
             output('   }')
         elseif self.ptr == '&' then
-            output('   ',push_func,'(tolua_S,(void*)&tolua_ret,"',t,'");')
+            output('   tolua_pushusertype(tolua_S,(void*)&tolua_ret,"',t,'");')
         else
             if local_constructor then
-                output('   ',push_func,'(tolua_S,(void *)tolua_ret,"',t,'");')
-                output('    tolua_register_gc(tolua_S,lua_gettop(tolua_S));')
+                output('   tolua_pushusertype_and_takeownership(tolua_S,(void *)tolua_ret,"',t,'");')
             else
-                output('   ',push_func,'(tolua_S,(void*)tolua_ret,"',t,'");')
+                output('   tolua_pushusertype(tolua_S,(void*)tolua_ret,"',t,'");')
             end
         end
@@ -136 +130 @@
     output('#ifndef TOLUA_RELEASE\n')
     output('tolua_lerror:\n')
-    output(' tolua_error(tolua_S,"'..output_error_hook("#ferror in function \'%s\'.", self.lname)..'",&tolua_err);')
+    output(' tolua_error(tolua_S,"#ferror in function \''..self.lname..'\'.",&tolua_err);')
     output(' return 0;')
     output('#endif\n')