Useful Statement in Tcl

by
noyesno
at

吸收借鉴一些其它语言里有用的特性，用在 Tcl 语言里。

let

  • lassign $values a b
  • let {a b} = $values
# let a = b

proc let {args} {
   set idx [lsearch $args "="]
   uplevel 1 [list lassign [lindex $args $idx+1] {*}[lindex $args $idx-1]]
}