Mercurial > embed
view vera/rules/T016.tcl @ 71:26304c6e4b69
mstch: import 1.0.2
author | David Demelier <markand@malikania.fr> |
---|---|
date | Wed, 18 Jul 2018 12:31:28 +0200 |
parents | 82b832e1875d |
children |
line wrap: on
line source
#!/usr/bin/tclsh # Calls to min/max should be protected against accidental macro substitution foreach file [getSourceFileNames] { set prev "none" foreach identifier [getTokens $file 1 0 -1 -1 {}] { set value [lindex $identifier 0] if {($value == "min" || $value == "max") && $prev != "::"} { set lineNumber [lindex $identifier 1] set columnNumber [expr [lindex $identifier 2] + [string length $value]] set restOfLine [string range [getLine $file $lineNumber] $columnNumber end] if {[regexp {^[[:space:]]*\(} $restOfLine] == 1} { report $file $lineNumber "min/max potential macro substitution problem" } } set prev $value } }