root/orte/mca/ess/base/ess_base_std_prolog.c

DEFINITIONS

1. orte_ess_base_std_prolog

   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$
  13  *
  14  * Additional copyrights may follow
  15  *
  16  * $HEADER$
  17  */
  18 
  19 #include "orte_config.h"
  20 #include "orte/constants.h"
  21 
  22 #include <sys/types.h>
  23 #include <stdio.h>
  24 #ifdef HAVE_FCNTL_H
  25 #include <fcntl.h>
  26 #endif
  27 #ifdef HAVE_UNISTD_H
  28 #include <unistd.h>
  29 #endif
  30 
  31 #include "orte/mca/errmgr/errmgr.h"
  32 #include "orte/util/show_help.h"
  33 #include "orte/runtime/orte_wait.h"
  34 #include "orte/runtime/runtime_internals.h"
  35 
  36 #include "orte/mca/ess/base/base.h"
  37 
  38 int orte_ess_base_std_prolog(void)
  39 {
  40     int ret;
  41     char *error = NULL;
  42 
  43     /* Initialize the ORTE data type support */
  44     if (ORTE_SUCCESS != (ret = orte_dt_init())) {
  45         error = "orte_dt_init";
  46         goto error;
  47     }
  48 
  49     if (!ORTE_PROC_IS_APP) {
  50         /*
  51          * Setup the waitpid/sigchld system
  52          */
  53         if (ORTE_SUCCESS != (ret = orte_wait_init())) {
  54             ORTE_ERROR_LOG(ret);
  55             error = "orte_wait_init";
  56             goto error;
  57         }
  58     }
  59 
  60     return ORTE_SUCCESS;
  61 
  62  error:
  63     orte_show_help("help-orte-runtime",
  64                    "orte_init:startup:internal-failure",
  65                    true, error, ORTE_ERROR_NAME(ret), ret);
  66 
  67     return ret;
  68 }