Mercurial > malikania

annotate vera/rules/T019.tcl @ 99:0addfab87b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Common: implement basic tilesets, closes #664
author David Demelier <markand@malikania.fr>
date Fri, 18 Aug 2017 18:45:07 +0200
parents 0edaba9986ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
54
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
1 #!/usr/bin/tclsh
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
2 # control structures should have complete curly-braced block of code
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
3
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
4 foreach fileName [getSourceFileNames] {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
5
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
6 set state "start"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
7 set prev ""
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
8 set pp_pragma_line -1
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
9 foreach token [getTokens $fileName 1 0 -1 -1 {for if while do else leftparen rightparen leftbrace rightbrace semicolon pp_pragma}] {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
10 set type [lindex $token 3]
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
11 set line [lindex $token 1]
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
12
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
13 if {$state == "control"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
14 if {$type == "leftparen"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
15 incr parenCount
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
16 } elseif {$type == "rightparen"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
17 incr parenCount -1
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
18 if {$parenCount == 0} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
19 set state "expectedblock"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
20 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
21 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
22
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
23 } elseif {$state == "expectedblock"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
24 if {$prev == "else" && $type == "if" } {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
25 # skip
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
26 } elseif {$type != "leftbrace"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
27 set line [lindex $token 1]
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
28 report $fileName $line "full block {} expected in the control structure"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
29 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
30 set state "block"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
31 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
32
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
33 if {$type == "pp_pragma"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
34 set pp_pragma_line $line
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
35 } elseif {$pp_pragma_line != $line} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
36 if {$type == "for" || $type == "if"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
37 set parenCount 0
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
38 set state "control"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
39 } elseif {$type == "do" || $type == "else"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
40 set state "expectedblock"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
41 } elseif {$type == "while" && $prev != "rightbrace"} {
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
42 set parenCount 0
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
43 set state "control"
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
44 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
45 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
46 set prev $type
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
47 }
0edaba9986ba CMake: add vera++, closes 602
David Demelier <markand@malikania.fr>
parents:
diff changeset
48 }