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 | ||||
| } | ||||
| } | ||||
| } | ||||
