1 files changed, 0 insertions, 131 deletions
diff --git a/bin/MakeProjectCreator/modules/VC6WorkspaceCreator.pm b/bin/MakeProjectCreator/modules/VC6WorkspaceCreator.pm
deleted file mode 100644
index 921461aa664..00000000000
--- a/bin/MakeProjectCreator/modules/VC6WorkspaceCreator.pm
+++ /dev/null
@@ -1,131 +0,0 @@
-package VC6WorkspaceCreator;
-
-# ************************************************************
-# Description   : A VC6 Workspace Creator
-# Author        : Chad Elliott
-# Create Date   : 5/13/2002
-# ************************************************************
-
-# ************************************************************
-# Pragmas
-# ************************************************************
-
-use strict;
-
-use VC6ProjectCreator;
-use WorkspaceCreator;
-
-use vars qw(@ISA);
-@ISA = qw(WorkspaceCreator);
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-
-sub crlf {
-  my($self) = shift;
-  return $self->windows_crlf();
-}
-
-
-sub workspace_file_name {
-  my($self) = shift;
-  return $self->get_modified_workspace_name($self->get_workspace_name(),
-                                            '.dsw');
-}
-
-
-sub pre_workspace {
-  my($self) = shift;
-  my($fh)   = shift;
-  my($crlf) = $self->crlf();
-
-  print $fh "Microsoft Developer Studio Workspace File, Format Version 6.00$crlf" .
-            "# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!$crlf" .
-            $crlf;
-}
-
-
-sub write_comps {
-  my($self)     = shift;
-  my($fh)       = shift;
-  my($projects) = $self->get_projects();
-  my($pjs)      = $self->get_project_info();
-  my($crlf)     = $self->crlf();
-  my(%names)    = ();
-  my($dupfound) = 0;
-
-  foreach my $project (@$projects) {
-    my($name) = $$pjs{$project}->[0];
-    my($deps) = $self->get_validated_ordering($project);
-    if (defined $names{$name}) {
-      ## Having duplicate project names is an error in a VC6 Workspace.
-      ## We will create the project, but we will warn the user that
-      ## the project has duplicate names and will not load properly.
-      print "WARNING: A project with the following name " .
-            "has already been added: '$name'\n";
-      ++$dupfound;
-    }
-    else {
-      $names{$name} = 1;
-    }
-
-    print $fh "###############################################################################$crlf" .
-              $crlf .
-              "Project: \"$name\"=" . $self->slash_to_backslash($project) .
-              " - Package Owner=<4>$crlf" .
-              $crlf .
-              "Package=<5>$crlf" .
-              "{{{$crlf" .
-              "}}}$crlf" .
-              $crlf .
-              "Package=<4>$crlf" .
-              "{{{$crlf";
-
-    if (defined $deps && $deps ne '') {
-      my($darr) = $self->create_array($deps);
-      foreach my $dep (@$darr) {
-        ## Avoid cirular dependencies
-        if ($name ne $dep) {
-          print $fh "    Begin Project Dependency$crlf" .
-                    "    Project_Dep_Name $dep$crlf" .
-                    "    End Project Dependency$crlf";
-        }
-      }
-    }
-
-    print $fh "}}}$crlf$crlf";
-  }
-
-  if ($dupfound > 0) {
-    print "WARNING: $dupfound duplicate project" .
-          ($dupfound == 1 ? '' : 's') .
-          " found.  This workspace will not load properly.\n";
-  }
-}
-
-
-sub post_workspace {
-  my($self) = shift;
-  my($fh)   = shift;
-  my($crlf) = $self->crlf();
-
-  print $fh "###############################################################################$crlf" .
-            $crlf .
-            "Global:$crlf" .
-            $crlf .
-            "Package=<5>$crlf" .
-            "{{{$crlf" .
-            "}}}$crlf" .
-            $crlf .
-            "Package=<3>$crlf" .
-            "{{{$crlf" .
-            "}}}$crlf" .
-            $crlf .
-            "###############################################################################$crlf" .
-            $crlf;
-}
-
-
-1;