loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonmaxima between versions 1.22 and 1.23

version 1.22, 2006/12/19 17:44:16	version 1.23, 2007/02/03 04:09:30
Line 259 sub make_new_child {	Line 259 sub make_new_child {
while (my $cmd=<$client>) {	while (my $cmd=<$client>) {
&status('Processing command');	&status('Processing command');
print $command &unescape($cmd);	print $command &unescape($cmd);
my $reply=&getmaximaoutput($command);	my ($reply,$finished,$syntaxerr) = &getmaximaoutput($command);
	if ((!$finished) && (!$syntaxerr) && ($reply !~ /^Error\:/)) {
	($reply,$finished,$syntaxerr) = &getmaximaoutput($command);
	}
print $client &escape($reply)."\n";	print $client &escape($reply)."\n";
if ($reply=~/^Error\:/) {	if ($reply=~/^Error\:/) {
&logthis('Died through '.$reply);	&logthis('Died through '.$reply);
Line 305 sub getmaximaoutput {	Line 308 sub getmaximaoutput {
if ($error) {	if ($error) {
return 'Error: '.$error;	return 'Error: '.$error;
}	}
	$output =~ s/\r+//g; # Remove Windows-style linebreaks
	my $hasoutput=0;
my $foundoutput=0;	my $foundoutput=0;
	my $syntaxerr=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; }
my ($label)=($line=~s/^($\%o\d+$)//);	if ($line=~/^Incorrect syntax:/) { $syntaxerr = 1; next; }
	(my $label, $line) = ($line=~ /^($\%o\d+$)(.+)$/);
if ($label) {	if ($label) {
$label=~s/\S/ /g;	$label=~s/\S/ /g;
$line=$label.$line;	$line=$label.$line;
	$hasoutput = 1;
}	}
$realoutput.=$line."\n";	$realoutput.=$line."\n";
}	}
return $realoutput;	if (wantarray) {
	return ($realoutput,$hasoutput,$syntaxerr);
	} else {
	return $realoutput;
	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.22
changed lines
	Added in v.1.23