find-in-headers.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use File::Basename;
   6 use Cwd 'abs_path';
   7 use lib dirname(abs_path($0));
   8 use CParser;
   9 use Data::Dump qw(dump);
  10
  11 my $file = $ARGV[0] or die ("need filename");
  12 my $dir = $ARGV[1] or die ("need dir with headers as second arg");
  13
  14 #print "processing $file\n";
  15
  16 my $p = CParser->new($file);
  17 $p->parse();
  18
  19 my @hdrs=`find $dir -name '*.h'`;
  20 for(@hdrs) {
  21         chomp;
  22         #print "processing $_\n";
  23         #next unless /unistd/;
  24         my $h = CParser->new($_);
  25         $h->parse();
  26         #dump $h;
  27         #exit;
  28         for(keys %{$p->{funcs}}) {
  29                 print "$_ defined in $file and $h->{cfile}\n" if(defined($h->{funcs}->{$_}));
  30         }
  31 }