Posted to tcl by bairui at Thu Jul 19 06:33:09 GMT 2018view pretty
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