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

Widget of the tab widget are now of type VisualizationTabWidget...

Widget of the tab widget are now of type VisualizationTabWidget Add addTabView and removeTabView lambda method connecter to their correspondant button in the VisuaizationWidget

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r88:a08c6215b1ad

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