From bc103ee815ea6e4ae3866d38b3114f976ccc78f7 Mon Sep 17 00:00:00 2001
From: "Jean Lefebvre (Mafact)" <jfl@mafact.com>
Date: Fri, 17 May 2013 14:27:01 +0200
Subject: [PATCH] 2013-05-17 14:20 UTC+0200 Jfl mafact (jfl/at/mafact.com)

2013-05-17 14:20 UTC+0200 Jfl mafact (jfl/at/mafact.com)
* contrib/rddads/adsfunc.c
+ Adding new function ADSSETINDEXDIRECTION
---
 ChangeLog.txt            |  7 ++++++-
 contrib/rddads/adsfunc.c | 18 ++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.txt b/ChangeLog.txt
index 809bfe21bc..5e51d04337 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -1,5 +1,5 @@
 /*
- * $Id$
+ * $Id: 809bfe21bc9117db8fbe7b330e8dc55aa8de7c9f $
  */
 
 /* Read doc/howtorep.txt and use this format for entry headers:
@@ -10,6 +10,11 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2013-05-17 14:20 UTC+0200 Jfl mafact (jfl/at/mafact.com)
+  * contrib/rddads/adsfunc.c
+    + Adding new function ADSSETINDEXDIRECTION
+
+
 2013-05-16 22:34 UTC+0200 Tamas TEVESZ (ice extreme.hu)
   * contrib/3rd/sqlite3/sqlite3.hbp
     * Disable on Minix (no MAP_SHARED which is needed by SQLite WAL);
diff --git a/contrib/rddads/adsfunc.c b/contrib/rddads/adsfunc.c
index 96c236d8ad..20658ba72f 100644
--- a/contrib/rddads/adsfunc.c
+++ b/contrib/rddads/adsfunc.c
@@ -2419,3 +2419,21 @@ HB_FUNC( ADSDDDROPLINK )
    hb_retl( HB_FALSE );
 #endif
 }
+
+HB_FUNC( ADSSETINDEXDIRECTION  )
+{
+   ADSAREAP pArea = hb_adsGetWorkAreaPointer();
+   UNSIGNED32 nRet = 0 ;
+   
+   if( pArea )
+      {
+         ADSHANDLE  hIndex = pArea->hOrdCurrent;
+   
+         if (hb_parinfo(0)==1  && HB_ISNUM(1) )
+          {
+             nRet = AdsSetIndexDirection( hIndex, (UNSIGNED16) hb_parni(1) );
+         }
+      }
+      
+   hb_retni(nRet);   
+}