error_Error.cpp

// See LICENSE_CELLO file for license and copyright information

/// @file     error_Error.cpp
/// @author   James Bordner (jobordner@ucsd.edu)
/// @date     2011-09-07
/// @brief    Implementation of Error functions

#include "cello.hpp"

#include "error.hpp"
#include "test.hpp"

//----------------------------------------------------------------------

void cello::message
(
 FILE *       fp,
 const char * type,
 const char * file,
 int          line,
 const char * function,
 const char * message,
 ...
 )

{
  char buffer[ERROR_LENGTH];

  va_list fargs;
  
  // Process any input arguments

  va_start(fargs,message);
  vsnprintf (buffer,ERROR_LENGTH, message,fargs);
  va_end(fargs);

  Monitor * monitor = Monitor::instance();

  // Override Monitor::is_active() when output is to stderr
  int save_mode = monitor_mode_all;
  if (fp == stderr) {
    save_mode = monitor->mode();
    monitor->set_mode(monitor_mode_all);
  }
  std::string file_str = file;
  if (strlen(file)>0) {
    // Only print file name not full path
    file_str = file_str.substr(file_str.rfind("/")+1,std::string::npos);
  }

  if (strcmp(type,"ERROR") == 0) 
    monitor->write(fp,"","@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@");

  monitor->write (fp,type,"%s:%d",file_str.c_str(),line);
  if (strlen(function) > 0) monitor->write (fp,type,"%s",function);
  if (strlen(message)  > 0) monitor->write (fp,type,"%s",buffer);

  if (fp == stderr) {
    monitor->set_mode(save_mode);
  }

  if (strcmp(type,"ERROR") == 0)
    monitor->write(fp,"","@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@");

  if (strcmp(type,"ERROR") == 0)
    unit_assert(false);
  fflush (fp);
}

//----------------------------------------------------------------------

[[ noreturn ]] void cello::error()
{
  const int buffer_size = 64;

  void * buffer[buffer_size];
  
  int num_symbols = backtrace (buffer,buffer_size);

  char ** symbols = backtrace_symbols(buffer,num_symbols);

  for (int i=0; i<num_symbols; i++) {
    cello::message(stderr,"EXIT","",0,"",symbols[i]);
  }
  CmiAbort("EXITING");
  exit(1); 
}