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

2003-04-09 21:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-04-09 17:42:25 +00:00
parent b9843fdace
commit 4609018563
7 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-04-09 21:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* include/hbdbf.h
* include/hbrddcdx.h
* include/hbrdddbf.h
* include/hbrddntx.h
* source/rdd/dbf1.c
* source/rdd/dbfcdx/dbfcdx1.c
* Byte 29 in dbf header with codepage information is added for later
implementation. Currently this allows to keep codepage byte ( before
it was cleared while header updating ).
2003-04-09 13:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* include/hbexprb.c
* At() function is now Clipper compatible ( At( "","abc" ) ) -

3
harbour/include/hbdbf.h
View File

@@ -78,7 +78,8 @@ typedef struct _DBFHEADER
USHORT uiRecordLen;
BYTE bReserved1[ 16 ];
BYTE bHasTags;
BYTE bReserved2[ 3 ];
BYTE bCodePage;
BYTE bReserved2[ 2 ];
} DBFHEADER;
typedef DBFHEADER * LPDBFHEADER;

1
harbour/include/hbrddcdx.h
View File

@@ -341,6 +341,7 @@ typedef struct _CDXAREA
char * szMemoFileName; /* Name of memo file */
BOOL fHasMemo; /* WorkArea with Memo fields */
BOOL fHasTags; /* WorkArea with MDX or CDX index */
BYTE bCodePage;
BOOL fShared; /* Shared file */
BOOL fReadonly; /* Read only file */
USHORT * pFieldOffset; /* Pointer to field offset array */

1
harbour/include/hbrdddbf.h
View File

@@ -144,6 +144,7 @@ typedef struct _DBFAREA
char * szMemoFileName; /* Name of memo file */
BOOL fHasMemo; /* WorkArea with Memo fields */
BOOL fHasTags; /* WorkArea with MDX or CDX index */
BYTE bCodePage;
BOOL fShared; /* Shared file */
BOOL fReadonly; /* Read only file */
USHORT * pFieldOffset; /* Pointer to field offset array */

1
harbour/include/hbrddntx.h
View File

@@ -280,6 +280,7 @@ typedef struct _NTXAREA
char * szMemoFileName; /* Name of memo file */
BOOL fHasMemo; /* WorkArea with Memo fields */
BOOL fHasTags; /* WorkArea with MDX or CDX index */
BYTE bCodePage;
BOOL fShared; /* Shared file */
BOOL fReadonly; /* Read only file */
USHORT * pFieldOffset; /* Pointer to field offset array */

2
harbour/source/rdd/dbf1.c
View File

@@ -2543,6 +2543,7 @@ ERRCODE hb_dbfReadDBHeader( DBFAREAP pArea )
pArea->ulRecCount = dbHeader.ulRecCount;
pArea->fHasMemo = ( dbHeader.bVersion == 0x83 );
pArea->fHasTags = dbHeader.bHasTags;
pArea->bCodePage = dbHeader.bCodePage;
return SUCCESS;
}
@@ -2563,6 +2564,7 @@ ERRCODE hb_dbfWriteDBHeader( DBFAREAP pArea )
dbfHeader.bMonth = ( BYTE ) lMonth;
dbfHeader.bDay = ( BYTE ) lDay;
dbfHeader.bHasTags = ( BYTE ) pArea->fHasTags;
dbfHeader.bCodePage = pArea->bCodePage;
/* Update record count */
if( pArea->fShared )

3
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -7469,6 +7469,7 @@ ERRCODE hb_cdxReadDBHeader( CDXAREAP pArea )
pArea->ulRecCount = dbHeader.ulRecCount;
pArea->fHasMemo = ( dbHeader.bVersion == 0xF5 );
pArea->fHasTags = dbHeader.bHasTags;
pArea->bCodePage = dbHeader.bCodePage;
return SUCCESS;
}
@@ -7490,7 +7491,7 @@ ERRCODE hb_cdxWriteDBHeader( CDXAREAP pArea )
dbfHeader.bYear = ( BYTE ) ( lYear - 1900 );
dbfHeader.bMonth = ( BYTE ) lMonth;
dbfHeader.bDay = ( BYTE ) lDay;
dbfHeader.bHasTags = ( BYTE ) pArea->fHasTags;
dbfHeader.bCodePage = pArea->bCodePage;
/* Update record count */
SELF_RECCOUNT( ( AREAP ) pArea, &ulRecCount );