1 files changed, 0 insertions, 114 deletions
diff --git a/bin/DependencyGenerator/DependencyEditor.pm b/bin/DependencyGenerator/DependencyEditor.pm
deleted file mode 100644
index 8ee36bdd11b..00000000000
--- a/bin/DependencyGenerator/DependencyEditor.pm
+++ /dev/null
@@ -1,114 +0,0 @@
-package DependencyEditor;
-
-# ************************************************************
-# Description   : Edits existing dependencies.
-# Author        : Chad Elliott
-# Create Date   : 2/10/2002
-# ************************************************************
-
-# ************************************************************
-# Pragmas
-# ************************************************************
-
-use strict;
-use FileHandle;
-use File::Basename;
-
-use DependencyGenerator;
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-sub new {
-  return bless {
-               }, $_[0];
-}
-
-
-sub process {
-  my($self)     = shift;
-  my($output)   = shift;
-  my($type)     = shift;
-  my($noinline) = shift;
-  my($macros)   = shift;
-  my($ipaths)   = shift;
-  my($replace)  = shift;
-  my($exclude)  = shift;
-  my($files)    = shift;
-
-  ## Back up the original file and receive the contents
-  my($contents) = undef;
-  if (-s $output) {
-    $contents = [];
-    if (!$self->backup($output, $contents)) {
-      print STDERR "ERROR: Unable to backup $output\n";
-      return 1;
-    }
-  }
-
-  ## Write out the new file
-  my($fh) = new FileHandle();
-  if (open($fh, ">$output")) {
-    if (defined $contents) {
-      foreach my $line (@$contents) {
-        if ($line =~ /DO NOT DELETE/) {
-          last;
-        }
-        print $fh $line;
-      }
-    }
-
-    print $fh "# DO NOT DELETE THIS LINE -- ", basename($0), " uses it.\n",
-              "# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY.\n\n";
-
-    my($dep) = new DependencyGenerator($macros, $ipaths, $replace,
-                                       $type, $noinline, $exclude);
-    ## Sort the files so the dependencies are reproducible
-    foreach my $file (sort @$files) {
-      print $fh $dep->process($file), "\n";
-    }
-
-    print $fh "# IF YOU PUT ANYTHING HERE IT WILL GO AWAY\n";
-    close($fh);
-  }
-  else {
-    print STDERR "ERROR: Unable to open $output for output\n";
-    return 1;
-  }
-
-  return 0;
-}
-
-
-sub backup {
-  my($self)     = shift;
-  my($source)   = shift;
-  my($contents) = shift;
-  my($status)   = 0;
-  my($fh)       = new FileHandle();
-  my($backup)   = "$source.bak";
-
-  if (open($fh, $source)) {
-    my($oh) = new FileHandle();
-    if (open($oh, ">$backup")) {
-      $status = 1;
-      while(<$fh>) {
-        print $oh $_;
-        push(@$contents, $_);
-      }
-      close($oh);
-
-      ## Set file permission
-      my(@buf) = stat($source);
-      if (defined $buf[8] && defined $buf[9]) {
-        utime($buf[8], $buf[9], $backup);
-      }
-    }
-    close($fh);
-  }
-  return $status;
-}
-
-
-1;