ACE+TAO+CIAO-5_7_6_NGC_Patches

1 files changed, 43 insertions, 0 deletions

diff --git a/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm b/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm
new file mode 100644
index 00000000000..397c6a01abc
--- /dev/null
+++ b/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm
@@ -0,0 +1,43 @@
+package MakeObjectGenerator;
+
+# ************************************************************
+# Description   : Generates object files for generic Makefiles.
+# Author        : Chad Elliott
+# Create Date   : 5/23/2003
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+use ObjectGenerator;
+
+use vars qw(@ISA);
+@ISA = qw(ObjectGenerator);
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub process {
+  my $noext = $_[1];
+  my @exts  = ('o');
+  my @dirs  = (defined $ENV{VDIR} ? $ENV{VDIR} : '');
+  $noext =~ s/\.[^\.]+$//o;
+
+  push(@exts, $ENV{SOEXT}) if (defined $ENV{SOEXT});
+  push(@dirs, $ENV{VSHDIR}) if (defined $ENV{VSHDIR});
+
+  my @objects;
+  foreach my $dirs (@dirs) {
+    foreach my $ext (@exts) {
+      push(@objects, "$dirs$noext.$ext");
+    }
+  }
+
+  return \@objects;
+}
+
+
+1;