WebSVN – gelsvn – Diff – /GELUtil/MPC/mwc2exe.pl


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));
 
Generated by GNU Enscript 1.6.6.
 
 
 

Subversion Repositories gelsvn

(root)/GELUtil/MPC/mwc2exe.pl – Rev 256 → 259

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