ACE+TAO+CIAO-5_7_6_NGC_Patches

1 files changed, 41 insertions, 0 deletions

diff --git a/ACE/MPC/modules/MPC.pm b/ACE/MPC/modules/MPC.pm
new file mode 100644
index 00000000000..7a99498143d
--- /dev/null
+++ b/ACE/MPC/modules/MPC.pm
@@ -0,0 +1,41 @@
+package MPC;
+
+# ******************************************************************
+# Description : Instantiate a Driver and run it.  This is here to
+#               maintain backward compatibility.
+# Author      : Chad Elliott
+# Create Date : 1/30/2004
+# ******************************************************************
+
+# ******************************************************************
+# Pragma Section
+# ******************************************************************
+
+use strict;
+use Driver;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub new {
+  my $class = shift;
+  my $self = bless {'creators' => [],
+                   }, $class;
+  return $self;
+}
+
+
+sub getCreatorList {
+  return $_[0]->{'creators'};
+}
+
+
+sub execute {
+  my($self, $base, $name, $args) = @_;
+  my $driver = new Driver($base, $name, @{$self->{'creators'}});
+  return $driver->run(@$args);
+}
+
+
+1;