/* * $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; }