Diff for /loncom/lonmaxima between versions 1.18 and 1.21

version 1.18, 2006/05/10 01:08:01 version 1.21, 2006/05/10 02:21:19
Line 31 Line 31
 #  #
   
 use Expect;   use Expect; 
 use IPC::Open3;  
 use IO::Select;  use IO::Select;
 use IO::Socket;  use IO::Socket;
 use IO::File;  use IO::File;
Line 255  sub make_new_child { Line 254  sub make_new_child {
            &status('Accepting connections');             &status('Accepting connections');
            my $client = $server->accept()     or last;             my $client = $server->accept()     or last;
            print $command "kill(all);reset();\n";             print $command "kill(all);reset();\n";
            &getmaximaoutput($command);     &getmaximaoutput($command);
              &sync($command);
            while (my $cmd=<$client>) {             while (my $cmd=<$client>) {
               &status('Processing command');                &status('Processing command');
       &sync($command);  
               print $command &unescape($cmd);                print $command &unescape($cmd);
               my $reply=&getmaximaoutput($command);                my $reply=&getmaximaoutput($command);
               print $client &escape($reply)."\n";                print $client &escape($reply)."\n";
Line 267  sub make_new_child { Line 266  sub make_new_child {
                  $client->close();                   $client->close();
                  $command->hard_close();                        $command->hard_close();     
                  exit;                   exit;
               }                }      
         &sync($command);
               &status('Waiting for commands');                &status('Waiting for commands');
            }             }
         }          }

Removed from v.1.18  
changed lines
  Added in v.1.21


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