Subversion Repositories gelsvn

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: mwc2exe.pl 256 2006-08-15 11:19:07Z bj $

# ******************************************************************

# ******************************************************************

# Pragma Section

# ******************************************************************

use strict;

use Config;

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);

}

#unshift(@INC, $basePath . '/modules');

require MWC;

require AutomakeWorkspaceCreator;

require BDSWorkspaceCreator;

require BMakeWorkspaceCreator;

require CBXWorkspaceCreator;

require EM3WorkspaceCreator;

require GHSWorkspaceCreator;

require HTMLWorkspaceCreator;

require MakeWorkspaceCreator;

require NMakeWorkspaceCreator;

require SLEWorkspaceCreator;

require VC6WorkspaceCreator;

require VC71WorkspaceCreator;

require VC8WorkspaceCreator;

# ************************************************************

# Subroutine Section

# ************************************************************

sub getBasePath {

  return $basePath;

}

# ************************************************************

# Main Section

# ************************************************************

my($driver) = new MWC();

exit($driver->execute($basePath, basename($0), \@ARGV));