|
From: Vitor S. C. <vs...@us...> - 2008-08-01 23:02:26
|
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; + } +} |