1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/tclsh
# No trailing whitespace
set strictMode [getParameter "strict-trailing-space" 0]
foreach f [getSourceFileNames] {
set lineNumber 1
set previousIndent ""
foreach line [getAllLines $f] {
if [regexp {^.*\r$} $line] {
report $f $lineNumber "CRLF line ending"
set line [string range $line 0 end-1]
}
if [regexp {^.*[[:space:]]+$} $line] {
if {$strictMode || [string trim $line] != "" || $line != $previousIndent} {
report $f $lineNumber "trailing whitespace"
}
}
regexp {^([[:space:]]*).*$} $line dummy previousIndent
incr lineNumber
}
}
|
