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