root/ompi/patterns/net/netpatterns_base.c

DEFINITIONS

1. ompi_netpatterns_register_mca_params
2. ompi_netpatterns_base_err
3. ompi_netpatterns_init

   1 /*
   2  *
   3  * Copyright (c) 2009-2012 Mellanox Technologies.  All rights reserved.
   4  * Copyright (c) 2009-2012 Oak Ridge National Laboratory.  All rights reserved.
   5  * Copyright (c) 2017      IBM Corporation. All rights reserved.
   6  * $COPYRIGHT$
   7  *
   8  * Additional copyrights may follow
   9  *
  10  * $HEADER$
  11  */
  12 #include <stdarg.h>
  13 
  14 #include "ompi/include/ompi/constants.h"
  15 #include "netpatterns.h"
  16 
  17 int ompi_netpatterns_base_verbose = 0; /* disabled by default */
  18 
  19 int ompi_netpatterns_register_mca_params(void)
  20 {
  21     ompi_netpatterns_base_verbose = 0;
  22     mca_base_var_register("ompi", "common", "netpatterns", "base_verbose",
  23                           "Verbosity level of the NETPATTERNS framework",
  24                           MCA_BASE_VAR_TYPE_INT, NULL, 0, 0,
  25                           OPAL_INFO_LVL_9,
  26                           MCA_BASE_VAR_SCOPE_READONLY,
  27                           &ompi_netpatterns_base_verbose);
  28 
  29     return OMPI_SUCCESS;
  30 }
  31 
  32 int ompi_netpatterns_base_err(const char* fmt, ...)
  33 {
  34     va_list list;
  35     int ret;
  36 
  37     va_start(list, fmt);
  38     ret = vfprintf(stderr, fmt, list);
  39     va_end(list);
  40     return ret;
  41 }
  42 
  43 int ompi_netpatterns_init(void)
  44 {
  45 /* There is no component for common_netpatterns so every component that uses it
  46    should call ompi_netpatterns_init, still we want to run it only once */
  47 static int was_called = 0;
  48 
  49     if (0 == was_called) {
  50         was_called = 1;
  51 
  52         return ompi_netpatterns_register_mca_params();
  53     }
  54 
  55     return OMPI_SUCCESS;
  56 }