#!/data/data/com.termux/files/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"
        }
    }
}
