IPSIS_S04_FILENAME.tcl
13 lines
| 479 B
| application/x-tcl
|
TclLexer
| r2 | #!/usr/bin/tclsh | |||
| # Naming conventions for file names | ||||
| set fileNameRegex [getParameter "filename-regex" {^[A-Z]\w*$}] | ||||
| foreach fileName [getSourceFileNames] { | ||||
| # Check file name | ||||
| if {[regexp {(?:\\|/)?([^\\/]+?)\.(?:h|cpp)$} $fileName matchedExpr fileNameWithoutExt]} { | ||||
| if {![regexp $fileNameRegex $fileNameWithoutExt]} { | ||||
| report $fileName 1 "The file names should match the following regex: $fileNameRegex (found: $fileNameWithoutExt)" | ||||
| } | ||||
| } | ||||
| } | ||||
