tcl - 使用命名参数调用 TCL 过程

Question

鉴于此过程:

proc foo {{aa "a"} {bb "b"} cc} {
  echo $cc
}

是否可以调用 proc foo并且只为 cc 传递一个值?此外，是否可以将值传递给 cc明确的名字？

我看到的一切都表明所有参数都必须按位置传递。

Answer 1

我会像 Tk 那样做:

proc foo {cc args} {
    # following will error if $args is an odd-length list
    array set optional [list -aa "default a" -bb "default b" {*}$args]
    set aa $optional(-aa)
    set bb $optional(-bb)

    puts "aa: $aa"
    puts "bb: $bb"
    puts "cc: $cc"
}

然后

% foo
wrong # args: should be "foo cc ..."
% foo bar
aa: default a
bb: default b
cc: bar
% foo bar -bb hello -aa world
aa: world
bb: hello
cc: bar