15 lines
358 B
Tcl
Executable File
15 lines
358 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
# Line cannot be too long
|
|
|
|
set maxLength [getParameter "max-line-length" 100]
|
|
|
|
foreach f [getSourceFileNames] {
|
|
set lineNumber 1
|
|
foreach line [getAllLines $f] {
|
|
if {[string length $line] > $maxLength} {
|
|
report $f $lineNumber "line is longer than ${maxLength} characters"
|
|
}
|
|
incr lineNumber
|
|
}
|
|
}
|