X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=glafp-utils%2Fscripts%2FmkdependC.prl;fp=glafp-utils%2Fscripts%2FmkdependC.prl;h=272c0a83c5ba96e4d2de50f9c5da6a0e95df5020;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/glafp-utils/scripts/mkdependC.prl b/glafp-utils/scripts/mkdependC.prl
new file mode 100644
index 0000000..272c0a8
--- /dev/null
+++ b/glafp-utils/scripts/mkdependC.prl
@@ -0,0 +1,189 @@
+# *** MSUB does some substitutions here ***
+# *** grep for $( ***
+#
+# tries to work like mkdependC
+#
+# ToDo: strip out all the .h junk
+#
+($Pgm = $0) =~ s/.*\/([^\/]+)$/\1/;
+$Usage  = "usage: $Pgm: not done yet\n";
+
+$Status  = 0; # just used for exit() status
+$Verbose = '';
+$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';
+@Defines = ();
+$Include_dirs = '';
+$Col_width = 78; # ignored
+$Makefile = '';
+@Src_files = ();
+
+&mangle_command_line_args();
+
+if ( ! $Makefile && -f 'makefile' ) {
+    $Makefile = 'makefile';
+} elsif ( ! $Makefile && -f 'Makefile') {
+    $Makefile = 'Makefile';
+} else {
+    die "$Pgm: no makefile or Makefile found\n";
+}
+
+@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) {
+    # just like lit-inputter
+    # except it puts each file through CPP and
+    # 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/;
+
+    &slurp_file($sf, 'fh00');
+}
+
+# OK, mangle the Makefile
+unlink("$Makefile.bak");
+rename($Makefile,"$Makefile.bak");
+# now copy Makefile.bak into Makefile, rm'ing old dependencies
+# and adding the new
+open(OMKF,"< $Makefile.bak") || die "$Pgm: can't open $Makefile.bak: $!\n";
+open(NMKF,"> $Makefile") || die "$Pgm: can't open $Makefile: $!\n";
+select(NMKF);
+$_ = <OMKF>;
+while ($_ && $_ ne $Begin_magic_str) { # copy through, 'til Begin_magic_str
+    print $_;
+    $_ = <OMKF>;
+}
+while ($_ && $_ ne $End_magic_str) { # delete 'til End_magic_str
+    $_ = <OMKF>;
+}
+# insert dependencies
+print $Begin_magic_str;
+print @Depend_lines;
+print $End_magic_str;
+while (<OMKF>) { # copy the rest through
+    print $_;
+}
+close(NMKF);
+close(OMKF);
+chmod 0444, 'Makefile';
+exit 0;
+
+sub mangle_command_line_args {
+    while($_ = $ARGV[0]) {
+	shift(@ARGV);
+
+	if ( /^--$/ ) {
+	    $Dashdashes_seen++;
+
+	} elsif ( /^-D(.*)/ ) { # recognized wherever they occur
+	    push(@Defines, $_);
+	} elsif ( /^-I/ ) {
+	    $Include_dirs .= " $_";
+
+	} elsif ($Dashdashes_seen != 1) { # not between -- ... --
+	    if ( /^-v$/ ) {
+		$Verbose	= '-v';
+	    } elsif ( /^-f/ ) {
+		$Makefile	= &grab_arg_arg($_);
+	    } elsif ( /^-o/ ) {
+		$Obj_suffix	= &grab_arg_arg($_);
+	    } elsif ( /^-bs/ ) {
+		$Begin_magic_str = &grab_arg_arg($_) . "\n";
+	    } elsif ( /^-es/ ) {
+		$End_magic_str = &grab_arg_arg($_) . "\n";
+	    } elsif ( /^-w/ ) {
+		$Width	= &grab_arg_arg($_);
+	    } elsif ( /^-/ ) {
+		print STDERR "$Pgm: unknown option ignored: $_\n";
+	    } else {
+		push(@Src_files, $_);
+	    }
+
+	} elsif ($Dashdashes_seen == 1) { # where we ignore unknown options
+	    push(@Src_files,$_) if ! /^-/;
+	}
+    }
+}
+
+sub grab_arg_arg {
+    local($option) = @_;
+    local($rest_of_arg);
+    
+    ($rest_of_arg = $option) =~ s/^-.//;
+
+    if ($rest_of_arg) {
+	return($rest_of_arg);
+    } elsif ($#ARGV >= 0) {
+	local($temp) = $ARGV[0]; shift(@ARGV); 
+	return($temp);
+    } else {
+	die "$Pgm: no argument following $option option\n";
+    }
+}
+
+sub slurp_file { # follows an example in the `open' item in perl man page
+    local($fname,$fhandle) = @_;
+    local($depend); # tmp
+    $fhandle++; # a string increment
+
+    $fname = &tidy_dir_names($fname);
+
+    unless (open($fhandle, "$(RAWCPP) $Include_dirs @Defines $fname |")) {
+         die "$Pgm: Can't open $fname: $!\n";
+    }
+    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 /\/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;
+    }
+    close($fhandle);
+}
+
+sub tidy_dir_names { # rm various pernicious dir-name combinations...
+    local($str) = @_;
+
+    $str =~ s|/[^/.][^/]*/\.\.||g;	# nuke: /<dir>/..
+    $str =~ s|/\.[^.][^/]*/\.\.||g;	# nuke: /./.. (and others)
+    $str =~ s|"||g;
+    $str =~ s| \./| |;
+    $str;
+}