version 1.17, 2002/10/03 03:37:46 |
version 1.23, 2003/03/07 06:39:57 |
|
|
* 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/sio.c,v 1.16 2002/10/03 01:12:46 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.22 2003/03/07 03:12:28 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include <setjmp.h> |
#include <setjmp.h> |
Line 320 void free_iofp(int s) |
|
Line 320 void free_iofp(int s) |
|
if ( r->out ) fclose(r->out); |
if ( r->out ) fclose(r->out); |
if ( r->socket ) unlink(r->socket); |
if ( r->socket ) unlink(r->socket); |
#endif |
#endif |
|
r->inbuf = r->outbuf = 0; |
r->in = r->out = 0; r->s = 0; |
r->in = r->out = 0; r->s = 0; |
} |
} |
|
|
#define LBUFSIZ BUFSIZ*10 |
|
|
|
int get_iofp(int s1,char *af_sock,int is_server) |
int get_iofp(int s1,char *af_sock,int is_server) |
{ |
{ |
int i; |
int i; |
unsigned char c,rc; |
unsigned char c,rc; |
extern int mpi_myid; |
extern int mpi_myid; |
|
|
#if MPI |
#if defined(MPI) |
iofp[s1].s = s1; |
iofp[s1].s = s1; |
if ( mpi_myid == s1 ) { |
if ( mpi_myid == s1 ) { |
iofp[s1].in = 0; |
iofp[s1].in = 0; |
Line 356 int get_iofp(int s1,char *af_sock,int is_server) |
|
Line 355 int get_iofp(int s1,char *af_sock,int is_server) |
|
iofp[i].in = fdopen(s1,"r"); |
iofp[i].in = fdopen(s1,"r"); |
iofp[i].out = fdopen(s1,"w"); |
iofp[i].out = fdopen(s1,"w"); |
#if !defined(__CYGWIN__) |
#if !defined(__CYGWIN__) |
setbuffer(iofp[i].in,(char *)malloc(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].in,iofp[i].inbuf = (char *)GC_malloc_atomic(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].out,(char *)malloc(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].out,iofp[i].outbuf = (char *)GC_malloc_atomic(LBUFSIZ),LBUFSIZ); |
#endif |
#endif |
#endif |
#endif |
if ( little_endian ) |
if ( little_endian ) |