ACE/bin/depgen.pl

   1 #! /usr/bin/perl
   2 eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
   3     & eval 'exec perl -w -S $0 $argv:q'
   4     if 0;
   5
   6 # ************************************************************
   7 # Description   : Generate dependencies for GNU Make and NMake.
   8 # Author        : Chad Elliott
   9 # Create Date   : 5/06/2002
  10 #
  11 # ************************************************************
  12
  13 # ************************************************************
  14 # Pragma Section
  15 # ************************************************************
  16
  17 use strict;
  18 use FindBin;
  19 use File::Spec;
  20 use File::Basename;
  21
  22 my($basePath) = $FindBin::RealBin;
  23 if ($^O eq 'VMS') {
  24   $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
  25   $basePath = VMS::Filespec::unixify($basePath);
  26 }
  27 unshift(@INC, $basePath . '/DependencyGenerator');
  28
  29 my($mpcroot) = $ENV{MPC_ROOT};
  30 my($mpcpath) = (defined $mpcroot ? $mpcroot :
  31                                    dirname($basePath) . '/MPC');
  32 unshift(@INC, $mpcpath . '/modules/Depgen', $mpcpath . '/modules');
  33
  34 if (! -d "$mpcpath/modules/Depgen") {
  35   print STDERR "ERROR: Unable to find the MPC DependencyGenerator ",
  36                "modules in $mpcpath.\n";
  37   if (defined $mpcroot) {
  38     print STDERR "Your MPC_ROOT environment variable does not point to a ",
  39                  "valid MPC location.\n";
  40   }
  41   else {
  42     print STDERR "You can set the MPC_ROOT environment variable to the ",
  43                  "location of MPC.\n";
  44   }
  45   exit(255);
  46 }
  47
  48 require Driver;
  49
  50 # ************************************************************
  51 # Main Section
  52 # ************************************************************
  53
  54 my($driver) = new Driver('UNIX=gnu',
  55                          'automatic=ACE_ROOT,TAO_ROOT,CIAO_ROOT,' .
  56                          'DDS_ROOT,ACE_PLATFORM_CONFIG');
  57 exit($driver->run(\@ARGV));