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

2001-11-28 12:57 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* include/hbrddcdx.h
   * source/rdd/dbfcdx/dbfcdx1.c
     * begin support of pack
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-11-28 16:02:39 +00:00
parent ce2eb47611
commit 072d061c2e
3 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-11-28 12:57 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
* include/hbrddcdx.h
* source/rdd/dbfcdx/dbfcdx1.c
* begin support of pack
2001-11-26 22:55 GMT+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/vm/classes.c
* Freezed ('remed') scoping due to a small bug wich could always

5
harbour/include/hbrddcdx.h
View File

@@ -407,7 +407,8 @@ extern ERRCODE hb_cdxOpen( CDXAREAP pArea, LPDBOPENINFO pOpenInfo );
extern ERRCODE hb_cdxStructSize( CDXAREAP pArea, USHORT * uiSize );
extern ERRCODE hb_cdxSysName( CDXAREAP pArea, BYTE * pBuffer );
#define hb_cdxEval NULL
#define hb_cdxPack NULL
/* #define hb_cdxPack NULL */
extern ERRCODE hb_cdxPack ( CDXAREAP pArea );
#define hb_cdxPackRec NULL
#define hb_cdxSort NULL
#define hb_cdxTrans NULL
@@ -461,4 +462,4 @@ extern ERRCODE hb_cdxWriteDBHeader( CDXAREAP pArea );
}
#endif
#endif /* HB_RDDCDX_H_ */
#endif /* HB_RDDCDX_H_ */

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

@@ -4872,4 +4872,22 @@ ERRCODE hb_cdxGoCold( CDXAREAP pArea )
if( SUPER_GOCOLD( ( AREAP ) pArea ) == FAILURE )
return FAILURE;
return SUCCESS;
}
extern ERRCODE hb_cdxPack ( CDXAREAP pArea )
{
HB_TRACE(HB_TR_DEBUG, ("nb_cdxPack(%p)", pArea ));
/* Commit changes first */
if( SELF_GOCOLD( ( AREAP ) pArea ) == FAILURE )
return FAILURE;
if( SUPER_PACK( ( AREAP ) pArea ) == SUCCESS )
{
hb_cdxOrderListClear( pArea );
/* return hb_cdxOrderListRebuild( pArea ); */
return TRUE;
}
else
return FAILURE;
}