From 1c53b74ba02b993984df9598621473ba591b3ab9 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Mon, 7 Sep 2009 08:53:05 +0000
Subject: [PATCH] 2009-09-07 10:52 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/hbsocket.c     + added
 support for setting non blocking IO mode in OpenWatcom OS2       builds -
 please test.

---
 harbour/ChangeLog             | 5 +++++
 harbour/source/rtl/hbsocket.c | 6 ++++++
 2 files changed, 11 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 60e51d55c0..c90448d57e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-09-07 10:52 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/hbsocket.c
+    + added support for setting non blocking IO mode in OpenWatcom OS2
+      builds - please test.
+
 2009-09-07 10:46 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/rtl/hbsocket.c
     ! fixed compilation with WATT-32 in OpenWatcom DOS builds
diff --git a/harbour/source/rtl/hbsocket.c b/harbour/source/rtl/hbsocket.c
index 044cf7f4e7..1c7e8f733b 100644
--- a/harbour/source/rtl/hbsocket.c
+++ b/harbour/source/rtl/hbsocket.c
@@ -2332,6 +2332,12 @@ int hb_socketSetBlockingIO( HB_SOCKET sd, BOOL fBlocking )
          ret = 0;
    }
    hb_socketSetOsError( ret != -1 ? 0 : HB_SOCK_GETERROR() );
+#elif defined( HB_OS_OS2 )
+   unsigned long mode = fBlocking ? 0 : 1;
+   ret = ioctl( sd, FIONBIO, ( char * ) &mode );
+   hb_socketSetOsError( ret != -1 ? 0 : HB_SOCK_GETERROR() );
+   if( ret == 0 )
+      ret = 1;
 #else
    int TODO;
    HB_SYMBOL_UNUSED( sd );