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

@@ -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.

harbour/contrib/hbide/hbide.hbp

@@ -24,6 +24,7 @@
 ../hbqt/hbqtnetwork.hbc
 ../hbqt/hbqtuitools.hbc
 ../hbformat/hbformat.hbc
+../rddads/rddads.hbc
 
 -lhbcplr
 -lhbpp

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" )