[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.1 and 1.11

version 1.1, 1999/10/29 08:06:41 version 1.11, 2000/11/28 20:16:03
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/ox_math/serv1.c,v 1.10 2000/10/10 19:58:30 ohara Exp $ */
 /* $Id$ */  
   
   /*
      Copyright (C) Katsuyoshi OHARA, 2000.
      Portions copyright 1999 Wolfram Research, Inc.
   
      You must see OpenXM/Copyright/Copyright.generic.
      The MathLink Library is licensed from Wolfram Research Inc..
      See OpenXM/Copyright/Copyright.mathlink for detail.
   */
   
 #include <stdio.h>  #include <stdio.h>
 #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 "serv2.h"
   
 extern MLINK lp;  static int send_ox_sync_ball();
 static int sv_read  = 3;  
 static int sv_write = 4;  
   
   static OXFILE *sv;
   
 static int flag_sigusr1 = 0;  static int flag_sigusr1 = 0;
 static int flag_sigusr2 = 0;  static int flag_sigusr2 = 0;
   
 /* 1 のとき割り込み禁止 */  /* if in_critical equals to 1 then we do not permit an interrupt. */
 static int in_critical = 0;  static int in_critical = 0;
   
 static int set_critical()  static int set_critical()
Line 45  static int handler_reset1()
Line 52  static int handler_reset1()
     if (!flag_sigusr1) {      if (!flag_sigusr1) {
         flag_sigusr1 = 1;          flag_sigusr1 = 1;
         if(critical_p()) {          if(critical_p()) {
             send_ox_sync_ball(sv_write);              send_ox_sync_ball();
             already_send_ox_sync_ball = 1;              already_send_ox_sync_ball = 1;
         }          }
     }      }
Line 53  static int handler_reset1()
Line 60  static int handler_reset1()
   
 static int handler_kill()  static int handler_kill()
 {  {
     close(3);          oxf_close(sv);
     close(4);  
     exit(1);      exit(1);
 }  }
   
 static int send_ox_sync_ball(int fd)  static int send_ox_sync_ball()
 {  {
     fprintf(stderr, "sending a sync_ball.\n");      fprintf(stderr, "sending a sync_ball.\n");
     send_ox_tag(fd, OX_SYNC_BALL);      send_ox_tag(sv, OX_SYNC_BALL);
 }  }
   
 static int exchange_ox_syncball(int fd)  static int exchange_ox_syncball()
 {  {
     int tag;      int tag;
   
     while((tag = receive_ox_tag(fd)) != OX_SYNC_BALL) {      while((tag = receive_ox_tag(sv)) != OX_SYNC_BALL) {
         /* skipping a message. */          /* skipping a message. */
         if (tag == OX_DATA) {          if (tag == OX_DATA) {
             receive_cmo(fd);              receive_cmo(sv);
         }else {          }else {
             receive_int32(fd);              receive_int32(sv);
         }          }
     }      }
     fprintf(stderr, "received a sync_ball.\n");      fprintf(stderr, "received a sync_ball.\n");
 }  }
   
 /* スタックマシン部分 */  /* a part of stack machine. */
 int receive_ox(int fd_read, int fd_write)  int receive_ox(OXFILE *oxfp)
 {  {
     int tag;      int tag;
     int code;      int code;
   
     tag = receive_ox_tag(fd_read);      tag = receive_ox_tag(oxfp);
     switch(tag) {      switch(tag) {
     case OX_DATA:      case OX_DATA:
         push(receive_cmo(fd_read));          push(receive_cmo(oxfp));
         break;          break;
     case OX_COMMAND:      case OX_COMMAND:
         code = receive_sm_command(fd_read);          code = receive_sm_command(oxfp);
         set_critical();          set_critical();
         execute_sm_command(fd_write, code);          execute_sm_command(oxfp, code);
         unset_critical();          unset_critical();
         break;          break;
     default:      default:
Line 104  int receive_ox(int fd_read, int fd_write)
Line 110  int receive_ox(int fd_read, int fd_write)
     return 0;      return 0;
 }  }
   
   int shutdown()
   {
       oxf_close(sv);
       ml_exit();
       exit(0);
   }
   
   #define VERSION 0x11121400
   #define ID_STRING  "2000/11/29"
   
 int main()  int main()
 {  {
     MATH_init();          sv = oxf_open(3);
   
       ml_init();
     initialize_stack();      initialize_stack();
       mathcap_init(VERSION, ID_STRING, "ox_math", NULL, NULL);
   
     signal(SIGUSR1, handler_reset1);      signal(SIGUSR1, handler_reset1);
     signal(SIGKILL, handler_kill);      signal(SIGKILL, handler_kill);
   
     /* バイトオーダの決定 */          oxf_determine_byteorder_server(sv);
     decideByteOrder2(sv_read, sv_write, 0);  
   
     while(1) {      while(1) {
         receive_ox(sv_read, sv_write);          receive_ox(sv);
         if(flag_sigusr1) {          if(flag_sigusr1) {
             if (!already_send_ox_sync_ball) {              if (!already_send_ox_sync_ball) {
               send_ox_sync_ball(sv_write);                send_ox_sync_ball();
                 already_send_ox_sync_ball = 1;                  already_send_ox_sync_ball = 1;
             }              }
             exchange_ox_syncball(sv_read);              exchange_ox_syncball();
             flag_sigusr1 = 0;              flag_sigusr1 = 0;
             already_send_ox_sync_ball = 0;              already_send_ox_sync_ball = 0;
         }          }
     }      }
     MATH_exit();      shutdown();
 }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.11

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