summaryrefslogtreecommitdiff
path: root/modules/Creator.pm
diff options
context:
space:
mode:
authorjonesc <jonesc@a3e5c962-4219-0410-a828-e124f845ac39>2012-01-17 05:24:59 +0000
committerjonesc <jonesc@a3e5c962-4219-0410-a828-e124f845ac39>2012-01-17 05:24:59 +0000
commit5b077cd62c68fd3be08bc888d4ad2568d87e375e (patch)
tree64c4f08f54233e3f22376c893a38fa411e9c1f85 /modules/Creator.pm
parent66a603f159951e2600813df7f2be31744d5c6047 (diff)
downloadMPC-5b077cd62c68fd3be08bc888d4ad2568d87e375e.tar.gz
Mon Jan 16 22:01:41 UTC 2012 Chip Jones <jonesc@ociweb.com>
* modules/Creator.pm: Modifications to support multiprocess MPC. * modules/Depgen/DependencyEditor.pm: * modules/Depgen/Driver.pm: Modified dependency generator to support appending to existing files and generating dependencies for IDL files. * modules/Driver.pm: * modules/Options.pm: * modules/Parser.pm: * modules/ProjectCreator.pm: * modules/TemplateParser.pm: * modules/WorkspaceCreator.pm: Modified MPC to generate projects in separate processes. This experimental feature is enabled with the command-line option '-workers.' It's behavior can be modified with the '-workers_dir' and '-workers_port' directives. This is a merge of work done in the 'mpc_performance' branch.
Diffstat (limited to 'modules/Creator.pm')
-rw-r--r--modules/Creator.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm
index 5c2f2ab6..af024214 100644
--- a/modules/Creator.pm
+++ b/modules/Creator.pm
@@ -66,7 +66,14 @@ my $onVMS = DirectoryManager::onVMS();
# ************************************************************
sub new {
- my($class, $global, $inc, $template, $ti, $dynamic, $static, $relative, $addtemp, $addproj, $progress, $toplevel, $baseprojs, $feature, $features, $hierarchy, $nmodifier, $applypj, $into, $language, $use_env, $expandvars, $type) = @_;
+ my($class, $global, $inc, $template,
+ $ti, $dynamic, $static, $relative,
+ $addtemp, $addproj, $progress,
+ $toplevel, $baseprojs, $feature,
+ $features, $hierarchy, $nmodifier,
+ $applypj, $into, $language, $use_env,
+ $expandvars, $type) = @_;
+
my $self = Parser::new($class, $inc);
$self->{'relative'} = $relative;
@@ -105,7 +112,6 @@ sub new {
return $self;
}
-
sub preprocess_line {
my($self, $fh, $line) = @_;
@@ -195,7 +201,6 @@ sub generate {
return $status;
}
-
# split an inheritance list like ": a,b, c" into components
sub parse_parents {
my($parents, $errorStringRef, $statusRef) = @_;