25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
set opts(-csvignore) ""
set opts(-csvkey) ""
set opts(-csvheader) 0
foreach opt {-sep -csvignore -csvkey} {
set i [lsearch -exact $::argv $opt]
if {$i >= 0} {
incr i
}
set opts($opt) [lindex $::argv $i]
|
<
|
>
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
set opts(-csvignore) ""
set opts(-csvkey) ""
set opts(-csvheader) 0
foreach opt {-sep -csvignore -csvkey} {
set i [lsearch -exact $::argv $opt]
if {$i >= 0} {
incr i
set opts($opt) [lindex $::argv $i]
}
}
set opts(-sep) [subst -nocommands -novariables $opts(-sep)]
set i [lsearch -exact $::argv "-csvheader"]
if {$i >= 0} {
set opts(-csvheader) 1
}
|