From 97ad5ac29b2ca40c5ec27f9057b28f8c9cb2b566 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Fri, 13 Jun 2008 20:01:47 +0200
Subject: Add class MLKThrowException.

---
 GNUmakefile         |  1 +
 MLKThrowException.h | 20 ++++++++++++++++++++
 MLKThrowException.m | 25 +++++++++++++++++++++++++
 3 files changed, 46 insertions(+)
 create mode 100644 MLKThrowException.h
 create mode 100644 MLKThrowException.m

diff --git a/GNUmakefile b/GNUmakefile
index 4655041..b2de3a9 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -20,6 +20,7 @@ include $(GNUSTEP_MAKEFILES)/common.make
 TOOL_NAME = etoilisp
 etoilisp_OBJC_FILES = MLKCons.m MLKDynamicContext.m MLKEnvironment.m	\
                       MLKLinkedList.m MLKLispValue.m MLKSymbol.m	\
+                      MLKThrowException.m				\
                       MLKUndefinedVariableException.m
 
 BUNDLE_NAME = Test
diff --git a/MLKThrowException.h b/MLKThrowException.h
new file mode 100644
index 0000000..567cbcc
--- /dev/null
+++ b/MLKThrowException.h
@@ -0,0 +1,20 @@
+/* -*- mode: objc; coding: utf-8 -*- */
+/* Copyright 2008, Matthias Benkard. */
+
+#include <Foundation/NSException.h>
+
+@class MLKSymbol;
+
+
+@interface MLKThrowException : NSException
+{
+  MLKSymbol *_catchTag;
+  id _value;
+}
+
+-(MLKThrowException *) initWithCatchTag:(MLKSymbol *)catchTag
+                                  value:(id)value;
+
+-(MLKSymbol *) catchTag;
+-(id) value;
+@end
diff --git a/MLKThrowException.m b/MLKThrowException.m
new file mode 100644
index 0000000..799db7e
--- /dev/null
+++ b/MLKThrowException.m
@@ -0,0 +1,25 @@
+/* -*- mode: objc; coding: utf-8 -*- */
+/* Copyright 2008, Matthias Benkard. */
+
+#include "MLKThrowException.h"
+
+
+@implementation MLKThrowException
+-(MLKThrowException *) initWithCatchTag:(MLKSymbol *)catchTag
+                                  value:(id)value
+{
+  _catchTag = catchTag;
+  _value = value;
+  return self;
+}
+
+-(MLKSymbol *) catchTag
+{
+  return _catchTag;
+}
+
+-(id) value
+{
+  return _value;
+}
+@end
-- 
cgit v1.2.3