733
734
735
736
737
738
739
740
741
742
743
744
745
746
|
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
|
+
+
+
|
addMultOpt -r
docFlag -r "Version info for version control mode"
# If the first option is "--query", use it to ask about options.
if {$::eskil(argc) == 2 && [lindex $::eskil(argv) 0] == "--query"} {
set arg [lindex $::eskil(argv) 1]
set allOpts [allOpts]
# Remove "-" from allOpts
set i [lsearch -exact $allOpts "-"]
set allOpts [lreplace $allOpts $i $i]
if {[lsearch -exact $allOpts $arg] < 0} {
set match [lsearch -glob -all -inline $allOpts $arg*]
} else {
set match [list $arg]
}
puts [lsort -dictionary $match]
exit
|