示例#1
0
文件: sqlbase.c 项目: UIKit0/core
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;
}
示例#2
0
文件: sdf1.c 项目: AmericoBalboa/core
/*
 * 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;
}
示例#3
0
文件: adsx.c 项目: SBCamus/core
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;
}