static int cray_publish(const char service_name[], opal_list_t *info, const char port[]) { int rc; if (PMI_SUCCESS != (rc = PMI2_Nameserv_publish(service_name, NULL, port))) { OPAL_PMI_ERROR(rc, "PMI2_Nameserv_publish"); return OPAL_ERROR; } return OPAL_SUCCESS; }
static int s2_publish(opal_list_t *info) { #if 0 int rc; if (PMI2_SUCCESS != (rc = PMI2_Nameserv_publish(service_name, NULL, port))) { OPAL_PMI_ERROR(rc, "PMI2_Nameserv_publish"); return OPAL_ERROR; } #endif return OPAL_ERR_NOT_IMPLEMENTED; }
/* * publish the port_name for the specified service_name. */ static int publish ( char *service_name, ompi_info_t *info, char *port_name ) { int rc; #if WANT_PMI2_SUPPORT if (PMI_SUCCESS != (rc = PMI2_Nameserv_publish(service_name, NULL, port_name))) { OMPI_ERROR_LOG(rc); return OMPI_ERROR; } #else if (PMI_SUCCESS != (rc = PMI_Publish_name(service_name, port_name))) { OMPI_ERROR_LOG(rc); return OMPI_ERROR; } #endif return OMPI_SUCCESS; }
int mca_common_pmi_publish(const char *service_name, const char *port_name) { #if WANT_PMI2_SUPPORT if( mca_common_pmi_version == 2){ if (PMI2_SUCCESS != (rc = PMI2_Nameserv_publish(service_name, NULL, port_name))) { OPAL_PMI_ERROR(rc, "PMI2_Nameserv_publish"); return OPAL_ERROR; } } else #endif { if (PMI_SUCCESS != (rc = PMI_Publish_name(service_name, port_name))) { OPAL_PMI_ERROR(rc, "PMI_Publish_name"); return OPAL_ERROR; } } return OPAL_SUCCESS; }
int MPID_NS_Publish( MPID_NS_Handle handle, const MPID_Info *info_ptr, const char service_name[], const char port[] ) { int mpi_errno = MPI_SUCCESS; int rc; MPIU_UNREFERENCED_ARG(info_ptr); MPIU_UNREFERENCED_ARG(handle); #ifdef USE_PMI2_API /* release the global CS for PMI calls */ MPID_THREAD_CS_EXIT(GLOBAL, MPIR_THREAD_GLOBAL_ALLFUNC_MUTEX); rc = PMI2_Nameserv_publish(service_name, info_ptr, port); MPID_THREAD_CS_ENTER(GLOBAL, MPIR_THREAD_GLOBAL_ALLFUNC_MUTEX); #else rc = PMI_Publish_name( service_name, port ); #endif MPIR_ERR_CHKANDJUMP1(rc, mpi_errno, MPI_ERR_NAME, "**namepubnotpub", "**namepubnotpub %s", service_name); fn_fail: return mpi_errno; }