openmpi/ompi/mca/fcoll/static/fcoll_static_component.c

/*
 * Copyright (c) 2004-2007 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 (c) 2008      Cisco Systems, Inc.  All rights reserved.
 * Copyright (c) 2008-2011 University of Houston. All rights reserved.
 * $COPYRIGHT$
 * 
 * Additional copyrights may follow
 * 
 * $HEADER$
 *
 * These symbols are in a file by themselves to provide nice linker
 * semantics.  Since linkers generally pull in symbols by object
 * files, keeping these symbols as the only symbols in this file
 * prevents utility programs such as "ompi_info" from having to import
 * entire components just to query their version and parameters.
 */

#include "ompi_config.h"
#include "fcoll_static.h"

#include "mpi.h"
#include "ompi/mca/fcoll/fcoll.h"
#include "fcoll_static.h"

/*
 * Public string showing the fcoll ompi_static component version number
 */
const char *mca_fcoll_static_component_version_string =
    "Open MPI static collective MCA component version " OMPI_VERSION;

/*
 * Global variables
 */
int mca_fcoll_static_priority = 10;
int mca_fcoll_static_num_io_procs = -1;
int mca_fcoll_static_constant_cbs = 1;
int mca_fcoll_static_cycle_buffer_size = OMPIO_PREALLOC_MAX_BUF_SIZE;

/*
 * Local function
 */
static int static_register(void);

/*
 * Instantiate the public struct with all of our public information
 * and pointers to our public functions in it
 */
mca_fcoll_base_component_2_0_0_t mca_fcoll_static_component = {

    /* First, the mca_component_t struct containing meta information
     * about the component itself */

    {
     MCA_FCOLL_BASE_VERSION_2_0_0,

     /* Component name and version */
     "static",
     OMPI_MAJOR_VERSION,
     OMPI_MINOR_VERSION,
     OMPI_RELEASE_VERSION,
     static_register,
     NULL
    },
    {
        /* The component is checkpoint ready */
        MCA_BASE_METADATA_PARAM_CHECKPOINT
    },

    mca_fcoll_static_component_init_query,
    mca_fcoll_static_component_file_query,
    mca_fcoll_static_component_file_unquery
};


static int
static_register(void)
{
    int param;

    param = mca_base_param_find ("fcoll", NULL, "static_priority");
    if (param >= 0)
    {
        mca_base_param_lookup_int (param, &mca_fcoll_static_priority);
    }
    param = mca_base_param_find ("fcoll", NULL, "static_num_io_procs");
    if (param >= 0)
    {
        mca_base_param_lookup_int (param, &mca_fcoll_static_num_io_procs);
    }
    param = mca_base_param_find ("fcoll", NULL, "static_constant_cbs");
    if (param >= 0)
    {
        mca_base_param_lookup_int (param, &mca_fcoll_static_constant_cbs);
    }
    param = mca_base_param_find ("fcoll", NULL, "static_cycle_buffer_size");
    if (param >= 0)
    {
        mca_base_param_lookup_int (param, &mca_fcoll_static_cycle_buffer_size);
    }

    mca_base_param_reg_int (&mca_fcoll_static_component.fcollm_version,
                            "priority",
                            "Priority of the static fcoll component",
                            false, false, mca_fcoll_static_priority,
                            &mca_fcoll_static_priority);
    mca_base_param_reg_int (&mca_fcoll_static_component.fcollm_version,
                            "num_io_procs",
                            "Number of writers in the static fcoll component",
                            false, false, mca_fcoll_static_num_io_procs,
                            &mca_fcoll_static_num_io_procs);
    mca_base_param_reg_int (&mca_fcoll_static_component.fcollm_version,
                            "constant_cbs",
                            "wether we are using constant or scaling cycle buffer size in the static fcoll component",
                            false, false, mca_fcoll_static_constant_cbs,
                            &mca_fcoll_static_constant_cbs);
    mca_base_param_reg_int (&mca_fcoll_static_component.fcollm_version,
                            "cycle_buffer_size",
                            "Cycle Buffer Size of the static fcoll component",
                            false, false, mca_fcoll_static_cycle_buffer_size,
                            &mca_fcoll_static_cycle_buffer_size);

    return OMPI_SUCCESS;
}