/*
  * exceptions4c lightweight version 1.0
  *
  * Copyright (c) 2013 Guillermo Calvo
  * Licensed under the GNU Lesser General Public License
  */
 
 #include <stdlib.h>
 #include <stdio.h>
 #include "e4c_lite.h"
 
 E4C_DEFINE_EXCEPTION(RuntimeException, "Runtime exception.", RuntimeException);
 E4C_DEFINE_EXCEPTION(NullPointerException, "Null pointer.", RuntimeException);
 E4C_DEFINE_EXCEPTION(ClustalOmegaException, "ClustalOmega exception", RuntimeException);
 
 struct e4c_context e4c = {0};
 static const char * err_msg[] = {"\n\nError: %s (%s)\n\n", "\n\nUncaught %s: %s\n\n    thrown at %s:%d\n\n"};
 
 static void e4c_propagate(void){
 
     e4c.frame[e4c.frames].uncaught = 1;
 
     if(e4c.frames > 0) longjmp(e4c.jump[e4c.frames - 1], 1);
 
     if(fprintf(stderr, e4c.err.file == NULL ? err_msg[0] : err_msg[1], e4c.err.type->name, e4c.err.message, e4c.err.file, e4c.err.line) > 0)
         (void)fflush(stderr);
 
     //exit(EXIT_FAILURE);
 }
 
 int e4c_try(const char * file, int line){
 
     if(e4c.frames >= E4C_MAX_FRAMES) e4c_throw(&RuntimeException, file, line, "Too many `try` blocks nested.");
 
     e4c.frames++;
 
     e4c.frame[e4c.frames].stage = e4c_beginning;
     e4c.frame[e4c.frames].uncaught = 0;
 
     return 1;
 }
 
 int e4c_hook(int is_catch){
 
     int uncaught;
 
     if(is_catch) return !(e4c.frame[e4c.frames].uncaught = 0);
 
     uncaught = e4c.frame[e4c.frames].uncaught;
 
     e4c.frame[e4c.frames].stage++;
     if(e4c.frame[e4c.frames].stage == e4c_catching && !uncaught) e4c.frame[e4c.frames].stage++;
 
     if(e4c.frame[e4c.frames].stage < e4c_done) return 1;
 
     e4c.frames--;
 
     if(uncaught) e4c_propagate();
 
     return 0;
 }
 
 int e4c_extends(const struct e4c_exception_type * child, const struct e4c_exception_type * parent){
 
     for(; child != NULL && child->supertype != child; child = child->supertype)
         if(child->supertype == parent) return 1;
 
     return 0;
 }
 
 void e4c_throw(const struct e4c_exception_type * exception_type, const char * file, int line, const char * message){
 
     e4c.err.type = (exception_type != NULL ? exception_type : &NullPointerException);
     e4c.err.file = file;
     e4c.err.line = line;
 
     (void)sprintf(e4c.err.message, "%.*s", (int)E4C_MESSAGE_SIZE - 1, (message != NULL ? message : e4c.err.type->default_message));
 
     e4c_propagate();
 }