Posted to tcl by bairui at Thu Jul 09 00:17:05 GMT 2015view raw

  1. puts [join [list \
  2. "Unknown command: $subcmd" \
  3. "Usage: $cmd command \[options] args" \
  4. "Commands: regsiter, run" \
  5. "See command -help for more details."] \
  6. "\n"]
  7.