new file mode 100644

@@ -0,0 +1,80 @@

+/*

+ * 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();

+}