view vera/rules/T018.tcl @ 631:1fa9e5222e87

Irccd: move commands to command folder
author David Demelier <markand@malikania.fr>
date Wed, 07 Mar 2018 21:00:56 +0100
parents 6ec510722582
children
line wrap: on
line source

#!/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
        }
    }
}