TABLE OF CONTENTS

::pwtk::expandSOpts

SYNOPSIS

proc ::pwtk::expandSOpts {string} {

PURPOSE

Tranform all short options of type "-oVALUE" to "-o VALUE" in an arbitrary string (SOpts stands for short options).

ARGUMENT

SOURCE

    set result [set nl {}]
    foreach line [split [string trim $string] \n] {
        append result $nl
        foreach f $line {
            if { [llength $f] > 1 } {
                set f [list [normalizeSOpt $f]]
            }
            append result "[normalizeSOpt $f] "
        }
        set nl \n
    }
    return $result
}