标题几乎解释了这一切。 我不希望tolua ++生成只调用
的代码delete self;
在收集功能。我希望它能做到这样的事情:
some_custom_collector(self);
是否可以在.pkg文件中指定?
答案 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 ++重新制作绑定代码并重新编译它。