/* * Copyright (c) 2004-2009 The Trustees of Indiana University. * All rights reserved. * Copyright (c) 2004-2005 The Trustees of the University of Tennessee. * 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) 2012 Los Alamos National Security, LLC. * All rights reserved * $COPYRIGHT$ * * Additional copyrights may follow * * $HEADER$ */ #include "orte_config.h" #include "orte/constants.h" #include "opal/mca/mca.h" #include "opal/util/output.h" #include "opal/mca/base/base.h" #include "opal/mca/base/mca_base_param.h" #include "orte/mca/filem/filem.h" #include "orte/mca/filem/base/base.h" #include "orte/mca/filem/base/static-components.h" /* * Globals */ ORTE_DECLSPEC int orte_filem_base_output = -1; ORTE_DECLSPEC orte_filem_base_module_t orte_filem = { orte_filem_base_module_init, orte_filem_base_module_finalize, orte_filem_base_none_put, orte_filem_base_none_put_nb, orte_filem_base_none_get, orte_filem_base_none_get_nb, orte_filem_base_none_rm, orte_filem_base_none_rm_nb, orte_filem_base_none_wait, orte_filem_base_none_wait_all, orte_filem_base_none_preposition_files, orte_filem_base_none_link_local_files }; opal_list_t orte_filem_base_components_available; orte_filem_base_component_t orte_filem_base_selected_component; bool orte_filem_base_is_active = false; /** * Function for finding and opening either all MCA components, * or the one that was specifically requested via a MCA parameter. */ int orte_filem_base_open(void) { orte_filem_base_output = opal_output_open(NULL); orte_filem_base_is_active = false; /* Open up all available components */ if (OPAL_SUCCESS != mca_base_components_open("filem", orte_filem_base_output, mca_filem_base_static_components, &orte_filem_base_components_available, true)) { return ORTE_ERROR; } return ORTE_SUCCESS; }