15 lines
268 B
Tcl
Executable File
15 lines
268 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
# Don't use tab characters
|
|
|
|
foreach f [getSourceFileNames] {
|
|
set lineNumber 1
|
|
foreach line [getAllLines $f] {
|
|
|
|
if [regexp {\t} $line] {
|
|
report $f $lineNumber "horizontal tab used"
|
|
}
|
|
|
|
incr lineNumber
|
|
}
|
|
}
|