Posted to tcl by bairui at Thu Jul 19 06:33:09 GMT 2018view raw
- proc heredoc {body} {
- return [string trim [uplevel 1 [list subst [join [lmap x [split $body \n] {string trim $x}] \n]]]]
- }
- proc usage {argv0 argv} {
- set usageError [heredoc {
- ERROR: [file tail ${argv0}]
- \ ?--auto-update?
- \ --rolback PIPTYPE PIPPACKAGE
- }]
- puts $usageError
- }
- usage $argv0 $argv