util/src-dep.pl

   1 #!/usr/local/bin/perl
   2
   3 # we make up an array of
   4 # $file{function_name}=filename;
   5 # $unres{filename}="func1 func2 ...."
   6 $debug=1;
   7 #$nm_func="parse_linux";
   8 $nm_func="parse_solaris";
   9
  10 foreach (@ARGV)
  11         {
  12         &$nm_func($_);
  13         }
  14
  15 foreach $file (sort keys %unres)
  16         {
  17         @a=split(/\s+/,$unres{$file});
  18         %ff=();
  19         foreach $func (@a)
  20                 {
  21                 $f=$file{$func};
  22                 $ff{$f}=1 if $f ne "";
  23                 }
  24
  25         foreach $a (keys %ff)
  26                 { $we_need{$file}.="$a "; }
  27         }
  28
  29 foreach $file (sort keys %we_need)
  30         {
  31 #       print " $file $we_need{$file}\n";
  32         foreach $bit (split(/\s+/,$we_need{$file}))
  33                 { push(@final,&walk($bit)); }
  34
  35         foreach (@final) { $fin{$_}=1; }
  36         @final="";
  37         foreach (sort keys %fin)
  38                 { push(@final,$_); }
  39
  40         print "$file: @final\n";
  41         }
  42
  43 sub walk
  44         {
  45         local($f)=@_;
  46         local(@a,%seen,@ret,$r);
  47
  48         @ret="";
  49         $f =~ s/^\s+//;
  50         $f =~ s/\s+$//;
  51         return "" if ($f =~ "^\s*$");
  52
  53         return(split(/\s/,$done{$f})) if defined ($done{$f});
  54
  55         return if $in{$f} > 0;
  56         $in{$f}++;
  57         push(@ret,$f);
  58         foreach $r (split(/\s+/,$we_need{$f}))
  59                 {
  60                 push(@ret,&walk($r));
  61                 }
  62         $in{$f}--;
  63         $done{$f}=join(" ",@ret);
  64         return(@ret);
  65         }
  66
  67 sub parse_linux
  68         {
  69         local($name)=@_;
  70
  71         open(IN,"nm $name|") || die "unable to run 'nn $name':$!\n";
  72         while (<IN>)
  73                 {
  74                 chop;
  75                 next if /^\s*$/;
  76                 if (/^[^[](.*):$/)
  77                         {
  78                         $file=$1;
  79                         $file="$1.c" if /\[(.*).o\]/;
  80                         print STDERR "$file\n";
  81                         $we_need{$file}=" ";
  82                         next;
  83                         }
  84
  85                 @a=split(/\s*\|\s*/);
  86                 next unless $#a == 7;
  87                 next unless $a[4] eq "GLOB";
  88                 if ($a[6] eq "UNDEF")
  89                         {
  90                         $unres{$file}.=$a[7]." ";
  91                         }
  92                 else
  93                         {
  94                         if ($file{$a[7]} ne "")
  95                                 {
  96                                 print STDERR "duplicate definition of $a[7],\n$file{$a[7]} and $file \n";
  97                                 }
  98                         else
  99                                 {
 100                                 $file{$a[7]}=$file;
 101                                 }
 102                         }
 103                 }
 104         close(IN);
 105         }
 106
 107 sub parse_solaris
 108         {
 109         local($name)=@_;
 110
 111         open(IN,"nm $name|") || die "unable to run 'nn $name':$!\n";
 112         while (<IN>)
 113                 {
 114                 chop;
 115                 next if /^\s*$/;
 116                 if (/^(\S+):$/)
 117                         {
 118                         $file=$1;
 119                         #$file="$1.c" if $file =~ /^(.*).o$/;
 120                         print STDERR "$file\n";
 121                         $we_need{$file}=" ";
 122                         next;
 123                         }
 124                 @a=split(/\s*\|\s*/);
 125                 next unless $#a == 7;
 126                 next unless $a[4] eq "GLOB";
 127                 if ($a[6] eq "UNDEF")
 128                         {
 129                         $unres{$file}.=$a[7]." ";
 130                         print STDERR "$file needs $a[7]\n" if $debug;
 131                         }
 132                 else
 133                         {
 134                         if ($file{$a[7]} ne "")
 135                                 {
 136                                 print STDERR "duplicate definition of $a[7],\n$file{$a[7]} and $file \n";
 137                                 }
 138                         else
 139                                 {
 140                                 $file{$a[7]}=$file;
 141                                 print STDERR "$file has $a[7]\n" if $debug;
 142                                 }
 143                         }
 144                 }
 145         close(IN);
 146         }
 147