upvar(3tcl) Tcl Built-In Commands upvar(3tcl) ______________________________________________________________________________ NAME upvar - SYNOPSIS upvar ?level? otherVar myVar ?otherVar myVar ...? ______________________________________________________________________________ DESCRIPTION Level uplevel otherVar # (1) otherVar upvar level ( level #0 ) myVar otherVar myVar upvar myVar MyVar a(b)OtherVar Upvar upvar (call-by- name) Tcl : proc add2 name { upvar $name x set x [expr $x+2] } Add2 add2 uplevel upvar upvar add2 namespace eval Tcl () namespace eval uplevel upvar info level 1 namespace eval uplevel #0 () (unset) upvar ( add2 x | ) unset upvar | | upvar upvar | upvar (retarget) | Traces upvar | upvar trace | otherVar | myVar | | myVar otherVar | localVar originalVar: | proc traceproc { name index op } { | puts $name | } | proc setByUpvar { name value } { | upvar $name localVar | set localVar $value | } | set originalVar 1 | trace variable originalVar w traceproc | setByUpvar originalVar 2 | } | otherVar | | myVar | ()| env myVar | SEE ALSO global(n), namespace(n), uplevel(n), variable(n) KEYWORDS context, frame, global, level, namespace, procedure, variable [] [] 2001/11/21 Linux man : http://cmpp.linuxforum.net man man https://github.com/man-pages-zh/manpages- zh Tcl upvar(3tcl)