DBFWriteAttribute()

static int DBFWriteAttribute ( DBFHandle  psDBF, int  hEntity, int  iField, void *  pValue  )

static

Definition at line 1271 of file dbfopen.c.

{
    int         i, j, nRetResult = TRUE;
    unsigned char       *pabyRec;
    char        szSField[400], szFormat[20];
 
/* -------------------------------------------------------------------- */
/*      Is this a valid record?                                         */
/* -------------------------------------------------------------------- */
    if( hEntity < 0 || hEntity > psDBF->nRecords )
        return( FALSE );
 
    if( psDBF->bNoHeader )
        DBFWriteHeader(psDBF);
 
/* -------------------------------------------------------------------- */
/*      Is this a brand new record?                                     */
/* -------------------------------------------------------------------- */
    if( hEntity == psDBF->nRecords )
    {
        if( !DBFFlushRecord( psDBF ) )
            return FALSE;
 
        psDBF->nRecords++;
        for( i = 0; i < psDBF->nRecordLength; i++ )
            psDBF->pszCurrentRecord[i] = ' ';
 
        psDBF->nCurrentRecord = hEntity;
    }
 
/* -------------------------------------------------------------------- */
/*      Is this an existing record, but different than the last one     */
/*      we accessed?                                                    */
/* -------------------------------------------------------------------- */
    if( !DBFLoadRecord( psDBF, hEntity ) )
        return FALSE;
 
    pabyRec = (unsigned char *) psDBF->pszCurrentRecord;
 
    psDBF->bCurrentRecordModified = TRUE;
    psDBF->bUpdated = TRUE;
 
/* -------------------------------------------------------------------- */
/*      Translate NULL value to valid DBF file representation.          */
/*                                                                      */
/*      Contributed by Jim Matthews.                                    */
/* -------------------------------------------------------------------- */
    if( pValue == NULL )
    {
        memset( (char *) (pabyRec+psDBF->panFieldOffset[iField]),
                DBFGetNullCharacter(psDBF->pachFieldType[iField]),
                psDBF->panFieldSize[iField] );
        return TRUE;
    }
 
/* -------------------------------------------------------------------- */
/*      Assign all the record fields.                                   */
/* -------------------------------------------------------------------- */
    switch( psDBF->pachFieldType[iField] )
    {
      case 'D':
      case 'N':
      case 'F':
        if( psDBF->panFieldDecimals[iField] == 0 )
        {
            int         nWidth = psDBF->panFieldSize[iField];
 
            if( (int) sizeof(szSField)-2 < nWidth )
                nWidth = sizeof(szSField)-2;
 
            sprintf( szFormat, "%%%dd", nWidth );
            sprintf(szSField, szFormat, (int) *((double *) pValue) );
            if( (int)strlen(szSField) > psDBF->panFieldSize[iField] )
            {
                szSField[psDBF->panFieldSize[iField]] = '\0';
                nRetResult = FALSE;
            }
 
            strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]),
                    szSField, strlen(szSField) );
        }
        else
        {
            int         nWidth = psDBF->panFieldSize[iField];
 
            if( (int) sizeof(szSField)-2 < nWidth )
                nWidth = sizeof(szSField)-2;
 
            sprintf( szFormat, "%%%d.%df",
                     nWidth, psDBF->panFieldDecimals[iField] );
            sprintf(szSField, szFormat, *((double *) pValue) );
            if( (int) strlen(szSField) > psDBF->panFieldSize[iField] )
            {
                szSField[psDBF->panFieldSize[iField]] = '\0';
                nRetResult = FALSE;
            }
            strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]),
                    szSField, strlen(szSField) );
        }
        break;
 
      case 'L':
        if (psDBF->panFieldSize[iField] >= 1  &&
            (*(char*)pValue == 'F' || *(char*)pValue == 'T'))
            *(pabyRec+psDBF->panFieldOffset[iField]) = *(char*)pValue;
        break;
 
      default:
        if( (int) strlen((char *) pValue) > psDBF->panFieldSize[iField] )
        {
            j = psDBF->panFieldSize[iField];
            nRetResult = FALSE;
        }
        else
        {
            memset( pabyRec+psDBF->panFieldOffset[iField], ' ',
                    psDBF->panFieldSize[iField] );
            j = strlen((char *) pValue);
        }
 
        strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]),
                (char *) pValue, j );
        break;
    }
 
    return( nRetResult );
}

References DBFFlushRecord(), DBFGetNullCharacter(), DBFLoadRecord(), DBFWriteHeader(), FALSE, and TRUE.

Referenced by DBFWriteDoubleAttribute(), DBFWriteIntegerAttribute(), DBFWriteLogicalAttribute(), DBFWriteNULLAttribute(), and DBFWriteStringAttribute().

Here is the call graph for this function:

Here is the caller graph for this function: