Posted to tcl by apn at Mon Jul 06 03:39:19 GMT 2015view raw

  1. namespace eval app {
  2. proc echo {args} {
  3. puts [join $args ,]
  4. }
  5. proc reverse {args} {
  6. puts [join [lreverse $args] ,]
  7. }
  8. namespace export echo reverse
  9. namespace ensemble create
  10. }
  11. app {*}$argv
  12.