Blame view

Giac_maj/giac-1.4.9/src/xcasctrl.cc 2.31 KB
6663b6c9   adorian   projet complet av...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
  // -*- mode:C++ ; compile-command: "g++ -I.. -I../include -g xcasctrl.cc -o xcasctrl" -*-
  
  /*
   *  Copyright (C) 2005 B. Parisse, Institut Fourier, 38402 St Martin d'Heres
   *
   *  This program is free software; you can redistribute it and/or modify
   *  it under the terms of the GNU General Public License as published by
   *  the Free Software Foundation; either version 3 of the License, or
   *  (at your option) any later version.
   *
   *  This program is distributed in the hope that it will be useful,
   *  but WITHOUT ANY WARRANTY; without even the implied warranty of
   *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   *  GNU General Public License for more details.
   *
   *  You should have received a copy of the GNU General Public License
   *  along with this program. If not, see <http://www.gnu.org/licenses/>.
   */
  #include <stdio.h>
  using namespace std;
  #include <string>
  #include <stdexcept>
  #include <fstream>
  #include <iostream>
  #include <iomanip>
  #include <time.h>
  #include <sys/time.h>
  //#include <unistd.h> // For reading arguments from file
  #include <fcntl.h>
  #include <cstdlib>
  #include <signal.h>
  
  
  volatile bool child_busy=false;
  volatile bool data_ready=false;
  
  void data_signal_handler(int signum){
    child_busy=false;
    data_ready=true;
  }
  
  // Test xcasce by calling factor(x^4-1)
  int main(int ARGC, char *ARGV[]){    
    sigset_t mask, oldmask;
    sigemptyset (&mask);
    sigaddset (&mask, SIGUSR1);
    signal(SIGUSR1,data_signal_handler);
    pid_t child_id=fork();
    if (child_id<(pid_t) 0)
      cerr << "Make_child error: Unable to fork";
    if (!child_id){ // child process, call xcasce
      execvp("/home/parisse/src/xcasce",ARGV);
      return 1;
    }
    usleep(1000000); // Wait for child process to be loaded
    // Parent process, loop read entry, signal child_id, 
    // Get question
    string s("factor(x^4-1)");
    if (s=="quit"){
      kill(child_id,SIGKILL);
      return 0;
    }
    s += '\n';
    ofstream in("Cas.txt");
    in << getpid() << endl;
    in << s << endl;
    data_ready=false;
    child_busy=true;
    // Evaluate
    sigprocmask (SIG_BLOCK, &mask, &oldmask);
    kill(child_id,SIGUSR1);
    while (!data_ready)
      sigsuspend (&oldmask);
    sigprocmask (SIG_UNBLOCK, &mask, NULL);
    // Print result
    FILE * f =fopen("Out.txt","r");
    while (!feof(f)){
      char ch=fgetc(f);
      cout << ch ;
    }
    fclose(f);
    kill(child_id,SIGKILL);
    return 0;
  }