File: check_headers.pl

package info (click to toggle)
libdmtx 0.7.8-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 2,108 kB
  • sloc: ansic: 10,638; sh: 253; makefile: 154; perl: 28
file content (37 lines) | stat: -rwxr-xr-x 657 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
#!/usr/bin/perl -w

use strict;
use File::Basename;

# TODO: Test still misses first function of each file

my $errorCount = 0;
undef my $closeLineNbr;
undef my $lineNbrs;

while(<>) {
   chomp;

   if(m/^}$/) {
      $closeLineNbr = $.;
   }
   elsif(!defined($closeLineNbr) || m/^$/ || m/^\*/ || m/^#/) {
      next;
   }
   elsif(m/^\/\*\*$/) {
      undef $closeLineNbr;
   }
   else {
      $lineNbrs = (defined $lineNbrs) ? "$lineNbrs, $." : $.;
      $errorCount++;
      undef $closeLineNbr;
   }
}

if($errorCount > 0) {
   print "Missing header comment in file \"" . basename($ARGV) .
         "\" at line(s) $lineNbrs\n";
   exit(1);
}

exit(0);