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)" | ||||
} | ||||
} | ||||
} | ||||