root/mpich2/trunk/src/pm/hydra/css/src/cssi_init.c.in @ 4887

/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
 *  (C) 2008 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */

#include "hydra_utils.h"
#include "cssi.h"

struct HYD_CSSI_fns HYD_CSSI_fns = { 0 };

const char *HYD_CSSI_comp_array[] = { @hydra_css_name_array@ };
HYD_Status(*HYD_CSSI_comp_init[])(void) = { @hydra_css_init_array@ };

HYD_Status HYD_CSSI_init(char *css)
{
    int i;
    HYD_Status status = HYD_SUCCESS;

    HYDU_FUNC_ENTER();

    for (i = 0; HYD_CSSI_comp_array[i]; i++) {
        if (!strcmp(css, HYD_CSSI_comp_array[i])) {
            status = (*HYD_CSSI_comp_init[i])();
            break;
        }
    }

    if (HYD_CSSI_comp_array[i] == NULL)
        HYDU_ERR_SETANDJUMP1(status, HYD_INTERNAL_ERROR,
                             "unrecognized communication sub-system: %s\n", css);

    /* These functions are mandatory */
    if (HYD_CSSI_fns.query_string == NULL)
        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR,
                            "mandatory communication sub-system function undefined\n");
    if (HYD_CSSI_fns.finalize == NULL)
        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR,
                            "mandatory communication sub-system function undefined\n");

  fn_exit:
    HYDU_FUNC_EXIT();
    return status;

  fn_fail:
    goto fn_exit;
}