将 proc 变量导入命名空间

Question

proc foo {param} {
  namespace eval foo_ns {
     uplevel {set foo_ns::x $param }
  }
}

这看起来很丑。

[upvar] 将不起作用，因为它无法链接到“param”。

谢谢。

答案中的代码不起作用（tclsh8.4）

------------------------------------------------ ----

% proc bar {param} {
    namespace eval foo_ns {
      uplevel [list set foo_ns::x $param]
    }
  }
% bar 123
can't read "param": no such variable

----------------------------------------------------------

% proc foo {param} {
    set ::foo_ns::x $param
}
% foo 123
can't set "::foo_ns::x": parent namespace doesn't exist

Answer 1

有什么问题：

proc foo {param} {
    set ::foo_ns::x $param
}

在我的测试中，它似乎实现了相同的目标。

更新：感谢 K0re 指出了这一点。在调用 foo 之前，需要定义名称空间：

namespace eval ::foo_ns {}

Answer 2

命名空间和级别是两个不同的东西。你不需要升级来解决这个问题。

这是一个简单的解决方案，它创建命名空间并在一行中设置变量：

proc foo {param} {
    namespace eval ::foo_ns [list set x $param]
}

Answer 3

好吧，你有两个不同的问题。首先是命名空间尚不存在；第二个是您需要编写代码以便在该命名空间中创建/写入变量。总的来说，这只需要对 Hai 的代码进行微小的修改：

proc foo {param} {
    # Create the namespace if it doesn't already exist
    namespace eval ::foo_ns {}
    # Set the variable in the namespace
    set ::foo_ns::x $param
}

---

作为对您遇到的一些问题的评论：

proc foo {param} {
  namespace eval foo_ns {
     uplevel {set foo_ns::x $param }
  }
}

这不起作用，因为您实际上是在说以下内容：
在命名空间“foo_ns”中，运行以下代码：
在堆栈的顶层，运行以下代码：
“set foo::x $param”

但是，在堆栈的顶层，变量“param”没有值（它仅在过程中定义。您需要确保它事先被替换。我会包括可以工作的代码，但老实说，我担心它会导致与问题的实际答案混淆......所以我将其省略。