1 files changed, 111 insertions, 0 deletions
diff --git a/ACE/MPC/modules/BMakeProjectCreator.pm b/ACE/MPC/modules/BMakeProjectCreator.pm
new file mode 100644
index 00000000000..6ef1e7f1ffc
--- /dev/null
+++ b/ACE/MPC/modules/BMakeProjectCreator.pm
@@ -0,0 +1,111 @@
+package BMakeProjectCreator;
+
+# ************************************************************
+# Description   : A BMake Project Creator
+# Author        : Chad Elliott
+# Create Date   : 2/03/2004
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use ProjectCreator;
+use BorlandProjectBase;
+use MakeProjectBase;
+
+use vars qw(@ISA);
+@ISA = qw(MakeProjectBase BorlandProjectBase ProjectCreator);
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+my %names = ('cppdir' => 'source_files',
+             'rcdir'  => 'resource_files');
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub fill_value {
+  my($self, $name) = @_;
+
+  if (defined $names{$name}) {
+    my %dirnames = ('.' => 1);
+    foreach my $file ($self->get_component_list($names{$name}, 1)) {
+      my $dirname = $self->mpc_dirname($file);
+      if ($dirname eq '') {
+        $dirname = '.';
+      }
+      else {
+        $dirname =~ s/\//\\/g;
+      }
+      $dirnames{$dirname} = 1;
+    }
+
+    ## Sort the directories to ensure that '.' comes first
+    return join(';', sort keys %dirnames);
+  }
+
+  return undef;
+}
+
+
+sub get_and_symbol {
+  #my $self = shift;
+  return '&$(__TRICK_BORLAND_MAKE__)&';
+}
+
+sub project_file_extension {
+  #my $self = shift;
+  return '.bmak';
+}
+
+
+sub get_dll_exe_template_input_file {
+  #my $self = shift;
+  return 'bmakedllexe';
+}
+
+
+sub get_lib_exe_template_input_file {
+  #my $self = shift;
+  return 'bmakelibexe';
+}
+
+
+sub get_lib_template_input_file {
+  #my $self = shift;
+  return 'bmakelib';
+}
+
+
+sub get_dll_template_input_file {
+  #my $self = shift;
+  return 'bmakedll';
+}
+
+
+sub get_properties {
+  my $self = shift;
+
+  ## Create the map of properties that we support.
+  my $props = {};
+
+  ## Merge in properties from all base projects
+  foreach my $base (@ISA) {
+    my $func = $base . '::get_properties';
+    my $p = $self->$func();
+    foreach my $key (keys %$p) {
+      $$props{$key} = $$p{$key};
+    }
+  }
+
+  return $props;
+}
+
+
+1;