Tcl语言https://blog.csdn.net/weixin_45791458/category_12488978.html?spm1001.2014.3001.5482info命令是Tcl中非常重要的信息查询命令。它主要用于查询解释器状态、变量信息、命令信息、过程信息、调用栈信息等内容。在Tcl脚本调试、过程封装、变量检查以及EDA工具脚本开发中info命令都非常常用。例如可以使用info exists判断变量是否存在使用info commands查看当前可用命令使用info procs查看当前定义的过程使用info script获取当前脚本文件名。info命令本身也是“主命令子命令”的结构常见形式如下info subcommand arg arg ...变量查询existsinfo exists用于判断变量是否存在。如果变量存在返回1如果变量不存在返回0。set a 100 puts [info exists a] 1 puts [info exists b] 0对于数组元素也可以使用info exists进行判断。set arr(name) Tcl if {[info exists arr(name)]} { puts arr(name)存在值为$arr(name) }varsinfo vars用于返回当前可见的变量名列表。set a 100 set b 200 puts [info vars] tcl_rcFileName tcl_version argv0 argv tcl_interactive a b auto_path errorCode auto_index env tcl_pkgPath tcl_patchLevel argc tcl_library tcl_platform也可以使用匹配模式筛选变量名。set data_in 1 set data_out 0 set clk 1 puts [info vars data*] data_in data_out需要注意的是info vars返回的是当前作用域中可见的变量。如果在过程内部使用它默认看到的是过程内部的局部变量。proc test_proc {} { set local_var 123 puts [info vars] } test_proc local_varglobalsinfo globals用于返回全局变量名列表。set g_var 100 puts [info globals] tcl_rcFileName tcl_version argv0 argv tcl_interactive auto_path errorCode auto_index env tcl_pkgPath tcl_patchLevel argc g_var tcl_library tcl_platform1也可以使用匹配模式筛选全局变量。set g_data 1 set g_clk 0 puts [info globals g_*] g_data g_clk在过程内部如果想查看全局变量可以使用info globals。set global_value 100 proc show_global {} { puts [info globals global*] } show_global global_valuelocalsinfo locals用于返回当前过程中的局部变量名列表。proc test_proc {} { set a 1 set b 2 puts [info locals] } test_proc a b需要注意的是info locals通常用于过程内部。如果在全局作用域中使用结果可能为空。命令查询commandsinfo commands用于返回当前解释器中可用的命令列表包括Tcl内建命令、用户自定义过程以及工具扩展命令。puts [info commands]也可以使用匹配模式筛选命令。puts [info commands file] puts [info commands str*]procsinfo procs用于返回当前定义的Tcl过程列表。proc add {a b} { return [expr {$a $b}] } puts [info procs] auto_load_index unknown auto_import auto_execok clock add auto_qualify auto_load tclLog也可以使用匹配模式筛选过程名。proc report_area {} { puts report area } proc report_timing {} { puts report timing } puts [info procs report*] report_timing report_areainfo procs只查询由proc定义的过程不一定包含所有内建命令。如果想查看所有命令应使用info commands。过程信息查询argsinfo args用于返回某个过程的参数列表。proc add {a b} { return [expr {$a $b}] } puts [info args add] a b对于带默认值的参数info args只返回参数名不直接返回默认值。proc hello {{name Tcl}} { puts Hello $name } puts [info args hello] namedefaultinfo default用于判断过程参数是否有默认值并取得默认值。proc hello {{name Tcl}} { puts Hello $name } if {[info default hello name value]} { puts 参数name有默认值$value } else { puts 参数name没有默认值 } 参数name有默认值Tclbodyinfo body用于返回指定过程的过程体也就是proc定义时大括号中的内容。proc add {a b} { return [expr {$a $b}] } puts [info body add] return [expr {$a $b}]脚本和解释器信息scriptinfo script用于返回当前正在执行的脚本文件名绝对路径还是相对路径取决于传递给Tcl解释器的命令行文件名。puts [info script] ./Desktop/test.tcl如果代码是从交互式tclsh中输入的info script通常返回空字符串。 在脚本文件中info script常用于获取当前脚本所在路径。nameofexecutableinfo nameofexecutable用于返回当前Tcl解释器的可执行文件路径绝对路径还是相对路径取决于命令行命令名。puts [info nameofexecutable] /usr/bin/tclshpatchlevelinfo patchlevel用于返回当前Tcl解释器的版本号。puts [info patchlevel] 8.5.13tclversioninfo tclversion用于返回Tcl的主版本号和次版本号。与info patchlevel相比info tclversion通常不包含补丁版本号。puts [info tclversion] 8.5hostnameinfo hostname用于返回当前机器的主机名。puts [info hostname] EDA调用栈信息levelinfo level用于查看当前调用栈层级。如果不带参数返回当前过程调用层级。proc p1 {} { p2 } proc p2 {} { puts [info level] } p1 2如果带数字参数info level可以返回指定层级的调用命令。proc p1 {} { p2 100 } proc p2 {x} { puts 当前层级[info level] puts 当前调用[info level 0] puts 上一层调用[info level -1] } p1 当前层级2 当前调用p2 100 上一层调用p1info level 0表示当前过程调用info level -1表示上一层调用。frameinfo frame用于返回调用帧的详细信息包括调用类型、文件名、行号、命令等。proc show_location {} { set f [info frame 0] puts 当前frame信息$f } show_location 当前frame信息type source line 2 file /home/zhangchen/Desktop/test.tcl cmd {info frame 0} proc ::show_location level 0namespaceinfo namespace用于返回当前上下文所在的命名空间。puts [info namespace] :: namespace eval myns { puts [info namespace] } ::myns
