[Xsb-commits] CVS: XSB/emu cinterf.c,1.71,1.72

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/emu
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv27412

Modified Files:
	cinterf.c 
Log Message:
Added definition of snprintf for MSVC compilation.  Used when HAVE_SNPRINTF
flag is not defined in xsb_config.h  (At the moment needs to be undefined by hand.)


Index: cinterf.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/cinterf.c,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- cinterf.c	25 Jan 2007 20:33:53 -0000	1.71
+++ cinterf.c	18 Feb 2007 16:26:05 -0000	1.72
@@ -70,6 +70,26 @@
 void c_string_to_p_charlist(CTXTdeclc char *name, prolog_term list,
 			    int regs_to_protect, char *in_func, char *where);
 
+#ifndef HAVE_SNPRINTF
+#include <stdarg.h>
+int snprintf(char *buffer, size_t count, const char *fmt, ...) {
+       va_list ap;
+       int ret;
+
+       va_start(ap, fmt);
+       ret = _vsnprintf(buffer, count-1, fmt, ap);
+
+       if (ret < 0) {
+               buffer[count-1] = '\0';
+       }
+
+       va_end(ap);
+       return ret;
+}
+#endif
+
+
+
 /*======================================================================*/
 /* Low level C interface						*/
 /*======================================================================*/