mirror of
https://github.com/RIOT-OS/RIOT.git
synced 2024-12-29 04:50:03 +01:00
12 lines
264 B
Tcl
12 lines
264 B
Tcl
|
#!/usr/bin/tclsh
|
||
|
|
# Source file should not be too long
|
||
|
|
|
||
|
|
set maxLines [getParameter "max-file-length" 2000]
|
||
|
|
|
||
|
|
foreach f [getSourceFileNames] {
|
||
|
|
set length [getLineCount $f]
|
||
|
|
if {$length > $maxLines} {
|
||
|
|
report $f $length "source file is too long"
|
||
|
|
}
|
||
|
|
}
|