Posted to tcl by stu at Sat May 28 16:46:21 GMT 2022view raw
- Input:
- {defe}proc proc{~}{/defe}
- {defe}/proc }{/defe}
- {defe}args {~}{{/defe}
- {defe}/args }{~}{{/defe}
- {proc} test
- {args}a b args{/args}
- puts $a:$b:[llength $args]
- {/proc}
- Output:
- proc test {a b args} { puts $a:$b:[llength $args] }