[Yap-commits] CVS: library/yap2swi yap2swi.c,1.24,1.25

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/library/yap2swi
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv11953/library/yap2swi

Modified Files:
	yap2swi.c 
Log Message:
swi compatibility support


Index: yap2swi.c
===================================================================
RCS file: /cvsroot/yap/library/yap2swi/yap2swi.c,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- yap2swi.c	24 Jul 2008 16:02:04 -0000	1.24
+++ yap2swi.c	1 Aug 2008 21:44:25 -0000	1.25
@@ -13,9 +13,12 @@
 #include	<stdlib.h>
 #include	<string.h>
 #include	<stdio.h>
+#include	<wchar.h>
+#include	<assert.h>
+
 
-#include	<SWI-Prolog.h>
 #include	<SWI-Stream.h>
+#include	<SWI-Prolog.h>
 
[...1180 lines suppressed...]
+}
+
+
+void
+Sseterr(IOSTREAM *s, int flag, const char *message)
+{ if ( s->message )
+  { free(s->message);
+    s->message = NULL;
+    s->flags &= ~SIO_CLEARERR;
+  }
+  if ( message )
+  { s->flags |= flag;
+    s->message = strdup(message);
+  } else
+  { s->flags &= ~flag;
+  }
+}