version 1.30, 2007/06/12 23:48:45
|
version 1.31, 2007/08/02 13:04:55
|
Line 346 sub getmaximaoutput {
|
Line 346 sub getmaximaoutput {
|
if ($line=~/\;/) { $foundoutput=1; next; } |
if ($line=~/\;/) { $foundoutput=1; next; } |
if (!$foundoutput) { next; } |
if (!$foundoutput) { next; } |
if ($line=~/^Incorrect syntax:/) { $syntaxerr = 1; next; } |
if ($line=~/^Incorrect syntax:/) { $syntaxerr = 1; next; } |
(my $label, $line) = ($line=~ /^(\(\%o\d+\))(.+)$/); |
if ( $line=~ /^(\(\%o\d+\))(.+)$/){ |
if ($label) { |
my $label = $1; |
$label=~s/\S/ /g; |
$line = $2; |
|
$label =~s/\S/ /g; |
$line=$label.$line; |
$line=$label.$line; |
} |
} |
$realoutput.=$line."\n"; |
$realoutput.=$line."\n"; |