Changeset 146713 for trunk/base


Ignore:
Timestamp:
Mar 15, 2016, 5:28:46 PM (4 years ago)
Author:
ijackson@…
Message:

Add option for selecting all options in multichoice.

Consider none when no option is entered. Print valid
option choices when asking the user to enter the option(s).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r146708 r146713  
    55225522        # User Input (with Multiple input parsing)
    55235523        while 1 {
    5524             puts -nonewline "Enter the numbers to select the options: "
     5524            if {[llength $ports] > 1} {
     5525                set option_range "1-[llength $ports]"
     5526            } else {
     5527                set option_range "1"
     5528            }
     5529            puts -nonewline "Enter option(s) \[$option_range/all\]: "
    55255530            flush stdout
    55265531            signal error {TERM INT}
     
    55365541            # check if input is non-empty and otherwise fine
    55375542            if {$input == ""} {
    5538                 continue
     5543                return []
     5544            }
     5545
     5546            if {[string equal -nocase $input "all"]} {
     5547                set count 0
     5548                set options_seq []
     5549                foreach port $ports {
     5550                    lappend options_seq $count
     5551                    incr count
     5552                }
     5553                return $options_seq   
    55395554            }
    55405555
Note: See TracChangeset for help on using the changeset viewer.