OpenXM_contrib2/asir2000/io/tcpf.c - diff

Return to tcpf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.51, 2004/03/05 06:14:50

version 1.54, 2004/03/11 07:40:42

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.50 2003/12/13 08:03:56 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.53 2004/03/09 07:18:26 noro Exp $

#include "ca.h"

#include "parse.h"

Line 89 if((ind)<0||(ind)>=mpi_nprocs){error("invalid server i

if((ind)<0||(ind)>=mpi_nprocs){(ind)=-1;}

#else

#define valid_mctab_index(ind)\

if((ind)<0||(ind)>=m_c_i||\

if((ind)<I_am_server||(ind)>=m_c_i||\

((m_c_tab[ind].m<0)&&(m_c_tab[ind].c<0))){error("invalid server id");}

#define check_valid_mctab_index(ind)\

if((ind)<0||(ind)>=m_c_i||\

if((ind)<I_am_server||(ind)>=m_c_i||\

((m_c_tab[ind].m<0)&&(m_c_tab[ind].c<0))){(ind)=-1;}

#endif

Line 1237 void Pox_execute_string(NODE arg,Obj *rp)

int s;

int index = QTOS((Q)ARG0(arg));

asir_assert(ARG1(arg),O_STR,"ox_execute_string");

valid_mctab_index(index);

s = m_c_tab[index].c;

ox_send_data(s,ARG1(arg));