From 1d3f9715116be41e3558aa64e215c64619839e98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 5 May 2010 16:31:08 +0100
Subject: [PATCH] define warning( in SWI emulation: just a stub for now.

---
 packages/PLStream/pl-incl.h |  1 +
 packages/PLStream/pl-yap.c  | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/packages/PLStream/pl-incl.h b/packages/PLStream/pl-incl.h
index 6b1f38abf..718b446d1 100755
--- a/packages/PLStream/pl-incl.h
+++ b/packages/PLStream/pl-incl.h
@@ -626,6 +626,7 @@ extern word lookupAtom(const char *s, size_t len);
 extern atom_t	lookupUCSAtom(const pl_wchar_t *s, size_t len);
 extern int toIntegerNumber(Number n, int flags);
 extern int get_atom_ptr_text(Atom a, PL_chars_t *text);
+extern int warning(const char *fm, ...);
 
 /**** stuff from pl-files.c ****/
 void initFiles(void);
diff --git a/packages/PLStream/pl-yap.c b/packages/PLStream/pl-yap.c
index f5d04129a..25a9d2c8c 100644
--- a/packages/PLStream/pl-yap.c
+++ b/packages/PLStream/pl-yap.c
@@ -596,3 +596,15 @@ X_API int PL_handle_signals(void)
   return 0;
 }
 
+/* just a stub for now */
+int
+warning(const char *fm, ...)
+{  va_list args;
+
+  va_start(args, fm);
+  fprintf(stderr,"warning: %s\n", fm);
+  va_end(args);
+
+  return TRUE;
+}
+