/* ------------------------------------------------------------------------------------ */
extern int gasnet_init(int *argc, char ***argv)
{
int retval = gasnetc_init(argc, argv);
if (retval != GASNET_OK) GASNETI_RETURN(retval);
gasneti_trace_init(argc, argv);
return GASNET_OK;
}
/* ------------------------------------------------------------------------------------ */
extern int gasnet_init(int *argc, char ***argv) {
int retval = gasnetc_init(argc, argv);
if (retval != GASNET_OK) GASNETI_RETURN(retval);
#if 0
/* called within gasnet_init to allow init tracing */
gasneti_trace_init(argc, argv);
#endif
return GASNET_OK;
}
// TODO-EX: this is a candidate for factorization (once we understand the per-conduit variations)
extern int gasnetc_Client_Init(
gex_Client_t *client_p,
gex_EP_t *ep_p,
gex_TM_t *tm_p,
const char *clientName,
int *argc,
char ***argv,
gex_Flags_t flags)
{
gasneti_assert(client_p);
gasneti_assert(ep_p);
gasneti_assert(tm_p);
gasneti_assert(clientName);
#if !GASNET_NULL_ARGV_OK
gasneti_assert(argc);
gasneti_assert(argv);
#endif
// main init
// TODO-EX: must split off per-client and per-endpoint portions
if (!gasneti_init_done) {
int retval = gasnetc_init(argc, argv, flags);
if (retval != GASNET_OK) GASNETI_RETURN(retval);
#if 0
/* called within gasnetc_init to allow init tracing */
gasneti_trace_init(argc, argv);
#endif
}
// allocate the client object
gasneti_Client_t client = gasneti_alloc_client(clientName, flags, 0);
*client_p = gasneti_export_client(client);
// create the initial endpoint with internal handlers
if (gasnetc_EP_Create(ep_p, *client_p, flags))
GASNETI_RETURN_ERRR(RESOURCE,"Error creating initial endpoint");
gasneti_EP_t ep = gasneti_import_ep(*ep_p);
gasnetc_handler = ep->_amtbl; // TODO-EX: this global variable to be removed
// TODO-EX: create team
gasneti_TM_t tm = gasneti_alloc_tm(ep, gasneti_mynode, gasneti_nodes, flags, 0);
*tm_p = gasneti_export_tm(tm);
if (0 == (flags & GASNETI_FLAG_INIT_LEGACY)) {
/* primary attach */
if (GASNET_OK != gasnetc_attach_primary())
GASNETI_RETURN_ERRR(RESOURCE,"Error in primary attach");
/* ensure everything is initialized across all nodes */
gasnet_barrier(0, GASNET_BARRIERFLAG_UNNAMED);
}
return GASNET_OK;
}
