1: #!/usr/bin/env perl
2:
3: use File::Temp qw/ :mktemp /;
4: use Fcntl;
5: use warnings;
6:
7: die "usage: $0 Makefile ...\n" unless $#ARGV >= 0;
8:
9: my @incpaths;
10: my %dir_vars;
11: my %implicit;
12: my %generated;
13:
14: # Read in MANIFEST fail if present
15: my %manifest;
16: if (open(MANIFEST, "<MANIFEST")) {
17: while (<MANIFEST>) {
18: chomp;
19: next unless /([^\/]+\.[cly])$/;
20: $manifest{$1} = $_;
21: }
22: }
23:
24: foreach (@ARGV) {
25: mkdep($_);
26: }
27:
28: sub mkdep {
29: my $file = $_[0];
30: $file =~ s:^\./+::; # strip off leading ./
31:
32: my $makefile;
33: if (open(MF, "<$file")) {
34: local $/; # enable "slurp" mode
35: $makefile = <MF>;
36: } else {
37: warn "$0: $file: $!\n";
38: return undef;
39: }
40: close(MF);
41:
42: # New makefile, minus the autogenerated dependencies
43: my $separator = "# Autogenerated dependencies, do not modify";
44: my $new_makefile = $makefile;
45: $new_makefile =~ s/${separator}.*$//s;
46: $new_makefile .= "$separator\n";
47:
48: # Old makefile, join lines with continuation characters
49: $makefile =~ s/\\\n//mg;
50:
51: # Expand some configure bits
52: $makefile =~ s:\@DEV\@::g;
53: $makefile =~ s:\@COMMON_OBJS\@:aix.lo:;
54: $makefile =~ s:\@SUDO_OBJS\@:preload.o selinux.o sesh.o sudo_noexec.lo:;
55: $makefile =~ s:\@SUDOERS_OBJS\@:bsm_audit.lo linux_audit.lo ldap.lo plugin_error.lo sssd.lo:;
56: # XXX - fill in AUTH_OBJS from contents of the auth dir instead
57: $makefile =~ s:\@AUTH_OBJS\@:afs.lo aix_auth.lo bsdauth.lo dce.lo fwtk.lo getspwuid.lo kerb5.lo pam.lo passwd.lo rfc1938.lo secureware.lo securid5.lo sia.lo:;
58: $makefile =~ s:\@LTLIBOBJS\@:closefrom.lo dlopen.lo fnmatch.lo getcwd.lo getgrouplist.lo getline.lo getprogname.lo glob.lo isblank.lo memrchr.lo mksiglist.lo mksigname.lo mktemp.lo nanosleep.lo pw_dup.lo sig2str.lo siglist.lo signame.lo snprintf.lo strlcat.lo strlcpy.lo strsignal.lo utimes.lo globtest.o fnm_test.o:;
59:
60: # Parse OBJS lines
61: my %objs;
62: while ($makefile =~ /^[A-Z0-9_]*OBJS\s*=\s*(.*)/mg) {
63: foreach (split/\s+/, $1) {
64: next if /^\$[\(\{].*[\)\}]$/; # skip included vars for now
65: $objs{$_} = 1;
66: }
67: }
68:
69: # Find include paths
70: @incpaths = ();
71: while ($makefile =~ /-I(\S+)/mg) {
72: push(@incpaths, $1) unless $1 eq ".";
73: }
74:
75: # Check for generated files
76: if ($makefile =~ /GENERATED\s*=\s*(.+)$/m) {
77: foreach (split(/\s+/, $1)) {
78: $generated{$_} = 1;
79: }
80: }
81:
82: # Values of srcdir, top_srcdir, top_builddir, incdir
83: %dir_vars = ();
84: $file =~ m:^(.*)/+[^/]+:;
85: $dir_vars{'srcdir'} = $1 || '.';
86: $dir_vars{'devdir'} = $dir_vars{'srcdir'};
87: $dir_vars{'authdir'} = $dir_vars{'srcdir'} . "/auth";
88: $dir_vars{'top_srcdir'} = '.';
89: #$dir_vars{'top_builddir'} = '.';
90: $dir_vars{'incdir'} = 'include';
91:
92: # Find implicit rules for generate .o and .lo files
93: %implicit = ();
94: while ($makefile =~ /^\.c\.(l?o):\s*\n\t+(.*)$/mg) {
95: $implicit{$1} = $2;
96: }
97:
98: # Find existing .o and .lo dependencies
99: my %old_deps;
100: while ($makefile =~ /^(\w+\.l?o):\s*(\S+\.c)/mg) {
101: $old_deps{$1} = $2;
102: }
103:
104: # Sort files so we do .lo files first
105: foreach my $obj (sort keys %objs) {
106: next unless $obj =~ /(\S+)\.(l?o)$/;
107: if ($2 eq "o" && exists($objs{"$1.lo"})) {
108: # If we have both .lo and .o files, make the .o depend on the .lo
109: $new_makefile .= sprintf("%s: %s.lo\n", $obj, $1);
110: } else {
111: # Use old depenencies when mapping objects to their source.
112: # If no old depenency, use the MANIFEST file to find the source.
113: my $src = $1 . '.c';
114: my $ext = $2;
115: if (exists $old_deps{$obj}) {
116: $src = $old_deps{$obj};
117: } elsif (exists $manifest{$src}) {
118: $src = $manifest{$src};
119: foreach (sort { length($b) <=> length($a) } keys %dir_vars) {
120: next if $_ eq "devdir";
121: last if $src =~ s:^\Q$dir_vars{$_}/\E:\$\($_\)/:;
122: }
123: } else {
124: warn "$file: unable to find source for $obj\n";
125: }
126: my $imp = $implicit{$ext};
127: $imp =~ s/\$</$src/g;
128:
129: my $deps = sprintf("%s: %s %s", $obj, $src,
130: join(' ', find_depends($src)));
131: if (length($deps) > 80) {
132: my $off = 0;
133: my $indent = length($obj) + 2;
134: while (length($deps) - $off > 80 - $indent) {
135: my $pos;
136: if ($off != 0) {
137: $new_makefile .= ' ' x $indent;
138: $pos = rindex($deps, ' ', $off + 80 - $indent - 2);
139: } else {
140: $pos = rindex($deps, ' ', $off + 78);
141: }
142: $new_makefile .= substr($deps, $off, $pos - $off) . " \\\n";
143: $off = $pos + 1;
144: }
145: $new_makefile .= ' ' x $indent;
146: $new_makefile .= substr($deps, $off) . "\n";
147: } else {
148: $new_makefile .= "$deps\n";
149: }
150: $new_makefile .= "\t$imp\n";
151: }
152: }
153:
154: my $newfile = $file . ".new";
155: if (!open(MF, ">$newfile")) {
156: warn("cannot open $newfile: $!\n");
157: } else {
158: print MF $new_makefile || warn("cannot write $newfile: $!\n");
159: close(MF) || warn("cannot close $newfile: $!\n");;
160: rename($newfile, $file);
161: }
162: }
163:
164: exit(0);
165:
166: sub find_depends {
167: my $src = $_[0];
168: my ($deps, $code, @headers);
169:
170: if ($src !~ /\//) {
171: # XXX - want build dir not src dir
172: $src = "$dir_vars{'srcdir'}/$src";
173: }
174:
175: # resolve $(srcdir) etc.
176: foreach (keys %dir_vars) {
177: $src =~ s/\$[\(\{]$_[\)\}]/$dir_vars{$_}/g;
178: }
179:
180: # find open source file and find headers used by it
181: if (!open(FILE, "<$src")) {
182: warn "unable to open $src\n";
183: return "";
184: }
185: local $/; # enable "slurp" mode
186: $code = <FILE>;
187: close(FILE);
188:
189: # find all headers
190: while ($code =~ /^#\s*include\s+["<](\S+)[">]/mg) {
191: my ($hdr, $hdr_path) = find_header($1);
192: if (defined($hdr)) {
193: push(@headers, $hdr);
194: # Look for other includes in the .h file
195: push(@headers, find_depends($hdr_path));
196: }
197: }
198:
199: @headers;
200: }
201:
202: # find the path to a header file
203: # returns path or undef if not found
204: sub find_header {
205: my $hdr = $_[0];
206:
207: # Look for .h.in files in top_builddir and build dir
208: return ("\$(top_builddir\)/$hdr", "./${hdr}.in") if -r "./${hdr}.in";
209: return ("./$hdr", "$dir_vars{'srcdir'}/${hdr}.in") if -r "$dir_vars{'srcdir'}/${hdr}.in";
210:
211: if (exists $generated{$hdr}) {
212: my $hdr_path = $dir_vars{'devdir'} . '/' . $hdr;
213: return ('$(devdir)/' . $hdr, $hdr_path) if -r $hdr_path;
214: }
215: foreach my $inc (@incpaths) {
216: my $hdr_path = "$inc/$hdr";
217: # resolve variables in include path
218: foreach (keys %dir_vars) {
219: next if $_ eq "devdir";
220: $hdr_path =~ s/\$[\(\{]$_[\)\}]/$dir_vars{$_}/g;
221: }
222: return ("$inc/$hdr", $hdr_path) if -r $hdr_path;
223: }
224:
225: undef;
226: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mkdep.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sudo