1 files changed, 0 insertions, 97 deletions
diff --git a/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm b/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm
deleted file mode 100644
index 8c9d580bfc7..00000000000
--- a/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm
+++ /dev/null
@@ -1,97 +0,0 @@
-package BorlandWorkspaceCreator;
-
-# ************************************************************
-# Description   : A Borland Workspace (Makefile.bor) creator
-# Author        : Chad Elliott
-# Create Date   : 7/02/2002
-# ************************************************************
-
-# ************************************************************
-# Pragmas
-# ************************************************************
-
-use strict;
-use File::Basename;
-
-use BorlandProjectCreator;
-use WorkspaceCreator;
-
-use vars qw(@ISA);
-@ISA = qw(WorkspaceCreator);
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-sub workspace_file_name {
-  #my($self) = shift;
-  return 'Makefile.bor';
-}
-
-
-sub workspace_per_project {
-  #my($self) = shift;
-  return 1;
-}
-
-
-sub pre_workspace {
-  my($self) = shift;
-  my($fh)   = shift;
-  my($crlf) = $self->crlf();
-
-  print $fh "#----------------------------------------------------------------------------$crlf" .
-            "#       Borland Workspace$crlf" .
-            "#----------------------------------------------------------------------------$crlf" .
-            $crlf;
-}
-
-
-sub write_comps {
-  my($self)     = shift;
-  my($fh)       = shift;
-  my($projects) = $self->get_projects();
-  my($pjs)      = $self->get_project_info();
-  my(@list)     = $self->sort_dependencies($projects, $pjs);
-  my($crlf)     = $self->crlf();
-
-  print $fh "!include <\$(ACE_ROOT)\\include\\makeinclude\\make_flags.bor>$crlf";
-
-  foreach my $target ('all', 'clean', 'realclean', 'install') {
-    print $fh $crlf .
-              "$target\:$crlf";
-    foreach my $project (@list) {
-      my($dir)    = dirname($project);
-      my($chdir)  = 0;
-      my($back)   = 1;
-
-      ## If the directory isn't "." then we need
-      ## to figure out how to get back to our starting point
-      if ($dir ne '.') {
-        $chdir = 1;
-        my($length) = length($dir);
-        for(my $i = 0; $i < $length; $i++) {
-          if (substr($dir, $i, 1) eq '/') {
-            $back++;
-          }
-        }
-      }
-
-      ## These commands will work.  In practicality, only the
-      ## default configuration can be built at the top level.
-      print $fh ($chdir ? "\t\@cd $dir$crlf" : '') .
-                "\t\$(MAKE) -\$(MAKEFLAGS) \$(MAKE_FLAGS) -f " . basename($project) . " $target$crlf" .
-                ($chdir ? "\t\@cd " . ('../' x $back) . $crlf : '');
-    }
-  }
-
-  # Generate a convenient rule for regenerating the workspace.
-  my($cmd) = "perl $0 " . join(" ", @ARGV);
-  print $fh $crlf .
-            "regenerate:$crlf" .
-            "\t$cmd$crlf";
-}
-
-
-
-1;