1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/tclsh
# Comma should not be preceded by whitespace, but should be followed by one
foreach f [getSourceFileNames] {
foreach t [getTokens $f 1 0 -1 -1 {comma}] {
set line [lindex $t 1]
set column [lindex $t 2]
set preceding [getTokens $f $line 0 $line $column {}]
if {$preceding == {}} {
report $f $line "comma should not be preceded by whitespace"
} else {
set lastPreceding [lindex [lindex $preceding end] 3]
if {$lastPreceding == "space"} {
report $f $line "comma should not be preceded by whitespace"
}
}
set following [getTokens $f $line [expr $column + 1] [expr $line + 1] -1 {}]
if {$following != {}} {
set firstFollowing [lindex [lindex $following 0] 3]
if {$firstFollowing != "space" && $firstFollowing != "newline" &&
!($lastPreceding == "operator" && $firstFollowing == "leftparen")} {
report $f $line "comma should be followed by whitespace"
}
}
}
}
|
