## ********************************************************
##
## Name: expandOpts
##
## Description:
## Expands procedure options. See example and test cases
## below.
##
## Comments:
## Ambiguous options throw exception.
proc expandOpts {{opts "opts"}} {
set options {}
set matches {}
set inputs [uplevel set args]
regsub -all -- {\n\s+} $inputs { } inputs
regexp {^\{(.+)\}$} $inputs -> inputs
;## get defaults
set defaults [uplevel subst \$$opts]
regsub -all -- {\n\s+} $defaults { } defaults
foreach {opt def} $defaults {
set opt [string trim $opt]
set def [string trim $def]
set matched 0
foreach {name val} $inputs {
set name [string trim $name]
regsub -- {[-]+} $name "-" name
set val [string trim $val]
if {[regexp -nocase -- $name $opt]} {
;## next test fails if ambiguous item is last
;## option on command line...
if {[lsearch -exact $matches $name] > -1} {
return -code error "ambiguous option: $name"
}
lappend matches $name
set options [concat $options [list $opt $val]]
set matched 1
break
}
}
if {$matched == 0} {
set options [concat $options [list $opt $def]]
}
}
return $options
}
## ******************************************************** ## ********************************************************
##
## Usage example and test function
proc test { args } {
set opts {
-this "$something"
-that "hostname: $::env(HOST)"
-those { 0.1 2.0 -1.2 12-43 }
-them {}
-these "foo*!{}icky-blat xx -1"
-the-others .......
}
set something foo!
array set foo [ expandOpts ]
puts [ array get foo ]
}
## ********************************************************
test -that "whaaaa?? {} foo x-m" -them "1 2 -3" -the-o {}
test -them "1 2 -3" -that "whaaaa?? {} foo x-m" -the oops! -the-o {}
