Mercurial > embed
view vera/rules/T010.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 # Identifiers should not be composed of 'l' and 'O' characters only foreach file [getSourceFileNames] { foreach t [getTokens $file 1 0 -1 -1 {identifier}] { set value [lindex $t 0] if [regexp {^(l|O)+$} $value] { report $file [lindex $t 1] "identifier should not be composed of only 'l' and 'O'" } } }