QGSL.cc

Go to the documentation of this file.

#include "QGSL.hh"
#include "QError.hh"
#include <gsl/gsl_errno.h>
 
Q_BEGIN_NAMESPACE
 
jmp_buf QGSL::fMark;
QError* QGSL::fError = 0;
 
QGSL::QGSL()
{
}
 
QGSL::~QGSL()
{
    if(fError) delete fError;
}
QGSL& QGSL::GetInstance()
{
    static QGSL me;
    return me;
}
 
void QGSL::InitErrorHandler()
{
    // translate the stack jump into a C++ throw
    if (setjmp(fMark) != 0) {
        if(!fError) fError = new QError(QERR_GSL_ERROR);
        fError->SetDescription("Unknown GSL error, rerun with -g");
        DianaThrow( *fError );
    } else {
        TurnOnErrorHandler();
    }
}
 
void QGSL::TurnOnErrorHandler()
{
    gsl_set_error_handler(&ErrorHandler);
}
 
void QGSL::TurnOffErrorHandler()
{
   gsl_set_error_handler_off();
}
 
void QGSL::ErrorHandler(const char * reason, const char * file, int line, int gsl_errno)
{
    if(fError) delete fError;
    fError = new QError(QERR_GSL_ERROR,file,line,reason);
    // this is like C++ throw
    longjmp(fMark, -1);
}
 
Q_END_NAMESPACE