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

Updates test files with new AMDA file header...

Updates test files with new AMDA file header Old files are moved to an archive folder

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r775:21f27f9e6cd9

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
				}
				}