SWIG + TCL标志

Question

指针的所有权是否仅在我们为其设置-acquire标志的块中持续存在？

例如：

{ 
     { 
       $xyz -acquire 
     } 
} 

Answer 1

首先，Tcl的不与{/}定义块。范围由过程调用或名称空间定义。其次，Tcl命令总是被定义为具有对应于拥有它们的命名空间的生命周期;他们永远不会将过程调用的作用域限定为^†。它们必须以某种方式手动处理;有两种方法可以执行此手动处理：调用$xyz -delete或rename $xyz ""（或其他任何空字符串）。坦率地说，我更喜欢第一种方法。

但是，如果您确实希望将寿命与过程调用联系起来，那实际上很可能。它只是需要一些额外的代码：

proc tieLifespan args { 
    upvar 1 "____lifespan handle" v 
    if {[info exists v]} { 
     trace remove variable v unset $v 
     set args [concat [lindex $v 1] $args] 
    } 
    set v [concat Tie-Garbage-Collect $args] 
    trace add variable v unset $v 
} 
proc Tie-Garbage-Collect {handles var dummy1 dummy2} { 
    upvar 1 $var v 
    foreach handle $handles { 
     # According to SWIG docs, this is how to do explicit destruction 
     $handle -delete 
     # Alternatively: rename $handle "" 
    } 
} 

那你会在要配合$xyz的生活范围使用这样的：

tieLifespan $xyz 
# You can register multiple objects at once too 

就是这样。当过程（或类似过程的实体，如果您使用Tcl 8.5或更高版本）退出时，绑定对象将被删除。这取决于你决定这是你真正想要的;如果你以后再没有处理，你可能应该使用搭配而不是。

---

^†好，几乎没有;一些扩展会造成讨厌的事情。因为它不适用于 SWIG生成的代码！