HG_REPOSITORIES/LPP/SciQLOP_Repos/SciQLop Files · formatting/vera-root/scripts/rules/IPSIS_S03.tcl

Ajout de vera++

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r2:451739a45362

Download file

             IPSIS_S03.tcl
        
                    25 lines
            
             | 942 B
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_S03.tcl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      #!/usr/bin/tclsh

      # The macros in header files should begin with the name of the project to avoid 

      # collisions

      set projectName [string toupper [getParameter "project-name" "PROJECTNAMENOTFOUND"]]

      foreach fileName [getSourceFileNames] {

          if {[regexp {\.h$} $fileName]} {

              set prev ""

              foreach token [getTokens $fileName 1 0 -1 -1 {pp_define identifier}] {

                  set type [lindex $token 3]

                  if {$prev == "pp_define" && $type == "identifier"} {

                      set identifier [lindex $token 0]

                      if {![regexp "^${projectName}.*$" $identifier]} {

                          set line [lindex $token 1]

                          report $fileName $line "The macros in header files should begin with the name of the project to avoid collisions. (project name: $projectName, macro found: $identifier)"

                      }

                  }

                  set prev $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
				# The macros in header files should begin with the name of the project to avoid
				# collisions

				set projectName [string toupper [getParameter "project-name" "PROJECTNAMENOTFOUND"]]

				foreach fileName [getSourceFileNames] {
				if {[regexp {\.h$} $fileName]} {

				set prev ""
				foreach token [getTokens $fileName 1 0 -1 -1 {pp_define identifier}] {
				set type [lindex $token 3]

				if {$prev == "pp_define" && $type == "identifier"} {
				set identifier [lindex $token 0]
				if {![regexp "^${projectName}.*$" $identifier]} {
				set line [lindex $token 1]
				report $fileName $line "The macros in header files should begin with the name of the project to avoid collisions. (project name: $projectName, macro found: $identifier)"
				}
				}

				set prev $type
				}
				}
				}