diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-06-23 16:52:43 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-06-23 16:52:43 +0000 |
commit | e17b3ba9e61d7ce5e95773376caccdc4106081d8 (patch) | |
tree | c98e4c1ac2cafbe1964294d94756f1766c831061 | |
parent | d962a1f382b86d5a3d1f44efe0c2d945fbb11926 (diff) | |
download | MPC-e17b3ba9e61d7ce5e95773376caccdc4106081d8.tar.gz |
ChangeLogTag: Mon Jun 23 11:51:13 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | modules/ProjectCreator.pm | 48 |
1 files changed, 28 insertions, 20 deletions
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index 48c44d0d..49820ccd 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -1903,15 +1903,12 @@ sub check_features { sub need_to_write_project { my($self) = shift; - if ($self->check_features($self->get_assignment('requires'), - $self->get_assignment('avoids'))) { - foreach my $key ('source_files', keys %{$self->{'generated_exts'}}) { - my($names) = $self->{$key}; - foreach my $name (keys %$names) { - foreach my $key (keys %{$names->{$name}}) { - if (defined $names->{$name}->{$key}->[0]) { - return 1; - } + foreach my $key ('source_files', keys %{$self->{'generated_exts'}}) { + my($names) = $self->{$key}; + foreach my $name (keys %$names) { + foreach my $key (keys %{$names->{$name}}) { + if (defined $names->{$name}->{$key}->[0]) { + return 1; } } } @@ -2015,19 +2012,30 @@ sub write_project { &$progress(); } - if ($self->need_to_write_project()) { - ## Writing the non-static file so set it to 0 - if ($self->get_dynamic()) { - $self->{'writing_type'} = 0; - ($status, $error) = $self->write_output_file($name); - } + if ($self->check_features($self->get_assignment('requires'), + $self->get_assignment('avoids'))) { + if ($self->need_to_write_project()) { + ## Writing the non-static file so set it to 0 + if ($self->get_dynamic()) { + $self->{'writing_type'} = 0; + ($status, $error) = $self->write_output_file($name); + } - if ($status && $self->get_static() && $self->separate_static_project()) { - $name = $self->transform_file_name($self->static_project_file_name()); + if ($status && + $self->get_static() && $self->separate_static_project()) { + $name = $self->transform_file_name( + $self->static_project_file_name()); - ## Writing the static file so set it to 1 - $self->{'writing_type'} = 1; - ($status, $error) = $self->write_output_file($name); + ## Writing the static file so set it to 1 + $self->{'writing_type'} = 1; + ($status, $error) = $self->write_output_file($name); + } + } + } + else { + if (defined $ENV{MPC_VERBOSE_FEATURES}) { + print "WARNING: Skipping the " . $self->get_assignment('project_name') . + " project due to the current features\n"; } } |