Posted to tcl by aspect at Thu Nov 07 22:00:00 GMT 2019view raw

  1. namespace eval foo {
  2. variable bar Foobar
  3. }
  4.  
  5. namespace eval bar {
  6. variable bar Barbar
  7.  
  8. proc foo {} {
  9. variable ::foo::bar
  10. puts bar=$bar
  11. }
  12.  
  13. proc bar {} {
  14. variable bar
  15. puts bar=$bar
  16. }
  17.  
  18. proc global {} {
  19. variable ::bar
  20. puts bar=$bar
  21. }
  22. }
  23.  
  24. set bar Global
  25.  
  26. bar::foo
  27. bar::bar
  28. bar::global
  29.