Mercurial > irccd
comparison vera/rules/L001.tcl @ 510:6ec510722582
CMake: enable vera++ as code checking, closes #603
author | David Demelier <markand@malikania.fr> |
---|---|
date | Thu, 19 Oct 2017 13:01:39 +0200 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
509:c9a6d9df083f | 510:6ec510722582 |
---|---|
1 #!/usr/bin/tclsh | |
2 # No trailing whitespace | |
3 | |
4 set strictMode [getParameter "strict-trailing-space" 0] | |
5 | |
6 foreach f [getSourceFileNames] { | |
7 set lineNumber 1 | |
8 set previousIndent "" | |
9 foreach line [getAllLines $f] { | |
10 | |
11 if [regexp {^.*\r$} $line] { | |
12 report $f $lineNumber "CRLF line ending" | |
13 set line [string range $line 0 end-1] | |
14 } | |
15 if [regexp {^.*[[:space:]]+$} $line] { | |
16 if {$strictMode || [string trim $line] != "" || $line != $previousIndent} { | |
17 report $f $lineNumber "trailing whitespace" | |
18 } | |
19 } | |
20 | |
21 regexp {^([[:space:]]*).*$} $line dummy previousIndent | |
22 incr lineNumber | |
23 } | |
24 } |