DBFWriteAttribute()

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

static

Definition at line 1235 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;
                        }
                        memcpy(
                            (char *)(pabyRec + psDBF->panFieldOffset[iField]), szSField, psDBF->panFieldSize[iField]);
                }
                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;
                        }
                        memcpy(
                            (char *)(pabyRec + psDBF->panFieldOffset[iField]), szSField, psDBF->panFieldSize[iField]);
                }
                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);
                }
                memcpy((char *)(pabyRec + psDBF->panFieldOffset[iField]), (char *)pValue, j);
                break;
        }
 
        return nRetResult;
}

References DBFFlushRecord(), DBFGetNullCharacter(), DBFLoadRecord(), DBFWriteHeader(), FALSE, if(), 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: