root/opal/mca/btl/base/btl_base_error.c

DEFINITIONS

1. mca_btl_base_err
2. mca_btl_base_out
3. mca_btl_base_error_no_nics
4. mca_btl_base_dump

   1 /*
   2  * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
   3  *                         University Research and Technology
   4  *                         Corporation.  All rights reserved.
   5  * Copyright (c) 2004-2005 The University of Tennessee and The University
   6  *                         of Tennessee Research Foundation.  All rights
   7  *                         reserved.
   8  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
   9  *                         University of Stuttgart.  All rights reserved.
  10  * Copyright (c) 2004-2005 The Regents of the University of California.
  11  *                         All rights reserved.
  12  * Copyright (c) 2006-2007 Sun Microsystems, Inc.  All rights reserved.
  13  * Copyright (c) 2012      Los Alamos National Security, LLC.
  14  *                         All rights reserved.
  15  * Copyright (c) 2014      Intel, Inc. All rights reserved.
  16  * Copyright (c) 2018      Amazon.com, Inc. or its affiliates.  All Rights reserved.
  17  * $COPYRIGHT$
  18  *
  19  * Additional copyrights may follow
  20  *
  21  * $HEADER$
  22  */
  23 
  24 
  25 #include "opal_config.h"
  26 #include <stdio.h>
  27 #include <stdarg.h>
  28 
  29 #include "opal/util/show_help.h"
  30 #include "opal/util/proc.h"
  31 #include "opal/util/printf.h"
  32 
  33 #include "base.h"
  34 #include "btl_base_error.h"
  35 
  36 int mca_btl_base_verbose = -1;
  37 
  38 int mca_btl_base_err(const char* fmt, ...)
  39 {
  40     va_list list;
  41     int ret;
  42 
  43     va_start(list, fmt);
  44     ret = vfprintf(stderr, fmt, list);
  45     va_end(list);
  46     return ret;
  47 }
  48 
  49 
  50 int mca_btl_base_out(const char* fmt, ...)
  51 {
  52     va_list list;
  53     int ret;
  54 
  55     va_start(list, fmt);
  56     ret = vfprintf(stdout, fmt, list);
  57     va_end(list);
  58     return ret;
  59 }
  60 
  61 
  62 void mca_btl_base_error_no_nics(const char* transport,
  63                                 const char* nic_name)
  64 {
  65     char *procid;
  66     if (mca_btl_base_warn_component_unused) {
  67         /* print out no-nic warning if user told us to */
  68         opal_asprintf(&procid, "%s", OPAL_NAME_PRINT(OPAL_PROC_MY_NAME));
  69 
  70         opal_show_help("help-mpi-btl-base.txt", "btl:no-nics",
  71                        true, procid, transport, opal_process_info.nodename,
  72                        nic_name);
  73         free(procid);
  74     }
  75 }
  76 
  77 
  78 void mca_btl_base_dump(
  79     struct mca_btl_base_module_t* btl,
  80     struct mca_btl_base_endpoint_t* endpoint,
  81     int verbose)
  82 {
  83 }