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.6, 2006/12/11 17:37:43
  Line 65  sub blacklisted {
      return 0;
  }
+ sub runscript {
+     my ($socket,$fullscript)=@_;
+     if (&blacklisted($fullscript)) { return 'Error: blacklisted'; }
+     return &maximareply($socket,$fullscript);
+ }
+ sub maxima_run {
+     my ($script,$submission,$arguments) = @_;
+     my $socket=&connect();
+     my $fullscript=$script;
+     my $reply=&runscript($socket,$fullscript);
+ #    &Apache::lonnet::logthis('Script:'.$fullscript);
+ #    &Apache::lonnet::logthis('Sub:'.$submission);
+ #    &Apache::lonnet::logthis('Arg:'.$arguments);
+     &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;