##// END OF EJS Templates
Handles right clicking on the tree of the data sources...
Handles right clicking on the tree of the data sources The action generates the menu associated to the selected item and shows it

File last commit:

r2:451739a45362
r143:7b4ea0e1482b
Show More
IPSIS_S04_ENUM.tcl
41 lines | 1008 B | application/x-tcl | TclLexer
Ajout de vera++
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
}
}