if ($rawline =~ /^\+\s* \t\s*\S/ ||
$rawline =~ /^\+\s* \s*/) {
my $herevet = "$here\n" . cat_vet($rawline) . "\n";
- WARN("[IDT_R_TAB] code indent should use tabs where possible\n" . $herevet);
+ ERROR("[IDT_M_TAB] code indent should use tabs where possible\n" . $herevet);
$rpt_cleaners = 1;
}
# check for space before tabs.
if ($rawline =~ /^\+/ && $rawline =~ / \t/) {
my $herevet = "$here\n" . cat_vet($rawline) . "\n";
- WARN("[IDT_R_TAB] please, no space before tabs\n" . $herevet);
+ ERROR("[IDT_M_TAB] please, no space before tabs\n" . $herevet);
}
# check for spaces at the beginning of a line.
# 3) hanging labels
if ($rawline =~ /^\+ / && $line !~ /\+ *(?:$;|#|$Ident:)/) {
my $herevet = "$here\n" . cat_vet($rawline) . "\n";
- WARN("[IDT_R_TAB] please, no spaces at the start of a line\n" . $herevet);
+ ERROR("[IDT_M_TAB] please, no spaces at the start of a line\n" . $herevet);
}
# check we are in a valid C source file if not then ignore this hunk
}
}
if ($err ne '') {
- WARN("[IDT_R_SCH] switch and case should be at the same indent\n$hereline$err");
+ ERROR("[IDT_M_SCH] switch and case should be at the same indent\n$hereline$err");
}
}
# no C99 // comments
if ($line =~ m{//}) {
- WARN("[CMT_M_C89] do not use C99 // comments\n" . $herecurr);
+# WARN("[CMT_M_C89] do not use C99 // comments\n" . $herecurr);
}
# Remove C99 comments.
$line =~ s@//.*@@;