loncom/lonr - diff

Return to lonr CVS log

Up to [LON-CAPA] / loncom

version 1.6, 2009/06/23 03:01:09	version 1.8, 2014/11/13 20:09:08
Line 317 sub make_new_child {	Line 317 sub make_new_child {
my ($command)=@_;	my ($command)=@_;
$counter++;	$counter++;
my $expect=$counter;	my $expect=$counter;
print $command "$expect;\n";	if (length($expect) > 10) {
	$counter = 1;
	$expect = $counter;
	}
	print $command "print($expect,digits=10);\n";
while (1) {	while (1) {
my $output=&getroutput($command);	my $output=&getroutput($command);
if (($output=~/\Q$expect\E/) \|\| ($output=~/^Error\:/)) {	chomp($output);
	if (($output=~/^\Q$expect\E/) \|\| ($output=~/^Error\:/)) {
return;	return;
}	}
}	}
Line 329 sub make_new_child {	Line 334 sub make_new_child {

sub getroutput {	sub getroutput {
my ($command)=@_;	my ($command)=@_;
my $regexp = '>';	my $regexp = '>\s+$';
my $syntaxerr=0;	my $syntaxerr=0;
my $timeout = 20;	my $timeout = 20;
my (undef,$error,$matched,$output) =	my (undef,$error,$matched,$output) =
Line 352 sub getroutput {	Line 357 sub getroutput {
foreach my $line (split(/\n/,$output)) {	foreach my $line (split(/\n/,$output)) {
$line=~s/\s$//gs;	$line=~s/\s$//gs;
if ($line=~/^Error\:/) { $syntaxerr=1; next; }	if ($line=~/^Error\:/) { $syntaxerr=1; next; }
if (my ($result)=($line=~/^\[?\d+\,\]?\s(.*)/)) { $realoutput.=$result."\n"; }	if (my ($result)=($line=~/^\s\[\d+\]\s(.*)/)) { $realoutput.=$result."\n"; }
}	}
if (wantarray) {	if (wantarray) {
return ($realoutput,$syntaxerr);	return ($realoutput,$syntaxerr);