Bringing over latest (broken) copy of the library

exceptions.c

@@ -0,0 +1,79 @@
+#include <stdio.h>
+#include <setjmp.h>
+
+struct exc_status {
+	struct exc_status *next;
+	struct exc_status *prev;
+	jmp_buf buf;
+	int last_exception;
+	int last_caught;
+	int tried;
+};
+
+struct exc_status __exc_status_head;
+struct exc_status *EXC_STATUS_LIST = &__exc_status_head;
+
+int new_exc_frame(struct exc_status *es) 
+{
+	if ( !es )
+		return 1;
+	EXC_STATUS_LIST->next = es;
+	es->next = NULL;
+	es->prev = EXC_STATUS_LIST;
+	es->last_exception = 0;
+	es->last_caught = 0;
+	es->tried = 0;
+	EXC_STATUS_LIST = es;
+	return 0;
+}
+
+int clear_exc_frame()
+{
+	struct exc_status *es = EXC_STATUS_LIST;
+	if ( es->prev )
+		es->prev->next = NULL;
+	EXC_STATUS_LIST = es->prev;
+	es->last_exception = 0;
+	es->last_caught = 0;
+	es->tried = 0;
+}
+
+jmp_buf exc_buf;
+int EXC_LAST_EXCEPTION = 0;
+int EXC_LAST_CAUGHT = 0;
+int EXC_TRIED = 0;
+
+#define TRY struct exc_status es; new_exc_frame(&es); es.last_exception = sigsetjmp(es.buf, 1); switch( es.last_exception ) { case 0:
+#define CATCH(x) break; case x: es.last_caught = x;
+#define DEFAULT break; default: es.last_caught = 1;
+#define ETRY }; clear_exc_frame();
+#define FINALLY }; if ( es.last_caught || es.tried ) {
+#define THROW(x) EXC_STATUS_LIST->last_exception = x; siglongjmp(EXC_STATUS_LIST->buf, x);
+
+void testfunc(void)
+{
+	printf("Throwing 34 from testfunc\n");
+	THROW(34);
+}
+
+int main(void)
+{
+	TRY {
+		printf("Throwing 2\n");
+		THROW(2);
+	} CATCH(1) {
+		printf("Caught 1\n");
+	} CATCH(2) {
+		printf("Caught 2\n");
+		TRY {
+			testfunc();
+		} CATCH(34) {
+			printf("Caught 34!\n");
+		} ETRY
+	} DEFAULT {
+		printf("In default clause\n");
+	} FINALLY {
+		printf("In finally clause\n");
+	} ETRY
+	return 0;
+}