int MPIDI_CH3U_Init_sock(int has_parent, MPIDI_PG_t *pg_p, int pg_rank,
char **bc_val_p, int *val_max_sz_p)
{
int mpi_errno = MPI_SUCCESS;
int pg_size;
int p;
/* FIXME: Why are these unused? */
MPIU_UNREFERENCED_ARG(has_parent);
MPIU_UNREFERENCED_ARG(pg_rank);
/*
* Initialize the VCs associated with this process group (and thus
* MPI_COMM_WORLD)
*/
/* FIXME: Get the size from the process group */
pg_size = MPIDI_PG_Get_size(pg_p);
/* FIXME: This should probably be the same as MPIDI_VC_InitSock. If
not, why not? */
/* FIXME: Note that MPIDI_CH3_VC_Init sets state, sendq_head and tail.
so this should be MPIDI_CH3_VC_Init( &pg_p->vct[p] );
followed by MPIDI_VC_InitSock( ditto );
In fact, there should be a single VC_Init call here */
/* FIXME: Why isn't this MPIDI_VC_Init( vc, NULL, 0 )? */
for (p = 0; p < pg_size; p++)
{
MPIDI_CH3I_VC *vcch = &pg_p->vct[p].ch;
vcch->sendq_head = NULL;
vcch->sendq_tail = NULL;
vcch->state = MPIDI_CH3I_VC_STATE_UNCONNECTED;
vcch->sock = MPIDU_SOCK_INVALID_SOCK;
vcch->conn = NULL;
}
mpi_errno = MPIDI_CH3U_Get_business_card_sock(pg_rank,
bc_val_p, val_max_sz_p);
if (mpi_errno != MPI_SUCCESS) {
MPIU_ERR_SETANDJUMP(mpi_errno,MPI_ERR_OTHER, "**init_buscard");
}
fn_exit:
return mpi_errno;
fn_fail:
/* FIXME: This doesn't belong here, since the pg is not created in
this routine */
/* --BEGIN ERROR HANDLING-- */
if (pg_p != NULL)
{
MPIDI_PG_Destroy(pg_p);
}
goto fn_exit;
/* --END ERROR HANDLING-- */
}
int MPIDI_CH3_Get_business_card(int myRank, char *value, int length)
{
return MPIDI_CH3U_Get_business_card_sock(myRank, &value, &length);
}
