15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
-
+
|
# cho: An output channel for writing the processed file.
proc PreProcess {side chi cho} {
# Pick default -sep from command line
set opts(-sep) ","
set i [lsearch -exact $::argv "-sep"]
if {$i >= 0} {
incr i
set opts(-sep) [lindex $::argv $i]
set opts(-sep) [subst -nocommands -novariables [lindex $::argv $i]]
}
# Look for parameters in info string
set opts(-ignore) ""
set opts(-key) ""
set opts(-header) 0
foreach {opt val} $::Info {
|