ACE/bin/mpc.pl

   1 #!/usr/bin/env 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 #      Author: Chad Elliott
   8 #        Date: 6/17/2002
   9 # ******************************************************************
  10
  11 # ******************************************************************
  12 # Pragma Section
  13 # ******************************************************************
  14
  15 require 5.006;
  16
  17 use strict;
  18 use FindBin;
  19 use File::Spec;
  20 use File::Basename;
  21
  22 my($basePath) = (defined $FindBin::RealBin ? $FindBin::RealBin :
  23                                              File::Spec->rel2abs(dirname($0)));
  24 if ($^O eq 'VMS') {
  25   $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
  26   $basePath = VMS::Filespec::unixify($basePath);
  27 }
  28 $basePath .= '/MakeProjectCreator';
  29
  30 my($mpcroot) = $ENV{MPC_ROOT};
  31 my($mpcpath) = (defined $mpcroot ? $mpcroot :
  32                                    dirname(dirname($basePath)) . '/MPC');
  33 unshift(@INC, $mpcpath . '/modules');
  34
  35 if (defined $mpcroot) {
  36   print STDERR "MPC_ROOT was set to $mpcroot.\n";
  37 }
  38
  39 if (! -d "$mpcpath/modules") {
  40   print STDERR "ERROR: Unable to find the MPC modules in $mpcpath.\n";
  41   if (defined $mpcroot) {
  42     print STDERR "Your MPC_ROOT environment variable does not point to a ",
  43                  "valid MPC location.\n";
  44   }
  45   else {
  46     print STDERR "You can set the MPC_ROOT environment variable to the ",
  47                  "location of MPC.\n";
  48   }
  49   exit(255);
  50 }
  51
  52 require Driver;
  53
  54 # ************************************************************
  55 # Subroutine Section
  56 # ************************************************************
  57
  58 sub getBasePath {
  59   return $mpcpath;
  60 }
  61
  62 # ************************************************************
  63 # Main Section
  64 # ************************************************************
  65
  66 my($driver) = new Driver($basePath, Driver::projects());
  67 exit($driver->run(@ARGV));