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

Adds actions for items in the DataSourceWidget...

Adds actions for items in the DataSourceWidget For each item will be associated actions (generated from the model of the item) that will be displayed in the menu when right clicking on the item in the tree

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r142:11579fae1cc2

Download file

             IPSIS_S02.tcl
        
                    45 lines
            
             | 1.9 KiB
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_S02.tcl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      #!/usr/bin/tclsh

      # The include guards should have the form PROJECT_FILENAME_H

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

      foreach fileName [getSourceFileNames] {

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

              set upperFileName [string toupper $fileNameWithoutExt]

              set expectedGuard "${projectName}_${upperFileName}_H"

              set state "waitingForIfndef"

              set firstInstruction 1

              set ifndefLine -1

              set prev ""

              foreach token [getTokens $fileName 1 0 -1 -1 {pp_ifndef pp_ifdef pp_if pp_include pp_define pp_undef pp_error pp_pragma pp_endif identifier}] {

                  set type [lindex $token 3]

                  set line [lindex $token 1]

                  if {$firstInstruction} {

                      set firstInstruction 0

                      if {$type != "pp_ifndef"} {

                          report $fileName $line "The first preprocessor instruction of a header file should be the include guard of the form PROJECTNAME_FILENAME_H. (expected: $expectedGuard)"

                          break

                      } else {

                          set ifndefLine $line

                      }

                  }

                  if {$prev == "pp_ifndef"} {

                      if {$type == "identifier"} {

                          set identifier [lindex $token 0]

                          if {$identifier != $expectedGuard} {

                              report $fileName $ifndefLine "The include guard should have the form PROJECTNAME_FILENAME_H. (Found $identifier, expected $expectedGuard)"

                          }

                      } else {

                          report $fileName $ifndefLine "The first preprocessor instruction of a header file should be the include guard of the form PROJECTNAME_FILENAME_H. (expected: $expectedGuard)"

                      }

                      break

                  }

                  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 include guards should have the form PROJECT_FILENAME_H

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

				foreach fileName [getSourceFileNames] {
				if {[regexp {(?:\\\|/)?([^\\/]+?)\.h$} $fileName matchedExpr fileNameWithoutExt]} {
				set upperFileName [string toupper $fileNameWithoutExt]
				set expectedGuard "${projectName}_${upperFileName}_H"

				set state "waitingForIfndef"

				set firstInstruction 1
				set ifndefLine -1
				set prev ""
				foreach token [getTokens $fileName 1 0 -1 -1 {pp_ifndef pp_ifdef pp_if pp_include pp_define pp_undef pp_error pp_pragma pp_endif identifier}] {
				set type [lindex $token 3]
				set line [lindex $token 1]

				if {$firstInstruction} {
				set firstInstruction 0
				if {$type != "pp_ifndef"} {
				report $fileName $line "The first preprocessor instruction of a header file should be the include guard of the form PROJECTNAME_FILENAME_H. (expected: $expectedGuard)"
				break
				} else {
				set ifndefLine $line
				}
				}

				if {$prev == "pp_ifndef"} {
				if {$type == "identifier"} {
				set identifier [lindex $token 0]
				if {$identifier != $expectedGuard} {
				report $fileName $ifndefLine "The include guard should have the form PROJECTNAME_FILENAME_H. (Found $identifier, expected $expectedGuard)"
				}
				} else {
				report $fileName $ifndefLine "The first preprocessor instruction of a header file should be the include guard of the form PROJECTNAME_FILENAME_H. (expected: $expectedGuard)"
				}
				break
				}

				set prev $type
				}
				}
				}