Posted to tcl by mistachkin at Sat Nov 17 13:39:46 GMT 2007view raw

  1. proc a { a } {
  2. puts stdout [info level [info level]]
  3. b $a
  4. }
  5.  
  6. proc b { b } {
  7. puts stdout [info level [info level]]
  8.  
  9. set x 0
  10. while {[incr x] <= [info level]} {
  11. puts stdout "$x = [info level $x]"
  12. }
  13.  
  14. uplevel 1 {
  15. puts stdout [info level [info level]]
  16.  
  17. uplevel 1 {
  18. puts stdout [info level]
  19.  
  20. uplevel #0 {
  21. puts stdout [info level]
  22. }
  23.  
  24. uplevel #1 {
  25. puts stdout [info level [info level]]
  26. }
  27.  
  28. uplevel #2 {
  29. puts stdout [info level [info level]]
  30. }
  31. }
  32. }
  33. }
  34.