ChangeLogTag: Mon Mar 22 00:47:56 UTC 2010 Chad Elliott <elliott_c@ociweb.com>

5 files changed, 144 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 53cbb8df..5a0b80e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,4 @@
-Mon Mar 22 00:47:56 UTC 2010  Chad Elliott  <elliott_c@gateway.2wire.net>
+Mon Mar 22 00:47:56 UTC 2010  Chad Elliott  <elliott_c@ociweb.com>
 
         * modules/AutomakeWorkspaceCreator.pm:
         * modules/BCB2007ProjectCreator.pm:
diff --git a/modules/GHSPropertyBase.pm b/modules/GHSPropertyBase.pm
new file mode 100644
index 00000000..7c624e8a
--- /dev/null
+++ b/modules/GHSPropertyBase.pm
@@ -0,0 +1,39 @@
+package GHSPropertyBase;
+
+# ************************************************************
+# Description   : A GHS property base module.
+# Author        : Chad Elliott
+# Create Date   : 3/9/2010
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+our $ghsunix = 'MPC_GHS_UNIX';
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get_properties {
+  my $self = shift;
+
+  ## Get the base class properties and add the properties that we
+  ## support.
+  my $props = $self->Creator::get_properties();
+
+  ## This project creator can work for UNIX and Windows.  Set the
+  ## property based on the environment variable.
+  $$props{'windows'} = 1 if (!defined $ENV{$ghsunix});
+
+  return $props;
+}
+
+1;
diff --git a/modules/MakePropertyBase.pm b/modules/MakePropertyBase.pm
new file mode 100644
index 00000000..34ffaaf3
--- /dev/null
+++ b/modules/MakePropertyBase.pm
@@ -0,0 +1,33 @@
+package MakePropertyBase;
+
+# ************************************************************
+# Description   : A Make property base module
+# Author        : Chad Elliott
+# Create Date   : 3/9/2010
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get_properties {
+  my $self = shift;
+
+  ## Get the base class properties and add the properties that we
+  ## support.
+  my $props = $self->Creator::get_properties();
+
+  ## All projects that use this base class are 'make' based.
+  $$props{'make'} = 1;
+
+  return $props;
+}
+
+
+1;
diff --git a/modules/VCPropertyBase.pm b/modules/VCPropertyBase.pm
new file mode 100644
index 00000000..f52517b7
--- /dev/null
+++ b/modules/VCPropertyBase.pm
@@ -0,0 +1,38 @@
+package VCPropertyBase;
+
+# ************************************************************
+# Description   : A VC property base module
+# Author        : Chad Elliott
+# Create Date   : 3/9/2010
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use WinPropertyBase;
+
+use vars qw(@ISA);
+@ISA = qw(WinPropertyBase);
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get_properties {
+  my $self = shift;
+
+  ## Get the base class properties and add the properties that we
+  ## support.
+  my $props = $self->WinPropertyBase::get_properties();
+
+  ## All projects that use this base class are for Microsoft compilers.
+  $$props{'microsoft'} = 1;
+
+  return $props;
+}
+
+
+1;
diff --git a/modules/WinPropertyBase.pm b/modules/WinPropertyBase.pm
new file mode 100644
index 00000000..6ab45331
--- /dev/null
+++ b/modules/WinPropertyBase.pm
@@ -0,0 +1,33 @@
+package WinPropertyBase;
+
+# ************************************************************
+# Description   : A Windows base module for properties
+# Author        : Chad Elliott
+# Create Date   : 3/9/2010
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get_properties {
+  my $self = shift;
+
+  ## Get the base class properties and add the properties that we
+  ## support.
+  my $props = $self->Creator::get_properties();
+
+  ## All projects that use this base class are for Windows.
+  $$props{'windows'} = 1;
+
+  return $props;
+}
+
+
+1;