[BACK]Return to tcpf.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/tcpf.c between version 1.72 and 1.75

version 1.72, 2016/08/24 01:33:53 version 1.75, 2017/09/04 01:57:53
Line 44 
Line 44 
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY   * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.71 2016/08/24 00:52:50 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.74 2016/09/27 07:37:47 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 1451  void Pox_cmo_rpc(NODE arg,Obj *rp)
Line 1451  void Pox_cmo_rpc(NODE arg,Obj *rp)
 }  }
   
 int No_ox_reset;  int No_ox_reset;
 extern int ox_pari_stream, ox_pari_stream_initialized;  extern Q ox_pari_stream;
   extern int ox_pari_stream_initialized;
   
 void Pox_reset(NODE arg,Q *rp)  void Pox_reset(NODE arg,Q *rp)
 {  {
Line 1474  void Pox_reset(NODE arg,Q *rp)
Line 1475  void Pox_reset(NODE arg,Q *rp)
          fprintf(stderr,"The server does not implenent OX reset protocol.\n");           fprintf(stderr,"The server does not implenent OX reset protocol.\n");
          fprintf(stderr,"The server is terminated.\n");           fprintf(stderr,"The server is terminated.\n");
          Pox_shutdown(nd,rp);           Pox_shutdown(nd,rp);
          if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;           if ( index == QTOS(ox_pari_stream) ) ox_pari_stream_initialized = 0;
          break;           break;
       case 2:        case 2:
          Pox_shutdown(nd,rp);           Pox_shutdown(nd,rp);
          if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;           if ( index == QTOS(ox_pari_stream) ) ox_pari_stream_initialized = 0;
          break;           break;
       default:        default:
          error("The server does not implement OX reset protocol.");           error("The server does not implement OX reset protocol.");
Line 1491  void Pox_reset(NODE arg,Q *rp)
Line 1492  void Pox_reset(NODE arg,Q *rp)
     if ( argc(arg) == 1 ) {      if ( argc(arg) == 1 ) {
                         ox_send_cmd(m,SM_control_reset_connection);                          ox_send_cmd(m,SM_control_reset_connection);
                         ox_flush_stream_force(m);                          ox_flush_stream_force(m);
   #if 0
         /* XXX obsolete */
                         ox_recv(m,&id,&obj); t = (USINT)obj;                          ox_recv(m,&id,&obj); t = (USINT)obj;
   #endif
                 }                  }
                 *rp = ONE;                  *rp = ONE;
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
Line 1614  int is_ox_plot(int index)
Line 1618  int is_ox_plot(int index)
         return strcmp(name,"ox_plot") ? 0 : 1;          return strcmp(name,"ox_plot") ? 0 : 1;
 }  }
   
   int debug_plot;
   
 int validate_ox_plot_stream(int index)  int validate_ox_plot_stream(int index)
 {  {
         int i;          int i;
Line 1630  int validate_ox_plot_stream(int index)
Line 1636  int validate_ox_plot_stream(int index)
         /* create an ox_plot server */          /* create an ox_plot server */
         MKSTR(name,"ox_plot");          MKSTR(name,"ox_plot");
         arg = mknode(2,NULL,name);          arg = mknode(2,NULL,name);
         Pox_launch_nox(arg,&r);    if ( debug_plot ) Pox_launch(arg,&r);
     else Pox_launch_nox(arg,&r);
         i = QTOS((Q)r);          i = QTOS((Q)r);
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
         Sleep(100);          Sleep(100);
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.75
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>