build-aux/mock-noinline.pl

   1 #!/usr/bin/env perl
   2
   3 my %noninlined;
   4 my %mocked;
   5
   6 # Functions in public header don't get the noinline annotation
   7 # so whitelist them here
   8 $noninlined{"virEventAddTimeout"} = 1;
   9 # This one confuses the script as its defined in the mock file
  10 # but is actually just a local helper
  11 $noninlined{"virMockStatRedirect"} = 1;
  12
  13 foreach my $arg (@ARGV) {
  14     if ($arg =~ /\.h$/) {
  15         #print "Scan header $arg\n";
  16         &scan_annotations($arg);
  17     } elsif ($arg =~ /mock\.c$/) {
  18         #print "Scan mock $arg\n";
  19         &scan_overrides($arg);
  20     }
  21 }
  22
  23 my $warned = 0;
  24 foreach my $func (keys %mocked) {
  25     next if exists $noninlined{$func};
  26
  27     $warned++;
  28     print STDERR "$func is mocked at $mocked{$func} but missing noinline annotation\n";
  29 }
  30
  31 exit $warned ? 1 : 0;
  32
  33
  34 sub scan_annotations {
  35     my $file = shift;
  36
  37     open FH, $file or die "cannot read $file: $!";
  38
  39     my $func;
  40     while (<FH>) {
  41         if (/^\s*(\w+)\(/ || /^(?:\w+\*?\s+)+(?:\*\s*)?(\w+)\(/) {
  42             my $name = $1;
  43             if ($name !~ /ATTRIBUTE/) {
  44                 $func = $name;
  45             }
  46         } elsif (/^\s*$/) {
  47             $func = undef;
  48         }
  49         if (/ATTRIBUTE_NOINLINE/) {
  50             if (defined $func) {
  51                 $noninlined{$func} = 1;
  52             }
  53         }
  54     }
  55
  56     close FH
  57 }
  58
  59 sub scan_overrides {
  60     my $file = shift;
  61
  62     open FH, $file or die "cannot read $file: $!";
  63
  64     my $func;
  65     while (<FH>) {
  66         if (/^(\w+)\(/ || /^\w+\s*(?:\*\s*)?(\w+)\(/) {
  67             my $name = $1;
  68             if ($name =~ /^vir/) {
  69                 $mocked{$name} = "$file:$.";
  70             }
  71         }
  72     }
  73
  74     close FH
  75 }