Mercurial > irccd
comparison vera/rules/L004.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 # Line cannot be too long | |
3 | |
4 set maxLength [getParameter "max-line-length" 100] | |
5 | |
6 foreach f [getSourceFileNames] { | |
7 set lineNumber 1 | |
8 foreach line [getAllLines $f] { | |
9 if {[string length $line] > $maxLength} { | |
10 report $f $lineNumber "line is longer than ${maxLength} characters" | |
11 } | |
12 incr lineNumber | |
13 } | |
14 } |