将列表传递到 tcl 中的过程

Question

我想将一个列表传递给一个过程，但不知道怎么做。我已经看过一些如何做到这一点的例子，但是这些例子太复杂了，我不明白。列表和程序如下所示。

set RS_CheckBoxes [list kl15_cb din1_cb din2_cb din3_cb din4_cb \
                dinnc_cb ain1_cb ain2_cb ain3_cb ain4_cb a_cb \
                b_cb u_cb v_cb w_cb sin_cb cos_cb th1_cb th2_cb hvil_cb]

tk::button .rs.enter -height 2 -text "Enter" -width 10 -command {x $RS_CheckBoxes}

proc x {$RS_CheckBoxes} {

if {$RS_CheckBoxes} {
puts "ON"
} else {
puts "OFF"
}
}

目前我正在使用下面的代码，但想减少行数。

tk::button .relSel.b -height 2 -text "Enter" -width 10 -command {if {$kl15_cb} {
 puts "$kl15_cb"
 } else {
 puts "$kl15_cb"
 }

 if {$dinnc_cb} {
 puts "$dinnc_cb"
 } else {
 puts "$dinnc_cb"
 }

 if {$din1_cb} {
 puts "$din1_cb"
 } else {
 puts "$din1_cb"
 }

 if {......... etc}
 ............. etc

Answer 1

您的描述并不完全清楚。是否要将全局变量名称列表传递到 proc 中，然后根据它们的布尔值打印 ON 或 OFF？

目前您似乎只是在以一种非常复杂的方式打印变量的值。

if {$dinnc_cb} {
    puts "$dinnc_cb"
} else {
    puts "$dinnc_cb"
}

等于puts $dinnc_cb，除非您希望代码在值无法解释为布尔值时引发错误。

如果我的理解是正确的，试试这个：

proc x {varlist} {
    foreach varname $varlist {
        upvar #0 $varname var
        puts "$varname: [lindex {ON OFF} [expr {!$var}]]"
    }
}

upvar 创建一个从 $varname 中的全局变量到局部变量 var 的链接。然后您可以使用它来检查全局变量。

检查变量是否实际设置：

proc x {varlist} {
    foreach varname $varlist {
        upvar #0 $varname var
        if {[info exists var]} {
            puts "$varname: [lindex {OFF ON} [string is true -strict $var]]"
        } else {
            puts "$varname: INDETERMINATE"
        }
    }
}