Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 bj 1 
package MPC;
2 
 
3 
# ******************************************************************
4 
# Description : Instantiate a Driver and run it
5 
# Author      : Chad Elliott
6 
# Create Date : 1/30/2004
7 
# ******************************************************************
8 
 
9 
# ******************************************************************
10 
# Pragma Section
11 
# ******************************************************************
12 
 
13 
use strict;
14 
use Driver;
15 
 
16 
# ************************************************************
17 
# Subroutine Section
18 
# ************************************************************
19 
 
20 
sub new {
21 
  my($class) = shift;
22 
  my($self)  = bless {'creators' => [ 'MakeProjectCreator',
23 
                                      'NMakeProjectCreator',
24 
                                      'VC6ProjectCreator',
25 
                                      'VC7ProjectCreator',
26 
                                      'VC71ProjectCreator',
27 
                                      'VC8ProjectCreator',
217 bj 28 
                                      'BDSProjectCreator',
107 bj 29 
                                      'GHSProjectCreator',
30 
                                      'EM3ProjectCreator',
31 
                                      'AutomakeProjectCreator',
32 
                                      'BMakeProjectCreator',
33 
                                      'HTMLProjectCreator',
34 
                                      'SLEProjectCreator',
35 
                                    ],
36 
                     }, $class;
37 
  return $self;
38 
}
39 
 
40 
 
41 
sub getCreatorList {
42 
  my($self) = shift;
43 
  return $self->{'creators'};
44 
}
45 
 
46 
 
47 
sub execute {
48 
  my($self)   = shift;
49 
  my($base)   = shift;
50 
  my($name)   = shift;
51 
  my($args)   = shift;
52 
  my($driver) = new Driver($base, $name, @{$self->{'creators'}});
53 
  return $driver->run(@$args);
54 
}
55 
 
56 
 
57 
1;