loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.1, 2006/03/11 16:28:03	version 1.3, 2006/06/12 13:51:13
Line 59 sub maximareply {	Line 59 sub maximareply {
sub blacklisted {	sub blacklisted {
my ($cmd)=@_;	my ($cmd)=@_;
foreach my $forbidden ('save','load','plot','lisp','includ','compil','file','batch','stringout','translat','stout','stin','block','system') {	foreach my $forbidden ('save','load','plot','lisp','includ','compil','file','batch','stringout','translat','stout','stin','block','system') {
if ($cmd=~/$forbidden/) { return 1; }	if ($cmd=~/$forbidden/s) { return 1; }
}	}
return 0;	return 0;
}	}
Line 73 sub compareterms {	Line 73 sub compareterms {
if ($reply=~/^Error\:/) { return $reply; }	if ($reply=~/^Error\:/) { return $reply; }
return 'false';	return 'false';
}	}

	sub maxima_check {
	my ($response,$answer,$type,
	$tol_type,$tol,
	$sig_lbound,$sig_ubound,
	$ans_fmt,$unit,$calc,$id_list,
	$points,
	$randomseed,
	$reterror) = @_;
	return 7;
	}

1;	1;
__END__;	__END__;