Subversion Repositories gelsvn

Rev

Rev 254 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 254 Rev 256
Line 3... Line 3...
3
    if 0;
3
    if 0;
4
 
4
 
5
# ******************************************************************
5
# ******************************************************************
6
#      Author: Chad Elliott
6
#      Author: Chad Elliott
7
#        Date: 6/17/2002
7
#        Date: 6/17/2002
8
#         $Id: mwc2exe.pl 254 2006-08-15 11:15:05Z bj $
8
#         $Id: mwc2exe.pl 256 2006-08-15 11:19:07Z bj $
9
# ******************************************************************
9
# ******************************************************************
10
 
10
 
11
# ******************************************************************
11
# ******************************************************************
12
# Pragma Section
12
# Pragma Section
13
# ******************************************************************
13
# ******************************************************************
Line 21... Line 21...
21
my($basePath) = $FindBin::Bin;
21
my($basePath) = $FindBin::Bin;
22
if ($^O eq 'VMS') {
22
if ($^O eq 'VMS') {
23
  $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
23
  $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
24
  $basePath = VMS::Filespec::unixify($basePath);
24
  $basePath = VMS::Filespec::unixify($basePath);
25
}
25
}
26
unshift(@INC, $basePath . '/modules');
26
#unshift(@INC, $basePath . '/modules');
27
 
-
 
28
require MWC;
27
require MWC;
-
 
28
require AutomakeWorkspaceCreator;
-
 
29
require BDSWorkspaceCreator;
-
 
30
require BMakeWorkspaceCreator;
-
 
31
require CBXWorkspaceCreator;
-
 
32
require EM3WorkspaceCreator;
-
 
33
require GHSWorkspaceCreator;
-
 
34
require HTMLWorkspaceCreator;
-
 
35
require MakeWorkspaceCreator;
-
 
36
require NMakeWorkspaceCreator;
-
 
37
require SLEWorkspaceCreator;
-
 
38
require VC6WorkspaceCreator;
-
 
39
require VC71WorkspaceCreator;
-
 
40
require VC8WorkspaceCreator;
29
 
41
 
30
# ************************************************************
42
# ************************************************************
31
# Subroutine Section
43
# Subroutine Section
32
# ************************************************************
44
# ************************************************************
33
 
45
 
Line 38... Line 50...
38
# ************************************************************
50
# ************************************************************
39
# Main Section
51
# Main Section
40
# ************************************************************
52
# ************************************************************
41
 
53
 
42
my($driver) = new MWC();
54
my($driver) = new MWC();
43
exit($driver->execute($basePath, basename($0), \@ARGV));
55
exit($driver->execute($basePath, basename($0), \@ARGV));
44
 
56