info level

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]