如何通过传递参数来获取脚本文件？

Question

假设我有一个 tcl 脚本，我想将一些参数传递给第一个 tcl 中来源的第二个脚本文件：

#first tcl file

source second.tcl

我想控制来自 first.tcl 的 secondary.tcl 的流程，并且我读到 tcl 源不接受论据。我想知道那时我该怎么办。

Answer 1

source 不接受任何其他参数。但您可以使用（全局）变量来传递参数，例如：

# first tcl file
set ::some_variable some_value
source second.tcl

第二个 TCL 文件可以引用该变量，例如：

# second tcl file
puts $::some_variable

备注：
获取文件意味着源脚本的内容在当前上下文中执行。这意味着源脚本可以访问该上下文中存在的所有变量。上面的代码等同于：

# one joint tcl file
set ::some_variable some_value
puts $::some_variable

Answer 2

关于“::”的事情 - 请参阅此处的解释（抱歉，我还没有足够的代表来发表评论）。

我还应该补充一点，最初的问题讨论了一个看起来很奇怪的问题：似乎最好在第二个源文件中提供一个特定的过程，该过程将设置与该脚本定义的状态相关的状态。
像这样的事情：

source file2.tcl
setup_state $foo $bar $baz

根据某些全局变量使 [source] 表现不同对我来说看起来太晦涩了。当然，你可能有正当理由这样做，但无论如何......