loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.5, 2006/06/13 14:57:54
+version 1.7, 2006/12/11 22:02:13
  Line 65  sub blacklisted {
      return 0;
  }
+ sub runscript {
+     my ($socket,$fullscript)=@_;
+     if (&blacklisted($fullscript)) { return 'Error: blacklisted'; }
+     my $reply;
+     $fullscript=~s/[\n\r\l]//gs;
+     foreach my $line (split(/\;/s,$fullscript)) {
+ 	if ($line=~/\w/) { $reply=&maximareply($socket,$line.";\n"); }
+ 	if ($reply=~/^Error\:/) { return $reply; }
+     }
+     $reply=~s/\W//gs;
+     return $reply;
+ }
+ sub maxima_run {
+     my ($script,$submission,$argument) = @_;
+     my $socket=&connect();
+     my $fullscript='';
+     my $submission_index=1;
+     foreach my $submission_component (split(/\s*\,\s*/,$submission)) {
+ 	$fullscript.="RESPONSE[$submission_index]:$submission_component;\n";
+ 	$submission_index++;
+     }
+     my $argument_index=1;
+     foreach my $argument_component (split(/\s*\,\s*/,$argument)) {
+ 	$fullscript.="LONCAPALIST[$argument_index]:$argument_component;\n";
+ 	$argument_index++;
+     }
+     $fullscript.=$script;
+     my $reply=&runscript($socket,$fullscript);
+     &disconnect($socket);
+     if ($reply=~/^\s*true\s*$/) { return 'EXACT_ANS'; }
+     if ($reply=~/^\s*false\s*/) { return 'INCORRECT'; }
+     return 'BAD_FORMULA';
+ }
  sub compareterms {
      my ($socket,$terma,$termb)=@_;
      my $difference=$terma.'-'.$termb;