2011-06-03 17:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/rddads/tests/datad.prg
    ! fixed 'field -> id' index expr which wasn't recognized by ADS
  * contrib/rddads/tests/datad.prg
  * contrib/rddads/tests/testmg.prg
    ! use hb_libpostfix()
  * contrib/hbide/idemain.prg
    ! use hb_libpostfix() which fixes loading rddads on non-win 
      systems (untested, I can't wait for HBQT build to finish)

harbour/ChangeLog

@@ -16,6 +16,16 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-06-03 17:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/rddads/tests/datad.prg
+    ! fixed 'field -> id' index expr which wasn't recognized by ADS
+  * contrib/rddads/tests/datad.prg
+  * contrib/rddads/tests/testmg.prg
+    ! use hb_libpostfix()
+  * contrib/hbide/idemain.prg
+    ! use hb_libpostfix() which fixes loading rddads on non-win 
+      systems (untested, I can't wait for HBQT build to finish)
+
 2011-06-03 14:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * INSTALL
     + added TROUBLESHOOTING/11:

harbour/contrib/hbide/idemain.prg

@@ -125,9 +125,8 @@ PROCEDURE Main( ... )
    SET EPOCH TO 1970
 
 #ifdef __HBDYNLOAD__RDDADS__
-   /* 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 hb_FileExists( tmp := hb_dirBase() + hb_libName( "rddads" + hb_libPostfix() ) )
+      hRDDADS := hb_libLoad( tmp )
       IF ! Empty( hRDDADS )
          hbide_setAdsAvailable( .t. )
          hb_rddadsRegister()

harbour/contrib/rddads/tests/datad.prg

@@ -6,7 +6,6 @@
     Demo of ADS Connection handling and Data Dictionaries
 */
 
-
 #include "ads.ch"
 REQUEST ADS
 
@@ -22,7 +21,7 @@ PROCEDURE MAIN()
    LOCAL hConnection1
 
 #if defined( __HBDYNLOAD__RDDADS__ )
-   LOCAL l := hb_libLoad( hb_libName( "rddads" ) )
+   LOCAL l := hb_libLoad( hb_libName( "rddads" + hb_libPostfix() ) )
 
    hb_rddadsRegister()
 
@@ -63,11 +62,11 @@ PROCEDURE MAIN()
       dbCreate( "Table2", aStru )
       //now create an index
       USE table1 NEW
-      INDEX ON FIELD -> id TAG codigo
+      INDEX ON FIELD->id TAG codigo
       USE
 
       USE table2 NEW
-      INDEX ON FIELD -> id TAG codigo
+      INDEX ON FIELD->id TAG codigo
       USE
    ENDIF
 

harbour/contrib/rddads/tests/testmg.prg

@@ -66,7 +66,7 @@ PROCEDURE Main()
    LOCAL aRay
 
 #if defined( __HBDYNLOAD__RDDADS__ )
-   LOCAL l := hb_libLoad( hb_libName( "rddads" ) )
+   LOCAL l := hb_libLoad( hb_libName( "rddads" + hb_libPostfix() ) )
 
    hb_rddadsRegister()