Posted to tcl by evilotto at Mon Mar 18 17:56:30 GMT 2013view raw

  1. set command [lindex $argv 0]
  2. foreach {flag value} [lrange $argv 1 end] {
  3. switch -exact -- $flag {
  4. -f - --firstname {set firstname $value}
  5. -l - -lastname {set lastname $value}
  6. -g - --gender {set gender $value}
  7. default {error "unknown flag"}
  8. }
  9. }
  10. eval $command