c99ac3d297
* harbour/bin/hb-mkslib.sh
* harbour/bin/pack_src.sh
* updated for recent Viktor's modifications
* harbour/source/rtl/oemansix.c
! added missing #include "hbpai.h"
* harbour/include/Makefile
+ harbour/include/hbwince.h
* harbour/include/hbrdddbf.h
* harbour/include/hbrdddbt.h
* harbour/include/hbdefs.h
* harbour/include/hbsetup.h
* harbour/include/hbrddcdx.h
* harbour/include/hbrddfpt.h
* harbour/contrib/xhb/hboutdbg.c
* harbour/contrib/xhb/hbsyslog.c
* harbour/contrib/xhb/xhbfunc.c
* harbour/contrib/libct/ctnet.c
* harbour/contrib/libct/files.c
* harbour/contrib/libct/disk.c
* harbour/contrib/libnf/getenvrn.c
* harbour/contrib/win32/tprinter.c
* harbour/contrib/win32/w32_ole.c
* harbour/contrib/win32/w32_prn.c
* harbour/contrib/odbc/odbc.c
* harbour/source/pp/ppgen.c
* harbour/source/rtl/diskspac.c
* harbour/source/rtl/gtclip.c
* harbour/source/rtl/fstemp.c
* harbour/source/rtl/gtchrmap.c
* harbour/source/rtl/oemansi.c
* harbour/source/rtl/disksphb.c
* harbour/source/rtl/fssize.c
* harbour/source/rtl/hbffind.c
* harbour/source/rtl/filesys.c
* harbour/source/rtl/net.c
* harbour/source/rtl/gtgui/gtdef.c
* harbour/source/rtl/gtwvt/gtwvt.c
* harbour/source/rtl/gtpca/gtpca.c
* harbour/source/rtl/gtstd/gtstd.c
* harbour/source/rtl/gtwin/gtwin.c
* harbour/source/vm/Makefile
* harbour/source/vm/mainwin.c
* harbour/source/vm/dynlibhb.c
+ harbour/source/vm/mainwin/Makefile
* harbour/source/common/Makefile
* harbour/source/common/hbgete.c
* harbour/source/common/hbver.c
+ harbour/source/common/hbwince.c
* harbour/utils/hbpp/hbpp.c
* harbour/utils/hbdot/hbdot.prg
* harbour/utils/hbver/hbverfix.c
+ added support for WinCE and PocketPC
+ harbour/make_xcemgw.sh
+ harbour/config/w32/cemgw.cf
* harbour/bin/hb-mkslib.sh
* harbour/bin/hb-func.sh
* harbour/bin/postinst.sh
+ added support for CeGCC-MinGW32 port - those of you who want to
create applications for WinCE on PockePC with ARM processors on
Linux or MS-Windows can download from SF cegcc-mingw32ce port.
User using RPM based Linux distribution for x86 CPUs can simply
download cegcc-mingw32ce-0.50-1.i586.rpm and install it.
The hb* scripts created by ./make_xcemgw.sh [tgz|gnu] are
automatically updated to work with CeGCC-MinGW32 so later you
can simply crate WinCE-ARM binaries using them as for native port.
I'm waiting for users feedback. Please remember that I'm not Windows
user and even this port was created without any Pocket machine.
With Marek Paliwoda help I only tested that final applications are
working using PocketPC emulator.
360 lines
16 KiB
C
360 lines
16 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* xHarbour Project source code:
|
|
* DBFFPT RDD
|
|
*
|
|
* Copyright 2003 Przemyslaw Czerpak <druzus@acn.waw.pl>
|
|
* 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_RDDFPT_H_
|
|
#define HB_RDDFPT_H_
|
|
|
|
#include "hbdbf.h"
|
|
#include "hbdbferr.h"
|
|
#include "hbapirdd.h"
|
|
#define HB_EXTERNAL_RDDDBF_USE
|
|
#include "hbrdddbf.h"
|
|
|
|
HB_EXTERN_BEGIN
|
|
|
|
/* MEMO constants and defaults */
|
|
#define DBT_MEMOEXT ".dbt"
|
|
#define FPT_MEMOEXT ".fpt"
|
|
#define SMT_MEMOEXT ".smt"
|
|
#define DBV_MEMOEXT ".dbv"
|
|
#define DBT_DEFBLOCKSIZE 512
|
|
#define FPT_DEFBLOCKSIZE 64
|
|
#define SMT_DEFBLOCKSIZE 32
|
|
|
|
#define FPT_LOCKPOS 0x00000000L
|
|
#define FPT_LOCKSIZE 0x00000001L
|
|
|
|
#define FPT_ROOTBLOCK_OFFSET 0x218 /* Clipper 5.3 ROOT data block offset */
|
|
|
|
#define SIX_ITEM_BUFSIZE 14
|
|
#define FLEX_ITEM_BUFSIZE 8
|
|
#define MAX_SIXFREEBLOCKS 82
|
|
#define MAX_FLEXFREEBLOCKS 126
|
|
#define FLEXGCPAGE_SIZE 1010
|
|
|
|
/* "V" filed types */
|
|
#define HB_VF_CHAR 64000
|
|
#define HB_VF_DATE 64001
|
|
#define HB_VF_INT 64002
|
|
#define HB_VF_LOG 64003
|
|
#define HB_VF_DNUM 64004
|
|
#define HB_VF_ARRAY 64005
|
|
#define HB_VF_BLOB 64006
|
|
#define HB_VF_BLOBCOMPRESS 64007
|
|
#define HB_VF_BLOBENCRYPT 64008
|
|
|
|
/* SMT types */
|
|
#define SMT_IT_NIL 0
|
|
#define SMT_IT_CHAR 1
|
|
#define SMT_IT_INT 2
|
|
#define SMT_IT_DOUBLE 3
|
|
#define SMT_IT_DATE 4
|
|
#define SMT_IT_LOGICAL 5
|
|
#define SMT_IT_ARRAY 6
|
|
|
|
#define FPTIT_DUMMY 0xDEADBEAF
|
|
#define FPTIT_BINARY 0x0000
|
|
#define FPTIT_PICT 0x0000 /* Picture */
|
|
#define FPTIT_TEXT 0x0001 /* Text */
|
|
#define FPTIT_OBJ 0x0002 /* Object */
|
|
|
|
#define FPTIT_SIX_NIL 0x0000 /* NIL VALUE (USED ONLY IN ARRAYS) */
|
|
#define FPTIT_SIX_LNUM 0x0002 /* LONG LE */
|
|
#define FPTIT_SIX_DNUM 0x0008 /* DOUBLE LE */
|
|
#define FPTIT_SIX_LDATE 0x0020 /* DATE (LONG LE) */
|
|
#define FPTIT_SIX_LOG 0x0080 /* LOGIC */
|
|
#define FPTIT_SIX_CHAR 0x0400 /* CHAR */
|
|
#define FPTIT_SIX_ARRAY 0x8000 /* ARRAY */
|
|
|
|
/* #define FPTIT_SIX_BLOCK 0x1000 */
|
|
/* #define FPTIT_SIX_VREF 0x2000 */
|
|
/* #define FPTIT_SIX_MREF 0x4000 */
|
|
|
|
#define FPTIT_FLEX_GC 0x03E8 /* 1000 */
|
|
#define FPTIT_FLEX_UNUSED 0x03E9 /* 1001 */
|
|
#define FPTIT_FLEX_ARRAY 0x03EA /* 1002 */
|
|
#define FPTIT_FLEX_OBJECT 0x03EB /* 1003 ! */
|
|
#define FPTIT_FLEX_VOARR 0x03EC /* 1004 ! */
|
|
#define FPTIT_FLEX_VOOBJ 0x03ED /* 1005 ! */
|
|
#define FPTIT_FLEX_NIL 0x03EE /* 1006 */
|
|
#define FPTIT_FLEX_TRUE 0x03EF /* 1007 */
|
|
#define FPTIT_FLEX_FALSE 0x03F0 /* 1008 */
|
|
#define FPTIT_FLEX_LDATE 0x03F1 /* 1009 */
|
|
#define FPTIT_FLEX_CHAR 0x03F2 /* 1010 */
|
|
#define FPTIT_FLEX_UCHAR 0x03F3 /* 1011 */
|
|
#define FPTIT_FLEX_SHORT 0x03F4 /* 1012 */
|
|
#define FPTIT_FLEX_USHORT 0x03F5 /* 1013 */
|
|
#define FPTIT_FLEX_LONG 0x03F6 /* 1014 */
|
|
#define FPTIT_FLEX_ULONG 0x03F7 /* 1015 */
|
|
#define FPTIT_FLEX_DOUBLE 0x03F8 /* 1016 */
|
|
#define FPTIT_FLEX_LDOUBLE 0x03F9 /* 1017 ! */
|
|
#define FPTIT_FLEX_COMPRCH 0x03FA /* 1018 ! */
|
|
|
|
/* Flex II types */
|
|
#define FPTIT_FLEX_DBLITEM 0x2710 /* 10000 14-bytes Clipper double item */
|
|
#define FPTIT_FLEX_LOGICAL 0x2711 /* 10001 4-bytes logical value */
|
|
#define FPTIT_FLEX_NULSTR 0x2722 /* 10002 empty string */
|
|
|
|
|
|
#define FPTIT_FLEXAR_NIL 0x00 /* () */
|
|
#define FPTIT_FLEXAR_UCHAR 0x01 /* uchar */
|
|
#define FPTIT_FLEXAR_CHAR 0x02 /* char */
|
|
#define FPTIT_FLEXAR_SHORT 0x03 /* short[2] */
|
|
#define FPTIT_FLEXAR_USHORT 0x04 /* ushort[2] */
|
|
#define FPTIT_FLEXAR_LONG 0x05 /* long[4] */
|
|
/* 0x06 - unknown */
|
|
#define FPTIT_FLEXAR_STR 0x07 /* len[2], char[n] */
|
|
/* 0x08 - unknown */
|
|
#define FPTIT_FLEXAR_DOUBLE 0x09 /* double[8] */
|
|
#define FPTIT_FLEXAR_DATEX 0x0A /* long[4] */
|
|
#define FPTIT_FLEXAR_LOGIC 0x0B /* val[1] */
|
|
#define FPTIT_FLEXAR_ARAY 0x0C /* len[2], ... */
|
|
/* 0x0D - unknown */
|
|
#define FPTIT_FLEXAR_DATEJ 0x0E /* long[4] */
|
|
#define FPTIT_FLEXAR_DOUBLE2 0x0F /* len, dec, double[8] */
|
|
/* 0x10 - unknown */
|
|
#define FPTIT_FLEXAR_UCHAR1 0x11 /* byte, dec */
|
|
#define FPTIT_FLEXAR_CHAR1 0x12 /* char, dec */
|
|
#define FPTIT_FLEXAR_SHORT1 0x13 /* short[2], len */
|
|
#define FPTIT_FLEXAR_USHORT1 0x14 /* ushort[2], len */
|
|
#define FPTIT_FLEXAR_LONG1 0x15 /* long[4], len */
|
|
/* 0x16 - unknown */
|
|
/* 0x17 - unknown */
|
|
#define FPTIT_FLEXAR_NUL 0x18 /* () */
|
|
#define FPTIT_FLEXAR_TRUE 0x19 /* () */
|
|
#define FPTIT_FLEXAR_FALSE 0x1A /* () */
|
|
#define FPTIT_FLEXAR_LDOUBLE 0x1B /* longdouble[10] */
|
|
#define FPTIT_FLEXAR_UCHAR2 0x1C /* byte[1], len, dec */
|
|
#define FPTIT_FLEXAR_CHAR2 0x1D /* char[1], len, dec */
|
|
#define FPTIT_FLEXAR_SHORT2 0x1E /* short[2], len, dec */
|
|
#define FPTIT_FLEXAR_USHORT2 0x1F /* ushort[2], len, dec */
|
|
#define FPTIT_FLEXAR_LONG2 0x20 /* long[4], len, dec */
|
|
#define FPTIT_FLEXAR_ULONG2 0x21 /* ulong[4], len, dec */
|
|
|
|
|
|
/* MEMO file strucutres */
|
|
typedef struct _FPTHEADER
|
|
{
|
|
BYTE nextBlock[ 4 ]; /* Next free block in the file */
|
|
BYTE blockSize[ 4 ]; /* Size of block */
|
|
BYTE signature1[ 10 ]; /* Signature: "SixMemo", "Harbour", "Made by CLIP"-overwrites next bytes*/
|
|
BYTE nGCitems[ 2 ]; /* number of GC items in reserved2 (max 82)*/
|
|
BYTE reserved2[ 492 ]; /* */
|
|
BYTE signature2[ 12 ]; /* Signature: "FlexFile3\003" */
|
|
BYTE flexRev[ 4 ]; /* Offset of reversed GC page */
|
|
BYTE flexDir[ 4 ]; /* Offset of GC page */
|
|
BYTE counter[ 4 ]; /* cyclic counter to sign changes in network env. */
|
|
BYTE rootBlock[ 4 ]; /* Clipper 5.3 ROOT data block */
|
|
BYTE flexSize[ 2 ]; /* FlexFile3 alternative block size */
|
|
BYTE reserved4[ 482 ]; /* */
|
|
} FPTHEADER;
|
|
typedef FPTHEADER * LPFPTHEADER;
|
|
|
|
typedef struct _FPTBLOCK
|
|
{
|
|
BYTE type[ 4 ]; /* see: FPTIT_ */
|
|
BYTE size[ 4 ]; /* length of data in bytes */
|
|
} FPTBLOCK;
|
|
typedef FPTBLOCK * LPFPTBLOCK;
|
|
|
|
|
|
/* MEMO internal memory structures */
|
|
typedef struct _MEMOGCITEM
|
|
{
|
|
ULONG ulOffset; /* Number of blocks */
|
|
ULONG ulSize; /* Block number */
|
|
BOOL fChanged; /* Mark the free page as changed */
|
|
} MEMOGCITEM;
|
|
typedef MEMOGCITEM * LPMEMOGCITEM;
|
|
|
|
typedef struct _MEMOGCTABLE
|
|
{
|
|
BYTE bType; /* MEMO_FPT_SIX or MEMO_FPT_FLEX */
|
|
BYTE bChanged; /* Should we write GC data to disk */
|
|
ULONG ulNextBlock; /* Next free block in the file */
|
|
ULONG ulPrevBlock; /* Previous next free block in the file */
|
|
ULONG ulRevPage; /* FLEX Rev GC page offset */
|
|
ULONG ulDirPage; /* FLEX Dir GC page offset */
|
|
ULONG ulCounter; /* FLEX cyclic counter */
|
|
ULONG ulSize; /* FLEX GC page size in bytes */
|
|
USHORT usMaxItem; /* max number of items in pGCitems */
|
|
USHORT usItems; /* number of items in pGCitems */
|
|
LPMEMOGCITEM pGCitems; /* free block list */
|
|
FPTHEADER fptHeader; /* FPT file header */
|
|
} MEMOGCTABLE;
|
|
typedef MEMOGCTABLE * LPMEMOGCTABLE;
|
|
|
|
|
|
/*
|
|
* DBFFPT WORKAREA
|
|
* ------------
|
|
* The Workarea Structure of DBFFPT RDD
|
|
*
|
|
*/
|
|
|
|
/* we don't have to change DBFAREA to create FPTAREA */
|
|
typedef DBFAREA FPTAREA;
|
|
typedef FPTAREA * LPFPTAREA;
|
|
#ifndef FPTAREAP
|
|
#define FPTAREAP LPFPTAREA
|
|
#endif
|
|
|
|
/*
|
|
* -- DBFFPT METHODS --
|
|
*/
|
|
|
|
#define SUPERTABLE ( &fptSuper )
|
|
|
|
#define hb_fptBof NULL
|
|
#define hb_fptEof NULL
|
|
#define hb_fptFound NULL
|
|
#define hb_fptGoBottom NULL
|
|
#define hb_fptGoTo NULL
|
|
#define hb_fptGoToId NULL
|
|
#define hb_fptGoTop NULL
|
|
#define hb_fptSeek NULL
|
|
#define hb_fptSkip NULL
|
|
#define hb_fptSkipFilter NULL
|
|
#define hb_fptSkipRaw NULL
|
|
#define hb_fptAddField NULL
|
|
#define hb_fptAppend NULL
|
|
#define hb_fptCreateFields NULL
|
|
#define hb_fptDeleteRec NULL
|
|
#define hb_fptDeleted NULL
|
|
#define hb_fptFieldCount NULL
|
|
#define hb_fptFieldDisplay NULL
|
|
static ERRCODE hb_fptFieldInfo( FPTAREAP pArea, USHORT uiIndex, USHORT uiType, PHB_ITEM pItem );
|
|
#define hb_fptFieldName NULL
|
|
#define hb_fptFlush NULL
|
|
#define hb_fptGetRec NULL
|
|
static ERRCODE hb_fptGetValue( FPTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem );
|
|
static ERRCODE hb_fptGetVarLen( FPTAREAP pArea, USHORT uiIndex, ULONG * pLength );
|
|
#define hb_fptGoCold NULL
|
|
#define hb_fptGoHot NULL
|
|
#define hb_fptPutRec NULL
|
|
static ERRCODE hb_fptPutValue( FPTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem );
|
|
#define hb_fptRecall NULL
|
|
#define hb_fptRecCount NULL
|
|
#define hb_fptRecInfo NULL
|
|
#define hb_fptRecNo NULL
|
|
#define hb_fptRecId NULL
|
|
#define hb_fptSetFieldExtent NULL
|
|
#define hb_fptAlias NULL
|
|
#define hb_fptClose NULL
|
|
#define hb_fptCreate NULL
|
|
static ERRCODE hb_fptInfo( FPTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem );
|
|
#define hb_fptNewArea NULL
|
|
#define hb_fptOpen NULL
|
|
#define hb_fptRelease NULL
|
|
static ERRCODE hb_fptStructSize( FPTAREAP pArea, USHORT * uiSize );
|
|
#define hb_fptSysName NULL
|
|
#define hb_fptEval NULL
|
|
static ERRCODE hb_fptPack( FPTAREAP pArea );
|
|
static ERRCODE hb_fptPackRec( FPTAREAP pArea, ULONG ulRecNo, BOOL *pfWritten );
|
|
#define hb_fptSort NULL
|
|
#define hb_fptTrans NULL
|
|
#define hb_fptTransRec NULL
|
|
#define hb_fptZap NULL
|
|
#define hb_fptChildEnd NULL
|
|
#define hb_fptChildStart NULL
|
|
#define hb_fptChildSync NULL
|
|
#define hb_fptSyncChildren NULL
|
|
#define hb_fptClearRel NULL
|
|
#define hb_fptForceRel NULL
|
|
#define hb_fptRelArea NULL
|
|
#define hb_fptRelEval NULL
|
|
#define hb_fptRelText NULL
|
|
#define hb_fptSetRel NULL
|
|
#define hb_fptOrderListAdd NULL
|
|
#define hb_fptOrderListClear NULL
|
|
#define hb_fptOrderListDelete NULL
|
|
#define hb_fptOrderListFocus NULL
|
|
#define hb_fptOrderListRebuild NULL
|
|
#define hb_fptOrderCondition NULL
|
|
#define hb_fptOrderCreate NULL
|
|
#define hb_fptOrderDestroy NULL
|
|
#define hb_fptOrderInfo NULL
|
|
#define hb_fptClearFilter NULL
|
|
#define hb_fptClearLocate NULL
|
|
#define hb_fptClearScope NULL
|
|
#define hb_fptCountScope NULL
|
|
#define hb_fptFilterText NULL
|
|
#define hb_fptScopeInfo NULL
|
|
#define hb_fptSetFilter NULL
|
|
#define hb_fptSetLocate NULL
|
|
#define hb_fptSetScope NULL
|
|
#define hb_fptSkipScope NULL
|
|
#define hb_fptLocate NULL
|
|
#define hb_fptCompile NULL
|
|
#define hb_fptError NULL
|
|
#define hb_fptEvalBlock NULL
|
|
#define hb_fptRawLock NULL
|
|
#define hb_fptLock NULL
|
|
#define hb_fptUnLock NULL
|
|
#define hb_fptCloseMemFile NULL
|
|
static ERRCODE hb_fptCreateMemFile( FPTAREAP pArea, LPDBOPENINFO pCreateInfo );
|
|
static ERRCODE hb_fptGetValueFile( FPTAREAP pArea, USHORT uiIndex, BYTE * szFile, USHORT uiMode );
|
|
static ERRCODE hb_fptOpenMemFile( FPTAREAP pArea, LPDBOPENINFO pOpenInfo );
|
|
static ERRCODE hb_fptPutValueFile( FPTAREAP pArea, USHORT uiIndex, BYTE * szFile, USHORT uiMode );
|
|
#define hb_fptReadDBHeader NULL
|
|
#define hb_fptWriteDBHeader NULL
|
|
#define hb_fptInit NULL
|
|
#define hb_fptExit NULL
|
|
#define hb_fptDrop NULL
|
|
#define hb_fptExists NULL
|
|
static ERRCODE hb_fptRddInfo( LPRDDNODE pRDD, USHORT uiIndex, ULONG ulConnect, PHB_ITEM pItem );
|
|
#define hb_fptWhoCares NULL
|
|
|
|
HB_EXTERN_END
|
|
|
|
#endif /* HB_RDDFPT */
|