| version 1.70, 2015/08/14 13:51:55 |
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.69 2015/08/08 14:19:42 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 ( argc(arg) == 1 ) { |
if ( no_ox_reset(c) == 1 ) { |
| |
STOQ(index,q); |
| |
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 1587 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 1603 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); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tcpf.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io