如何在收集功能中使tolua ++调用自定义代码

时间:2016-03-24 12:47:00

标签: c++ lua garbage-collection tolua++

标题几乎解释了这一切。 我不希望tolua ++生成只调用

的代码
delete self;

在收集功能。我希望它能做到这样的事情:

some_custom_collector(self);

是否可以在.pkg文件中指定?

1 个答案:

答案 0 :(得分:0)

几天后我又回到了这个问题,我需要快速解决。我意识到没有办法做到这一点。所以我为tolua ++做了一个补丁,但对于我在CEGUI源代码中找到的版本。 所以它以非常丑陋的方式完成,但它非常易于使用且有效

假设你有类SomeClass,并且你想要lua函数delete和collect函数来调用SomeClass_CustomFinalizer,你可以在你的SomeClass.pkg文件中指定这样:

tolua_outside void ~SomeClass @ SomeClass_CustomFinalizer();

所以不要生成这样的代码:

delete self;

它将生成如下代码:

SomeClass_CustomFinalizer(self);

这是补丁。即使你没有应用它,也应该很容易得到一般的想法并手动应用。

diff --git a/lua/basic.lua b/lua/basic.lua
index 99fc961..b4983e3 100644
--- a/lua/basic.lua
+++ b/lua/basic.lua
@@ -67,7 +67,8 @@ _basic_raw_push = {}
 _usertype = {}

 -- List of types that have to be collected
-_collect = {}
+_collect = {{}}
+_collect_custom_finalizers_index = 1

 -- List of types
 _global_types = {n=0}

diff --git a/lua/class.lua b/lua/class.lua
index 8580ce8..c8f275e 100644
--- a/lua/class.lua
+++ b/lua/class.lua
@@ -78,7 +78,10 @@ function classClass:requirecollection (t)
    -- classes that export constructors need to have a collector (overrided by -D flag on command line)
    if self._delete or ((not flags['D']) and self._new) then
        --t[self.type] = "tolua_collect_" .. gsub(self.type,"::","_")
-       t[self.type] = "tolua_collect_" .. clean_template(self.type)
+        t[self.type] = "tolua_collect_" .. clean_template(self.type)
+        if self.custom_finalizer then
+          t[_collect_custom_finalizers_index][self.type] = self.custom_finalizer
+        end
        r = true
    end
  return r

diff --git a/lua/function.lua b/lua/function.lua
index ce73cf8..0db9b2f 100644
--- a/lua/function.lua
+++ b/lua/function.lua
@@ -322,7 +322,11 @@ function classFunction:supcode (local_constructor)

  -- call function
  if class and self.name=='delete' then
-  output('  delete self;')
+   if self.custom_finalizer then
+       output('  ' .. self.custom_finalizer .. '(self);')
+   else
+       output('  delete self;')
+   end
  elseif class and self.name == 'operator&[]' then
   if flags['1'] then -- for compatibility with tolua5 ?
    output('  self->operator[](',self.args[1].name,'-1) = ',self.args[2].name,';')


@@ -679,14 +684,20 @@ function _Function (t)

  append(t)
  if t:inclass() then
- --print ('t.name is '..t.name..', parent.name is '..t.parent.name)
+
+--print ('t.name is '..t.name..', parent.name is '..t.parent.name)
+
   if string.gsub(t.name, "%b<>", "") == string.gsub(t.parent.original_name or t.parent.name, "%b<>", "") then
    t.name = 'new'
    t.lname = 'new'
    t.parent._new = true
    t.type = t.parent.name
    t.ptr = '*'
-  elseif string.gsub(t.name, "%b<>", "") == '~'..string.gsub(t.parent.original_name or t.parent.name, "%b<>", "") then
+ elseif string.gsub(t.name, "%b<>", "") == '~'..string.gsub(t.parent.original_name or t.parent.name, "%b<>", "") then
+   if t.lname ~= t.name then
+     t.parent.custom_finalizer = t.lname
+     t.custom_finalizer = t.lname
+   end
    t.name = 'delete'
    t.lname = 'delete'
    t.parent._delete = true

diff --git a/lua/package.lua b/lua/package.lua
index 6ba30fb..edc791a 100644
--- a/lua/package.lua
+++ b/lua/package.lua
@@ -135,12 +135,20 @@ function classPackage:preamble ()
        output('/* function to release collected object via destructor */')
        output('#ifdef __cplusplus\n')
        for i,v in pairs(_collect) do
-        output('\nstatic int '..v..' (lua_State* tolua_S)')
-           output('{')
-           output(' '..i..'* self = ('..i..'*) tolua_tousertype(tolua_S,1,0);')
-           output('    delete self;')
-           output('    return 0;')
-           output('}')
+            if i ~= _collect_custom_finalizers_index then
+
+            output('\nstatic int '..v..' (lua_State* tolua_S)')
+            output('{')
+            output(' '..i..'* self = ('..i..'*) tolua_tousertype(tolua_S,1,0);')
+            if _collect[_collect_custom_finalizers_index][i] then
+                output('  ' .. _collect[_collect_custom_finalizers_index][i] .. '(self);')
+            else
+                output('  delete self;')
+            end
+            output('   return 0;')
+            output('}')
+
+            end
        end
        output('#endif\n\n')
    end

你应该为tolua ++重新制作绑定代码并重新编译它。