X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=glafp-utils%2FmkdependC%2FmkdependC.prl;h=0d81c0c4ba13292610f6b89e06f964b796f71ab9;hb=5ea409b895fafdc3605ca3d188216431429a5446;hp=6caa34980f774b515a7c28575b41be6bd93ac86a;hpb=d9f022ce0add3e1ce813e70af38efd95caf1420c;p=ghc-hetmet.git

diff --git a/glafp-utils/mkdependC/mkdependC.prl b/glafp-utils/mkdependC/mkdependC.prl
index 6caa349..0d81c0c 100644
--- a/glafp-utils/mkdependC/mkdependC.prl
+++ b/glafp-utils/mkdependC/mkdependC.prl
@@ -2,10 +2,7 @@
 # This stub of perl assumes that the following two
 # variables are prepended:
 #
-#  RAWCPP
-#  HOSTPLATFORM
-#
-# tries to work like mkdependC
+# TMPDIR CPP
 #
 # ToDo: strip out all the .h junk
 #
@@ -18,26 +15,31 @@ $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 = '';
-$Col_width = 78; # ignored
 $Makefile = '';
 @Src_files = ();
+@File_suffix = ();
+$baseName='';
+
+if ( $ENV{'TMPDIR'} ) { # where to make tmp file names
+    $Tmp_prefix = $ENV{'TMPDIR'} . "/mkdependC$$";
+} else {
+    $Tmp_prefix ="${TMPDIR}/mkdependC$$";
+    $ENV{'TMPDIR'} = "${TMPDIR}"; # set the env var as well
+}
 
-# the following is a hack, so we can use RAWCPP, but there you go;
-# put in just enough #defines that mkdependC will not barf.
-$HostPlatform = ${HOSTPLATFORM};
+$tempfile = '';
 
-if ( $HostPlatform =~ /^i386-/ ) {
-    push(@Defines, '-D__i386__');
-}
-if ( $HostPlatform =~ /^sparc-/ ) {
-    push(@Defines, '-D__sparc__');
-}
-if ( $HostPlatform =~ /-solaris2$/ ) {
-    push(@Defines, '-D__svr4__');
+sub quit_upon_signal { 
+  if (-f $tempfile) {
+	print STDERR "Deleting $tempfile .. \n"; 
+	unlink $tempfile;
+   }
 }
+$SIG{'INT'}  = 'quit_upon_signal';
+$SIG{'QUIT'} = 'quit_upon_signal';
 
 &mangle_command_line_args();
 
@@ -50,9 +52,7 @@ if ( ! $Makefile && -f 'makefile' ) {
 }
 
 @Depend_lines = ();
-%Depend_seen = ();
 
-print STDERR "CPP defines=@Defines\n" if $Verbose;
 print STDERR "Include_dirs=$Include_dirs\n" if $Verbose;
 
 foreach $sf (@Src_files) {
@@ -61,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/;
+    ($baseName = $sf) =~ s/\.(c|hc)$//;
 
     &slurp_file($sf, 'fh00');
 }
@@ -112,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/ ) {
@@ -148,52 +151,49 @@ sub grab_arg_arg {
 
 sub slurp_file { # follows an example in the `open' item in perl man page
     local($fname,$fhandle) = @_;
-    local($depend); # tmp
+    local($depend,$dep); # tmp
+    local(@Deps);
+
     $fhandle++; # a string increment
 
     $fname = &tidy_dir_names($fname);
 
-    unless (open($fhandle, "${RAWCPP} $Include_dirs @Defines $fname |")) {
-         die "$Pgm: Can't open $fname: $!\n";
+    ($tempfile = $fname) =~ s/\.[^\.]*$/\.d/;
+    $tempfile =~ s|.*/([^/]+)$|$1|g;
+
+    # ${CPP} better be 'gcc -E', or the -x option will fail...
+    # ..and the -MM & -MMD.
+    $result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname");
+    if ($result != 0) {
+	unlink($tempfile);
+	exit($result);
+    };
+
+    local($dep_contents)='';
+    local($deps)='';
+    open($fhandle, $tempfile) || die "$Pgm: Can't open $tempfile: $!\n";
+
+    while (<$fhandle>) {
+       chop;
+       $dep_contents .= $_;
+    }
+    ($deps = $dep_contents) =~ s|^[^:]+:(.*)$|$1|g;
+    $deps =~ s|\\| |g;
+    
+    @Deps = split(/ +/, $deps);
+    
+    $depend = "$baseName.$Obj_suffix";
+    foreach $suff (@File_suffix) {
+	 $depend .= " $baseName.${suff}_$Obj_suffix";
     }
-    line: while (<$fhandle>) {
-	next line if ! /^#/;
-	next line if /^#(ident|pragma)/;
-	chop; # rm trailing newline
-
-	$_ = &tidy_dir_names($_);
-
-	# strip junk off the front and back
-	$_ =~ s/^#\s+\d+\s+//;
-	$_ =~ s/[ 0-9]*$//;
-	
-	# a little bit of ad-hoc fiddling now:
-	# 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/;
-	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...
-
-	# OK, it's a new one.
-	push (@Depend_lines, $depend);
-	$Depend_seen{$depend} = 1;
+    
+    foreach $dep (@Deps) {
+    	push(@Depend_lines, "$depend: $dep\n") if $dep ne '';
     }
+
     close($fhandle);
+    unlink($tempfile);
+    $tempfile = '';  # for quit_upon_signal
 }
 
 sub tidy_dir_names { # rm various pernicious dir-name combinations...