mirror of
https://github.com/RIOT-OS/RIOT.git
synced 2024-12-29 04:50:03 +01:00
20 lines
796 B
Tcl
Executable File
20 lines
796 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
# Keywords break and continue should be immediately followed by a semicolon
|
|
|
|
foreach f [getSourceFileNames] {
|
|
foreach t [getTokens $f 1 0 -1 -1 {break continue}] {
|
|
set keyword [lindex $t 0]
|
|
set line [lindex $t 1]
|
|
set column [lindex $t 2]
|
|
set semicolons [getTokens $f $line [expr $column + [string length $keyword]] [expr $line + 1] 0 {semicolon}]
|
|
if {$semicolons == {}} {
|
|
report $f $line "keyword '${keyword}' not immediately followed by a semicolon"
|
|
} else {
|
|
set semColumn [lindex [lindex $semicolons 0] 2]
|
|
if {$semColumn != $column + [string length $keyword]} {
|
|
report $f $line "keyword '${keyword}' not immediately followed by a semicolon"
|
|
}
|
|
}
|
|
}
|
|
}
|