* flower/memory-stream.cc (Memory_out_stream): remove fopencookie support.

[lilypond.git] / flower / file-cookie.cc

diff --git a/flower/file-cookie.cc b/flower/file-cookie.cc
new file mode 100644 (file)
index 0000000..b216b8a
--- /dev/null
+++ b/flower/file-cookie.cc
@@ -0,0 +1,58 @@
+
+#include <assert.h>
+#include <cstdio>
+
+#include "memory-stream.hh"
+
+extern "C" {
+
+  static bool
+  is_memory_stream (void *foo)
+  {
+    Memory_out_stream *cookie = (Memory_out_stream *) foo;
+    return dynamic_cast<Memory_out_stream *> (cookie);
+  }
+
+  void *
+  lily_fopencookie (void *cookie, char const *modes,
+                   lily_cookie_io_functions_t io_funcs)
+  {
+    (void) cookie;
+    (void) modes;
+    (void) io_funcs;
+    assert (is_memory_stream (cookie));
+    return (FILE *) cookie;
+  }
+
+  int
+  lily_cookie_fclose (void *file)
+  {
+    assert (is_memory_stream (file));
+    return Memory_out_stream::cleaner (file);
+  }
+
+  int
+  lily_cookie_fprintf (void *file, char const *format, ...)
+  {
+    assert (is_memory_stream (file));
+    va_list ap;
+    va_start (ap, format);
+
+    static char buf[65536];
+    int i = vsnprintf (buf, sizeof (buf), format, ap);
+    if (i == -1 || (unsigned) i > sizeof (buf))
+      assert (false);
+    va_end (ap);
+    return Memory_out_stream::writer (file, buf, i);
+  }
+
+  int
+  lily_cookie_putc (int c, void *file)
+  {
+    assert (is_memory_stream (file));
+    char buf[1];
+    buf[0] = (char) c;
+    return Memory_out_stream::writer (file, buf, 1);
+  }
+
+} /* extern C */