如何设置Tcl变量的默认值？

Question

我有一些通过在命令行调用中定义变量来执行的 Tcl 脚本：

$ tclsh84 -cmd <script>.tcl -DEF<var1>=<value1> -DEF<var2>=<value2>

有没有办法检查 var1 和 var2 是否未在命令行中定义，然后为它们分配一组默认值？

我尝试了关键字 global、variable 和 set，但是当我说 "if {$==""}": "can't 时，它们都会给我这个错误读取：没有这样的变量”

Answer 1

我不熟悉 tclsh 上的 -def 选项。

但是，要检查变量是否已设置，您还可以使用“info exit”而不是使用“catch”：

if { ![info exists blah] } {
  set blah default_value
}

Answer 2

或者，您可以使用 tcllib 中的 cmdline 包之类的东西。 这允许您设置二进制标志和名称/值参数的默认值，并为它们提供描述，以便可以显示格式化的帮助消息。 例如，如果您有一个程序需要输入文件名，以及可选的输出文件名和压缩输出的二进制选项，则可以使用类似以下内容的内容：

package require cmdline
set sUsage "Here you put a description of what your program does"
set sOptions {
    {inputfile.arg ""  "Input file name - this is required"}
    {outputfile.arg "out.txt"     "Output file name, if not given, out.txt will be used"}
    {compressoutput       "0"      "Binary flag to indicate whether the output file will be compressed"}
}

array set options [::cmdline::getoptions argv $sOptions $sUsage]
if {$options(inputfile) == ""} {puts "[::cmdline::usage $sOptions $sUsage]";exit}

.arg 后缀指示这是一个名称/值对参数，如果未列出，它将假定它是一个二进制标志。

Answer 3

您可以catch您的命令以防止错误中止脚本。

if { [ catch { set foo 
lt;var1> } ] } {
    set <var1> defaultValue
}

（警告：我没有使用 TCL 解释器检查确切的语法，上面的脚本只是为了给出想法）。