version 1.73, 2016/08/27 03:09:03 |
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.72 2016/08/24 01:33:53 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 1617 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 1633 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); |