1 files changed, 85 insertions, 0 deletions
diff --git a/ACE/MPC/modules/WB26ProjectCreator.pm b/ACE/MPC/modules/WB26ProjectCreator.pm
new file mode 100644
index 00000000000..2a59f05038f
--- /dev/null
+++ b/ACE/MPC/modules/WB26ProjectCreator.pm
@@ -0,0 +1,85 @@
+package WB26ProjectCreator;
+
+# ************************************************************
+# Description   : Workbench 2.6 / VxWorks 6.4 generator
+# Author        : Johnny Willemsen
+# Create Date   : 07/01/2008
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use ProjectCreator;
+
+use vars qw(@ISA);
+@ISA = qw(ProjectCreator);
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+my %templates = ('wb26'           => '.project',
+                 'wb26wrproject'  => '.wrproject',
+                 'wb26wrmakefile' => '.wrmakefile');
+my @tkeys = sort keys %templates;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub crlf {
+  #my $self = shift;
+  return "\n";
+}
+
+sub project_file_name {
+  my($self, $name, $template) = @_;
+
+  ## Fill in the name and template if they weren't provided
+  $name = $self->project_name() if (!defined $name);
+  $template = 'wb26' if (!defined $template || !defined $templates{$template});
+
+  if ($self->{'make_coexistence'}) {
+    return $self->get_modified_project_file_name($name,
+                                                 '/' . $templates{$template});
+  }
+  else {
+    return $templates{$template};
+  }
+}
+
+sub get_template {
+  #my $self = shift;
+  return @tkeys;
+}
+
+sub dependency_is_filename {
+  #my $self = shift;
+  return 0;
+}
+
+sub requires_forward_slashes {
+  return 1;
+}
+
+sub file_visible {
+  ## We only want the project file visible to the workspace creator.
+  ## There can only be one and this is it.
+  #my($self, $template) = @_;
+  return $_[1] eq 'wb26';
+}
+
+sub get_dll_exe_template_input_file {
+  #my $self = shift;
+  return 'wb26exe';
+}
+
+sub get_dll_template_input_file {
+  #my $self = shift;
+  return 'wb26dll';
+}
+
+1;