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

$ cat ~/args.tcl
auto_load parray
puts A:[info args ::parray]
puts "Itcl [package require Itcl]"
puts B:[info args ::parray]
itcl::class foo {
method demo {} {puts C:[info args ::parray]}
}
[foo #auto] demo


A:a pattern
Itcl 3.4
B:a pattern
"::parray" isn't a procedure
    while executing
"info args ::parray"
    (object "::foo0" method "::foo::demo" body line 1)
    invoked from within
"[foo #auto] demo"
    (file "/Users/dgp/args.tcl" line 8)


A:a pattern
Itcl 4.0.3
B:a pattern
"::parray" isn't a function
    while executing
"::itcl::builtin::Info {*}$args"
    (object "::foo0" procedure "::foo::info" body line 1)
    invoked from within
"info args ::parray"
    (object "::foo0" method "::foo::demo" body line 1)
    invoked from within
"[foo #auto] demo"
    (file "/Users/dgp/args.tcl" line 8)