1 files changed, 36 insertions, 0 deletions
diff --git a/ACE/MPC/modules/BorlandProjectBase.pm b/ACE/MPC/modules/BorlandProjectBase.pm
new file mode 100644
index 00000000000..396e24ef416
--- /dev/null
+++ b/ACE/MPC/modules/BorlandProjectBase.pm
@@ -0,0 +1,36 @@
+package BorlandProjectBase;
+
+# ************************************************************
+# Description   : A Borland base module for Borland Project Creators
+# Author        : Chad Elliott
+# Create Date   : 5/5/2009
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+use WinProjectBase;
+
+our @ISA = qw(WinProjectBase);
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get_properties {
+  my $self = shift;
+
+  ## Get the base class properties and add the properties that we
+  ## support.
+  my $props = $self->WinProjectBase::get_properties();
+
+  ## All projects that use this base class are for Borland compilers.
+  $$props{'borland'} = 1;
+
+  return $props;
+}
+
+
+1;