apm_shell_wrap

apm_shell_wrap   cmd

Returns a command string, wrapped it shell-style (with backslashes) in case lines get too long.

Source code:

    set out ""
    set line_length 0
    foreach element $cmd {
	if { $line_length + [string length $element] > 72 } {
	    append out "\\\n    "
	    set line_length 4
	}
	append out "$element "
	incr line_length [expr { [string length $element] + 1 }]
    }
    append out "\n"