summaryrefslogtreecommitdiff
path: root/scandeps
diff options
context:
space:
mode:
authorMichael Drake <tlsa@netsurf-browser.org>2008-03-19 10:46:58 +0000
committerMichael Drake <tlsa@netsurf-browser.org>2008-03-19 10:46:58 +0000
commitc6963beb91309e80ed26ec7499bcd797ee115e6a (patch)
tree350a88f59e0defa8a5eaafcba05f6e98b3e90fa8 /scandeps
parente2807ac556d62348331a4e4d2d39a8dc44a68e30 (diff)
downloadnetsurf-c6963beb91309e80ed26ec7499bcd797ee115e6a.tar.gz
netsurf-c6963beb91309e80ed26ec7499bcd797ee115e6a.tar.bz2
Remove scandeps file.
svn path=/trunk/netsurf/; revision=3975
Diffstat (limited to 'scandeps')
-rwxr-xr-xscandeps45
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);
- }
-}