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 }  ## 關(guān)鍵字 args 表示可變個(gè)數(shù)的參數(shù){parse_proc_arguments -args $args results    ## 將參數(shù)保存到數(shù)組中，數(shù)組名為 results，數(shù)組元素名字是參數(shù)名，元素值是參數(shù)值 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