Esempi in C++ (Cpp) per PMI_Unpublish_name

Esempio n. 1

File: pmix_s1.c Progetto: hfchendrikx/midonet-state-table-bench

static int s1_unpublish(const char service_name[],
                        opal_list_t *info)
{
    int rc;

    if (PMI_SUCCESS != (rc = PMI_Unpublish_name(service_name))) {
        OPAL_PMI_ERROR(rc, "PMI2_Nameserv_unpublish");
        return OPAL_ERROR;
    }
    return OPAL_SUCCESS;
}

Esempio n. 2

File: pubsub_pmi.c Progetto: moutai/ompi-svn-mirror

/*
 * delete the entry */
static int unpublish ( char *service_name, ompi_info_t *info )
{
    int rc;

#if WANT_PMI2_SUPPORT
    if (PMI_SUCCESS != (rc = PMI2_Nameserv_unpublish(service_name, NULL))) {
        OMPI_ERROR_LOG(rc);
        return OMPI_ERROR;
    }
#else
    if (PMI_SUCCESS != (rc = PMI_Unpublish_name(service_name))) {
        OMPI_ERROR_LOG(rc);
        return OMPI_ERROR;
    }
#endif
    return OMPI_SUCCESS;;
}

Esempio n. 3

File: pmi_nameserv.c Progetto: tjhei/fgmpi

int MPID_NS_Unpublish( MPID_NS_Handle handle, const MPID_Info *info_ptr, 
                       const char service_name[] )
{
    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_unpublish(service_name, info_ptr);
    MPID_THREAD_CS_ENTER(GLOBAL, MPIR_THREAD_GLOBAL_ALLFUNC_MUTEX);
#else
    rc = PMI_Unpublish_name( service_name );
#endif
    MPIR_ERR_CHKANDJUMP1(rc, mpi_errno, MPI_ERR_SERVICE, "**namepubnotunpub", "**namepubnotunpub %s", service_name);

fn_fail:
    return mpi_errno;
}

Esempio n. 4

File: common_pmi.c Progetto: artpol84/ompi-timings

int mca_common_pmi_unpublish ( const char *service_name )
{
    int rc;

#if WANT_PMI2_SUPPORT
    if( mca_common_pmi_version == 2 ){
        if (PMI2_SUCCESS != (rc = PMI2_Nameserv_unpublish(service_name, NULL))) {
            OPAL_PMI_ERROR(rc, "PMI2_Nameserv_unpublish");
            return OPAL_ERROR;
        }
    }
    else
#endif
    {
        if (PMI_SUCCESS != (rc = PMI_Unpublish_name(service_name))) {
            OPAL_PMI_ERROR(rc, "PMI2_Nameserv_unpublish");
            return OPAL_ERROR;
        }
    }
    return OPAL_SUCCESS;;
}