Imported libSDF into VOID tree

external/libsdf/libmpmy/io_generic.c

@@ -0,0 +1,59 @@
+/* Some i/o routines that are likely to be common... */
+
+#ifndef HAVE_MPMY_FPRINTF
+
+int MPMY_Fprintf(MPMYFile *fp, const char *fmt, ...){
+    int ret;
+    va_list ap;
+    va_start(ap, fmt);
+    ret = MPMY_Vfprintf(fp, fmt, ap);
+    va_end(ap);
+    return ret;
+}
+#endif
+
+#ifndef HAVE_MPMY_VFPRINTF
+#include <stdarg.h>
+#include <stdio.h>
+
+static char buf[1024];
+
+int MPMY_Vfprintf(MPMYFile *fp, const char *fmt, va_list args){
+    /* What a pain.  Sometimes sprintf returns a char* and sometimes
+       it returns an int.  There's no good way to tell, but this
+       should do.*/
+    long ret = (long)vsprintf(buf, fmt, args);
+
+    /* Broken versions of sprintf return their first arg... */
+    if( ret == (long)buf )
+	ret = strlen(buf);
+
+    if( ret < 0 ){
+	return ret;
+    }
+    if( ret >= sizeof(buf) ){
+	/* This is serious.  We've probably scribbled over memory.
+	   Maybe we should just bail out now?
+	   */
+	static int recursion;
+	if( recursion++ == 0 )
+	    Error("MPMY_Vfprintf overflow.  Data corruption likely!\n");
+	recursion--;
+    }
+
+    if( MPMY_Fwrite(buf, 1, ret, fp) != ret ){
+	return -1;
+    }
+    return ret;
+}
+#endif
+
+#ifndef HAVE_MPMY_FLUSH
+
+/* This is here just for completeness...  The higher levels all do
+   their I/O using unbuffered primitives (read/write/open/close), so
+   we don't have to do anything special to flush output */
+int MPMY_Fflush(MPMYFile *fp){
+    return 0;
+}
+#endif