Posted to tcl by _E-bola at Tue Jul 17 18:45:05 GMT 2007view raw
- set o 0
- foreach e [lrange "--"] 0 end] {
- if {[string tolower [lindex $e 0]] == "bytesize"} {
- set nfo(bytesize) [lrange $e 1 end]
- }
- if {[string tolower [lindex $e 0]] == "vstandard"} {
- set nfo(vstandard) [lrange $e 1 end]
- }
- .....
- more of the same below