[BACK]Return to serv1.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_math

Diff for /OpenXM/src/ox_math/serv1.c between version 1.8 and 1.18

version 1.8, 2000/01/22 06:29:18 version 1.18, 2002/04/11 19:53:40
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_math/serv1.c,v 1.7 2000/01/05 06:09:11 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_math/serv1.c,v 1.17 2002/04/11 14:13:37 ohara Exp $ */
   
 /*  /*
    Copyright (C) Katsuyoshi OHARA, 2000.     Copyright (C) Katsuyoshi OHARA, 2000.
Line 14 
Line 14 
 #include <stdlib.h>  #include <stdlib.h>
 #include <unistd.h>  #include <unistd.h>
 #include <signal.h>  #include <signal.h>
 #include <gmp.h>  
 #include <mathlink.h>  #include <mathlink.h>
 #include "ox.h"  #include <ox_toolkit.h>
 #include "serv2.h"  #include "sm.h"
   
 static int send_ox_sync_ball(int fd);  extern OXFILE *stack_oxfp;
   
 static int sv_read  = 3;  /* SM_control_reset_connection */
 static int sv_write = 4;  static void handler()
   
 static int flag_sigusr1 = 0;  
 static int flag_sigusr2 = 0;  
   
 /* if in_critical equals to 1 then we do not permit an interrupt. */  
 static int in_critical = 0;  
   
 static int set_critical()  
 {  {
     in_critical = 1;          sigset_t newmask, oldmask;
           sigemptyset(&newmask);
           sigaddset(&newmask, SIGUSR1);
           sigprocmask(SIG_SETMASK, &newmask, &oldmask);
       fprintf(stderr, "signal received.\n");
       exchange_ox_sync_ball(stack_oxfp);
           sigprocmask(SIG_SETMASK, &oldmask, NULL); /* unmasked. */
 }  }
   
 static int unset_critical()  static int exchange_ox_sync_ball(OXFILE *oxfp)
 {  {
     in_critical = 0;      int tag;
 }      send_ox_tag(oxfp, OX_SYNC_BALL);
       while((tag = receive_ox_tag(oxfp)) != OX_SYNC_BALL) {
 static int critical_p() {          if (tag == OX_DATA) {
     return in_critical;              receive_cmo(oxfp);
 }          }else if (tag == OX_COMMAND) {
               receive_int32(oxfp);
 static int already_send_ox_sync_ball = 0;  
   
 /* SM_control_reset_connection */  
 static int handler_reset1()  
 {  
     fprintf(stderr, "signal received.\n");  
     signal(SIGUSR1, handler_reset1);  
     if (!flag_sigusr1) {  
         flag_sigusr1 = 1;  
         if(critical_p()) {  
             send_ox_sync_ball(sv_write);  
             already_send_ox_sync_ball = 1;  
         }          }
     }      }
 }  }
   
 static int handler_kill()  int shutdown()
 {  {
     close(3);      oxf_close(stack_oxfp);
     close(4);      ml_exit();
     exit(1);      exit(0);
 }  }
   
 static int send_ox_sync_ball(int fd)  #define VERSION 0x11121400
 {  #define ID_STRING  "2000/11/29"
     fprintf(stderr, "sending a sync_ball.\n");  
     send_ox_tag(fd, OX_SYNC_BALL);  
 }  
   
 static int exchange_ox_syncball(int fd)  int main()
 {  {
     int tag;      OXFILE* sv;
   
     while((tag = receive_ox_tag(fd)) != OX_SYNC_BALL) {      ml_init();
         /* skipping a message. */      mathcap_init(VERSION, ID_STRING, "ox_math", NULL, NULL);
         if (tag == OX_DATA) {  
             receive_cmo(fd);      sv = oxf_open(3);
         }else {      oxf_determine_byteorder_server(sv);
             receive_int32(fd);      sm(sv);
         }      shutdown();
     }  
     fprintf(stderr, "received a sync_ball.\n");  
 }  }
   
 /* a part of stack machine. */  /* a part of stack machine. */
 int receive_ox(int fd_read, int fd_write)  int sm_receive_ox()
 {  {
     int tag;      int tag;
     int code;      int code;
   
     tag = receive_ox_tag(fd_read);      tag = receive_ox_tag(stack_oxfp);
       if (oxf_error(stack_oxfp)) {
           return 0;
       }
     switch(tag) {      switch(tag) {
     case OX_DATA:      case OX_DATA:
         push(receive_cmo(fd_read));          push(receive_cmo(stack_oxfp));
         break;          break;
     case OX_COMMAND:      case OX_COMMAND:
         code = receive_sm_command(fd_read);          code = receive_sm_command(stack_oxfp);
         set_critical();          sm_run(code);
         execute_sm_command(fd_write, code);  
         unset_critical();  
         break;          break;
     default:      default:
         fprintf(stderr, "illeagal message? ox_tag = (%d)\n", tag);          fprintf(stderr, "illeagal message? ox_tag = (%d)\n", tag);
         return -1;  
         break;          break;
     }      }
     return 0;      return 1;
 }  }
   
 int shutdown()  int sm(OXFILE *oxfp)
 {  {
     close(sv_read);      fd_set fdmask;
     close(sv_write);      stack_oxfp = oxfp;
     ml_exit();      stack_extend();
     exit(0);      signal(SIGUSR1, handler);
 }  
   
 int main()      FD_ZERO(&fdmask);
 {      FD_SET(oxf_fileno(oxfp), &fdmask);
     ml_init();  
     initialize_stack();  
   
     signal(SIGUSR1, handler_reset1);  
     signal(SIGKILL, handler_kill);  
   
     decideByteOrderServer(sv_read, 0);  
   
     while(1) {      while(1) {
         receive_ox(sv_read, sv_write);          if (select(5, &fdmask, NULL, NULL, NULL) > 0) {
         if(flag_sigusr1) {                          sigset_t newmask, oldmask;
             if (!already_send_ox_sync_ball) {                          sigemptyset(&newmask);
               send_ox_sync_ball(sv_write);                          sigaddset(&newmask, SIGUSR1);
                 already_send_ox_sync_ball = 1;                          sigprocmask(SIG_SETMASK, &newmask, &oldmask);
             }              sm_receive_ox();
             exchange_ox_syncball(sv_read);                          sigprocmask(SIG_SETMASK, &oldmask, NULL); /* unmasked. */
             flag_sigusr1 = 0;  
             already_send_ox_sync_ball = 0;  
         }          }
     }      }
     shutdown();      fprintf(stderr, "SM: socket(%d) is closed.\n", stack_oxfp->fd);
 }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.18
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>