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

2001-06-09 23:15 GMT-3 Horacio Roldan <horacioroldan@usa.net>

Browse Source 
*source/rdd/dbf1.c
     ! fixed message sending that corrupted dbf (with ftp) header
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-06-10 02:17:17 +00:00
parent 9079cf110b
commit 66f0dbdedc
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-06-09 23:15 GMT-3 Horacio Roldan <horacioroldan@usa.net>
*source/rdd/dbf1.c
! fixed message sending that corrupted dbf (with ftp) header
2001-06-09 22:05 GMT+7 Andi Jahja <andijahja@cbn.net.id>
* harbour/source/compiler/hbusage.c
- Deleting my own name in "Credit", I do not deserve it!

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

@@ -870,11 +870,13 @@ ERRCODE hb_dbfAppend( DBFAREAP pArea, BOOL bUnLockAll )
if( pArea->fShared )
{
hb_dbfWriteRecord( pArea );
hb_dbfWriteDBHeader( pArea );
//hb_dbfWriteDBHeader( pArea );
SELF_WRITEDBHEADER( ( AREAP ) pArea );
}
else
{
hb_dbfWriteDBHeader( pArea );
//hb_dbfWriteDBHeader( pArea );
SELF_WRITEDBHEADER( ( AREAP ) pArea );
pArea->fUpdateHeader = TRUE; /* To truncate the file later */
}
return SUCCESS;
@@ -947,7 +949,8 @@ ERRCODE hb_dbfFlush( DBFAREAP pArea )
hb_fsWrite( pArea->hDataFile, ( BYTE * ) "\032", 1 );
hb_fsWrite( pArea->hDataFile, NULL, 0 );
}
hb_dbfWriteDBHeader( pArea );
//hb_dbfWriteDBHeader( pArea );
SELF_WRITEDBHEADER( ( AREAP ) pArea );
}
hb_fsCommit( pArea->hDataFile );
@@ -1086,7 +1089,8 @@ ERRCODE hb_dbfGoCold( DBFAREAP pArea )
/* Update header */
if( pArea->fShared )
hb_dbfWriteDBHeader( pArea );
SELF_WRITEDBHEADER( ( AREAP ) pArea );
//hb_dbfWriteDBHeader( pArea );
pArea->fAppend = FALSE;
}
@@ -1373,7 +1377,8 @@ ERRCODE hb_dbfClose( DBFAREAP pArea )
if( pArea->fShared )
pArea->ulRecCount = hb_dbfCalcRecCount( pArea );
hb_dbfWriteDBHeader( pArea );
//hb_dbfWriteDBHeader( pArea );
SELF_WRITEDBHEADER( ( AREAP ) pArea );
/* Seek to logical eof and write eof mark */
hb_fsSeek( pArea->hDataFile, pArea->uiHeaderLen +
@@ -2518,4 +2523,4 @@ HB_FUNC( DBF_GETFUNCTABLE )
hb_retni( hb_rddInherit( pTable, &dbfTable, &dbfSuper, 0 ) );
else
hb_retni( FAILURE );
}
}