Subversion Repositories gelsvn

Rev

Rev 256 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 256 Rev 259
1
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
1
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
2
    & eval 'exec perl -w -S $0 $argv:q'
2
    & eval 'exec perl -w -S $0 $argv:q'
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 256 2006-08-15 11:19:07Z 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
# ******************************************************************
14
 
14
 
15
use strict;
15
use strict;
16
use Config;
16
use Config;
17
use FindBin;
17
use FindBin;
18
use File::Spec;
18
use File::Spec;
19
use File::Basename;
19
use File::Basename;
20
 
20
 
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
require MWC;
27
require MWC;
28
require AutomakeWorkspaceCreator;
28
require AutomakeWorkspaceCreator;
29
require BDSWorkspaceCreator;
29
require BDSWorkspaceCreator;
30
require BMakeWorkspaceCreator;
30
require BMakeWorkspaceCreator;
31
require CBXWorkspaceCreator;
31
require CBXWorkspaceCreator;
32
require EM3WorkspaceCreator;
32
require EM3WorkspaceCreator;
33
require GHSWorkspaceCreator;
33
require GHSWorkspaceCreator;
34
require HTMLWorkspaceCreator;
34
require HTMLWorkspaceCreator;
35
require MakeWorkspaceCreator;
35
require MakeWorkspaceCreator;
36
require NMakeWorkspaceCreator;
36
require NMakeWorkspaceCreator;
37
require SLEWorkspaceCreator;
37
require SLEWorkspaceCreator;
38
require VC6WorkspaceCreator;
38
require VC6WorkspaceCreator;
39
require VC71WorkspaceCreator;
39
require VC71WorkspaceCreator;
40
require VC8WorkspaceCreator;
40
require VC8WorkspaceCreator;
41
 
41
 
42
# ************************************************************
42
# ************************************************************
43
# Subroutine Section
43
# Subroutine Section
44
# ************************************************************
44
# ************************************************************
45
 
45
 
46
sub getBasePath {
46
sub getBasePath {
47
  return $basePath;
47
  return $basePath;
48
}
48
}
49
 
49
 
50
# ************************************************************
50
# ************************************************************
51
# Main Section
51
# Main Section
52
# ************************************************************
52
# ************************************************************
53
 
53
 
54
my($driver) = new MWC();
54
my($driver) = new MWC();
55
exit($driver->execute($basePath, basename($0), \@ARGV));
55
exit($driver->execute($basePath, basename($0), \@ARGV));
56
 
56
 
57

Generated by GNU Enscript 1.6.6.
57

Generated by GNU Enscript 1.6.6.
58
 
58
 
59
 
59
 
60
 
60