Posted to tcl by dgp at Thu Jun 11 01:05:59 GMT 2015view raw

  1.  
  2. $ cat ~/args.tcl
  3. auto_load parray
  4. puts A:[info args ::parray]
  5. puts "Itcl [package require Itcl]"
  6. puts B:[info args ::parray]
  7. itcl::class foo {
  8. method demo {} {puts C:[info args ::parray]}
  9. }
  10. [foo #auto] demo
  11.  
  12.  
  13. A:a pattern
  14. Itcl 3.4
  15. B:a pattern
  16. "::parray" isn't a procedure
  17. while executing
  18. "info args ::parray"
  19. (object "::foo0" method "::foo::demo" body line 1)
  20. invoked from within
  21. "[foo #auto] demo"
  22. (file "/Users/dgp/args.tcl" line 8)
  23.  
  24.  
  25. A:a pattern
  26. Itcl 4.0.3
  27. B:a pattern
  28. "::parray" isn't a function
  29. while executing
  30. "::itcl::builtin::Info {*}$args"
  31. (object "::foo0" procedure "::foo::info" body line 1)
  32. invoked from within
  33. "info args ::parray"
  34. (object "::foo0" method "::foo::demo" body line 1)
  35. invoked from within
  36. "[foo #auto] demo"
  37. (file "/Users/dgp/args.tcl" line 8)
  38.