GIT_REPOSITORIES/LPP/Users/mperrinel/SciQLop-fork Files · formatting/vera-root/scripts/rules/IPSIS_S04_ENUM.tcl

Separate the initialization of the properties of the graph of the update of the units of the graph....

Separate the initialization of the properties of the graph of the update of the units of the graph. The initialization of the properties is carried out when adding a variable in the graph, the update of the units is carried out when loading the data of this variable

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r1308:41b7c6aab8be

Download file

             IPSIS_S04_ENUM.tcl
        
                    41 lines
            
             | 1008 B
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_S04_ENUM.tcl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

          }

      }

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

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