fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-11-24 19:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
- contrib/rddbm
  * contrib/hbplist
    - Deleted rddbm (bmdbfcdx) RDD.
      It's broken beyond repair.
      Everyone interested pls visit this project:
         http://sourceforge.net/projects/bmdbfcdx/

  * config/instsh.mk
    * Cleanup to if structure.
This commit is contained in:
Viktor Szakats
2010-11-24 18:47:44 +00:00
parent 930081e649
commit 33dc0d620d
9 changed files with 21 additions and 1384 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -16,6 +16,17 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-11-24 19:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
- contrib/rddbm
* contrib/hbplist
- Deleted rddbm (bmdbfcdx) RDD.
It's broken beyond repair.
Everyone interested pls visit this project:
http://sourceforge.net/projects/bmdbfcdx/
* config/instsh.mk
* Cleanup to if structure.
2010-11-24 18:52 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)
! config/instsh.mk
! os2mkdir.exe and os2cp.exe need forward slashes as path separators.

20
harbour/config/instsh.mk
View File

@@ -25,17 +25,17 @@ ifeq ($(_SAME_DIR),yes)
INSTALL_RULE := @$(ECHO) $(ECHOQUOTE)! Skip install, destination dir '$(INSTALL_DIR)' is the same as source$(ECHOQUOTE)
else
ifneq ($(HB_SHELL),sh)
ifneq ($(HB_SHELL),os2)
INSTALL_DIR_OS := $(subst /,\,$(INSTALL_DIR))
INSTALL_FILES_OS := $(subst /,\,$(INSTALL_FILES))
else
# $(CP) and $(MDP) require forward slashes
INSTALL_DIR_OS := $(subst \,/,$(INSTALL_DIR))
INSTALL_FILES_OS := $(subst \,/,$(INSTALL_FILES))
endif
else
ifeq ($(HB_SHELL),sh)
INSTALL_DIR_OS := $(subst \,/,$(INSTALL_DIR))
else
ifeq ($(HB_SHELL),os2)
# $(CP) and $(MDP) require forward slashes
INSTALL_DIR_OS := $(subst \,/,$(INSTALL_DIR))
INSTALL_FILES_OS := $(subst \,/,$(INSTALL_FILES))
else
INSTALL_DIR_OS := $(subst /,\,$(INSTALL_DIR))
INSTALL_FILES_OS := $(subst /,\,$(INSTALL_FILES))
endif
endif
ifeq ($(HB_SHELL),sh)

1
harbour/contrib/hbplist
View File

@@ -47,7 +47,6 @@ hbxpp/hbxpp.hbp
hbzebra/hbzebra.hbp
hbziparc/hbziparc.hbp
rddads/rddads.hbp
#rddbm/rddbm.hbp
rddsql/rddsql.hbp
sddfb/sddfb.hbp
sddmy/sddmy.hbp

1163
harbour/contrib/rddbm/bmdbfcdx.c
View File

File diff suppressed because it is too large Load Diff

55
harbour/contrib/rddbm/bmsixcdx.c
View File

@@ -1,55 +0,0 @@
/*
* $Id$
*/
/*
* xHarbour Project source code:
* BMSIXCDX RDD
*
* Copyright 2007 Miguel Angel Marchuet Frutos <miguelangel@marchuet.net>
* www - http://www.xharbour.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.
*
*/
#define HB_SIXCDX
#include "bmdbfcdx.c"

81
harbour/contrib/rddbm/hbrddbm.h
View File

@@ -1,81 +0,0 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* BM (bitmap filter) RDD header
*
* Copyright 1999 Bruno Cantero <bruno@issnet.net>
* Copyright 2003 Przemyslaw Czerpak <druzus@acn.waw.pl>
* Copyright 2006-2009 Miguel Angel Marchuet <miguelangel@marchuet.net>
* www - http://www.xharbour.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.
*
*/
#ifndef HB_RDDCDX_H_
#define HB_RDDCDX_H_
#include "hbrdddbf.h"
HB_EXTERN_BEGIN
// #define CURKEY_SETLOGCNT(pTag, lKeyCount) do { (pTag)->curKeyState |= CDX_CURKEY_LOGCNT; \
// (pTag)->logKeyCount = (lKeyCount); } while(0)
/* m Bitmap, b Size, r RecNo */
#define BM_SETBIT(m,b,r) do { if((r)<=(b)) (m)[((r)-1)>>5] = (m)[((r)-1)>>5] | (1<<(((r)-1)%32)); } while(0)
#define BM_CLRBIT(m,b,r) do { if((r)<=(b)) (m)[((r)-1)>>5] = (m)[((r)-1)>>5] & ~(1<<(((r)-1)%32)); } while(0)
#define BM_GETBIT(m,b,r) ( ((r)<=(b)) ? (m)[((r)-1)>>5] & (1<<(((r)-1)%32)) : 0 )
typedef struct _BM_FILTER_
{
HB_ULONG * rmap;
HB_ULONG Size;
} BM_FILTER, * PBM_FILTER;
#undef SUPERTABLE
#define SUPERTABLE ( &bmSuper )
HB_EXTERN_END
#endif /* HB_RDDCDX_H_ */

5
harbour/contrib/rddbm/rddbm.hbc
View File

@@ -1,5 +0,0 @@
#
# $Id$
#
libs=${hb_name}${__HB_DYN__}

13
harbour/contrib/rddbm/rddbm.hbp
View File

@@ -1,13 +0,0 @@
#
# $Id$
#
-hblib
-inc
-o${hb_name}
-w3 -es2
bmdbfcdx.c
bmsixcdx.c

56
harbour/contrib/rddbm/readme.txt
View File

@@ -1,56 +0,0 @@
BMDBFCDX RDD:
----------------------------------------------------------------------------
Is a DBFCDX RDD compatible with clipper 5.3, use SET OPTIMIZE ON to make a
static bitmap filters, with SET OPTIMIZE OFF works as harbour DBFCDX.
Addons:
BM_DbSeekWild( uKey, [lSoftSeek], [lFindLast], [lNext], [lAll] ) => .T./.F. or aSeekRec when lAll clause
BM_Turbo( lOnOff ) // Is only recomendable to use it on creating FILTERS
BM_DbGetFilterArray() => aFilterRec
BM_DbSetFilterArray( aFilterRec )
BM_DbSetFilterArrayAdd( aFilterRec )
BM_DbSetFilterArrayDel( aFilterRec )
Respecting command:
SET OPTIMIZE
Change the setting that determines whether to optimize using the open orders
when processing a filtered database file
------------------------------------------------------------------------------
Syntax
SET OPTIMIZE ON | OFF | (<lToggle>)
Arguments
ON enables optimization.
OFF disables optimization.
<lToggle> is a logical expression that must be enclosed in
parentheses. A value of true (.T.) is the same as ON, and a value of
false (.F.) is the same as OFF.
Note: The initial default of this setting depends on the RDD.
Description
For RDDs that support optimization, such as DBFCDX, SET OPTIMIZE
determines whether to optimize filters based on the orders open in the
current work area. If this flag is ON, the RDD will optimize the search
for records that meet the filter condition to the fullest extent
possible, minimizing the need to read the actual data from the database
file.
If this flag is OFF, the RDD will not optimize.
Examples
¦ The following example enables optimization for the Inventor
database file using the SET OPTIMIZE command:
USE Inventor NEW VIA "DBFCDX"
SET OPTIMIZE ON