void msDBFClose(DBFHandle psDBF)
{
#ifdef SHAPELIB_DISABLED
/* -------------------------------------------------------------------- */
/* Write out header if not already written. */
/* -------------------------------------------------------------------- */
if( psDBF->bNoHeader )
writeHeader( psDBF );
flushRecord( psDBF );
/* -------------------------------------------------------------------- */
/* Update last access date, and number of records if we have */
/* write access. */
/* -------------------------------------------------------------------- */
if( psDBF->bUpdated )
{
uchar abyFileHeader[32];
fseek( psDBF->fp, 0, 0 );
fread( abyFileHeader, 32, 1, psDBF->fp );
abyFileHeader[1] = 95; /* YY */
abyFileHeader[2] = 7; /* MM */
abyFileHeader[3] = 26; /* DD */
abyFileHeader[4] = psDBF->nRecords % 256;
abyFileHeader[5] = (psDBF->nRecords/256) % 256;
abyFileHeader[6] = (psDBF->nRecords/(256*256)) % 256;
abyFileHeader[7] = (psDBF->nRecords/(256*256*256)) % 256;
fseek( psDBF->fp, 0, 0 );
fwrite( abyFileHeader, 32, 1, psDBF->fp );
}
#endif /* SHAPELIB_DISABLED */
/* -------------------------------------------------------------------- */
/* Close, and free resources. */
/* -------------------------------------------------------------------- */
if (psDBF->zfp) {
zzip_fclose( psDBF->zfp );
psDBF->zfp = 0;
}
if( psDBF->panFieldOffset != NULL )
{
free( psDBF->panFieldOffset );
free( psDBF->panFieldSize );
free( psDBF->panFieldDecimals );
free( psDBF->pachFieldType );
}
free( psDBF->pszHeader );
free( psDBF->pszCurrentRecord );
free(psDBF->pszStringField);
free( psDBF );
}
static int msDBFWriteAttribute(DBFHandle psDBF, int hEntity, int iField, void * pValue )
{
unsigned int nRecordOffset;
int i, j;
uchar *pabyRec;
char szSField[40], szFormat[12];
/* -------------------------------------------------------------------- */
/* Is this a valid record? */
/* -------------------------------------------------------------------- */
if( hEntity < 0 || hEntity > psDBF->nRecords )
return( MS_FALSE );
if( psDBF->bNoHeader )
writeHeader(psDBF);
/* -------------------------------------------------------------------- */
/* Is this a brand new record? */
/* -------------------------------------------------------------------- */
if( hEntity == psDBF->nRecords ) {
flushRecord( psDBF );
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( psDBF->nCurrentRecord != hEntity ) {
flushRecord( psDBF );
nRecordOffset = psDBF->nRecordLength * hEntity + psDBF->nHeaderLength;
safe_fseek( psDBF->fp, nRecordOffset, 0 );
fread( psDBF->pszCurrentRecord, psDBF->nRecordLength, 1, psDBF->fp );
psDBF->nCurrentRecord = hEntity;
}
pabyRec = (uchar *) psDBF->pszCurrentRecord;
/* -------------------------------------------------------------------- */
/* Assign all the record fields. */
/* -------------------------------------------------------------------- */
switch( psDBF->pachFieldType[iField] ) {
case 'D':
case 'N':
case 'F':
if( psDBF->panFieldDecimals[iField] == 0 ) {
snprintf( szFormat, sizeof(szFormat), "%%%dd", psDBF->panFieldSize[iField] );
snprintf(szSField, sizeof(szSField), szFormat, (int) *((double *) pValue) );
if( (int) strlen(szSField) > psDBF->panFieldSize[iField] )
szSField[psDBF->panFieldSize[iField]] = '\0';
strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]), szSField, strlen(szSField) );
} else {
snprintf( szFormat, sizeof(szFormat), "%%%d.%df", psDBF->panFieldSize[iField], psDBF->panFieldDecimals[iField] );
snprintf(szSField, sizeof(szSField), szFormat, *((double *) pValue) );
if( (int) strlen(szSField) > psDBF->panFieldSize[iField] )
szSField[psDBF->panFieldSize[iField]] = '\0';
strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]), szSField, strlen(szSField) );
}
break;
default:
if( (int) strlen((char *) pValue) > psDBF->panFieldSize[iField] )
j = psDBF->panFieldSize[iField];
else
j = strlen((char *) pValue);
strncpy((char *) (pabyRec+psDBF->panFieldOffset[iField]), (char *) pValue, j );
break;
}
psDBF->bCurrentRecordModified = MS_TRUE;
psDBF->bUpdated = MS_TRUE;
return( MS_TRUE );
}
static char *msDBFReadAttribute(DBFHandle psDBF, int hEntity, int iField )
{
int i;
unsigned int nRecordOffset;
uchar *pabyRec;
char *pReturnField = NULL;
/* -------------------------------------------------------------------- */
/* Is the request valid? */
/* -------------------------------------------------------------------- */
if( iField < 0 || iField >= psDBF->nFields ) {
msSetError(MS_DBFERR, "Invalid field index %d.", "msDBFReadAttribute()",iField );
return( NULL );
}
if( hEntity < 0 || hEntity >= psDBF->nRecords ) {
msSetError(MS_DBFERR, "Invalid record number %d.", "msDBFReadAttribute()",hEntity );
return( NULL );
}
/* -------------------------------------------------------------------- */
/* Have we read the record? */
/* -------------------------------------------------------------------- */
if( psDBF->nCurrentRecord != hEntity ) {
flushRecord( psDBF );
nRecordOffset = psDBF->nRecordLength * hEntity + psDBF->nHeaderLength;
safe_fseek( psDBF->fp, nRecordOffset, 0 );
fread( psDBF->pszCurrentRecord, psDBF->nRecordLength, 1, psDBF->fp );
psDBF->nCurrentRecord = hEntity;
}
pabyRec = (uchar *) psDBF->pszCurrentRecord;
/* DEBUG */
/* printf("CurrentRecord(%c):%s\n", psDBF->pachFieldType[iField], pabyRec); */
/* -------------------------------------------------------------------- */
/* Ensure our field buffer is large enough to hold this buffer. */
/* -------------------------------------------------------------------- */
if( psDBF->panFieldSize[iField]+1 > psDBF->nStringFieldLen ) {
psDBF->nStringFieldLen = psDBF->panFieldSize[iField]*2 + 10;
psDBF->pszStringField = (char *) SfRealloc(psDBF->pszStringField,psDBF->nStringFieldLen);
}
/* -------------------------------------------------------------------- */
/* Extract the requested field. */
/* -------------------------------------------------------------------- */
strncpy( psDBF->pszStringField,(char *) pabyRec+psDBF->panFieldOffset[iField], psDBF->panFieldSize[iField] );
psDBF->pszStringField[psDBF->panFieldSize[iField]] = '\0';
/*
** Trim trailing blanks (SDL Modification)
*/
for(i=strlen(psDBF->pszStringField)-1; i>=0; i--) {
if(psDBF->pszStringField[i] != ' ') {
psDBF->pszStringField[i+1] = '\0';
break;
}
}
if(i == -1) psDBF->pszStringField[0] = '\0'; /* whole string is blank (SDL fix) */
/*
** Trim/skip leading blanks (SDL/DM Modification - only on numeric types)
*/
if( psDBF->pachFieldType[iField] == 'N' || psDBF->pachFieldType[iField] == 'F' || psDBF->pachFieldType[iField] == 'D' ) {
for(i=0; psDBF->pszStringField[i] != '\0' ; i++) {
if(psDBF->pszStringField[i] != ' ')
break;
}
pReturnField = psDBF->pszStringField+i;
} else
pReturnField = psDBF->pszStringField;
/* detect null values */
if ( DBFIsValueNULL( pReturnField, psDBF->pachFieldType[iField] ) ) {
if (psDBF->pachFieldType[iField] == 'N' || psDBF->pachFieldType[iField] == 'F' || psDBF->pachFieldType[iField] == 'D')
pReturnField="0";
}
return( pReturnField );
}
static char *msDBFReadAttribute(DBFHandle psDBF, int hEntity, int iField )
{
int nRecordOffset, i;
const uchar *pabyRec;
char *pReturnField = NULL;
/* -------------------------------------------------------------------- */
/* Is the request valid? */
/* -------------------------------------------------------------------- */
if( iField < 0 || iField >= psDBF->nFields )
{
msSetError(MS_DBFERR, "Invalid field index %d.", "msDBFGetItemIndex()",iField );
return( NULL );
}
if( hEntity < 0 || hEntity >= psDBF->nRecords )
{
msSetError(MS_DBFERR, "Invalid record number %d.", "msDBFGetItemIndex()",hEntity );
return( NULL );
}
/* -------------------------------------------------------------------- */
/* Have we read the record? */
/* -------------------------------------------------------------------- */
if( psDBF->nCurrentRecord != hEntity )
{
#ifdef SHAPELIB_DISABLED
flushRecord( psDBF );
#endif /* SHAPELIB_DISABLED */
nRecordOffset = psDBF->nRecordLength * hEntity + psDBF->nHeaderLength;
zzip_seek( psDBF->zfp, nRecordOffset, 0 );
zzip_fread( psDBF->pszCurrentRecord, psDBF->nRecordLength, 1, psDBF->zfp );
psDBF->nCurrentRecord = hEntity;
}
pabyRec = (const uchar *) psDBF->pszCurrentRecord;
/* -------------------------------------------------------------------- */
/* Ensure our field buffer is large enough to hold this buffer. */
/* -------------------------------------------------------------------- */
if( psDBF->panFieldSize[iField]+1 > psDBF->nStringFieldLen )
{
psDBF->nStringFieldLen = psDBF->panFieldSize[iField]*2 + 10;
psDBF->pszStringField = (char *) SfRealloc(psDBF->pszStringField,psDBF->nStringFieldLen);
}
/* -------------------------------------------------------------------- */
/* Extract the requested field. */
/* -------------------------------------------------------------------- */
strncpy( psDBF->pszStringField,(const char *) pabyRec+psDBF->panFieldOffset[iField], psDBF->panFieldSize[iField] );
psDBF->pszStringField[psDBF->panFieldSize[iField]] = '\0';
/*
** Trim trailing blanks (SDL Modification)
*/
for(i=strlen(psDBF->pszStringField)-1;i>=0;i--) {
if(psDBF->pszStringField[i] != ' ') {
psDBF->pszStringField[i+1] = '\0';
break;
}
}
if(i == -1) psDBF->pszStringField[0] = '\0'; /* whole string is blank (SDL fix) */
/*
** Trim/skip leading blanks (SDL/DM Modification - only on numeric types)
*/
if( psDBF->pachFieldType[iField] == 'N' || psDBF->pachFieldType[iField] == 'F' || psDBF->pachFieldType[iField] == 'D' ) {
for(i=0; psDBF->pszStringField[i] != '\0' ;i++) {
if(psDBF->pszStringField[i] != ' ')
break;
}
pReturnField = psDBF->pszStringField+i;
}
else
pReturnField = psDBF->pszStringField;
return( pReturnField );
}
