fb75f441ac
* contrib/hbblat/blatcls.prg
! Added type checks for all params.
% File() -> hb_FileExists()
* Minor formatting.
* source/rtl/browdbx.prg
* Minor formatting in comment.
* contrib/xpp/Makefile
+ contrib/xpp/dbcmdx.c
+ contrib/xpp/tgetx.prg
+ contrib/xpp/tbcolumx.prg
+ contrib/xpp/dbjoinx.prg
+ contrib/xpp/idlex.c
+ contrib/xpp/typefilx.prg
+ contrib/xpp/philesx.c
+ contrib/xpp/browdbx.prg
+ contrib/xpp/dbdetacx.c
+ contrib/xpp/dblistx.prg
+ contrib/xpp/binnumx.c
+ contrib/xpp/mousex.c
+ contrib/xpp/dbupdatx.prg
+ contrib/xpp/dbfuncsx.prg
+ contrib/xpp/oemansix.c
+ contrib/xpp/tbrowsex.prg
+ contrib/xpp/thfuncx.prg
+ contrib/xpp/dbtotalx.prg
+ contrib/xpp/datesx.c
+ contrib/xpp/tthreadx.prg
+ contrib/xpp/dbstruxx.prg
+ contrib/xpp/dbsortx.prg
+ Made a copy of all Xbase++ related Harbour core components
into this separate lib. As we're starting to have a larger
and larger amount of Xbase++ functions, to not pollute core,
to have a clear separation of components and to allow
toggling Xbase++ compatibility at user level (instead of
Harbour level), it's a good time to make this long planned
first step. This means that now Harbour can be built with
HB_COMPAT_XPP turned off, yet - with this lib - all Xbase++
feature can still be used, and this is the recommended way.
The name of the lib is tentative and in the future it may
even be moved or renamed. 2.0.0 final version will still
have HB_COMPAT_XPP enabled in core.
; NOTE: Please add new Xbase++ compatibility functions to this lib.
; TOFIX: xpp_TBrowse() needs some internal parts from tbrowse.prg,
so current solution isn't finished.
; TOFIX: A few Xbase++ compatibility features are embedded
into core source. These should be resolved by other
means. (f.e. compiler time/runtime/hbmk2 switches, but
for that we need to move back this lib inside core)
; TODO: Decide about the status of STOD() function, which is
currently an XPP compatibility function, not in Harbour
namespace, yet it's widely used with same functionality.
94 lines
3.0 KiB
Plaintext
94 lines
3.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* DBSKIPPER() function for Xbase++
|
|
*
|
|
* Copyright 1999 Paul Tucker <ptucker@sympatico.ca>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
/* NOTE: Xbase++ has a standard function named dbSkipper(), it's not a
|
|
standard CA-Cl*pper 5.x function, though. */
|
|
|
|
/* NOTE: This function is exactly the same as Skipped() in browdb.prg */
|
|
|
|
#ifdef HB_COMPAT_XPP
|
|
|
|
#ifdef HB_PRG_DBSKIPPER
|
|
|
|
FUNCTION dbSkipper( nRecs )
|
|
|
|
LOCAL nSkipped := 0
|
|
|
|
IF LastRec() != 0
|
|
IF nRecs == 0
|
|
dbSkip( 0 )
|
|
ELSEIF nRecs > 0 .AND. RecNo() != LastRec() + 1
|
|
DO WHILE nSkipped < nRecs
|
|
dbSkip( 1 )
|
|
IF Eof()
|
|
dbSkip( -1 )
|
|
EXIT
|
|
ENDIF
|
|
nSkipped++
|
|
ENDDO
|
|
ELSEIF nRecs < 0
|
|
DO WHILE nSkipped > nRecs
|
|
dbSkip( -1 )
|
|
IF Bof()
|
|
EXIT
|
|
ENDIF
|
|
nSkipped--
|
|
ENDDO
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN nSkipped
|
|
|
|
#endif
|
|
|
|
#endif
|