From b05c51d344498a0722e8516af15248802bdc6fda Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 24 Aug 2016 18:54:06 -0400
Subject: [PATCH] TODO

---
 runtime.c | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/runtime.c b/runtime.c
index d3f81c4e..2257c14d 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2537,6 +2537,35 @@ object Cyc_io_peek_char(void *data, object cont, object port)
   return Cyc_EOF;
 }
 
+// Hacky approach to a minimal string buffer implementation. This may change in the future
+// For background see: http://stackoverflow.com/questions/539537/memory-buffer-as-file
+port_type Cyc_io_open_output_string(void *data)
+
+// TODO: no, this is too hacky. fuck it, just use fmemopen or open_memstream
+// for non-supported platforms we'll raise an error and not do anything
+{
+    FILE *f = fopen("/dev/null", "w");
+    int i;
+    int written = 0;
+    char *buf = malloc(100000);
+    make_port(p, NULL, 0); // TODO: probably wrong params, need to add buf to port obj and type
+    //setbuffer(f, buf, 100000);
+    if (0 != setvbuf (f, buf, _IOFBF, 100000)){
+      // TODO: raise() instead?
+      fprintf(stderr, "Unable to setvbuf!\n");
+      exit(1);
+    }
+    for (i = 0; i < 1000; i++) {
+        written += fprintf(f, "Number %d\n", i);
+    }
+    for (i = 0; i < written; i++) {
+        printf("%c", buf[i]);
+    }
+    return p;
+}
+
+// END string buffers
+
 // Functions internal to the runtime that use malloc
 list malloc_make_pair(object a, object d)
 {