1#!/usr/bin/perl
2# -*- perl -*-
3
4#   Copyright (C) 2001-2018 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@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
31if ($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
40exit 0;
41
42format STDOUT =
43^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~
44$out
45        ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
46$out
47.
48
49######################################################################
50
51sub 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
87sub 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
183sub 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
197sub 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
205sub 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
212sub 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