root/opal/mca/dl/base/dl_base_select.c

DEFINITIONS

1. opal_dl_base_select

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
   2 /*
   3  * Copyright (c) 2004-2010 The Trustees of Indiana University.
   4  *                         All rights reserved.
   5  *
   6  * Copyright (c) 2015 Cisco Systems, Inc.  All rights reserved.
   7  * $COPYRIGHT$
   8  * Copyright (c) 2015      Los Alamos National Security, LLC. All rights
   9  *                         reserved.
  10  *
  11  * Additional copyrights may follow
  12  *
  13  * $HEADER$
  14  */
  15 
  16 #include "opal_config.h"
  17 
  18 #ifdef HAVE_UNISTD_H
  19 #include "unistd.h"
  20 #endif
  21 
  22 #include "opal/include/opal/constants.h"
  23 #include "opal/util/output.h"
  24 #include "opal/mca/mca.h"
  25 #include "opal/mca/base/base.h"
  26 #include "opal/mca/dl/dl.h"
  27 #include "opal/mca/dl/base/base.h"
  28 
  29 
  30 int opal_dl_base_select(void)
  31 {
  32     int exit_status = OPAL_SUCCESS;
  33     opal_dl_base_component_t *best_component = NULL;
  34     opal_dl_base_module_t *best_module = NULL;
  35 
  36     /*
  37      * Select the best component
  38      */
  39     if (OPAL_SUCCESS != mca_base_select("dl",
  40                                         opal_dl_base_framework.framework_output,
  41                                         &opal_dl_base_framework.framework_components,
  42                                         (mca_base_module_t **) &best_module,
  43                                         (mca_base_component_t **) &best_component, NULL) ) {
  44         /* This will only happen if no component was selected */
  45         exit_status = OPAL_ERROR;
  46         goto cleanup;
  47     }
  48 
  49     /* Save the winner */
  50     opal_dl_base_selected_component = best_component;
  51     opal_dl = best_module;
  52 
  53  cleanup:
  54     return exit_status;
  55 }