Posted to tcl by mistachkin at Sat Nov 17 14:26:29 GMT 2007view raw

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