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

Creates a interface that defines a variable container...

Creates a interface that defines a variable container - A variable container is an entity that can eventually accomodate a variable (for example, from a menu or d'n'd) - The interfaces declares canDrop() method, that will be used to create a menu for a variable containing only the containers available for it, or to enable/disable d'n'd of this variable on a container - Each visualization widget is a variable container, so it implements canDrop() method

perrinel - - Load All Authors

File last commit:

r2:451739a45362


                r209:7ef1d04a5917

Download file

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

        perrinel
    
Ajout de vera++

              r2
            
      #!/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

perrinel Ajout de vera++	r2	#!/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
		}
		}