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