mirror of
https://github.com/RIOT-OS/RIOT.git
synced 2024-12-29 04:50:03 +01:00
21 lines
707 B
Tcl
Executable File
21 lines
707 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
# Line cannot be too long
|
|
|
|
set maxLength [getParameter "max-line-length" 100]
|
|
|
|
#MOD: We add here a line length thershold for line length
|
|
set maxLengthWarn [getParameter "max-line-length-warn" 80]
|
|
|
|
foreach f [getSourceFileNames] {
|
|
set lineNumber 1
|
|
foreach line [getAllLines $f] {
|
|
if {[string length $line] > $maxLength} {
|
|
report $f $lineNumber "line is longer than ${maxLength} characters"
|
|
} elseif {[string length $line] > $maxLengthWarn} {
|
|
# puts won't make vera++ return error code when invoked with --error
|
|
puts "$f:$lineNumber: warning: line is longer than $maxLengthWarn characters"
|
|
}
|
|
incr lineNumber
|
|
}
|
|
}
|