[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.71 and 1.72

version 1.71, 2016/08/24 00:52:50 version 1.72, 2016/08/24 01:33: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.70 2015/08/14 13:51:55 fujimoto Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.71 2016/08/24 00:52:50 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 1450  void Pox_cmo_rpc(NODE arg,Obj *rp)
Line 1450  void Pox_cmo_rpc(NODE arg,Obj *rp)
         *rp = 0;          *rp = 0;
 }  }
   
   int No_ox_reset;
   extern int ox_pari_stream, ox_pari_stream_initialized;
   
 void Pox_reset(NODE arg,Q *rp)  void Pox_reset(NODE arg,Q *rp)
 {  {
         USINT t;          USINT t;
         int id,c,m;          int id,c,m;
         Obj obj;          Obj obj;
     NODE nd;
     Q q;
         int index = QTOS((Q)ARG0(arg));          int index = QTOS((Q)ARG0(arg));
   
         valid_mctab_index(index);          valid_mctab_index(index);
         m = m_c_tab[index].m;          m = m_c_tab[index].m;
         c = m_c_tab[index].c;          c = m_c_tab[index].c;
         if ( m >= 0 ) {          if ( m >= 0 ) {
     if ( no_ox_reset(c) == 1 )      if ( no_ox_reset(c) == 1 ) {
       error("The server does not implement ox_reset");        STOQ(index,q);
                 if ( argc(arg) == 1 ) {        nd = mknode(1,q);
         switch ( No_ox_reset ) {
         case 1:
            fprintf(stderr,"The server does not implenent OX reset protocol.\n");
            fprintf(stderr,"The server is terminated.\n");
            Pox_shutdown(nd,rp);
            if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;
            break;
         case 2:
            Pox_shutdown(nd,rp);
            if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;
            break;
         default:
            error("The server does not implement OX reset protocol.");
                        *rp = ONE;
            break;
         }
         return;
       }
   
       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);
                         ox_recv(m,&id,&obj); t = (USINT)obj;                          ox_recv(m,&id,&obj); t = (USINT)obj;
Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>