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$