/*
 ******************************
 * 
 *
 * Initialial version: Laurent Deniau, Laurent.Deniau@cern.ch
 *
 * For more information, please see the paper:
 * http://cern.ch/Laurent.Deniau/html/oopc/exception.html
 * 
 * -----------------------------------------------------------
 *
 * Strong rework and adaption to riviera by Christophe Favergeon
 *
 ******************************
 */

#ifndef RVF_EXCEPTION_H
#define RVF_EXCEPTION_H

#include "rvf/rvf_api.h"
#include "rvf/rvf_target.h"

#include <string.h>



//#ifndef __STDC__
//#  error "exception.h needs ISO C compiler to work properly"
//#endif

#include <setjmp.h>

typedef enum K_RVF_EXCEPTIONS { E_invalid=1, E_not_enough_memory,E_unknown } T_RVF_EXCEPTIONS; 

typedef void (*T_RVF_RELEASE_PROTECTED_POINTER)(void *p);

/*
  choose context savings
*/

#define rvf_save_context_buffer_(context)         setjmp(context)
#define rvf_restore_context_buffer_(context, val) longjmp(context, val)

/*
  some hidden types used to handle exceptions
*/

/* type of stack of protected pointer */
struct _protectedPtr_ {
  struct _protectedPtr_ *next;
  struct _protectedPtr_ *previous;
  void *ptr;
  T_RVF_RELEASE_PROTECTED_POINTER func;
};

/* type of stack of exception */
struct _exceptionContext_ {
  struct _exceptionContext_ *next;
  struct _protectedPtr_ *stack;
  jmp_buf context;
};

extern struct _exceptionContext_ *const _returnExceptionContext_[MAX_RVF_TASKS];
extern struct _exceptionContext_ *_currentExceptionContext_[MAX_RVF_TASKS];

/* exception keywords */
#define try								 \
  do {									 \
	struct _exceptionContext_ _localExceptionContext_ ;\
	memset(&_localExceptionContext_,0,sizeof(struct _exceptionContext_));\
    _localExceptionContext_.next=_currentExceptionContext_[rvf_get_taskid()];\
    _currentExceptionContext_[rvf_get_taskid()] = &_localExceptionContext_;		 \
    do {								 \
      int const exception =						 \
              rvf_save_context_buffer_(_currentExceptionContext_[rvf_get_taskid()]->context); \
      if (!exception) {

#define catch(except)							\
      } else if ((int)(except) == exception) {				\
        _currentExceptionContext_[rvf_get_taskid()] = _currentExceptionContext_[rvf_get_taskid()]->next;

#define catch_any							\
      } else {								\
        _currentExceptionContext_[rvf_get_taskid()] = _currentExceptionContext_[rvf_get_taskid()]->next;

#define endtry								\
      }									\
    } while(0);								\
    if (_currentExceptionContext_[rvf_get_taskid()] == &_localExceptionContext_) {	\
      rvf_forget_protected_ptr();\
      _currentExceptionContext_[rvf_get_taskid()] = _currentExceptionContext_[rvf_get_taskid()]->next;	\
    }									\
  } while(0)

#define rethrow throw(exception)
#define break_try break

/*
#define return_try(...)						\
  do {								\
    _currentExceptionContext_ = _returnExceptionContext_;	\
    return __VA_ARGS__;						\
  } while(0)
*/

#define throw(except) _exceptionThrow_((int)(except))


/*
  extern declarations
*/

extern void _exceptionThrow_(int except);

extern void rvf_forget_protected_ptr();
extern void rvf_protect_pointer(T_RVF_MB_ID mb_id,void *p,T_RVF_RELEASE_PROTECTED_POINTER func);

#define RVF_PROTECT(bank,p) rvf_protect_pointer(bank,p,(T_RVF_RELEASE_PROTECTED_POINTER)rvf_free_buf)

#define THROW_IF_ERROR(err) if (err!=0) throw(E_unknown)
#define THROW_IF_NULL(p) if (p==NULL) throw(E_not_enough_memory)
#define THROW_IF_YELLOW(b,p) if ((p==NULL) || (rvf_get_mb_status(b)==RVF_YELLOW)) throw(E_not_enough_memory)
#endif