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

  1. basra:tcllib seandeelywoods$ grep -r "uplevel $" *
  2. basra:tcllib seandeelywoods$ grep -r "uplevel 2" *
  3. modules/stooop/stooop.tcl: [uplevel 2 namespace which -command $constructor]\
  4. modules/stooop/stooop.tcl: return "namespace [uplevel 2 namespace current]"
  5. modules/stooop/stooop.tcl: set namespace [uplevel 2 namespace current]
  6. modules/fileutil/fileutil.tcl: if {[uplevel 2 [linsert $filtercmd end [file tail $filename]]]} {
  7. modules/defer/defer.test: uplevel 2 {set deferTest PASS}
  8. modules/term/ansi/code.tcl: set ns [uplevel 2 [list namespace current]]
  9. modules/math/calculus.tcl: set fc [uplevel 2 $func $centr]
  10. modules/math/calculus.tcl: set fval1 [uplevel 2 $func [expr {$centr-$absc}]]
  11. modules/math/calculus.tcl: set fval2 [uplevel 2 $func [expr {$centr+$absc}]]
  12. modules/math/calculus.tcl: set fval1 [uplevel 2 $func [expr {$centr-$absc}]]
  13. modules/math/calculus.tcl: set fval2 [uplevel 2 $func [expr {$centr+$absc}]]
  14. modules/struct/tree1.tcl: uplevel 2 [string map $subs $cmd]
  15. modules/struct/tree_tcl.tcl: set code [catch {uplevel 2 $cmd} result]
  16. modules/struct/tree_tcl.tcl: set code [catch {uplevel 2 $cmd} result]
  17. modules/struct/graph1.tcl: uplevel 2 $cmdcpy
  18. modules/struct/graph1.tcl: uplevel 2 $cmdcpy
  19. modules/struct/graph1.tcl: uplevel 2 $cmdcpy
  20. modules/struct/graph1.tcl: uplevel 2 $cmdcpy
  21. modules/struct/graph1.tcl: uplevel 2 $cmdcpy
  22. modules/struct/skiplist.tcl: uplevel 2 $cmdcpy
  23. modules/log/logger.tcl: set caller [uplevel 2 namespace origin $callerProcName]
  24. modules/log/logger.tcl: set caller [uplevel 2 namespace origin $callerProcName]
  25. modules/snit/main1_83.tcl: set ns [uplevel 2 [list namespace current]]
  26. modules/snit/main2.tcl: set ns [uplevel 2 [list namespace current]]
  27. modules/snit/main1.tcl: set ns [uplevel 2 [list namespace current]]
  28. basra:tcllib seandeelywoods$ grep -r "uplevel 3" *
  29. modules/page/util_flow.tcl: set code [catch {uplevel 3 $script} result]
  30. modules/stooop/stooop.tcl: return [uplevel 3 namespace which -command $procedure]
  31. modules/stooop/stooop.tcl: set fullProcedure [uplevel 3 namespace which -command $procedure]
  32. basra:tcllib seandeelywoods$ grep -r "uplevel 4" *
  33. basra:tcllib seandeelywoods$ grep -r "uplevel 5" *
  34. basra:tcllib seandeelywoods$
  35.