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

Revert "2013-10-24 15:34 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)"

Browse Source
This commit is contained in:
Mindaugas Kavaliauskas
2013-10-24 23:40:10 +03:00
parent 5c3ea08121
commit 4f0e0e0347
4 changed files with 10 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ChangeLog.txt
View File

@@ -10,16 +10,6 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-10-24 15:34 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* include/dbinfo.ch
* include/hbrdddbf.h
* src/rdd/dbf1.c
+ added default codepage setting RDDI_CODEPAGE for DBF RDD (and all
inherited RDDs). This helps to do an easy migration of application
to unicode, using existing dbf files:
HB_CDPSELECT("UTF8EX")
RDDINFO(RDDI_CODEPAGE, <codepage_used_in_dbf>)
2013-10-23 14:39 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* added support for keyevents with multicharacter strings.

1
include/dbinfo.ch
View File

@@ -105,7 +105,6 @@
#define RDDI_PASSWORD 42 /* Get/Set default password */
#define RDDI_LOCKRETRY 43 /* Get/Set record and file lock timeout value */
#define RDDI_DIRTYREAD 44 /* Get/Set index dirty read flag */
#define RDDI_CODEPAGE 45 /* Default codepage used by RDD */
/*
Constants for SELF_ORDINFO ()

2
include/hbrdddbf.h
View File

@@ -137,8 +137,6 @@ typedef struct _DBFDATA
char * szTrigger;
char * szPendingTrigger;
PHB_CODEPAGE pCodepage; /* Default RDD codepage */
HB_BYTE bLockType; /* 0 */
HB_BYTE bTableType; /* DB_DBF_STD */
HB_BYTE bCryptType; /* DB_CRYPT_NONE */

26
src/rdd/dbf1.c
View File

@@ -3381,10 +3381,12 @@ static HB_ERRCODE hb_dbfCreate( DBFAREAP pArea, LPDBOPENINFO pCreateInfo )
pArea->ulMemoBlockSize = 0;
if( pCreateInfo->cdpId )
{
pArea->area.cdPage = hb_cdpFindExt( pCreateInfo->cdpId );
if( ! pArea->area.cdPage )
pArea->area.cdPage = DBFAREA_DATA( pArea )->pCodepage;
if( ! pArea->area.cdPage )
if( ! pArea->area.cdPage )
pArea->area.cdPage = hb_vmCDP();
}
else
pArea->area.cdPage = hb_vmCDP();
pItem = hb_itemNew( NULL );
@@ -4013,10 +4015,12 @@ static HB_ERRCODE hb_dbfOpen( DBFAREAP pArea, LPDBOPENINFO pOpenInfo )
}
if( pOpenInfo->cdpId )
{
pArea->area.cdPage = hb_cdpFindExt( pOpenInfo->cdpId );
if( ! pArea->area.cdPage )
pArea->area.cdPage = DBFAREA_DATA( pArea )->pCodepage;
if( ! pArea->area.cdPage )
if( ! pArea->area.cdPage )
pArea->area.cdPage = hb_vmCDP();
}
else
pArea->area.cdPage = hb_vmCDP();
pArea->fShared = pOpenInfo->fShared;
@@ -6034,16 +6038,6 @@ static HB_ERRCODE hb_dbfRddInfo( LPRDDNODE pRDD, HB_USHORT uiIndex, HB_ULONG ulC
return HB_FAILURE;
break;
case RDDI_CODEPAGE:
{
const char * szCodepage = pData->pCodepage ? pData->pCodepage->id : NULL;
if( HB_IS_STRING( pItem ) )
pData->pCodepage = hb_cdpFindExt( hb_itemGetCPtr( pItem ) );
hb_itemPutC( pItem, szCodepage );
}
default:
return SUPER_RDDINFO( pRDD, uiIndex, ulConnect, pItem );