openmpi/src/mca/ns/base/ns_base_open.c

/*
 * $HEADER$
 */

#include "ompi_config.h"

#include "mca/mca.h"
#include "mca/base/base.h"
#include "util/output.h"
#include "mca/ns/base/base.h"


/*
 * The following file was created by configure.  It contains extern
 * statements and the definition of an array of pointers to each
 * component's public mca_base_module_t struct.
 */

#include "mca/ns/base/static-modules.h"

/*
 * globals
 */

/* constructor - used to initialize state of name instance */
static void ompi_name_construct(ompi_process_name_t* name)
{
    name->cellid = 0;
    name->jobid = 0;
    name->vpid = 0;
}

/* destructor - used to free any resources held by instance */
static void ompi_name_destructor(ompi_process_name_t* name)
{
}

OBJ_CLASS_INSTANCE(
		   ompi_process_name_t,   /* type name */
		   ompi_object_t,         /* parent "class" name */
		   ompi_name_construct,   /* constructor */
		   ompi_name_destructor);  /* destructor */


/*
 * Global variables
 */
int mca_ns_base_output = -1;
mca_ns_t ompi_name_server;
ompi_process_name_t mca_ns_my_replica;
bool mca_ns_base_selected = false;
ompi_list_t mca_ns_base_components_available;
mca_ns_base_component_t mca_ns_base_selected_component;


/**
 * Function for finding and opening either all MCA components, or the one
 * that was specifically requested via a MCA parameter.
 */
int mca_ns_base_open(void)
{

  /* Open up all available components */

  if (OMPI_SUCCESS != 
      mca_base_modules_open("ns", 0, mca_ns_base_static_modules, 
                            &mca_ns_base_components_available)) {
    return OMPI_ERROR;
  }

  /* setup output for debug messages */
  if (!ompi_output_init) {  /* can't open output */
      return OMPI_ERROR;
  }

  mca_ns_base_output = ompi_output_open(NULL);

  /* All done */

  return OMPI_SUCCESS;
}