[project @ 2002-07-04 07:09:47 by mthomas]

[ghc-hetmet.git] / glafp-utils / mkdependC / mkdependC.prl

diff --git a/glafp-utils/mkdependC/mkdependC.prl b/glafp-utils/mkdependC/mkdependC.prl
index d879e7f..26ce208 100644 (file)
--- a/glafp-utils/mkdependC/mkdependC.prl
+++ b/glafp-utils/mkdependC/mkdependC.prl
@@ -100,10 +100,10 @@ sub mangle_command_line_args {
        if ( /^--$/ ) {
            $Dashdashes_seen++;
 
-       } elsif ( /^-D(.*)/ ) { # recognized wherever they occur
-           push(@Defines, $_);
-       } elsif ( /^-I/ ) {
-           $Include_dirs .= " $_";
+       } elsif ( /^(-optc)?(-D.*)/ ) { # recognized wherever they occur
+           push(@Defines, $2);
+       } elsif ( /^(-optc)?(-I.*)/ ) {
+           $Include_dirs .= " $2";
 
        } elsif ($Dashdashes_seen != 1) { # not between -- ... --
            if ( /^-v$/ ) {
@@ -163,7 +163,7 @@ sub slurp_file { # follows an example in the `open' item in perl man page
 
     # ${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");
+    $result = system("${CPP} -MM -MMD $Include_dirs @Defines -x c $fname >/dev/null");
     if ($result != 0) {
        unlink($tempfile);
        exit($result);