IPSIS_S04_ENUM.tcl
41 lines
| 1008 B
| application/x-tcl
|
TclLexer
| r2 | #!/usr/bin/tclsh | |||
| # Naming conventions for enums | ||||
| set enumRegex [getParameter "enum-regex" {^[A-Z][A-Za-z1-9]*$}] | ||||
| set tokenFilter { | ||||
| class | ||||
| struct | ||||
| enum | ||||
| typedef | ||||
| identifier | ||||
| leftbrace | ||||
| rightbrace | ||||
| semicolon | ||||
| } | ||||
| foreach fileName [getSourceFileNames] { | ||||
| set lastIdentifier "" | ||||
| set prev1 "" | ||||
| set prev2 "" | ||||
| foreach token [getTokens $fileName 1 0 -1 -1 $tokenFilter] { | ||||
| set type [lindex $token 3] | ||||
| set line [lindex $token 1] | ||||
| # Retrieve identifier value | ||||
| if {$type == "identifier"} { | ||||
| set lastIdentifier [lindex $token 0] | ||||
| } | ||||
| # Check enum | ||||
| if {$prev2 == "enum" && $prev1 == "identifier" && $type == "leftbrace"} { | ||||
| if {![regexp $enumRegex $lastIdentifier]} { | ||||
| report $fileName $line "The enum names should match the following regex: $enumRegex (found: $lastIdentifier)" | ||||
| } | ||||
| } | ||||
| set prev2 $prev1 | ||||
| set prev1 $type | ||||
| } | ||||
| } | ||||
