Posted to tcl by bairui at Thu Jul 19 06:33:09 GMT 2018view raw

  1. proc heredoc {body} {
  2. return [string trim [uplevel 1 [list subst [join [lmap x [split $body \n] {string trim $x}] \n]]]]
  3. }
  4.  
  5. proc usage {argv0 argv} {
  6. set usageError [heredoc {
  7. ERROR: [file tail ${argv0}]
  8. \ ?--auto-update?
  9. \ --rolback PIPTYPE PIPPACKAGE
  10. }]
  11. puts $usageError
  12. }
  13.  
  14. usage $argv0 $argv
  15.