What mean about the level number of "info level"?
proc arginfo {} {
set proc [lindex [info level -1] 0]
puts "/[[info level]/]"
puts "info level 0 = /[[info level 0]/]"
puts "info level 1 = /[[info level 1]/]"
puts "info level 2 = /[[info level 2]/]" #test the number after info level mean
#info level number中的number只可能是0,-1,1,2.
#0代表当前procedure
#-1代表调用目前procedure的procedure
#1代表调用目前procedure的最高的那层procedure
#2代表当前procedure所调用的procedure?还有疑问,如果当前procedure调用多个procedure呢?需作试验
puts "proc=$proc"
set which [uplevel [list namespace which -command $proc]]
puts "which=$which"
puts "proc /[$which/]"
set i -1
foreach arg [info args $which] {
incr i
set value [uplevel [list set $arg]]
puts "value=$value"
if { [info default $which $arg def] } {
puts " arg/[$i/] /[$arg/] = /[$value/] default = /[$def/]"
} else {
puts " arg/[$i/] /[$arg/] = /[$value/]"
}
}
}
proc test {foo {"bar baz" "BAR BAZ"}} {
arginfo
}
结果:
% test a b
[2]
info level 0 = [arginfo]
info level 1 = [test a b]
info level 2 = [arginfo]
proc=test
which=::test
proc [::test]
value=a
arg[0] [foo] = [a]
value=b
arg[1] [bar baz] = [b] default = [BAR BAZ]