From a83546e31329833505a28b996c0fd8413c337c08 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 26 Jul 2011 23:32:38 +0100
Subject: [PATCH] fixes to have windows version of yap.

---
 console/LGPL/pl-ntmain.c      | 19 +++++++++++++++----
 library/dialect/swi/fli/swi.c |  2 +-
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/console/LGPL/pl-ntmain.c b/console/LGPL/pl-ntmain.c
index a7e480a85..4f213e393 100755
--- a/console/LGPL/pl-ntmain.c
+++ b/console/LGPL/pl-ntmain.c
@@ -193,7 +193,18 @@ Srlc_write(void *handle, char *buffer, size_t size)
 { rlc_console c = handle;
   ssize_t n;
 
-  n = rlc_write(c, (TCHAR*)buffer, size/sizeof(TCHAR));
+  if (size==1) {
+    TCHAR buf ='\0';
+    char *bufp = (char *)&buf;
+
+    if (!buffer[0]) return 1;
+    bufp[0] = buffer[0];
+    size = sizeof(TCHAR);
+    n = rlc_write(c, &buf, size/sizeof(TCHAR));
+    return (n ? 1 : 0);
+  } else {
+    n = rlc_write(c, (TCHAR*)buffer, size/sizeof(TCHAR));
+  }
   n *= sizeof(TCHAR);
 
   if ( n < (ssize_t)size && size-n < sizeof(TCHAR) )
@@ -760,7 +771,7 @@ HiddenFrameClass()
   HINSTANCE instance = rlc_hinstance();
 
   if ( !winclassname[0] )
-  { _stprintf(winclassname, _T("SWI-Prolog-hidden-win%d"), instance);
+  { _stprintf(winclassname, _T("YAP-hidden-win%d"), instance);
 
     wndClass.style		= 0;
     wndClass.lpfnWndProc	= (LPVOID) pl_wnd_proc;
@@ -794,7 +805,7 @@ create_prolog_hidden_window(rlc_console c)
     return (HWND)hwnd;
 
   hwnd = (uintptr_t)CreateWindow(HiddenFrameClass(),
-				     _T("SWI-Prolog hidden window"),
+				     _T("YAP hidden window"),
 				     0,
 				     0, 0, 32, 32,
 				     NULL, NULL, rlc_hinstance(), NULL);
@@ -914,7 +925,7 @@ set_window_title(rlc_console c)
   TCHAR *w64 = _T("");
 #endif
 
-  _stprintf(title, _T("SWI-Prolog (%s%sversion %d.%d.%d)"),
+  _stprintf(title, _T("YAP (%s%sversion %d.%d.%d)"),
 	    w64, mt, major, minor, patch);
 
   rlc_title(c, title, NULL, 0);
diff --git a/library/dialect/swi/fli/swi.c b/library/dialect/swi/fli/swi.c
index e429764fe..b56e74a00 100755
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@@ -2749,7 +2749,7 @@ PL_query(int query)
   case PL_QUERY_USER_CPU:
     return (intptr_t)Yap_cputime();
   case PL_QUERY_VERSION:
-    return (intptr_t)600301;
+    return (intptr_t)60300;
   default:
     fprintf(stderr,"Unimplemented PL_query %d\n",query);
     return (intptr_t)0;