From 0941edb00f785a11c2cb9432b7e5bbf180d18269 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 8 Oct 1998 15:11:10 +0000
Subject: [PATCH] [project @ 1998-10-08 15:11:10 by simonm] add -s option for
extra obj suffixes, like mkdependHS
---
glafp-utils/mkdependC/mkdependC.prl | 25 ++++++++++++++++---------
1 file changed, 16 insertions(+), 9 deletions(-)
diff --git a/glafp-utils/mkdependC/mkdependC.prl b/glafp-utils/mkdependC/mkdependC.prl
index 5f00def2bfcf..7c524bd4d851 100644
--- a/glafp-utils/mkdependC/mkdependC.prl
+++ b/glafp-utils/mkdependC/mkdependC.prl
@@ -15,11 +15,12 @@ $Dashdashes_seen = 0;
$Begin_magic_str = "# DO NOT DELETE: Beginning of C dependencies\n";
$End_magic_str = "# DO NOT DELETE: End of C dependencies\n";
-$Obj_suffix = '.o';
+$Obj_suffix = 'o';
@Defines = ();
$Include_dirs = '';
$Makefile = '';
@Src_files = ();
+@File_suffix = ();
if ( $ENV{'TMPDIR'} ) { # where to make tmp file names
$Tmp_prefix = $ENV{'TMPDIR'} . "/mkdependC$$";
@@ -60,7 +61,7 @@ foreach $sf (@Src_files) {
# a de-commenter (not implemented);
# builds up @Depend_lines
print STDERR "Here we go for source file: $sf\n" if $Verbose;
- ($of = $sf) =~ s/\.(c|hc)$/$Obj_suffix/;
+ ($bf = $sf) =~ s/\.(c|hc)$//;
&slurp_file($sf, 'fh00');
}
@@ -111,6 +112,9 @@ sub mangle_command_line_args {
$Makefile = &grab_arg_arg($_);
} elsif ( /^-o/ ) {
$Obj_suffix = &grab_arg_arg($_);
+ } elsif ( /^-s/ ) {
+ local($suff) = &grab_arg_arg($_);
+ push(@File_suffix, $suff);
} elsif ( /^-bs/ ) {
$Begin_magic_str = &grab_arg_arg($_) . "\n";
} elsif ( /^-es/ ) {
@@ -178,30 +182,33 @@ sub slurp_file { # follows an example in the `open' item in perl man page
# don't bother w/ dependencies on /usr/include stuff
# don't bother if it looks like a GCC built-in hdr file
# don't bother with funny yacc-ish files
- # don't bother with "literate" .h files (.lh); we'll just
- # depend on the de-litified versions (which have better info)
# don't let a file depend on itself
next line if /^\/usr\/include/;
- # Hack - the cygwin32 dir structure is odd!
+ # Hack - the cygwin32 dir structupre is odd!
next line if /H-i386-cygwin32\/i386-cygwin32/;
next line if /H-i386-cygwin32\/lib\/gcc-lib\/i386-cygwin32/;
next line if /\/gcc-lib\/[^\/\n]+\/[\.0-9]+\/include\//;
next line if /\/gnu\/[^-\/]+-[^-\/]+-[^-\/]+\/include\//;
next line if /\/yaccpar/;
next line if /\/bison\.(simple|hairy)/;
- next line if /\.lh$/;
next line if $_ eq $fname;
print STDERR "$fname :: $_\n" if $Verbose;
# ToDo: some sanity checks that we still have something reasonable?
- $depend = "$of : $_\n";
- next line if $Depend_seen{$depend}; # already seen this one...
+ $int_file = $_;
+ $depend = "$bf.$Obj_suffix ";
+ foreach $suff (@File_suffix) {
+ $depend .= "$bf.${suff}_$Obj_suffix ";
+ }
+ $depend .= " : $int_file\n";
+ next line if $Depend_seen{$depend}; # already seen this one...
# OK, it's a new one.
- push (@Depend_lines, $depend);
$Depend_seen{$depend} = 1;
+
+ push (@Depend_lines, $depend);
}
close($fhandle);
unlink($tempfile);
--
GitLab