命名空间内的TclOO类:调用命名空间procs给出错误

时间:2012-11-08 09:31:03

标签: tcl

我正在用Tcl8.6和Rivet尝试一下TclOO,但我遇到了麻烦,因为我无法做我想做的事。

问题可以通过.rvt文件中的以下代码重现:

<?

proc dumbproc {} {
    puts "this is dumbproc ([namespace current])"
}

oo::class create foo {
    method bar {} {
        puts "this is bar ([namespace current])"
        dumbproc
    }
}

set obj [foo new]

dumbproc

$obj bar

如果我只是查看代码,它似乎应该按预期工作,但实际上并不是因为Rivet包的细微行为和特定配置选择。

在此示例中,我使用的.rvt文件的代码在::request命名空间内执行,因此dumbproc过程的完全限定名称为::request::dumbproc 。在bar方法中调用名称解析算法时,它会在dumbproc内搜索::oo::Obj12,然后在::oo中搜索,最后在::中搜索,而不查找它并给出以下错误。

this is dumbproc (::request) this is bar (::oo::Obj16)

invalid command name "dumbproc"
    while executing
"dumbproc"
    (class "::request::foo" method "bar" line 3)
    invoked from within
"$obj bar"
    (in namespace eval "::request" script line 21)
    invoked from within
"namespace eval request {
puts -nonewline ""


    proc dumbproc {} {
        puts "this is dumbproc ([namespace current])"
    }

    oo::class create..."

因此,Tcl正在正确执行它的工作,然后是功能。但是行为是不可预测的,因为当你编写一些类代码时,你必须知道它将被使用的上下文。

实际上,如果我删除起始<? Rivet魔法,将代码放在test.tcl文件中并在交互式会话中使用它,我会得到同样的错误:

$ tclsh
% namespace eval ::myns {source test.tcl}
this is dumbproc (::myns)
this is bar (::oo::Obj12)
invalid command name "dumbproc"

我试图通过将当前名称空间添加到类创建代码

来解决问题
::oo::class create [namespace current]::foo { ... }

然后,我还尝试在命名空间

中创建obj对象
::oo::class create [namespace current]::foo { ... }
namespace eval [namespace current] {set obj [[namespace current]::foo new]}

然后,我切换到类的create方法,为对象提供包含命名空间的限定名称

foo create [namespace current]::obj
obj bar

但一切都没有成功。每个试验表明,无论我如何操作,TclOO类中的方法总是在其对象唯一命名空间内执行。我错了吗?

有没有办法得到我想要的东西? TclOO是不打算以这种方式工作,在这种情况下为什么?让我感到惊讶的是这种依赖于上下文的行为,我不确定这是正确的,但也许我完全错了,并且有一些合理的案例,我很遗憾。

1 个答案:

答案 0 :(得分:5)

每个TclOO对象的内部实际上是自己的命名空间。您可以在方法中使用self namespacenamespace current来获取命名空间的名称,或者info object namespace $theobj从任何位置获取命名空间。默认情况下,命名空间中唯一的命令是my(用于调用私有方法),其他命名空间中的某些命令可通过标准Tcl namespace path机制获得(这是你得到的{{1 }}和self可用)。

解决这个问题的最简单方法可能是将其添加到next类的构造函数中:

foo

在您的具体情况下,您必须实际添加构造函数...

namespace path [list {*}[namespace path] ::request]

从长远来看,要求一种机制来添加用于为类的对象设置默认值的命名空间列表可能是合理的。如果您需要,请提交feature request ...


[编辑]:如果您刚刚将父命名空间添加到当前对象的命令解析路径后,您可以通过添加更多魔法来实现:

constructor {} {
    namespace path [list {*}[namespace path] ::request]
    # If you had a non-trivial constructor in a superclass, you'd need to call
    # [next] too.
}

然后,它将自动将当前命名空间置于实例的路径上。如果您在许多类中执行此操作,您可能希望创建一个包含其中大部分机制的元类,但上述技术(oo::class create foo { self { method create args { set ns [uplevel 1 {namespace current}] next {*}[linsert $args 1 $ns] } method new args { set ns [uplevel 1 {namespace current}] next {*}[linsert $args 0 $ns] } } constructor {creatorNS args} { namespace path [list {*}[namespace path] $creatorNS] } method bar {} { puts "this is bar ([namespace current])" dumbproc } } 声明中的某些方法{ {1}}类对象本身)适用于简单的情况。