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 MWC;
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' => [ 'MakeWorkspaceCreator',
23 
                                      'NMakeWorkspaceCreator',
24 
                                      'VC6WorkspaceCreator',
25 
                                      'VC7WorkspaceCreator',
26 
                                      'VC71WorkspaceCreator',
27 
                                      'VC8WorkspaceCreator',
217 bj 28 
                                      'BDSWorkspaceCreator',
107 bj 29 
                                      'GHSWorkspaceCreator',
30 
                                      'EM3WorkspaceCreator',
31 
                                      'AutomakeWorkspaceCreator',
32 
                                      'BMakeWorkspaceCreator',
33 
                                      'HTMLWorkspaceCreator',
34 
                                      'SLEWorkspaceCreator',
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;