loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

version 1.31, 2007/08/02 13:04:55	version 1.32, 2007/08/03 18:18:05
Line 341 sub getmaximaoutput {	Line 341 sub getmaximaoutput {
}	}
$output =~ s/\r+//g; # Remove Windows-style linebreaks	$output =~ s/\r+//g; # Remove Windows-style linebreaks
my $foundoutput=0;	my $foundoutput=0;
	my $found_label=0;
my $realoutput='';	my $realoutput='';
foreach my $line (split(/\n/,$output)) {	foreach my $line (split(/\n/,$output)) {
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; }
if ( $line=~ /^($\%o\d+$)(.+)$/){	if ($line=~ /^($\%o\d+$)(.+)$/){
my $label = $1;	my $label = $1;
$line = $2;	$line = $2;
$label =~s/\S/ /g;	$label =~s/\S/ /g;
$line=$label.$line;	$line=$label.$line;
	$found_label=1;
	}
	if ($found_label) {
	$realoutput.=$line."\n";
}	}
$realoutput.=$line."\n";
}	}
if (wantarray) {	if (wantarray) {
return ($realoutput,$syntaxerr);	return ($realoutput,$syntaxerr);