Blame view

Giac_maj/giac-1.4.9/src/casctrl.cc 3.17 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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
  // -*- mode:C++ ; compile-command: "g++ -I.. -I../include -g casctrl.cc -DHAVE_LIBREADLINE -o casctrl -lreadline -lhistory -lncurses" -*-
  
  /*
   *  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/>.
   */
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  #include <stdio.h>
  #ifdef HAVE_LIBREADLINE
  #include <readline/readline.h>
  #include <readline/history.h>
  #endif // HAVE_LIBREADLINE
  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>
  
  #ifdef HAVE_LIBREADLINE
  static char *line_read = (char *)NULL;
  
  /* Read a string, and return a pointer to it.  Returns NULL on EOF. */
  char *
  rl_gets (int count)
  {
    /* If the buffer has already been allocated, return the memory
       to the free pool. */
    if (line_read)
      {
        free (line_read);
        line_read = (char *)NULL;
      }
    
    /* Get a line from the user. */
    string prompt(">> ");
    line_read = readline ((char *)prompt.c_str());
    
    /* If the line has any text in it, save it on the history. */
    if (line_read && *line_read)
      add_history (line_read);
    
    return (line_read);
  }
  
  #endif // HAVE_LIBREADLINE
  
  volatile bool child_busy=false;
  volatile bool data_ready=false;
  
  void data_signal_handler(int signum){
    child_busy=false;
    data_ready=true;
  }
  
  int main(int ARGC, char *ARGV[]){    
    using_history();
    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;
    }
    // Parent process, loop read entry, signal child_id, 
    usleep(1000);
    for (int count=0;;++count) {
      // Get question
      char * res=rl_gets(count);
      if (!res)
        break;
      string s(res);
      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);
    }
    return 0;
  }