define_proc_attributes和parse_proc_arguments的原理分析

define_proc_attributes proc_name    [-info info_text][-define_args arg_defs][-command_group group_name][-hide_body][-hidden][-permanent][-dont_abbrev]

arg_name option_help value_help data_type attributes

proc plus {a b} { return [expr $a + $b] }  define_proc_attributes plus \  -info "Add two numbers" \  -define_args { {a "first addend" a stringrequired} \  {b "second addend" b stringrequired} }

plus                 # Add two numbers

Usage: plus # Add two numbersa (first addend)b (second addend)

11

parse_proc_arguments -args arg_list result_array

proc plus { args }  ## 关键字 args 表示可变个数的参数{parse_proc_arguments -args $args results    ## 将参数保存到数组中，数组名为 results，数组元素名字是参数名，元素值是参数值 foreach argname [array names results] {echo " $results($argname)"}} define_proc_attributes plus \-info "echo two numbers" \-define_args {{a "first addend" a string required} \{b "second addend" b string required} }

 a  b

info body procedure_nameinfo args procedure_nameproc_body procedure_nameproc_args procedure_name