10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
# examples/dir*/csv1.txt
# A plugin must define this procedure to do the job.
# side: left or right
# chi: An input channel for reading the original file.
# cho: An output channel for writing the processed file.
proc PreProcess {side chi cho} {
# Look for parameters in info string
set opts(-ignore) ""
set opts(-key) ""
set opts(-header) 0
foreach {opt val} $::Info {
set opts($opt) $val
}
# If any column is given by name, assume the file starts with
# a header line of column names
foreach col [concat $opts(-ignore) $opts(-key)] {
if {![string is integer $col]} {
set opts(-header) 1
}
}
if {$opts(-header)} {
set nameLine [gets $chi]
# Keep it first in file
puts $cho $nameLine
set nameList [split $nameLine ","]
}
set icol {}
foreach col $opts(-ignore) {
if {[string is integer $col]} {
lappend icol $col
} else {
lappend icol [lsearch $nameList $col]
}
}
set icol [lsort -integer $icol]
set kcol {}
foreach col $opts(-key) {
if {[string is integer $col]} {
lappend kcol $col
} else {
lappend kcol [lsearch $nameList $col]
}
}
set olines {}
while {[gets $chi line] >= 0} {
set items [split $line ","]
foreach i $icol {
lset items $i ""
}
lappend olines $items
}
# Sort on keys
foreach i [lreverse $kcol] {
set olines [lsort -index $i $olines]
}
foreach items $olines {
puts $cho [join $items ","]
}
# Signal that the file after processing should be used both
# for comparison and for displaying.
return 1
}
|
>
>
>
>
>
>
>
>
|
|
>
>
>
>
|
>
>
>
>
|
|
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
# examples/dir*/csv1.txt
# A plugin must define this procedure to do the job.
# side: left or right
# chi: An input channel for reading the original file.
# 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]
}
# Look for parameters in info string
set opts(-ignore) ""
set opts(-key) ""
set opts(-header) 0
foreach {opt val} $::Info {
set opts($opt) $val
}
# If any column is given by name, assume the file starts with
# a header line of column names
foreach col [concat $opts(-ignore) $opts(-key)] {
if {![string is integer $col]} {
set opts(-header) 1
}
}
if {$opts(-header)} {
set nameLine [gets $chi]
# Keep it first in file
puts $cho $nameLine
set nameList [split $nameLine $opts(-sep)]
}
set icol {}
foreach col $opts(-ignore) {
if {[string is integer $col]} {
lappend icol $col
} else {
set i [lsearch $nameList $col]
if {$i < 0} {
return -code error "CSV Plugin Error: No such heading '$col'"
}
lappend icol $i
}
}
set icol [lsort -integer $icol]
set kcol {}
foreach col $opts(-key) {
if {[string is integer $col]} {
lappend kcol $col
} else {
set i [lsearch $nameList $col]
if {$i < 0} {
return -code error "CSV Plugin Error: No such heading '$col'"
}
lappend kcol $i
}
}
set olines {}
while {[gets $chi line] >= 0} {
set items [split $line $opts(-sep)]
foreach i $icol {
lset items $i ""
}
lappend olines $items
}
# Sort on keys
foreach i [lreverse $kcol] {
set olines [lsort -index $i $olines]
}
foreach items $olines {
puts $cho [join $items $opts(-sep)]
}
# Signal that the file after processing should be used both
# for comparison and for displaying.
return 1
}
|