usr/dash/gendeps.pl

#!/usr/bin/perl
#
# Generate dependencies for *generated* header files.  Generated
# header files have to use #include "foo.h" syntax.
#

($src, $obj, @build_headers) = @ARGV;
%build_headers = map { $_ => 1 } @build_headers;

open(GENDEPS, "> $obj/.gendeps\0")
    or die "$0: Cannot create $obj/.gendeps: $!\n";

opendir(DIR, $src) or die "$0: Cannot opendir $src: $!\n";
while ( defined($file = readdir(DIR)) ) {
    if ( $file =~ /^(.*)\.c$/ ) {
	$basename = $1;
	@hdrs = ();
	open(FILE, "< $src/$file\0")
	    or die "$0: Cannot open $src/$file: $!\n";
	while ( defined($line = <FILE>) ) {
	    if ( $line =~ /^\s*\#\s*include\s+\"(.*)\"/ ) {
		$header = $1;

		if ( $build_headers{$header} ) {
		    push(@hdrs, "\$(obj)/$header");
		}
	    }
	}
	close(FILE);

	if (scalar(@hdrs)) {
	    print GENDEPS "\$(obj)/$basename.o: ", join(' ', @hdrs), "\n";
	}
    }
}

closedir(DIR);
close(GENDEPS);
1	#!/usr/bin/perl
2	#
3	# Generate dependencies for generated header files. Generated
4	# header files have to use #include "foo.h" syntax.
5	#
6
7	($src, $obj, @build_headers) = @ARGV;
8	%build_headers = map { $_ => 1 } @build_headers;
9
10	open(GENDEPS, "> $obj/.gendeps\0")
11	or die "$0: Cannot create $obj/.gendeps: $!\n";
12
13	opendir(DIR, $src) or die "$0: Cannot opendir $src: $!\n";
14	while ( defined($file = readdir(DIR)) ) {
15	if ( $file =~ /^(.*)\.c$/ ) {
16	$basename = $1;
17	@hdrs = ();
18	open(FILE, "< $src/$file\0")
19	or die "$0: Cannot open $src/$file: $!\n";
20	while ( defined($line = <FILE>) ) {
21	if ( $line =~ /^\s\#\sinclude\s+\"(.*)\"/ ) {
22	$header = $1;
23
24	if ( $build_headers{$header} ) {
25	push(@hdrs, "\$(obj)/$header");
26	}
27	}
28	}
29	close(FILE);
30
31	if (scalar(@hdrs)) {
32	print GENDEPS "\$(obj)/$basename.o: ", join(' ', @hdrs), "\n";
33	}
34	}
35	}
36
37	closedir(DIR);
38	close(GENDEPS);