apm_shell_wrap

one of the documented procedures in this installation of the ACS
Usage:
apm_shell_wrap   cmd
What it does:
Returns a command string, wrapped it shell-style (with backslashes) in case lines get too long.
Defined in: /web/philip/packages/acs-core/apm-admin-procs.tcl

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"


philg@mit.edu