static HB_ERRCODE sqlbaseNewArea( SQLBASEAREAP pArea ) { HB_ERRCODE errCode; HB_TRACE( HB_TR_DEBUG, ( "sqlbaseNewArea(%p)", pArea ) ); errCode = SUPER_NEW( ( AREAP ) pArea ); pArea->area.uiMaxFieldNameLength = HB_SYMBOL_NAME_LEN; return errCode; }
/* * Clear the WorkArea for use. */ static HB_ERRCODE hb_sdfNewArea( SDFAREAP pArea ) { HB_TRACE( HB_TR_DEBUG, ( "hb_sdfNewArea(%p)", pArea ) ); if( SUPER_NEW( &pArea->area ) == HB_FAILURE ) return HB_FAILURE; pArea->pFile = NULL; pArea->fTransRec = HB_TRUE; pArea->uiRecordLen = 0; return HB_SUCCESS; }
static HB_ERRCODE adsxNewArea( ADSXAREAP pArea ) { HB_ERRCODE errCode; errCode = SUPER_NEW( ( AREAP ) pArea ); if( errCode == HB_SUCCESS ) { if( pArea->adsarea.area.rddID == s_uiRddIdADSADTX ) pArea->adsarea.iFileType = ADS_ADT; else if( pArea->adsarea.area.rddID == s_uiRddIdADSNTXX ) pArea->adsarea.iFileType = ADS_NTX; else if( pArea->adsarea.area.rddID == s_uiRddIdADSCDXX ) pArea->adsarea.iFileType = ADS_CDX; #if ADS_LIB_VERSION >= 900 else if( pArea->adsarea.area.rddID == s_uiRddIdADSVFPX ) pArea->adsarea.iFileType = ADS_VFP; #endif pArea->adsarea.area.uiMaxFieldNameLength = ( pArea->adsarea.iFileType == ADS_ADT ) ? ADS_MAX_FIELD_NAME : ADS_MAX_DBF_FIELD_NAME; } return errCode; }