Posted to tcl by evilotto at Mon Mar 18 17:56:30 GMT 2013view raw
- set command [lindex $argv 0]
- foreach {flag value} [lrange $argv 1 end] {
- switch -exact -- $flag {
- -f - --firstname {set firstname $value}
- -l - -lastname {set lastname $value}
- -g - --gender {set gender $value}
- default {error "unknown flag"}
- }
- }
- eval $command