Changeset 1279 for trunk

Timestamp:

Feb 23, 2009 1:45:15 PM (15 years ago)

Author:

gah

Message:

add list option to getopts

File:

• trunk/gui/scripts/getopts.tcl (modified) (2 diffs)

trunk/gui/scripts/getopts.tcl

@@ -80 +80 @@
                 lappend opts $name
             }
+            list {
+                if {[llength $line] < 3} {
+                    error "bad value spec \"$line\": should be \"list -flag default\""
+                }
+                set name [lindex $line 1]
+                set flags($name) $type
+                set params($name) [lindex $line 2]
+                lappend opts $name
+            }
             default {
                 error "bad arg type \"$type\": should be flag or value"
@@ -115 +124 @@
                 set args [lrange $args 1 end]
             }
+            list {
+                if {[llength $args] < 2} {
+                    error "missing value for option $first"
+                }
+                set params($first) [lrange $args 1 end]
+                set args ""
+            }
         }
     }