From 3132ce4ed20e0dd2ffef0be5736b49d9dfed8f8b Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 14 Feb 2011 11:59:39 +0000
Subject: [PATCH] 2011-02-14 12:58 UTC+0100 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbide/idemain.prg   * contrib/hbide/hbide.hbp     +
 Loading rddads lib dynamically in HBIDE.       One will need rddads-21.dll
 built for this and places in the       same dir as hbide (that's where it's
 generated). You can       build rddads-21.dll using HB_BUILD_CONTRIB_DYN=yes.
     ; TOFIX: Get the dynamic lib name right for non-win platforms.           
   Pbly some core functions will be needed for that.

---
 harbour/ChangeLog                 | 10 ++++++++++
 harbour/contrib/hbide/hbide.hbp   |  1 +
 harbour/contrib/hbide/idemain.prg | 14 ++++++++++++++
 3 files changed, 25 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 56891043b5..78c477b03d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,16 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-02-14 12:58 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbide/idemain.prg
+  * contrib/hbide/hbide.hbp
+    + Loading rddads lib dynamically in HBIDE.
+      One will need rddads-21.dll built for this and places in the
+      same dir as hbide (that's where it's generated). You can
+      build rddads-21.dll using HB_BUILD_CONTRIB_DYN=yes.
+    ; TOFIX: Get the dynamic lib name right for non-win platforms.
+             Pbly some core functions will be needed for that.
+
 2011-02-14 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbqt/hbmk2_qt.hbs
     * Adapted to hbdoc changes: no more manual padding necessary.
diff --git a/harbour/contrib/hbide/hbide.hbp b/harbour/contrib/hbide/hbide.hbp
index 7e0af19f42..9980804df0 100644
--- a/harbour/contrib/hbide/hbide.hbp
+++ b/harbour/contrib/hbide/hbide.hbp
@@ -24,6 +24,7 @@
 ../hbqt/hbqtnetwork.hbc
 ../hbqt/hbqtuitools.hbc
 ../hbformat/hbformat.hbc
+../rddads/rddads.hbc
 
 -lhbcplr
 -lhbpp
diff --git a/harbour/contrib/hbide/idemain.prg b/harbour/contrib/hbide/idemain.prg
index 2d6c28ed15..f4c5dc8689 100644
--- a/harbour/contrib/hbide/idemain.prg
+++ b/harbour/contrib/hbide/idemain.prg
@@ -79,6 +79,8 @@
 #include "hbclass.ch"
 #include "hbver.ch"
 
+#include "rddads.hbx"
+
 /* Link all Harbour Functions : needed to run external scripts */
 REQUEST __HB_EXTERN__
 REQUEST __HBEXTERN__HBXBP__
@@ -91,6 +93,7 @@ REQUEST __HBEXTERN__HBQTNETWORK__
 REQUEST DBFCDX
 REQUEST DBFNTX
 REQUEST DBFNSX
+REQUEST ADS
 
 /*----------------------------------------------------------------------*/
 
@@ -98,6 +101,9 @@ PROCEDURE Main( ... )
    LOCAL oIde
    LOCAL oResource
 
+   LOCAL hRDDADS
+   LOCAL tmp
+
    #ifdef HB_IDE_DISTRO
       LOCAL cBse := hb_dirBase() + ".."
 
@@ -113,6 +119,14 @@ PROCEDURE Main( ... )
    SET CENTURY ON
    SET EPOCH TO 1970
 
+   /* TOFIX: Get the name right for other platforms than Windows. */
+   IF hb_FileExists( tmp := ( hb_dirBase() + "rddads-" + hb_ntos( hb_version( HB_VERSION_MAJOR ) ) + hb_ntos( hb_version( HB_VERSION_MINOR ) ) + hb_libExt() ) )
+      hRDDADS := hb_libLoad( hb_libName( tmp ) )
+      IF ! Empty( hRDDADS )
+         hb_rddadsRegister()
+      ENDIF
+   ENDIF
+
    oResource := QResource()
    oResource:registerResource_1( hbqtres_HbIde(), ":/resource" )