ADS RDD files updating

harbour/ChangeLog

@@ -1,3 +1,12 @@
+20000209-13:35 GMT+3 Alexander Kresin
+   * contrib/rdd_ads/adsfunc.c
+     + added new function:
+       HB_ADSETDELETED()
+   * contrib/rdd_ads/ads1.c
+     * some changes for deleted(), locate, continue right work
+   * contrib/rdd_ads/ads.ch
+     + added SET DELETED command
+
 20000209-08:15 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
     *utils/hbdoc/hbdoc.prg
         *Fixed /w1 warnign when hbdoc is compiled with this switch

harbour/contrib/rdd_ads/ads.ch

@@ -54,4 +54,10 @@
 #command SET DEFAULT TO <(path)>                                      ;
       => Set( _SET_DEFAULT, <(path)> ); AdsSetDefault( <(path)> )
 #command SET DEFAULT TO                                               ;
-      => Set( _SET_DEFAULT, "" ); AdsSetDefault( "" )
+      => Set( _SET_DEFAULT, "" ); AdsSetDefault( "" )
+
+#command SET DELETED <x:ON,OFF,&>                                     ;
+      =>  Set( _SET_DELETED, <(x)> )                                  ;
+          ;AdsSetDeleted( if( upper( <(x)> ) == "ON", .t., .f. ) )
+#command SET DELETED (<x>)                                            ;
+      =>  Set( _SET_DELETED, <x> ); AdsSetDeleted( <x> )

harbour/contrib/rdd_ads/ads1.c

@@ -207,14 +207,7 @@ static ERRCODE adsEof( ADSAREAP pArea, BOOL * pEof )
    return SUCCESS;
 }
 
-static ERRCODE adsFound( ADSAREAP pArea, BOOL * pFound )
-{
-   HB_TRACE(HB_TR_DEBUG, ("adsFound(%p, %p)", pArea, pFound));
-
-   AdsIsFound( pArea->hTable, (UNSIGNED16 *)&(pArea->fFound) );
-   * pFound = pArea->fFound;
-   return SUCCESS;
-}
+#define  adsFound                  NULL
 
 static ERRCODE adsGoBottom( ADSAREAP pArea )
 {
@@ -289,6 +282,7 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
                    (UNSIGNED16) pKey->item.asString.length, ADS_STRINGKEY,
                    usSeekType, (UNSIGNED16*) &(pArea->fFound) );
    }
+   AdsIsFound( pArea->hTable, (UNSIGNED16 *)&(pArea->fFound) );
 
    return SUCCESS;
 }
@@ -340,9 +334,14 @@ static ERRCODE adsDeleteRec( ADSAREAP pArea )
 static ERRCODE adsDeleted( ADSAREAP pArea, BOOL * pDeleted )
 {
 
+   UNSIGNED16  bDeleted;
+
+
    HB_TRACE(HB_TR_DEBUG, ("adsDeleted(%p, %p)", pArea, pDeleted));
 
-   AdsIsRecordDeleted  ( pArea->hTable, (UNSIGNED16*) pDeleted);
+   AdsIsRecordDeleted  ( pArea->hTable, &bDeleted);
+   *pDeleted = (BOOL) bDeleted;
+
    return SUCCESS;
 }
 

harbour/contrib/rdd_ads/adsfunc.c

@@ -114,6 +114,12 @@ HARBOUR HB_ADSSETDEFAULT( void )
    AdsSetDefault  ( (UNSIGNED8*) hb_parc( 1 ) );
 }
 
+HARBOUR HB_ADSSETDELETED( void )
+{
+   UNSIGNED16 usShowDeleted = hb_parl( 1 );
+   AdsShowDeleted( usShowDeleted );
+}
+
 HARBOUR HB_ADSBLOB2FILE( void )
 {
    char * szFileName, *szFieldName;