Listener: Add output stream stubs.

1 files changed, 26 insertions, 0 deletions

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