error.cc

Go to the documentation of this file.

#define LINEAR_ERROR_CC_VERSION \
  "LINEAR_ERROR_CC   V1.0   "

#include <iostream>
#include <linearxx/error.h>

using std::cerr;
using std::endl;

namespace linear {

  bool Exception::Mreport_on_construct=true;

  Exception::Exception(): 
    Mmessage(0), Mfile(0), Mline(0), Mcondition(0)
    { if (Mreport_on_construct) { report(); } }

  Exception::Exception(const char* message):
    Mmessage(message), Mfile(0), Mline(0), Mcondition(0)
    { if (Mreport_on_construct) { report(); } }

  Exception::Exception(const char* message,
                       const char* condition):
    Mmessage(message), Mfile(0), Mline(0), Mcondition(condition)
    { if (Mreport_on_construct) { report(); } }

  Exception::Exception(const char* message,
                       const char* file,
                       const int& line):
    Mmessage(message), Mfile(file), Mline(line), Mcondition(0)
    { if (Mreport_on_construct) { report(); } }

  Exception::Exception(const char* message,
                       const char* file,
                       const int& line,
                       const char* condition):
    Mmessage(message), Mfile(file), Mline(line), Mcondition(condition)
    { if (Mreport_on_construct) { report(); } }
      
  void Exception::report_on_construct() 
  {
  Mreport_on_construct=true;
  }

  void Exception::dont_report_on_construct()
  {
  Mreport_on_construct=false;
  }

  void Exception::report() const
  {
    base_report();
  }

  void Exception::base_report() const
  {
    cerr << "Exception report:" << endl;
    if (Mmessage==0)
    {
      cerr << "  No message" << endl;
    }
    else
    {
      cerr << "  message: " << Mmessage << endl;
    }
    if (Mfile!=0)
    {
      cerr << "  triggered in \"" << Mfile << "\" at line #" << Mline << endl;
    }
    if (Mcondition!=0)
    {
      cerr << "  by condition:" << endl
        << "    \"" << Mcondition << "\"" << endl;
    }
  }

  /*======================================================================*/
  // LapackException code 

  LapackException::LapackException(const char* message, 
                                   const char* subroutine,
                                   const char* file,
                                   const int& line,
                                   const char* condition,
                                   const int& value):
    Exception("ERROR: return value of LAPACK subroutine!",
              file,line,condition), Mvalue(value), Msubroutine(subroutine),
              Mmeaning(message) { }

  void LapackException::report() const
  {
    base_report();
    std::cerr << "  The LAPACK subroutine \"" << Msubroutine 
      << "\" returned " << Mvalue << "." << std::endl;
    std::cerr << "  This means:" << std::endl;
    std::cerr << "  " << Mmeaning << std::endl;
  }


} // namespace linear

/* ----- END OF error.cc ----- */