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

Implements visit of tab and zone...

Implements visit of tab and zone When we visit a tab or a zone, we create (when entered) and close (when left) a menu (that has the name of the widget)

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r212:fae2d5d3e62c

Download file

             IPSIS_S04_FILENAME.tcl
        
                    13 lines
            
             | 479 B
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_S04_FILENAME.tcl
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        perrinel
    
Ajout de vera++

              r2
            
      #!/usr/bin/tclsh

      # Naming conventions for file names

      set fileNameRegex [getParameter "filename-regex" {^[A-Z]\w*$}]

      foreach fileName [getSourceFileNames] {

          # Check file name

          if {[regexp {(?:\\|/)?([^\\/]+?)\.(?:h|cpp)$} $fileName matchedExpr fileNameWithoutExt]} {

              if {![regexp $fileNameRegex $fileNameWithoutExt]} {

                  report $fileName 1 "The file names should match the following regex: $fileNameRegex (found: $fileNameWithoutExt)"

              }

          }

      }

	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

perrinel Ajout de vera++	r2	#!/usr/bin/tclsh
		# Naming conventions for file names

		set fileNameRegex [getParameter "filename-regex" {^[A-Z]\w*$}]

		foreach fileName [getSourceFileNames] {
		# Check file name
		if {[regexp {(?:\\\|/)?([^\\/]+?)\.(?:h\|cpp)$} $fileName matchedExpr fileNameWithoutExt]} {
		if {![regexp $fileNameRegex $fileNameWithoutExt]} {
		report $fileName 1 "The file names should match the following regex: $fileNameRegex (found: $fileNameWithoutExt)"
		}
		}
		}