summaryrefslogtreecommitdiff
path: root/ACE/bin/mpc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/bin/mpc.pl')
-rwxr-xr-xACE/bin/mpc.pl66
1 files changed, 0 insertions, 66 deletions
diff --git a/ACE/bin/mpc.pl b/ACE/bin/mpc.pl
deleted file mode 100755
index c547851e21d..00000000000
--- a/ACE/bin/mpc.pl
+++ /dev/null
@@ -1,66 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
- & eval 'exec perl -w -S $0 $argv:q'
- if 0;
-
-# ******************************************************************
-# Author: Chad Elliott
-# Date: 6/17/2002
-# $Id$
-# ******************************************************************
-
-# ******************************************************************
-# Pragma Section
-# ******************************************************************
-
-require 5.006;
-
-use strict;
-use FindBin;
-use File::Spec;
-use File::Basename;
-
-my($basePath) = $FindBin::Bin;
-if ($^O eq 'VMS') {
- $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
- $basePath = VMS::Filespec::unixify($basePath);
-}
-$basePath .= '/MakeProjectCreator';
-
-my($mpcroot) = $ENV{MPC_ROOT};
-my($mpcpath) = (defined $mpcroot ? $mpcroot :
- dirname(dirname($basePath)) . '/MPC');
-unshift(@INC, $mpcpath . '/modules');
-
-if (defined $mpcroot) {
- print STDERR "MPC_ROOT was set to $mpcroot.\n";
-}
-
-if (! -d "$mpcpath/modules") {
- print STDERR "ERROR: Unable to find the MPC 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;
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-sub getBasePath {
- return $mpcpath;
-}
-
-# ************************************************************
-# Main Section
-# ************************************************************
-
-my($driver) = new Driver($basePath, basename($0));
-exit($driver->run(@ARGV));