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

@@ -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);

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);   
+}