Posted to tcl by bairui at Mon Jul 06 03:40:32 GMT 2015view raw

  1. oo::class create Commander
  2. oo::define Commander {
  3. variable commands
  4.  
  5. method foo {args} {
  6. puts "foo: $args"
  7. }
  8.  
  9. method bar {args} {
  10. puts "bar: $args"
  11. }
  12.  
  13. method unknown {args} {
  14. puts "Usage: app command \[options] args"
  15. puts "commands: foo, bar"
  16. }
  17. }
  18.  
  19. [Commander create c] {*}$argv
  20.