tcl 函数参数自动补全和 help 信息显示
在EDA tool 中使用命令时，命令的参数可以通过 tab 键自动补全，而且可以使用 -help 显示帮助信息，使用起来很方便；
那么我们自己编写的 TCL 过程函数能否也实现 参数自动补全和 help 显示帮助信息呢？
参数自动补全可以用 define_proc_attribute 实现，而 -help 显示帮助可以用 parse_proc_arguments 实现
举个栗子：
proc test_proc {args} { ## 关键字 args 表示可变个数的参数 parse_proc_arguments -args $args results ## 将参数保存到数组中，数组名为 results，数组元素名字是参数名，元素值是参数值 if { [array names results {-add}] != ""} { ## 匹配数组results 中符合正则表达式“{-add}”的元素名字，用于检测是否给出了 -add 参数 echo "add num $results(-add) !" ## $results{-add} 是数组元素值，即 -add 参数的值 } if { [array names results {-reomve}] != "" } { echo "remove all !" } } define_proc_attributes test_proc \ ## 这段程式定义 help 信息和参数自动补全 -info "proc test code example " \ -define_args { ## 定义参数名字，输入时可以自动补全 {-add "add more " "num" int optional } ## 参数名字-add，帮助信息 add more ，参数值 num ，参数值数据类型 int ，参数是否是必须的 optional {-remove "reomve all " "" boolean optional } }
这样定义之后，在EDA tool 中 敲命令 test_proc -rem[tab] 可以用 tab 键自动补全，用 test_proc -help 可以显示帮助信息
注意几点：
参数列表中的 args 是一个关键字，表示可变个数的参数
如果没有写 parse_proc_arguments ，则无法显示 -help 信息
array names results {-add} ，其中 results 是数组名， {-add} 是正则表达式，返回array 中 符合这个表达式的元素的名字
$results(-add) 返回数组元素值