libiberty/maint-tool

   1 #!/usr/bin/perl
   2 # -*- perl -*-
   3
   4 #   Copyright (C) 2001
   5 #   Free Software Foundation
   6 #
   7 # This file is part of the libiberty library.
   8 # Libiberty is free software; you can redistribute it and/or
   9 # modify it under the terms of the GNU Library General Public
  10 # License as published by the Free Software Foundation; either
  11 # version 2 of the License, or (at your option) any later version.
  12 #
  13 # Libiberty is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 # Library General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU Library General Public
  19 # License along with libiberty; see the file COPYING.LIB.  If not,
  20 # write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21 # Boston, MA 02111-1307, USA.
  22 #
  23 # Originally written by DJ Delorie <dj@redhat.com>
  24
  25
  26 # This is a trivial script which checks the lists of C and O files in
  27 # the Makefile for consistency.
  28
  29 $mode = shift;
  30 $srcdir = ".";
  31
  32 if ($mode eq "-s") {
  33     $srcdir = shift;
  34     $mode = shift;
  35 }
  36
  37 &missing() if $mode eq "missing";
  38 &undoc() if $mode eq "undoc";
  39 &deps() if $mode eq "deps";
  40
  41 exit 0;
  42
  43 format STDOUT =
  44 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~
  45 $out
  46         ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
  47 $out
  48 .
  49
  50 ######################################################################
  51
  52 sub missing {
  53
  54     opendir(S, $srcdir);
  55     while ($f = readdir S) {
  56         $have{$f} = 1;
  57     }
  58     closedir(S);
  59     opendir(S, ".");
  60     while ($f = readdir S) {
  61         $have{$f} = 1;
  62     }
  63     closedir(S);
  64
  65     for $a (@ARGV) {
  66         $listed{$a} = 1;
  67         $have{$a} = 0;
  68     }
  69
  70     for $f (sort keys %have) {
  71         next unless $have{$f};
  72         if ($f =~ /\.c$/) {
  73             print "S $f\n";
  74         }
  75     }
  76     for $f (sort keys %listed) {
  77         if ($f =~ /(.*)\.c$/) {
  78             $base = $1;
  79             if (! $listed{"$base.lo"}) {
  80                 print "O $f\n";
  81             }
  82         }
  83     }
  84 }
  85
  86 ######################################################################
  87
  88 sub undoc {
  89
  90     opendir(S, $srcdir);
  91     while ($file = readdir S) {
  92         if ($file =~ /\.texi$/) {
  93             open(T, "$srcdir/$file");
  94             while (<T>) {
  95                 if (/^\@deftype[^\(]* ([^\s\(]+) *\(/) {
  96                     $documented{$1} = 1;
  97                 }
  98             }
  99             close(T);
 100         }
 101         if ($file =~ /\.c$/) {
 102             open(C, "$srcdir/$file");
 103             while (<C>) {
 104                 if (/\@undocumented (\S+)/) {
 105                     $documented{$1} = 1;
 106                 }
 107                 if (/^static /) {
 108                     if (! /[\(;]/) {
 109                         s/[\r\n]+$/ /;
 110                         $_ .= <C>;
 111                     }
 112                     while ($_ =~ /\([^\)]*$/) {
 113                         s/[\r\n]+$/ /;
 114                         $_ .= <C>;
 115                     }
 116                 }
 117                 s/ VPARAMS([ \(])/$1/;
 118                 s/PREFIX\(([^\)]*)\)/byte_$1/;
 119                 if (/^static [^\(]* ([^\s\(]+) *\(.*\)$/) {
 120                     $documented{$1} = 1;
 121                 }
 122             }
 123         }
 124     }
 125     closedir(D);
 126
 127     # $out = join(' ', sort keys %documented);
 128     # write;
 129     # print "\n";
 130
 131     system "etags $srcdir/*.c $srcdir/../include/*.h";
 132     open(TAGS, "TAGS");
 133     while (<TAGS>) {
 134         s/[\r\n]+$//;
 135         if (/^\014$/) {
 136             $filename = <TAGS>;
 137             $filename =~ s/[\r\n]+$//;
 138             $filename =~ s/,\d+$//;
 139             $filename =~ s@.*[/\\]@@;
 140             next;
 141         }
 142         if ($filename =~ /\.c$/ ) {
 143             next unless /^[_a-zA-Z]/;
 144         } else {
 145             next unless /^\# *define/;
 146             s/\# *define *//;
 147         }
 148         next if $filename =~ /mpw\.c/;
 149
 150         s/ VPARAMS//;
 151         s/ *\177.*//;
 152         s/,$//;
 153         s/DEFUN\(//;
 154         s/\(//;
 155
 156         next if /^static /;
 157         next if /\s/;
 158         next if /^_/;
 159         next if $documented{$_};
 160         next if /_H_?$/;
 161
 162         if ($seen_in{$_} ne $filename) {
 163             $saw{$_} ++;
 164         }
 165         $seen_in{$_} = $filename;
 166     }
 167
 168     for $k (keys %saw) {
 169         delete $saw{$k} if $saw{$k} > 1;
 170     }
 171
 172     for $k (sort keys %saw) {
 173         $fromfile{$seen_in{$k}} .= " " if $fromfile{$seen_in{$k}};
 174         $fromfile{$seen_in{$k}} .= $k;
 175     }
 176
 177     for $f (sort keys %fromfile) {
 178         $out = "$f: $fromfile{$f}";
 179         write;
 180     }
 181 }
 182
 183 ######################################################################
 184
 185 sub deps_for {
 186     my($f) = @_;
 187     my(%d);
 188     open(F, $f);
 189     %d = ();
 190     while (<F>) {
 191         if (/^#\s*include\s+["<](.*)[">]/) {
 192             $d{$1} = 1;
 193         }
 194     }
 195     close(F);
 196     return keys %d;
 197 }
 198
 199 sub canonicalize {
 200     my ($p) = @_;
 201     0 while $p =~ s@/\./@/@g;
 202     0 while $p =~ s@^\./@@g;
 203     0 while $p =~ s@/[^/]+/\.\./@/@g;
 204     return $p;
 205 }
 206
 207 sub locals_first {
 208     my ($a,$b) = @_;
 209     return -1 if $a eq "config.h";
 210     return  1 if $b eq "config.h";
 211     return $a cmp $b;
 212 }
 213
 214 sub deps {
 215
 216     $crule .= "\t\$(LTCOMPILE) -c -o \$@ \$<\n";
 217     $crule .= "\n";
 218
 219     $incdir = shift @ARGV;
 220
 221     opendir(INC, $incdir);
 222     while ($f = readdir INC) {
 223         next unless $f =~ /\.h$/;
 224         $mine{$f} = "\$(INCDIR)/$f";
 225         $deps{$f} = join(' ', &deps_for("$incdir/$f"));
 226     }
 227     $mine{'config.h'} = "config.h";
 228
 229     opendir(INC, $srcdir);
 230     while ($f = readdir INC) {
 231         next unless $f =~ /\.h$/;
 232         $mine{$f} = "\$(srcdir)/$f";
 233         $deps{$f} = join(' ', &deps_for("$srcdir/$f"));
 234     }
 235     $mine{'config.h'} = "config.h";
 236
 237     open(IN, "$srcdir/Makefile.in");
 238     open(OUT, ">$srcdir/Makefile.tmp");
 239     while (<IN>) {
 240         last if /remainder of this file/;
 241         print OUT;
 242     }
 243     print OUT "# The dependencies in the remainder of this file are automatically\n";
 244     print OUT "# generated by \"make maint-deps\".  Manual edits will be lost.\n\n";
 245
 246     opendir(S, $srcdir);
 247     for $f (sort readdir S) {
 248         if ($f =~ /\.c$/) {
 249
 250             %scanned = ();
 251             @pending = &deps_for("$srcdir/$f");
 252             while (@pending) {
 253                 @tmp = @pending;
 254                 @pending = ();
 255                 for $p (@tmp) {
 256                     next unless $mine{$p};
 257                     if (!$scanned{$p}) {
 258                         push(@pending, split(' ', $deps{$p}));
 259                         $scanned{$p} = 1;
 260                     }
 261                 }
 262             }
 263             @deps = sort { &locals_first($a,$b) } keys %scanned;
 264             $obj = $f;
 265             $obj =~ s/\.c$/.lo/;
 266             $obj = "./$obj:";
 267             if ($#deps >= 0) {
 268                 print OUT "$obj \$(srcdir)/$f";
 269                 $len = length("$obj $f");
 270                 for $dt (@deps) {
 271                     $d = $mine{$dt};
 272                     if ($len + length($d) > 70) {
 273                         printf OUT " \\\n\t$d";
 274                         $len = 8 + length($d);
 275                     } else {
 276                         print OUT " $d";
 277                         $len += length($d) + 1;
 278                     }
 279                 }
 280                 print OUT "\n";
 281             } else {
 282                 print OUT "$obj \$(srcdir)/$f\n";
 283             }
 284             $c = $crule;
 285             $c =~ s@\$\<@\$\(srcdir\)\/$f@g;
 286             print OUT $c;
 287         }
 288     }
 289     closedir(S);
 290     close(IN);
 291     close(OUT);
 292
 293     rename("$srcdir/Makefile.tmp", "$srcdir/Makefile.in");
 294 }