1 files changed, 0 insertions, 45 deletions
diff --git a/scandeps b/scandeps
deleted file mode 100755
index 3a5b64092..000000000
--- a/scandeps
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl -W
-
-%include = ();
-
-die "Usage: scandeps object_dirs -- sources" if (@ARGV < 3);
-
-@objdirs = ();
-while (($z = shift @ARGV) ne "--") {
-	push @objdirs, $z;
-}
-
-# scan all files for relevant #include lines
-foreach my $file (@ARGV) {
-	open FILE, "<$file" or die "Failed to open $file: $!";
-	while (my $line = <FILE>) {
-		if ($line =~ m|#include "([^"]+)"|) {
-			$include{$file}{$1} = 1 if (-e $1);
-		}
-	}
-	close FILE;
-}
-
-# output dependencies
-foreach my $file (@ARGV) {
-	next unless $file =~ m|([^/]+)[.]c$|;
-	%deps = ();
-	search_deps($file);
-	foreach my $z (@objdirs) {
-		print "$z/$1.o ";
-	}
-	print ": $file ";
-	foreach my $z (sort keys %deps) { print "$z " }
-	print "\n";
-}
-
-
-sub search_deps {
-	my $file = shift;
-	return unless exists $include{$file};
-	foreach my $z (keys %{$include{$file}}) {
-		next if exists $deps{$z};
-		$deps{$z} = 1;
-		search_deps($z);
-	}
-}