2012-04-03 12:08 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/rddads/rddads.hbx
  * contrib/rddads/adsfunc.c
    + added ADSDDADDINDEXFILE(). posted by Lucas De Beltran.

  * contrib/hbformat/utils/hbformat.prg
    % changed manual logic to HB_DIRSEPADD() call
    ! changed SET( _SET_DIRSEPARATOR ) to hb_ps()

harbour/ChangeLog

@@ -16,6 +16,15 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-04-03 12:08 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/rddads/rddads.hbx
+  * contrib/rddads/adsfunc.c
+    + added ADSDDADDINDEXFILE(). posted by Lucas De Beltran.
+
+  * contrib/hbformat/utils/hbformat.prg
+    % changed manual logic to HB_DIRSEPADD() call
+    ! changed SET( _SET_DIRSEPARATOR ) to hb_ps()
+
 2012-04-03 02:28 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/lang/Makefile
   + src/lang/msghuutf.c

harbour/contrib/hbformat/utils/hbformat.prg

@@ -92,7 +92,7 @@ PROCEDURE Main( ... )
       ELSE
          cInitDir := iif( ( i := RAt( "\", cFileName ) ) == 0, ;
             iif( ( i := RAt( "/", cFileName ) ) == 0, ;
-            "." + Set( _SET_DIRSEPARATOR ), Left( cFileName, i ) ), ;
+            "." + hb_ps(), Left( cFileName, i ) ), ;
             Left( cFileName, i ) )
          cFileName := iif( i == 0, cFileName, SubStr( cFileName, i + 1 ) )
          DirEval( cInitDir, cFileName, lRecursive, {| name | Reformat( oRef, name ) } )
@@ -168,9 +168,8 @@ STATIC PROCEDURE DirEval( cInitDir, cMask, lRecur, bCode )
 
    LOCAL i, nLen, aFiles
 
-   IF !( Right( cInitDir, 1 ) == Set( _SET_DIRSEPARATOR ) )
-      cInitDir += Set( _SET_DIRSEPARATOR )
-   ENDIF
+   cInitDir := hb_DirSepAdd( cInitDir )
+
    cMask := iif( cMask == NIL, hb_osFileMask(), Upper( cMask ) )
 
    aFiles := Directory( cInitDir + hb_osFileMask(), "HSD" )

harbour/contrib/rddads/adsfunc.c

@@ -1752,6 +1752,18 @@ HB_FUNC( ADSDDREMOVETABLE )
 #endif
 }
 
+HB_FUNC( ADSDDADDINDEXFILE )
+{
+#if ADS_LIB_VERSION >= 600
+   hb_retl( AdsDDAddIndexFile( HB_ADS_PARCONNECTION( 4 ) /* hConnect */,
+                               ( UNSIGNED8 * ) hb_parcx( 1 ) /* pTableName */,
+                               ( UNSIGNED8 * ) hb_parcx( 2 ) /* pIndexName */,
+                               ( UNSIGNED8 * ) hb_parcx( 3 ) /* pucComment  */ ) == AE_SUCCESS );
+#else
+   hb_retl( HB_FALSE );
+#endif
+}
+
 HB_FUNC( ADSDDREMOVEINDEXFILE )
 {
 #if ADS_LIB_VERSION >= 600

harbour/contrib/rddads/rddads.hbx

@@ -53,6 +53,7 @@ DYNAMIC ADSCREATEFTSINDEX
 DYNAMIC ADSCREATESAVEPOINT
 DYNAMIC ADSCREATESQLSTATEMENT
 DYNAMIC ADSCUSTOMIZEAOF
+DYNAMIC ADSDDADDINDEXFILE
 DYNAMIC ADSDDADDTABLE
 DYNAMIC ADSDDADDUSERTOGROUP
 DYNAMIC ADSDDCREATE