version 1.71, 2016/08/24 00:52:50 |
version 1.75, 2017/09/04 01:57:53 |
|
|
* 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.74 2016/09/27 07:37:47 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 Q ox_pari_stream; |
|
extern int 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 == QTOS(ox_pari_stream) ) ox_pari_stream_initialized = 0; |
|
break; |
|
case 2: |
|
Pox_shutdown(nd,rp); |
|
if ( index == QTOS(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); |
|
#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 1589 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 1605 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); |