From 5afdd34ed00ed1de76b90a884e5b04bd699dc0af Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Thu, 28 Aug 2008 14:31:01 +0200
Subject: Listener: Add output stream stubs.

---
 MLKListenerController.m | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'MLKListenerController.m')

diff --git a/MLKListenerController.m b/MLKListenerController.m
index 4e238a7..696b08f 100644
--- a/MLKListenerController.m
+++ b/MLKListenerController.m
@@ -24,6 +24,27 @@
 #import "util.h"
 
 @implementation MLKListenerController
+- (id)init
+{
+  self = [super init];
+
+  ostream = [[NSOutputStream alloc] initToMemory];
+  lispStream = [[MLKStream alloc] initWithOutputStream:ostream];
+  [ostream setDelegate:self];
+  [ostream scheduleInRunLoop:[NSRunLoop currentRunLoop] forMode:NSDefaultRunLoopMode];
+  [ostream open];
+
+  return self;
+}
+
+- (void)dealloc
+{
+  [ostream close];
+  LDESTROY (ostream);
+  LDESTROY (lispStream);
+  [super dealloc];
+}
+
 - (IBAction)submit:(id)sender
 {
   id object;
@@ -101,4 +122,9 @@
 
   [submitButton setEnabled:YES];
 }
+
+- (void)stream:(NSStream *)stream handleEvent:(NSStreamEvent)event
+{
+  NSLog (@"Heya!");
+}
 @end
-- 
cgit v1.2.3