/* * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. * Copyright (c) 2004-2008 The University of Tennessee and The University * of Tennessee Research Foundation. 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) 2011 Cisco Systems, Inc. All rights reserved. * $COPYRIGHT$ * * Additional copyrights may follow * * $HEADER$ */ #include "opal_config.h" #include #include #ifdef HAVE_SYSLOG_H #include #endif #ifdef HAVE_UNISTD_H #include #endif #include "opal/mca/installdirs/installdirs.h" #include "opal/util/output.h" #include "opal/util/printf.h" #include "opal/mca/mca.h" #include "opal/mca/base/base.h" #include "opal/mca/base/mca_base_component_repository.h" #include "opal/constants.h" #include "opal/util/opal_environ.h" /* * Public variables */ int mca_base_param_component_path = -1; bool mca_base_opened = false; char *mca_base_system_default_path=NULL; char *mca_base_user_default_path=NULL; /* * Private functions */ static void set_defaults(opal_output_stream_t *lds); static void parse_verbose(char *e, opal_output_stream_t *lds); /* * Main MCA initialization. */ int mca_base_open(void) { char *value; opal_output_stream_t lds; char hostname[64]; if (!mca_base_opened) { mca_base_opened = true; } else { return OPAL_SUCCESS; } /* define the system and user default paths */ #if OPAL_WANT_HOME_CONFIG_FILES mca_base_system_default_path = strdup(opal_install_dirs.pkglibdir); asprintf(&mca_base_user_default_path, "%s"OPAL_PATH_SEP".openmpi"OPAL_PATH_SEP"components", opal_home_directory()); #else # if defined(__WINDOWS__) && defined(_DEBUG) asprintf(&mca_base_system_default_path, "%s/debug", opal_install_dirs.pkglibdir); # else asprintf(&mca_base_system_default_path, "%s", opal_install_dirs.pkglibdir); # endif #endif /* see if the user wants to override the defaults */ if (NULL == mca_base_user_default_path) { value = strdup(mca_base_system_default_path); } else { asprintf(&value, "%s%c%s", mca_base_system_default_path, OPAL_ENV_SEP, mca_base_user_default_path); } mca_base_param_component_path = mca_base_param_reg_string_name("mca", "component_path", "Path where to look for Open MPI and ORTE components", false, false, value, NULL); free(value); mca_base_param_reg_int_name("mca", "component_show_load_errors", "Whether to show errors for components that failed to load or not", false, false, 1, NULL); mca_base_param_reg_int_name("mca", "component_disable_dlopen", "Whether to attempt to disable opening dynamic components or not", false, false, 0, NULL); /* What verbosity level do we want for the default 0 stream? */ mca_base_param_reg_string_name("mca", "verbose", "Specifies where the default error output stream goes (this is separate from distinct help messages). Accepts a comma-delimited list of: stderr, stdout, syslog, syslogpri:, syslogid: (where str is the prefix string for all syslog notices), file[:filename] (if filename is not specified, a default filename is used), fileappend (if not specified, the file is opened for truncation), level[:N] (if specified, integer verbose level; otherwise, 0 is implied)", false, false, "stderr", &value); memset(&lds, 0, sizeof(lds)); if (NULL != value) { parse_verbose(value, &lds); free(value); } else { set_defaults(&lds); } gethostname(hostname, 64); asprintf(&lds.lds_prefix, "[%s:%05d] ", hostname, getpid()); opal_output_reopen(0, &lds); opal_output_verbose(5, 0, "mca: base: opening components"); free(lds.lds_prefix); /* Open up the component repository */ return mca_base_component_repository_init(); } /* * Set sane default values for the lds */ static void set_defaults(opal_output_stream_t *lds) { /* Load up defaults */ OBJ_CONSTRUCT(lds, opal_output_stream_t); #ifndef __WINDOWS__ lds->lds_syslog_priority = LOG_INFO; #endif lds->lds_syslog_ident = "ompi"; lds->lds_want_stderr = true; } /* * Parse the value of an environment variable describing verbosity */ static void parse_verbose(char *e, opal_output_stream_t *lds) { char *edup; char *ptr, *next; bool have_output = false; if (NULL == e) { return; } edup = strdup(e); ptr = edup; /* Now parse the environment variable */ while (NULL != ptr && strlen(ptr) > 0) { next = strchr(ptr, ','); if (NULL != next) { *next = '\0'; } if (0 == strcasecmp(ptr, "syslog")) { #ifndef __WINDOWS__ /* there is no syslog */ lds->lds_want_syslog = true; have_output = true; } else if (strncasecmp(ptr, "syslogpri:", 10) == 0) { lds->lds_want_syslog = true; have_output = true; if (strcasecmp(ptr + 10, "notice") == 0) lds->lds_syslog_priority = LOG_NOTICE; else if (strcasecmp(ptr + 10, "INFO") == 0) lds->lds_syslog_priority = LOG_INFO; else if (strcasecmp(ptr + 10, "DEBUG") == 0) lds->lds_syslog_priority = LOG_DEBUG; } else if (strncasecmp(ptr, "syslogid:", 9) == 0) { lds->lds_want_syslog = true; lds->lds_syslog_ident = ptr + 9; #endif } else if (strcasecmp(ptr, "stdout") == 0) { lds->lds_want_stdout = true; have_output = true; } else if (strcasecmp(ptr, "stderr") == 0) { lds->lds_want_stderr = true; have_output = true; } else if (strcasecmp(ptr, "file") == 0) { lds->lds_want_file = true; have_output = true; } else if (strncasecmp(ptr, "file:", 5) == 0) { lds->lds_want_file = true; lds->lds_file_suffix = ptr + 5; have_output = true; } else if (strcasecmp(ptr, "fileappend") == 0) { lds->lds_want_file = true; lds->lds_want_file_append = 1; have_output = true; } else if (strncasecmp(ptr, "level", 5) == 0) { lds->lds_verbose_level = 0; if (ptr[5] == OPAL_ENV_SEP) lds->lds_verbose_level = atoi(ptr + 6); } if (NULL == next) { break; } ptr = next + 1; } /* If we didn't get an output, default to stderr */ if (!have_output) { lds->lds_want_stderr = true; } /* All done */ free(edup); }