parse_opt.tcl

::pwtk::fmtUsage_

::pwtk::fmtUsage_

SYNOPSIS

proc ::pwtk::fmtUsage_ {usage} {

DESCRIPTION

Format the "usage" list for printout in ::pwtk::parseOpt_.

ARGUMENT

usage --- the 'usage' list (e.g. see the 'plot_usage' list in ../config/gnuplot.tcl)

SOURCE

    set result {}
    set lastval -1
    foreach optval $usage {
        # skip multiple empty elements
        if { $optval ne {} || ($optval eq {} && $lastval ne {}) } {
            append result "\\\n    $optval "
        }
        set lastval $optval
    }
    return $result
}

TABLE OF CONTENTS

::pwtk::fmtUsage_