[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.11 and 1.14

version 1.11, 2000/11/28 20:16:03 version 1.14, 2000/12/03 22:09:34
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_math/serv1.c,v 1.10 2000/10/10 19:58:30 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_math/serv1.c,v 1.13 2000/12/03 21:46:52 ohara Exp $ */
   
 /*  /*
    Copyright (C) Katsuyoshi OHARA, 2000.     Copyright (C) Katsuyoshi OHARA, 2000.
Line 16 
Line 16 
 #include <signal.h>  #include <signal.h>
 #include <mathlink.h>  #include <mathlink.h>
 #include <ox_toolkit.h>  #include <ox_toolkit.h>
 #include "serv2.h"  #include "sm.h"
   
 static int send_ox_sync_ball();  extern OXFILE *stack_oxfp;
   
 static OXFILE *sv;  
   
 static int flag_sigusr1 = 0;  
 static int flag_sigusr2 = 0;  
   
 /* if in_critical equals to 1 then we do not permit an interrupt. */  /* 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 already_send_ox_sync_ball = 0;
   static int flag_sigusr1 = 0;
   
   static int send_ox_sync_ball();
   
 static int set_critical()  static int set_critical()
 {  {
     in_critical = 1;      in_critical = 1;
Line 42  static int critical_p() {
Line 41  static int critical_p() {
     return in_critical;      return in_critical;
 }  }
   
 static int already_send_ox_sync_ball = 0;  
   
 /* SM_control_reset_connection */  /* SM_control_reset_connection */
 static int handler_reset1()  static int handler_reset1()
 {  {
Line 60  static int handler_reset1()
Line 57  static int handler_reset1()
   
 static int handler_kill()  static int handler_kill()
 {  {
         oxf_close(sv);      oxf_close(stack_oxfp);
     exit(1);      exit(1);
 }  }
   
 static int send_ox_sync_ball()  static int send_ox_sync_ball()
 {  {
     fprintf(stderr, "sending a sync_ball.\n");      fprintf(stderr, "sending a sync_ball.\n");
     send_ox_tag(sv, OX_SYNC_BALL);      send_ox_tag(stack_oxfp, OX_SYNC_BALL);
 }  }
   
 static int exchange_ox_syncball()  static int exchange_ox_sync_ball()
 {  {
     int tag;      int tag;
   
     while((tag = receive_ox_tag(sv)) != OX_SYNC_BALL) {      while((tag = receive_ox_tag(stack_oxfp)) != OX_SYNC_BALL) {
         /* skipping a message. */          /* skipping a message. */
         if (tag == OX_DATA) {          if (tag == OX_DATA) {
             receive_cmo(sv);              receive_cmo(stack_oxfp);
         }else {          }else {
             receive_int32(sv);              receive_int32(stack_oxfp);
         }          }
     }      }
     fprintf(stderr, "received a sync_ball.\n");      fprintf(stderr, "received a sync_ball.\n");
 }  }
   
 /* a part of stack machine. */  
 int receive_ox(OXFILE *oxfp)  
 {  
     int tag;  
     int code;  
   
     tag = receive_ox_tag(oxfp);  
     switch(tag) {  
     case OX_DATA:  
         push(receive_cmo(oxfp));  
         break;  
     case OX_COMMAND:  
         code = receive_sm_command(oxfp);  
         set_critical();  
         execute_sm_command(oxfp, code);  
         unset_critical();  
         break;  
     default:  
         fprintf(stderr, "illeagal message? ox_tag = (%d)\n", tag);  
         return -1;  
         break;  
     }  
     return 0;  
 }  
   
 int shutdown()  int shutdown()
 {  {
     oxf_close(sv);      oxf_close(stack_oxfp);
     ml_exit();      ml_exit();
     exit(0);      exit(0);
 }  }
Line 122  int shutdown()
Line 94  int shutdown()
   
 int main()  int main()
 {  {
         sv = oxf_open(3);      OXFILE* sv;
   
     ml_init();      ml_init();
     initialize_stack();  
     mathcap_init(VERSION, ID_STRING, "ox_math", NULL, NULL);      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);      sv = oxf_open(3);
       oxf_determine_byteorder_server(sv);
       sm(sv);
       shutdown();
   }
   
     while(1) {  /* a part of stack machine. */
         receive_ox(sv);  int sm_receive_ox()
   {
       int tag;
       int code;
   
       tag = receive_ox_tag(stack_oxfp);
       if (oxf_error(stack_oxfp)) {
           return 0;
       }
       switch(tag) {
       case OX_DATA:
           push(receive_cmo(stack_oxfp));
           break;
       case OX_COMMAND:
           code = receive_sm_command(stack_oxfp);
           set_critical();
           sm_run(code);
           unset_critical();
           break;
       default:
           fprintf(stderr, "illeagal message? ox_tag = (%d)\n", tag);
           return 0;
           break;
       }
       return 1;
   }
   
   int sm(OXFILE *oxfp)
   {
       stack_oxfp = oxfp;
       stack_extend();
       while(sm_receive_ox()) {
         if(flag_sigusr1) {          if(flag_sigusr1) {
             if (!already_send_ox_sync_ball) {              if (!already_send_ox_sync_ball) {
               send_ox_sync_ball();                send_ox_sync_ball();
                 already_send_ox_sync_ball = 1;                  already_send_ox_sync_ball = 1;
             }              }
             exchange_ox_syncball();              exchange_ox_sync_ball();
             flag_sigusr1 = 0;              flag_sigusr1 = 0;
             already_send_ox_sync_ball = 0;              already_send_ox_sync_ball = 0;
         }          }
     }      }
     shutdown();      fprintf(stderr, "SM: socket(%d) is closed.\n", stack_oxfp->fd);
 }  }
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>