Eskil

Diff
Login
Annotate Patch Side-by-side Diff

Differences From Artifact [4131c2e1a5]:

To Artifact [1cf5f887f0]:

︙
25
26
27
28
29
30
31
32
33


34
35
36
37
38
39
40

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($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
    }
︙