13 lines
382 B
Tcl
Executable File
13 lines
382 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
# Negation operator should not be used in its short form
|
|
|
|
foreach file [getSourceFileNames] {
|
|
foreach negation [getTokens $file 1 0 -1 -1 {not}] {
|
|
set value [lindex $negation 0]
|
|
if {$value == "!"} {
|
|
set lineNumber [lindex $negation 1]
|
|
report $file $lineNumber "negation operator used in its short form"
|
|
}
|
|
}
|
|
}
|