/* -*- C -*-
*
* Copyright (c) 2004-2008 The Trustees of Indiana University and Indiana
*                         University Research and Technology
*                         Corporation.  All rights reserved.
* Copyright (c) 2004-2005 The University of Tennessee and The University
*                         of Tennessee Research Foundation.  All rights
*                         reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
*                         University of Stuttgart.  All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
*                         All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
/** @file:
*
* The Open MPI Name Server
*
* The Open MPI Name Server provides unique name ranges for processes
* within the universe. Each universe will have one name server
* running within the seed daemon.  This is done to prevent the
* inadvertent duplication of names.
*/

/*
 * includes
 */
#include "orte_config.h"
#include "orte/constants.h"

#include "opal/threads/mutex.h"
#include "opal/class/opal_list.h"
#include "orte/util/show_help.h"

#include "opal/mca/mca.h"
#include "opal/mca/base/mca_base_param.h"

#include "orte/util/proc_info.h"
#include "orte/mca/errmgr/errmgr.h"
#include "orte/mca/rml/rml.h"

#include "grpcomm_basic.h"

/* set the default xovers */
#define XCAST_LINEAR_XOVER_DEFAULT     0
#define XCAST_BINOMIAL_XOVER_DEFAULT   0


/*
 * Struct of function pointers that need to be initialized
 */
orte_grpcomm_base_component_t mca_grpcomm_basic_component = {
    {
        ORTE_GRPCOMM_BASE_VERSION_2_0_0,
        
        "basic", /* MCA module name */
        ORTE_MAJOR_VERSION,  /* MCA module major version */
        ORTE_MINOR_VERSION,  /* MCA module minor version */
        ORTE_RELEASE_VERSION,  /* MCA module release version */
        orte_grpcomm_basic_open,  /* module open */
        orte_grpcomm_basic_close, /* module close */
        orte_grpcomm_basic_component_query /* module query */
    },
    {
        /* The component is checkpoint ready */
        MCA_BASE_METADATA_PARAM_CHECKPOINT
    }
};

/*
 * instantiate globals needed within basic component
 */
orte_grpcomm_basic_globals_t orte_grpcomm_basic;

/* Open the component */
int orte_grpcomm_basic_open(void)
{
    char *mode;
    mca_base_component_t *c = &mca_grpcomm_basic_component.base_version;
    int tmp;

    mca_base_param_reg_int(c, "xcast_linear_xover",
                           "Number of daemons where use of linear xcast mode is to begin",
                           false, false, XCAST_LINEAR_XOVER_DEFAULT, &tmp);
    orte_grpcomm_basic.xcast_linear_xover = tmp;
    
    mca_base_param_reg_int(c, "xcast_binomial_xover",
                           "Number of daemons where use of binomial xcast mode is to begin",
                           false, false, XCAST_BINOMIAL_XOVER_DEFAULT, &tmp);
    orte_grpcomm_basic.xcast_binomial_xover = tmp;
    
    mca_base_param_reg_string(c, "xcast_mode",
                              "Select xcast mode (\"linear\" | \"binomial\" | \"direct\")",
                              false, false, "none", &mode);
    if (0 == strcmp(mode, "binomial")) {
        orte_grpcomm_basic.xcast_binomial_xover = 0;
        orte_grpcomm_basic.xcast_linear_xover = 0;
    } else if (0 == strcmp(mode, "linear")) {
        orte_grpcomm_basic.xcast_linear_xover = 0;
        orte_grpcomm_basic.xcast_binomial_xover = INT_MAX;
    } else if (0 == strcmp(mode, "direct")) {
        orte_grpcomm_basic.xcast_binomial_xover = INT_MAX;
        orte_grpcomm_basic.xcast_linear_xover = INT_MAX;
    } else if (0 != strcmp(mode, "none")) {
        opal_output(0, "grpcomm_basic_xcast_mode: unknown option %s - using defaults", mode);
    }
    
    return ORTE_SUCCESS;
}

int orte_grpcomm_basic_close(void)
{
    return ORTE_SUCCESS;
}

int orte_grpcomm_basic_component_query(mca_base_module_t **module, int *priority)
{
    /* we are the default, so set a low priority so we can be overridden */
    *priority = 1;
    *module = (mca_base_module_t *)&orte_grpcomm_basic_module;
    return ORTE_SUCCESS;    
}