version 1.72, 2016/08/24 01:33:53 |
version 1.74, 2016/09/27 07:37:47 |
|
|
* 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.73 2016/08/27 03:09:03 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__) |