1 files changed, 57 insertions, 0 deletions
diff --git a/ACE/bin/depgen.pl b/ACE/bin/depgen.pl
new file mode 100755
index 00000000000..27a774e7d7a
--- /dev/null
+++ b/ACE/bin/depgen.pl
@@ -0,0 +1,57 @@
+#! /usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
+    & eval 'exec perl -w -S $0 $argv:q'
+    if 0;
+
+# ************************************************************
+# Description   : Generate dependencies for GNU Make and NMake.
+# Author        : Chad Elliott
+# Create Date   : 5/06/2002
+#            $Id$
+# ************************************************************
+
+# ************************************************************
+# Pragma Section
+# ************************************************************
+
+use strict;
+use FindBin;
+use File::Spec;
+use File::Basename;
+
+my($basePath) = $FindBin::RealBin;
+if ($^O eq 'VMS') {
+  $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
+  $basePath = VMS::Filespec::unixify($basePath);
+}
+unshift(@INC, $basePath . '/DependencyGenerator');
+
+my($mpcroot) = $ENV{MPC_ROOT};
+my($mpcpath) = (defined $mpcroot ? $mpcroot :
+                                   dirname($basePath) . '/MPC');
+unshift(@INC, $mpcpath . '/modules/Depgen', $mpcpath . '/modules');
+
+if (! -d "$mpcpath/modules/Depgen") {
+  print STDERR "ERROR: Unable to find the MPC DependencyGenerator ",
+               "modules in $mpcpath.\n";
+  if (defined $mpcroot) {
+    print STDERR "Your MPC_ROOT environment variable does not point to a ",
+                 "valid MPC location.\n";
+  }
+  else {
+    print STDERR "You can set the MPC_ROOT environment variable to the ",
+                 "location of MPC.\n";
+  }
+  exit(255);
+}
+
+require Driver;
+
+# ************************************************************
+# Main Section
+# ************************************************************
+
+my($driver) = new Driver('UNIX=gnu',
+                         'automatic=ACE_ROOT,TAO_ROOT,CIAO_ROOT,' .
+                         'DDS_ROOT,ACE_PLATFORM_CONFIG');
+exit($driver->run(\@ARGV));