Posted to tcl by hypnotoad at Fri May 17 14:58:04 GMT 2019view pretty

basra:tcllib seandeelywoods$ grep -r "uplevel $" *
basra:tcllib seandeelywoods$ grep -r "uplevel 2" *
modules/stooop/stooop.tcl:            [uplevel 2 namespace which -command $constructor]\
modules/stooop/stooop.tcl:                return "namespace [uplevel 2 namespace current]"
modules/stooop/stooop.tcl:        set namespace [uplevel 2 namespace current]
modules/fileutil/fileutil.tcl:    if {[uplevel 2 [linsert $filtercmd end [file tail $filename]]]} {
modules/defer/defer.test:			uplevel 2 {set deferTest PASS}
modules/term/ansi/code.tcl:        set ns [uplevel 2 [list namespace current]]
modules/math/calculus.tcl:    set fc     [uplevel 2 $func $centr]
modules/math/calculus.tcl:        set fval1 [uplevel 2 $func [expr {$centr-$absc}]]
modules/math/calculus.tcl:        set fval2 [uplevel 2 $func [expr {$centr+$absc}]]
modules/math/calculus.tcl:        set fval1 [uplevel 2 $func [expr {$centr-$absc}]]
modules/math/calculus.tcl:        set fval2 [uplevel 2 $func [expr {$centr+$absc}]]
modules/struct/tree1.tcl:    uplevel 2 [string map $subs $cmd]
modules/struct/tree_tcl.tcl:    set code [catch {uplevel 2 $cmd} result]
modules/struct/tree_tcl.tcl:    set code [catch {uplevel 2 $cmd} result]
modules/struct/graph1.tcl:		uplevel 2 $cmdcpy
modules/struct/graph1.tcl:		    uplevel 2 $cmdcpy
modules/struct/graph1.tcl:		    uplevel 2 $cmdcpy
modules/struct/graph1.tcl:		    uplevel 2 $cmdcpy
modules/struct/graph1.tcl:		uplevel 2 $cmdcpy
modules/struct/skiplist.tcl:	uplevel 2 $cmdcpy
modules/log/logger.tcl:	    set caller [uplevel 2 namespace origin $callerProcName]
modules/log/logger.tcl:        set caller [uplevel 2 namespace origin $callerProcName]
modules/snit/main1_83.tcl:        set ns [uplevel 2 [list namespace current]]
modules/snit/main2.tcl:        set ns [uplevel 2 [list namespace current]]
modules/snit/main1.tcl:        set ns [uplevel 2 [list namespace current]]
basra:tcllib seandeelywoods$ grep -r "uplevel 3" *
modules/page/util_flow.tcl:		set code [catch {uplevel 3 $script} result]
modules/stooop/stooop.tcl:                return [uplevel 3 namespace which -command $procedure]
modules/stooop/stooop.tcl:        set fullProcedure [uplevel 3 namespace which -command $procedure]
basra:tcllib seandeelywoods$ grep -r "uplevel 4" *
basra:tcllib seandeelywoods$ grep -r "uplevel 5" *
basra:tcllib seandeelywoods$