IPSIS_C09.tcl
23 lines
| 677 B
| application/x-tcl
|
TclLexer
r2 | #!/usr/bin/tclsh | |||
# using namespace are not allowed in header files | ||||
foreach fileName [getSourceFileNames] { | ||||
set extension [file extension $fileName] | ||||
if {[lsearch {.h .hh .hpp .hxx .ipp} $extension] != -1} { | ||||
set state "start" | ||||
foreach token [getTokens $fileName 1 0 -1 -1 {using namespace identifier}] { | ||||
set type [lindex $token 3] | ||||
if {$state == "using" && $type == "namespace"} { | ||||
report $fileName $usingLine "using namespace not allowed in header file" | ||||
} | ||||
if {$type == "using"} { | ||||
set usingLine [lindex $token 1] | ||||
} | ||||
set state $type | ||||
} | ||||
} | ||||
} | ||||