source: pcp/src/errors.c@ f70c2a

/** \file errors.c 
 * Error reporting.
 * Contains just one function Error() which prints out a certain error message
 * class and starts the debugger.
 * 
 * Project: ParallelCarParrinello
 * \author Jan Hamaekers
 * \date 2000
 *
 * File: errors.c
 * $Id: errors.c,v 1.11 2006/03/31 10:38:04 foo Exp $
 *
*/

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include<stdlib.h>
#include<stdio.h>
#include"data.h"
#include"opt.h"
#include"errors.h"


/** Deals with occuring errors.
 * Prints process id followed by error according to \ref Errors.
 * In the case of MallocError \a *SpecialData contains additional text.
 * Launches debugger, does afterwards MPI_abort and exit
 *
 * \note One could add another pointer to a function
 *
 * \sa StartDebugger()
 * \param error is the type of error(enum Errors) on error_msg array
 * \param *SpecialData is a typeless pointer on special data for error treatment, here detailed error message.
*/ 
void Error_in(enum Errors error, const void *SpecialData,
    const char *file, const int line)
{
  const char *const error_msg[] = {
    "SomeError",
    "FileOpenParams\nUnable to open parameter file\n",
    "InitReading\n",
    "MallocError\nUnable to allocate memory!\n",
  };
  int mytid; 
  MPI_Comm_rank(MPI_COMM_WORLD, &mytid);
  fprintf(stderr, "\nProcess %i: ", mytid);
  fprintf(stderr, "Error in file %s, line %d (%i): %s - ",
      file, line, (int)error, error_msg[error]);
  switch (error) {
  case InitReading:
  case SomeError:
  case MallocError:
    if (SpecialData) fprintf(stderr, "%s\n", (const char*)SpecialData);
    break;
  default:
    break;
  }

  StartDebugger();
  MPI_Abort(MPI_COMM_WORLD, (int)error);
  exit(EXIT_FAILURE); /* exit schreibt sowieso alle Dateipuffer aus */
}