为什么使用 TCL Upvar 命令的这段代码会产生错误？

Question

所以我想我理解了 TCL upvar 命令是如何工作的，但出于某种原因我似乎无法追踪为什么这段代码会产生错误 -

#!/usr/bin/env tclsh


proc run_check {} {
    set src dut.acore.B2.Vin
    set conlist1 [list dut.acore.B2.Vin dut.acore.N1__Bidir_2__ddiscrete_5.Aout dut.acore.DCORE.CLK]
    puts $conlist1

    set conlist2 [_lremove $conlist1 $src true]
    puts $conlist2
}


proc _lremove {listName val {byval false}} {

    upvar 1 $listName list
    puts $list


    #if {$byval} {
    #    set list [lsearch -all -inline -not $list $val]
    #} else {
    #    set list [lreplace $list $val $val]
    #}

    return $__list
}




######################################
##Run Command
######################################
puts [run_check]

在运行此代码时，我得到以下信息 -

(base) ./remove.tcl 
dut.acore.B2.Vin dut.acore.N1__Bidir_2__ddiscrete_5.Aout dut.acore.DCORE.CLK
can't read "list": no such variable
while executing
"puts $list"
(procedure "_lremove" line 4)
invoked from within
"_lremove $conlist1 $src true"
(procedure "run_check" line 6)
invoked from within
"run_check"
invoked from within
"puts [run_check]"
(file "./remove.tcl" line 35)

对此有什么想法吗？？

Answer 1

当您调用 _lremove 时，您需要将变量名conlist1传递给它，但您传递的是它的值。 改变

set conlist2 [_lremove $conlist1 $src true]

到

set conlist2 [_lremove conlist1 $src true]