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

Add lambda in VIsualizationWidget to fix the bug of the corner widget button size...

Add lambda in VIsualizationWidget to fix the bug of the corner widget button size Modify the property of the QFrame to ensure the box around the zone widget to be visible

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r186:134da9ef870f

Download file

             IPSIS_S04_NAMESPACE.tcl
        
                    49 lines
            
             | 1.3 KiB
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_S04_NAMESPACE.tcl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      #!/usr/bin/tclsh

      # Naming conventions for namespaces

      set namespaceRegex [getParameter "namespace-regex" {^[a-z][a-z1-9]*$}]

      proc createMachine {machineName initState} {

          set machine [dict create name $machineName state $initState identifier "" bracesCounter 0 bracketCounter 0 angleBracketCounter 0]

          return $machine

      }

      set tokenFilter {

          using 

          namespace 

          identifier

          class 

          struct 

          enum 

          typedef 

          leftbrace 

          rightbrace

      }

      foreach fileName [getSourceFileNames] {

          set machines [list]

          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 namespace

              if {$prev2 == "namespace" && $prev1 == "identifier" && $type == "leftbrace"} {

                  if {![regexp $namespaceRegex $lastIdentifier]} {

                      report $fileName $line "The namespace names should match the following regex: $namespaceRegex (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 namespaces

				set namespaceRegex [getParameter "namespace-regex" {^[a-z][a-z1-9]*$}]

				proc createMachine {machineName initState} {
				set machine [dict create name $machineName state $initState identifier "" bracesCounter 0 bracketCounter 0 angleBracketCounter 0]
				return $machine
				}

				set tokenFilter {
				using
				namespace
				identifier
				class
				struct
				enum
				typedef
				leftbrace
				rightbrace
				}

				foreach fileName [getSourceFileNames] {

				set machines [list]

				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 namespace
				if {$prev2 == "namespace" && $prev1 == "identifier" && $type == "leftbrace"} {
				if {![regexp $namespaceRegex $lastIdentifier]} {
				report $fileName $line "The namespace names should match the following regex: $namespaceRegex (found: $lastIdentifier)"
				}
				}

				set prev2 $prev1
				set prev1 $type
				}
				}