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

Add lambda in VIsualizationWidget to fix the bug of the corner widget button size...

Add lambda in VIsualizationWidget to fix the bug of the corner widget button size Modify the property of the QFrame to ensure the box around the zone widget to be visible

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r186:134da9ef870f

Download file

             IPSIS_F11.tcl
        
                    39 lines
            
             | 1.2 KiB
            
                | application/x-tcl
            
             |
                TclLexer
            
             / formatting / vera-root / scripts / rules / IPSIS_F11.tcl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      #!/usr/bin/tclsh

      # control structures should have complete curly-braced block of code

      foreach fileName [getSourceFileNames] {

          set state "start"

          set prev ""

          foreach token [getTokens $fileName 1 0 -1 -1 {for if while do leftparen rightparen leftbrace rightbrace semicolon}] {

              set type [lindex $token 3]

              if {$state == "control"} {

                  if {$type == "leftparen"} {

                      incr parenCount

                  } elseif {$type == "rightparen"} {

                      incr parenCount -1

                      if {$parenCount == 0} {

                          set state "expectedblock"

                      }

                  }

              } elseif {$state == "expectedblock"} {

                  if {$type != "leftbrace"} {

                      set line [lindex $token 1]

                      report $fileName $line "full block {} expected in the control structure"

                  }

                  set state "block"

              }

              if {$type == "for" || $type == "if"} {

                  set parenCount 0

                  set state "control"

              } elseif {$type == "do"} {

                  set state "expectedblock"

              } elseif {$type == "while" && $prev != "rightbrace"} {

                  set parenCount 0

                  set state "control"

              }

              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
				# control structures should have complete curly-braced block of code

				foreach fileName [getSourceFileNames] {

				set state "start"
				set prev ""
				foreach token [getTokens $fileName 1 0 -1 -1 {for if while do leftparen rightparen leftbrace rightbrace semicolon}] {
				set type [lindex $token 3]

				if {$state == "control"} {
				if {$type == "leftparen"} {
				incr parenCount
				} elseif {$type == "rightparen"} {
				incr parenCount -1
				if {$parenCount == 0} {
				set state "expectedblock"
				}
				}
				} elseif {$state == "expectedblock"} {
				if {$type != "leftbrace"} {
				set line [lindex $token 1]
				report $fileName $line "full block {} expected in the control structure"
				}
				set state "block"
				}

				if {$type == "for" \|\| $type == "if"} {
				set parenCount 0
				set state "control"
				} elseif {$type == "do"} {
				set state "expectedblock"
				} elseif {$type == "while" && $prev != "rightbrace"} {
				set parenCount 0
				set state "control"
				}
				set prev $type
				}
				}