145 |
next unless /^\# *define/; |
next unless /^\# *define/; |
146 |
s/\# *define *//; |
s/\# *define *//; |
147 |
} |
} |
|
next if $filename =~ /mpw\.c/; |
|
148 |
|
|
149 |
s/ VPARAMS//; |
s/ VPARAMS//; |
150 |
s/ *\177.*//; |
s/ *\177.*//; |
212 |
|
|
213 |
sub deps { |
sub deps { |
214 |
|
|
215 |
|
$crule = "\tif [ x\"\$(PICFLAG)\" != x ]; then \\\n"; |
216 |
|
$crule .= "\t \$(COMPILE.c) \$(PICFLAG) \$< -o pic/\$@; \\\n"; |
217 |
|
$crule .= "\telse true; fi\n"; |
218 |
|
$crule .= "\t\$(COMPILE.c) \$< \$(OUTPUT_OPTION)\n"; |
219 |
|
$crule .= "\n"; |
220 |
|
|
221 |
$incdir = shift @ARGV; |
$incdir = shift @ARGV; |
222 |
|
|
223 |
opendir(INC, $incdir); |
opendir(INC, $incdir); |
228 |
} |
} |
229 |
$mine{'config.h'} = "config.h"; |
$mine{'config.h'} = "config.h"; |
230 |
|
|
231 |
|
opendir(INC, $srcdir); |
232 |
|
while ($f = readdir INC) { |
233 |
|
next unless $f =~ /\.h$/; |
234 |
|
$mine{$f} = "\$(srcdir)/$f"; |
235 |
|
$deps{$f} = join(' ', &deps_for("$srcdir/$f")); |
236 |
|
} |
237 |
|
$mine{'config.h'} = "config.h"; |
238 |
|
|
239 |
open(IN, "$srcdir/Makefile.in"); |
open(IN, "$srcdir/Makefile.in"); |
240 |
open(OUT, ">$srcdir/Makefile.tmp"); |
open(OUT, ">$srcdir/Makefile.tmp"); |
241 |
while (<IN>) { |
while (<IN>) { |
265 |
@deps = sort { &locals_first($a,$b) } keys %scanned; |
@deps = sort { &locals_first($a,$b) } keys %scanned; |
266 |
$obj = $f; |
$obj = $f; |
267 |
$obj =~ s/\.c$/.o/; |
$obj =~ s/\.c$/.o/; |
268 |
$obj = "$obj:"; |
$obj = "./$obj:"; |
269 |
if ($#deps >= 0) { |
if ($#deps >= 0) { |
270 |
print OUT $obj; |
print OUT "$obj \$(srcdir)/$f"; |
271 |
$len = length($obj); |
$len = length("$obj $f"); |
272 |
for $dt (@deps) { |
for $dt (@deps) { |
273 |
$d = $mine{$dt}; |
$d = $mine{$dt}; |
274 |
if ($len + length($d) > 70) { |
if ($len + length($d) > 70) { |
280 |
} |
} |
281 |
} |
} |
282 |
print OUT "\n"; |
print OUT "\n"; |
283 |
|
} else { |
284 |
|
print OUT "$obj \$(srcdir)/$f\n"; |
285 |
} |
} |
286 |
|
$c = $crule; |
287 |
|
$c =~ s@\$\<@\$\(srcdir\)\/$f@g; |
288 |
|
print OUT $c; |
289 |
} |
} |
290 |
} |
} |
291 |
closedir(S); |
closedir(S); |