info level

最新推荐文章于 2022-10-09 18:06:46 发布

原创最新推荐文章于 2022-10-09 18:06:46 发布 · 693 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#list

tcl 专栏收录该内容

10 篇文章

订阅专栏

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]