version 1.60, 2011/01/18 09:09:22 |
version 1.63, 2013/06/13 18:40:31 |
|
|
* 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.59 2010/12/12 03:20:53 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.62 2012/12/17 07:20:45 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
#endif |
#endif |
#include "ox.h" |
#include "ox.h" |
|
|
#if defined(VISUAL) |
|
#include <stdlib.h> |
#include <stdlib.h> |
|
#if defined(VISUAL) |
#include <winsock2.h> |
#include <winsock2.h> |
#include <process.h> |
#include <process.h> |
#endif |
#endif |
Line 213 extern struct IOFP iofp[]; |
|
Line 213 extern struct IOFP iofp[]; |
|
extern MATHCAP my_mathcap; |
extern MATHCAP my_mathcap; |
extern int ox_exchange_mathcap; |
extern int ox_exchange_mathcap; |
|
|
char *getenv(); |
Obj asir_pop_one(); |
|
void asir_push_one(Obj); |
|
|
void Pnd_exec_f4_red(Q *rp) |
void Pnd_exec_f4_red(Q *rp) |
{ |
{ |
Line 1611 int validate_ox_plot_stream(int index) |
|
Line 1612 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,0,name); |
arg = mknode(2,NULL,name); |
Pox_launch_nox(arg,&r); |
Pox_launch_nox(arg,&r); |
i = QTOS((Q)r); |
i = QTOS((Q)r); |
#if defined(VISUAL) |
#if defined(VISUAL) |
Line 1642 int register_102(int s1,int rank,int is_master) |
|
Line 1643 int register_102(int s1,int rank,int is_master) |
|
iofp_102[rank].out = fdopen(s1,"w"); |
iofp_102[rank].out = fdopen(s1,"w"); |
#if !defined(__CYGWIN__) |
#if !defined(__CYGWIN__) |
setbuffer(iofp_102[rank].in,iofp_102[rank].inbuf = |
setbuffer(iofp_102[rank].in,iofp_102[rank].inbuf = |
(char *)GC_malloc_atomic(LBUFSIZ),LBUFSIZ); |
(char *)MALLOC_ATOMIC(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp_102[rank].out,iofp_102[rank].outbuf = |
setbuffer(iofp_102[rank].out,iofp_102[rank].outbuf = |
(char *)GC_malloc_atomic(LBUFSIZ),LBUFSIZ); |
(char *)MALLOC_ATOMIC(LBUFSIZ),LBUFSIZ); |
#endif |
#endif |
#endif |
#endif |
if ( little_endian ) |
if ( little_endian ) |