ChangeLogTag:19991018-08:55 GMT+1 Bruno Cantero <bruno@issnet.net>

harbour/ChangeLog

@@ -1,3 +1,10 @@
+19991018-08:55 GMT+1 Bruno Cantero <bruno@issnet.net>
+  * source/rtl/dummy.prg
+    - __dbSetLocate() and __dbSetFound() functions removed.
+
+  * source/rdd/dbcmd.c
+    + Added support for __dbSetLocate() and __dbSetFound() functions.
+
 19991018-07:36 GMT+1 Victor Szel <info@szelvesz.hu>
    + source/rtl/afields.prg
      source/rtl/Makefile

harbour/source/rdd/dbcmd.c

@@ -98,6 +98,8 @@ HARBOUR HB_DBRUNLOCK( void );
 HARBOUR HB_DBSELECTAREA( void );
 HARBOUR HB_DBSETDRIVER( void );
 HARBOUR HB_DBSETFILTER( void );
+HARBOUR HB___DBSETFOUND( void );
+HARBOUR HB___DBSETLOCATE( void );
 HARBOUR HB_DBSKIP( void );
 HARBOUR HB_DBSTRUCT( void );
 HARBOUR HB_DBTABLEEXT( void );
@@ -1825,6 +1827,25 @@ HARBOUR HB___DBLOCATE()
    }
 }
 
+HARBOUR HB___DBSETLOCATE( void )
+{
+   PHB_ITEM pLocate, pFor;
+   DBSCOPEINFO pScopeInfo;
+
+   if( pCurrArea )
+   {
+      pLocate = hb_param( 1, IT_BLOCK );
+      if( pLocate )
+      {
+         pFor = hb_itemNew( NULL );
+         hb_itemCopy( pFor, pLocate );
+         memset( &pScopeInfo, 0, sizeof( DBSCOPEINFO ) );
+         pScopeInfo.itmCobFor = pFor;
+         SELF_SETLOCATE( ( AREAP ) pCurrArea->pArea, &pScopeInfo );
+      }
+   }
+}
+
 HARBOUR HB_DBRECALL( void )
 {
    if( pCurrArea )
@@ -1931,6 +1952,18 @@ HARBOUR HB_DBSETDRIVER( void )
    }
 }
 
+HARBOUR HB___DBSETFOUND( void )
+{
+   PHB_ITEM pFound;
+
+   if( pCurrArea )
+   {
+      pFound = hb_param( 1, IT_LOGICAL );
+      if( pFound )
+         ( ( AREAP ) pCurrArea->pArea )->fFound = hb_itemGetL( pFound );
+   }
+}
+
 HARBOUR HB_DBSKIP( void )
 {
    LONG lToSkip = 1;

harbour/source/rtl/dummy.prg

@@ -85,8 +85,6 @@ FUNCTION __dbZap()         ; RETURN NIL
 FUNCTION __dbArrange()     ; RETURN NIL
 FUNCTION __dbFList()       ; RETURN {}
 FUNCTION __dbOpenSDF()     ; RETURN NIL
-FUNCTION __dbSetFound()    ; RETURN NIL
-FUNCTION __dbSetLocate()   ; RETURN NIL
 FUNCTION __dbTrans()       ; RETURN NIL
 FUNCTION __dbTransRec()    ; RETURN NIL
 FUNCTION __FLEdit          ; RETURN {}