diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 15:34:08 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 15:34:08 +0000 |
| commit | bca4dac13d702f675945998153bdf0f47f28c73e (patch) | |
| tree | 9e5362c488723a3f0b4c20338580d2b5088f7d53 | |
| parent | fb18a39ace6db2ca0043060446be7f3daa60f3da (diff) | |
| download | MPC-bca4dac13d702f675945998153bdf0f47f28c73e.tar.gz | |
ChangeLogTag: Thu May 1 10:32:26 2003 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | modules/Creator.pm | 14 | ||||
| -rw-r--r-- | modules/Driver.pm | 3 |
2 files changed, 12 insertions, 5 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm index 99de89b8..15a7c0f7 100644 --- a/modules/Creator.pm +++ b/modules/Creator.pm @@ -98,10 +98,16 @@ sub collect_line { sub generate_default_input { - my($self) = shift; - $self->parse_line(undef, "$self->{'grammar_type'} {"); - $self->parse_line(undef, '}'); - return 1; + my($self) = shift; + my($status) = 0; + my($error) = ''; + + ## We are throwing away the error string. In both Workspace and + ## Project creators, we don't care about this error string just the + ## status. + ($status, $error) = $self->parse_line(undef, "$self->{'grammar_type'} {"); + ($status, $error) = $self->parse_line(undef, '}'); + return $status; } diff --git a/modules/Driver.pm b/modules/Driver.pm index 8f4d43a5..91c70830 100644 --- a/modules/Driver.pm +++ b/modules/Driver.pm @@ -324,7 +324,8 @@ sub run { ($file eq '' ? 'default input' : $file) . "\n"; print 'Start Time: ' . scalar(localtime(time())) . "\n"; if (!$generator->generate($file)) { - print STDERR "ERROR: Unable to process: $file\n"; + print STDERR "ERROR: Unable to process: " . + ($file eq '' ? 'default input' : $file) . "\n"; $status++; last; } |