diff options
Diffstat (limited to 'xbase64/xbdbf.cpp')
| -rwxr-xr-x | xbase64/xbdbf.cpp | 2671 |
1 files changed, 0 insertions, 2671 deletions
diff --git a/xbase64/xbdbf.cpp b/xbase64/xbdbf.cpp deleted file mode 100755 index d3790cb..0000000 --- a/xbase64/xbdbf.cpp +++ /dev/null @@ -1,2671 +0,0 @@ -/* xbdbf.cpp - - Xbase64 project source code - - This file contains the basic Xbase routines for reading and writing - Xbase .DBF files. - - Copyright (C) 1997,2003 Gary A Kunkel - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU Lesser General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - - - Contact: - - Email: - - xdb-devel@lists.sourceforge.net - xdb-users@lists.sourceforge.net - - - Regular Mail: - - XBase Support - 149C South Main St - Keller Texas, 76248 - USA - -*/ - -#ifdef __GNU LesserG__ - #pragma implementation "xbdbf.h" -#endif - -#ifdef __WIN32__ -#include <xbase64/xbwincfg.h> -#else -#include <xbase64/xbconfig.h> -#endif - -#include <xbase64/xbase64.h> - -#ifdef HAVE_IO_H -#include <io.h> -#endif -#include <errno.h> - -/*! \file xbdbf.cpp -*/ - -/************************************************************************/ -//! Constructor -/*! - \param x pointer to the global xbXbase class -*/ -xbDbf::xbDbf( xbXBase * x ) -{ - xbase = x; - InitVars(); -} -/************************************************************************/ -//! Destructor -/*! -*/ -xbDbf::~xbDbf() -{ - CloseDatabase(true); -} -/************************************************************************/ -//! Initialize private data members. -/*! - Internal use only. -*/ -void xbDbf::InitVars() -{ - SetFileName(NULL); - NoOfFields = 0; - DbfStatus = XB_CLOSED; - fp = NULL; - CurRec = 0L; - SchemaPtr = NULL; - RecBuf = NULL; - RecBuf2 = NULL; - Version = 0x00; - UpdateYY = 0x00; - UpdateMM = 0x00; - UpdateDD = 0x00; - NoOfRecs = 0L; - HeaderLen = 0x00; - RecordLen = 0x00; - NdxList = NULL; - FreeIxList = NULL; - XFV = 3; /* Xbase file version */ - -#ifdef XB_LOCKING_ON - xblfh = NULL; /* lock file for XB_XBASE_LOCK_MODE */ - LockMode = xbase->GetLockMode(); - TableLockCnt = 0; - IndexLockCnt = 0; -#ifdef XB_MEMO_FIELDS - MemoLockCnt = 0; -#endif - - AutoLock = 1; - CurLockType = -1; - CurLockCount = 0; - CurLockedRecNo = 0L; - CurRecLockType = -1; - CurRecLockCount = 0; - CurMemoLockType = -1; - CurMemoLockCount = 0; -#else - AutoLock = 0; -#endif - -#ifdef XB_MEMO_FIELDS - MemofileName = ""; - MemoHeader.BlockSize = XB_DBT_BLOCK_SIZE; - MemoHeader.Version = 0x03; - mfp = NULL; - mbb = NULL; - CurMemoBlockNo = -1; - mfield1 = 0; - MStartPos = 0; - MFieldLen = 0; - NextFreeBlock = 0L; - FreeBlockCnt = 0L; - MNextBlockNo = 0L; - MNoOfFreeBlocks = 0L; -#endif - -//#ifdef XB_REAL_DELETE - RealDelete = 0; - FirstFreeRec = 0L; - RealNumRecs = 0L; -//#endif -} -/************************************************************************/ -//! Set dbase version for the dbf file. -/*! - Set dbase version. Should only be used before creating a database with - xbDbf::CreateDatabase(). - - \param v version, either 3 or 4. -*/ -xbShort xbDbf::SetVersion(xbShort v) { - if (v == 0) - return XFV; - else - if(v == 3) { - XFV = 3; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x03; -#endif - return XFV; - } else - if (v == 4) { - XFV = 4; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x00; -#endif - return XFV; - } - - return XB_INVALID_OPTION; -} -/************************************************************************/ -//! Write the dbf header -/*! - Internal use only. - - \param PositionOption flag that indicates whether file postition should - be moved. non-zero if so, zero if not. -*/ -xbShort xbDbf::WriteHeader( xbShort PositionOption ) -{ - char buf[32]; - memset(buf, 0, 32); - if(PositionOption) - rewind(fp); - - memcpy(&buf[0], &Version, 4); - xbase->PutLong(&buf[4], NoOfRecs); - xbase->PutShort(&buf[8], HeaderLen ); - xbase->PutShort(&buf[10], RecordLen ); - -#ifdef XB_REAL_DELETE - if(RealDelete){ - xbase->PutULong(&buf[12], FirstFreeRec); - xbase->PutULong(&buf[16], RealNumRecs); - } -#endif - if(fwrite(buf, 32, 1, fp) != 1) - return XB_WRITE_ERROR; - - return XB_NO_ERROR; -} -/************************************************************************/ -//! Read the dbf header. -/*! - Internal use only. - - \param PositionOption -*/ -xbShort xbDbf::ReadHeader( xbShort PositionOption ) -{ -#if 0 - char buf[4]; - if (PositionOption) - rewind(fp); - if (fread(&Version, 4, 1, fp) != 1) - xb_error(XB_READ_ERROR); - - if (fread(buf, 4, 1, fp ) != 1) - xb_error(XB_READ_ERROR); - - NoOfRecs = xbase->GetLong( buf ); - if(fread(buf, 2, 1, fp) != 1) - xb_error(XB_READ_ERROR); - - HeaderLen = xbase->GetShort( buf ); - if(fread(buf, 2, 1, fp) != 1) - xb_error(XB_READ_ERROR); - - RecordLen = xbase->GetShort(buf); - -#ifdef XB_REAL_DELETE - if(RealDelete) - { - if (fread(buf, 4, 1, fp ) != 1) - xb_error(XB_READ_ERROR); - FirstFreeRec = xbase->GetULong( buf ); - - if (fread(buf, 4, 1, fp ) != 1) - xb_error(XB_READ_ERROR); - RealNumRecs = xbase->GetULong( buf ); - } -#endif -#else - char buf[32]; - - if(PositionOption) - rewind(fp); - - if(fread(buf, 32, 1, fp) != 1) - return XB_READ_ERROR; - - memcpy(&Version, buf, 4); - NoOfRecs = xbase->GetLong(&buf[4]); - HeaderLen = xbase->GetShort(&buf[8]); - RecordLen = xbase->GetShort(&buf[10]); - -#ifdef XB_REAL_DELETE - if(RealDelete) - { - FirstFreeRec = xbase->GetULong(&buf[12]); - RealNumRecs = xbase->GetULong(&buf[16]); - } -#endif -#endif - - return XB_NO_ERROR; -} -/************************************************************************/ -//! Determine if file name suffix is missing -/*! - Internal use only. -*/ -xbShort xbDbf::NameSuffixMissing( xbShort type, const char * name ) -{ - /* type 1 is DBF check - type 2 is NDX check - type 3 is MDX check - type 4 is NTX check - - Returns 0 if suffix found - 1 if suffix not found, lower case - 2 is suffix not found, upper, case -*/ - - xbShort len; - - len = strlen( name ); - if( len <= 4 ) - if( name[len-1] >= 'A' && name[len-1] <= 'Z' ) - return 2; - else - return 1; - - if( type == 1 && name[len-4] == '.' && - ( name[len-3] == 'd' || name[len-3] == 'D' ) && - ( name[len-2] == 'b' || name[len-2] == 'B' ) && - ( name[len-1] == 'f' || name[len-1] == 'F' ) - ) - return 0; - - if( type == 2 && name[len-4] == '.' && - ( name[len-3] == 'n' || name[len-3] == 'N' ) && - ( name[len-2] == 'd' || name[len-2] == 'D' ) && - ( name[len-1] == 'x' || name[len-1] == 'X' ) - ) - return 0; - - if( type == 4 && name[len-4] == '.' && - ( name[len-3] == 'n' || name[len-3] == 'N' ) && - ( name[len-2] == 't' || name[len-2] == 'T' ) && - ( name[len-1] == 'x' || name[len-1] == 'X' ) - ) - return 0; - - if( name[len-5] >= 'A' && name[len-5] <= 'Z' ) - return 2; - else - return 1; -} -/************************************************************************/ -//! Create the dbf file. -/*! - This method attempts to create the DBF file with the specified - name (TableName) and schema (xbSchema s). The OverLay switch is used to determine - if an existing file should be overwritten or an error flagged if the - file already exists. The record buffer is blanked (set to spaces). - - \param TableName name of the table - \param s xbSchema - \param Overlay One of the following: - \htmlonly - <p> - <table border=2><tr><th>OverLay</th><th>Description</th></tr> - <tr><td>XB_OVERLAY</td><td>Overwrite existing file if it exists</td></tr> - <tr><td>XB_DONTOVERLAY</td><td>Report an error if file exists</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{OverLay} & \textbf{Description} \\ \hline \hline - XB\_OVERLAY & Overwrite existing file if it exists \\ \hline - XB\_DONTOVERLAY & Report an error if file exists \\ \hline - \end{tabular} - \endlatexonly - \returns One of the following return codes: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_FILE_EXISTS</td><td>If the file exists and OverLay is XB_DONTOVERLAY</td></tr> - <tr><td>XB_OPEN_ERROR</td><td>Couldn't open the file</td></tr> <tr><td>XB_NO_MEMORY</td><td>Memory allocation error</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Couldn't write to disk</td><tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No Error \\ \hline - XB\_FILE\_EXISTS & If the file exists and OverLay is XB\_DONTOVERAY \\ \hline - XB\_OPEN\_ERROR & Couldn't open the file \\ \hline - XB\_WRITE\_ERROR & Couldn't write to disk \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::CreateDatabase( const char * TableName, xbSchema * s, - const xbShort Overlay ) -{ - xbShort i, j, k, k2, rc; /* , count; */ - -#ifdef XB_MEMO_FIELDS - xbShort MemoSw = 0; -#endif - - DbfStatus = XB_CLOSED; - SetFileName( TableName ); - - /* check if the file already exists */ - if((( fp = fopen( GetFileName(), "r" )) != NULL ) && !Overlay ){ - fclose( fp ); - return XB_FILE_EXISTS; - } - else if( fp ) fclose( fp ); - - if(( fp = fopen( GetFileName(), "w+b" )) == NULL ) - return XB_OPEN_ERROR; - -#ifdef XB_LOCKING_ON - /* no buffering in multi user mode */ - setbuf( fp, NULL ); - - /* open the lock file if XB_XBASE_LOCK_FLAVOR */ -// if( LockMode == XB_XBASE_LOCK_MODE ) -// if(( rc = OpenXbLockFile()) != XB_NO_ERROR ) -// return rc; -#endif - - /* count the number of fields and check paramaters */ - i = 0; - while( s[i].Type != 0 ){ - NoOfFields++; - -#ifdef XB_MEMO_FIELDS - if(s[i].Type == 'M'){ - s[i].FieldLen = 10; - s[i].NoOfDecs = 0; - } -#endif /* XB_MEMO_FIELDS */ - - if(s[i].Type == 'D'){ - s[i].FieldLen = 8; - s[i].NoOfDecs = 0; - } - - if(s[i].Type == 'C') - s[i].NoOfDecs = 0; - - RecordLen += s[i].FieldLen; - - if( s[i].Type != 'C' && - s[i].Type != 'N' && - s[i].Type != 'F' && - s[i].Type != 'D' && -#ifdef XB_MEMO_FIELDS - s[i].Type != 'M' && -#endif /* XB_MEMO_FIELDS */ - s[i].Type != 'L' ) - { - fclose( fp ); - InitVars(); - return XB_UNKNOWN_FIELD_TYPE; - } - -#ifdef XB_MEMO_FIELDS -// 8/18/03 types B and O dont exist yet - gkunkel -// if( !MemoSw && ( s[i].Type=='M' || s[i].Type=='B' || s[i].Type=='O')) - if( !MemoSw && ( s[i].Type=='M' )) - MemoSw++; -#endif - -// check for numeric fields which are too long - if((s[i].Type == 'N' || s[i].Type == 'F') && s[i].FieldLen > 19 ){ - fclose( fp ); - InitVars(); - return XB_INVALID_FIELD_LEN; - } - i++; - } - RecordLen++; /* add one byte for 0x0D */ - - if(( RecBuf = (char *) malloc( RecordLen )) == NULL ){ - fclose( fp ); - InitVars(); - return XB_NO_MEMORY; - } - - if(( RecBuf2 = (char *) malloc( RecordLen )) == NULL ){ - free( RecBuf ); - fclose( fp ); - InitVars(); - return XB_NO_MEMORY; - } - - /* BlankRecord(); */ - memset( RecBuf, 0x20, RecordLen ); - memset( RecBuf2, 0x20, RecordLen ); - - /* set class variables */ - Version = XFV & 0x7; // file version - bit 0-2 -#ifdef XB_MEMO_FIELDS - if(MemoSw){ - if((XFV & 0x7) == 3) - Version |= 0x80; // memo presence - bit 7 - else - Version = (char) 0x8b; - } -#endif - - CurRec = 0L; - HeaderLen = 33 + NoOfFields * 32; - xbDate d; - UpdateYY = (d.YearOf() - 1900); - if((XFV & 0x7) == 3) - UpdateYY %= 100; // dBASE III seems to do this, but IV does not. DTB - - UpdateMM = d.MonthOf(); - UpdateDD = d.DayOf( XB_FMT_MONTH ); - - /* write the header prolog */ - if(( rc = WriteHeader( 0 )) != XB_NO_ERROR ){ - free( RecBuf ); - free( RecBuf2 ); - fclose( fp ); - InitVars(); - return XB_WRITE_ERROR; - } - - if((SchemaPtr=(xbSchemaRec *)malloc(NoOfFields*sizeof(xbSchemaRec)))==NULL){ - free( RecBuf ); - free( RecBuf2 ); - fclose( fp ); - InitVars(); - return XB_NO_MEMORY; - } - memset( SchemaPtr, 0x00, ( NoOfFields * sizeof(xbSchemaRec))); - - /* write the field information into the header */ - for( i = 0, k = 1; i < NoOfFields; i++ ){ - memset( SchemaPtr[i].FieldName, 0x00, 11 ); - strncpy( SchemaPtr[i].FieldName, s[i].FieldName, 10 ); - - SchemaPtr[i].Type = s[i].Type; - SchemaPtr[i].FieldLen = s[i].FieldLen; - SchemaPtr[i].NoOfDecs = s[i].NoOfDecs; - - if( SchemaPtr[i].NoOfDecs > SchemaPtr[i].FieldLen ) { - fclose( fp ); - free( SchemaPtr ); - free( RecBuf ); - free( RecBuf2 ); - InitVars(); - return XB_INVALID_SCHEMA; - } - - k2 = k; - k += SchemaPtr[i].FieldLen; - - if(( fwrite( &SchemaPtr[i], 1, 18, fp )) != 18 ) { - fclose( fp ); - free( SchemaPtr ); - free( RecBuf ); - free( RecBuf2 ); - InitVars(); - return XB_WRITE_ERROR; - } - - for( j = 0; j < 14; j++ ) { - if(( fwrite( "\x00", 1, 1, fp )) != 1 ) { - free( SchemaPtr ); - free( RecBuf ); - free( RecBuf2 ); - fclose( fp ); - InitVars(); - return XB_WRITE_ERROR; - } - } - SchemaPtr[i].Address = RecBuf + k2; - SchemaPtr[i].Address2 = RecBuf2 + k2; - } - - /* write the header terminator */ - if(( fputc( XB_CHARHDR, fp )) != XB_CHARHDR ){ - fclose( fp ); - free( SchemaPtr ); - free( RecBuf ); - free( RecBuf2 ); - InitVars(); - return XB_WRITE_ERROR; - } - -#ifdef XB_MEMO_FIELDS - if( MemoSw ) - if((rc = CreateMemoFile()) != XB_NO_ERROR){ - fclose(fp); - free(RecBuf); - free(RecBuf2); - InitVars(); - return rc; - } -#endif - - DbfStatus = XB_OPEN; - return xbase->AddDbfToDbfList(this, GetFileName()); -} -/************************************************************************/ -//! Close the dbf file. -/*! - This method attempts to close the DBF file which was previously - opened with either CreateDatabase() or OpenDatabase(). Deletes any - memory allocated. Automatically closes any open indexes associated - with this data file. - - \param deleteIndexes if TRUE, the indexes (xbIndex instances) will also - be deleted (index files will not be deleted) - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File was not open</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No Error \\ \hline - XB\_NOT\_OPEN\_ERROR & File was not open \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::CloseDatabase( xbBool deleteIndexes ) -{ -#if defined(XB_INDEX_ANY) - xbIxList *i, *ti; -#endif - - if(DbfStatus == XB_CLOSED) - return XB_NO_ERROR; - - -#if defined(XB_INDEX_ANY) - i = NdxList; - while (i){ - i->index->CloseIndex(); - if(deleteIndexes) - delete i->index; - i = NdxList; - } -/* free up unused nodes */ - i = FreeIxList; - while( i ) { - ti = i; - i = i->NextIx; - free(ti); - } -#endif - - if(SchemaPtr){ - for( int j = 0; j < NoOfFields; j++ ) - if( SchemaPtr[j].fp ) delete SchemaPtr[j].fp; - free( SchemaPtr ); - } - if(RecBuf) - free( RecBuf ); - if(RecBuf2) - free( RecBuf2 ); - -#ifdef XB_MEMO_FIELDS - if( mbb ) - free( mbb ); /* memo block buffer */ - if( mfp ) - fclose( mfp ); /* memo file pointer */ -#endif - -#ifdef XB_LOCKING_ON - if( xblfh ){ - fclose( xblfh ); - xblfh = NULL; - } -#endif - - xbase->RemoveDbfFromDbfList( this ); - if(fp) - fclose( fp ); - InitVars(); - return XB_NO_ERROR; -} -/************************************************************************/ -/* options 1 = Print header only - 2 = Field data only - 3 = Header and Field data */ - -//! Dump header information. -/*! - \param Option One of the following: - \htmlonly - <p> - <table border=2><tr><th>Option</th><th>Description</th></tr> - <tr><td>1</td><td>Print header only</td></tr> - <tr><td>2</td><td>Field data only</td></tr> - <tr><td>3</td><td>Header and field data</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Option} & \textbf{Description} \\ \hline \hline - 1 & Header only \\ \hline - 2 & Field data only \\ \hline - 3 & Header and field data \\ \hline - \end{tabular} - \endlatexonly -*/ -#ifdef XBASE_DEBUG -xbShort xbDbf::DumpHeader( xbShort Option ) -{ - int i; - - if( Option < 1 || Option > 3 ) - return XB_INVALID_OPTION; - - if( DbfStatus == XB_CLOSED ) - return XB_NOT_OPEN; - - std::cout << "\nDatabase file " << GetFileName() << std::endl << std::endl; - - if( Option != 2 ){ - std::cout << "File header data:" << std::endl; - if( Version == 3 ) - std::cout << "Dbase III file" << std::endl; - else if ( Version == 83 ) - std::cout << "Dbase III file with memo fields" << std::endl << std::endl; - - std::cout << "Last update date = " - << (int) UpdateMM << "/" << (int) UpdateDD << "/" << (int) UpdateYY % 100 << std::endl; - - std::cout << "Header length = " << HeaderLen << std::endl; - std::cout << "Record length = " << RecordLen << std::endl; - std::cout << "Records in file = " << NoOfRecs << std::endl << std::endl; -#ifdef XB_REAL_DELETE - std::cout << "First Free Rec = " << FirstFreeRec << std::endl << std::endl; -#endif - } - if( Option != 1 ){ - std::cout << "Field Name Type Length Decimals" << std::endl; - std::cout << "---------- ---- ------ --------" << std::endl; - for( i = 0; i <NoOfFields; i++ ){ - if( SchemaPtr[i].Type == 'C' && SchemaPtr[i].NoOfDecs > 0 ) - printf( "%10s %1c %4d %4d\n", SchemaPtr[i].FieldName, - SchemaPtr[i].Type, SchemaPtr[i].FieldLen, 0 ); - else - printf( "%10s %1c %4d %4d\n", SchemaPtr[i].FieldName, - SchemaPtr[i].Type, SchemaPtr[i].FieldLen, SchemaPtr[i].NoOfDecs ); - } - } - std::cout << std::endl; - return XB_NO_ERROR; -} -#endif -/************************************************************************/ -//! Open the DBF file. -/*! - This method attempts to open the DBF file with the specified - name (TableName). This method does not position to any particular - record in the file. The record buffer is blanked (set to spaces). - - \param TableName Name of table to open - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_OPEN_ERROR</td><td>Couldn't open file</td></tr> - <tr><td>XB_NO_MEMORY</td><td>Memory allocation error</td></tr> - <tr><td>XB_NOT_XBASE</td><td>Not an DBF file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_OPEN\_ERROR & Couldn't open file \\ \hline - XB\_NO\_MEMORY & Memory allocation error \\ \hline - XB\_NOT\_XBASE & Not an DBF file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::OpenDatabase( const char * TableName ) -{ - xbShort i, j, rc; - char buf[33]; - char *p; - -#ifdef XB_MEMO_FIELDS - xbShort MemoSw = 0; -#endif - - /* verify the file is not already open */ - if( DbfStatus != XB_CLOSED ) - return XB_ALREADY_OPEN; - - /* copy the file name to the class variable */ - SetFileName( TableName ); - - /* open the file */ - if(( fp = fopen(GetFileName(), "r+b")) == NULL ){ - // - // Try to open read only if failed to open read/write - // - if(( fp = fopen(GetFileName(), "rb")) == NULL ) - return XB_OPEN_ERROR; - } - -#ifdef XB_LOCKING_ON - /* no buffering in multi user mode - may not see what others have updated */ - setbuf( fp, NULL ); - - /* open the lock file if XB_XBASE_LOCK_MODE */ -// if( LockMode == XB_XBASE_LOCK_MODE ) -// if(( rc = OpenXbLockFile()) != XB_NO_ERROR ) -// return rc; -#endif - -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR) -// return rc; -#endif - - /* copy the header into memory */ - if(( rc = ReadHeader( 1 )) != XB_NO_ERROR ){ - InitVars(); - return rc; - } - - /* check the version */ - if( Version == 3 || Version == (char)0x83 ){ /* dBASE III+ */ - XFV = 3; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x03; -#endif - } - else if( Version == 4 || Version == (char)0x8B ){ /* dBASE IV */ - XFV = 4; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x00; -#endif - } - else if( Version == (char)0xf5 ){ /* FoxPro */ - XFV = 4; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x00; -#endif - } - else if( Version == (char)0x30 ){ /* Visual Foxpro */ - XFV = 4; -#ifdef XB_MEMO_FIELDS - MemoHeader.Version = 0x00; -#endif - } else { - InitVars(); - return XB_NOT_XBASE; - } - - // it would seem that dBASE III+ generates an UpdateYY value - // of 0 for 2000 and dBASE IV uses 100, so I have removed the - // check for UpdateYY being 0 (which might be valid). DTB - - // Not all flavors of database tools use these fields - // Found a month set to 0 in valid dbf file - // Commented out this check 2/11/06 - GAK - - // if( UpdateMM == 0 || UpdateDD == 0 ){ - // InitVars(); - // return XB_NOT_XBASE; - // } - - /* calculate the number of fields */ - if( Version == (char)0x30 ) { - NoOfFields = ( HeaderLen - 296 ) / 32 ; - } else { - NoOfFields = ( HeaderLen - 33 ) / 32; - } - - if(( RecBuf = (char *) malloc( RecordLen )) == NULL ) { - fclose( fp ); - InitVars(); - return XB_NO_MEMORY; - } - if(( RecBuf2 = (char *) malloc( RecordLen )) == NULL ) { - fclose( fp ); - free( RecBuf ); - InitVars(); - return XB_NO_MEMORY; - } - - if((SchemaPtr=(xbSchemaRec *)malloc(NoOfFields*sizeof(xbSchemaRec)))==NULL){ - free( RecBuf ); - free( RecBuf2 ); - fclose( fp ); - InitVars(); - return XB_NO_MEMORY; - } - memset( SchemaPtr, 0x00, ( NoOfFields * sizeof(xbSchemaRec))); - - /* copy field info into memory */ - for( i = 0, j = 1; i < NoOfFields; i++ ){ - _fseek( fp,((xbOffT)i*32+32), 0 ); - fread( &buf, 1, 32, fp ); - p = buf; - strncpy( SchemaPtr[i].FieldName, p, 10 ); - p += 11; - SchemaPtr[i].Type = *p++; - - SchemaPtr[i].Address = RecBuf + j; - SchemaPtr[i].Address2 = RecBuf2 + j; - - SchemaPtr[i].FieldLen = *( p + 4 ); - SchemaPtr[i].NoOfDecs = *( p + 5 ); - - if( SchemaPtr[i].Type == 'C' && SchemaPtr[i].NoOfDecs > 0 ){ - SchemaPtr[i].LongFieldLen = xbase->GetShort( p + 4 ); - j += SchemaPtr[i].LongFieldLen; - } - else - j += SchemaPtr[i].FieldLen; -#ifdef XB_MEMO_FIELDS - if( !MemoSw && (SchemaPtr[i].Type == 'M' || - SchemaPtr[i].Type == 'B' || SchemaPtr[i].Type == 'O' )) - MemoSw++; -#endif - } - CurRec = 0L; - BlankRecord(); - DbfStatus = XB_OPEN; - -#ifdef XB_MEMO_FIELDS - if( MemoSw ) /* does this table have memo fields ? */ - if(( rc = OpenMemoFile()) != XB_NO_ERROR ){ - free( RecBuf ); - free( RecBuf2 ); - free( SchemaPtr ); - fclose( fp ); - InitVars(); - return rc; - } -#endif - -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// LockDatabase( XB_UNLOCK, 0L ); -#endif /* XB_LOCKING_ON */ - - return xbase->AddDbfToDbfList( this, GetFileName() ); -} -/************************************************************************/ -//! Blank the record buffer. -/*! - Sets the record to spaces. -*/ -xbShort xbDbf::BlankRecord() -{ - if( DbfStatus == XB_CLOSED ) - return XB_NOT_OPEN; - - if( DbfStatus != XB_UPDATED ){ - DbfStatus = XB_UPDATED; - memcpy( RecBuf2, RecBuf, RecordLen ); - } - - memset( RecBuf, 0x20, RecordLen ); - return XB_NO_ERROR; -} -/************************************************************************/ -//! Append the current record to the data file -/*! - This method attempts to append the contents of the current record buffer - to the end of the DBF file and updates the file date and number of - records in the file. Also updates any open indices associated with - this data file. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::AppendRecord() -{ - xbShort rc; - xbULong nextRecNo; - -#if defined(XB_INDEX_ANY) - xbIxList *i; -#endif - -/* lock the database */ -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR) -// return rc; - - rc = ReadHeader(1); - -// if(AutoLock) -// LockDatabase( XB_UNLOCK, 0L ); - - if( rc ) - return rc; - -#endif - -/* lock any indexes */ -#if defined(XB_INDEX_ANY) -#ifdef XB_LOCKING_ON - i = NdxList; - while( i && AutoLock ){ -// if(( rc = i->index->LockIndex( XB_LOCK )) != XB_NO_ERROR ) -// return rc; - i = i->NextIx; - } -#endif /* XB_LOCKING_ON */ -#endif - -// if there are no duplicates, and no records set the CurRec to the -// last record + 1. This is for EXP::RECNO() - -/* check for any duplicate keys */ -#if defined(XB_INDEX_ANY) - i = NdxList; - while( i ){ - if( i->index->UniqueIndex() ){ - i->index->CreateKey( 0, 0 ); - if( i->index->FindKey() == XB_FOUND ) - return XB_KEY_NOT_UNIQUE; - } - i = i->NextIx; - } -#endif - -#ifdef XB_REAL_DELETE - if(RealDelete && FirstFreeRec) - nextRecNo = FirstFreeRec; - else - nextRecNo = NoOfRecs + 1; -#else - nextRecNo = NoOfRecs + 1; -#endif - - CurRec = NoOfRecs + 1; - -#if defined(XB_INDEX_ANY) -/* update the indexes */ - i = NdxList; - while( i ){ - if( !i->index->UniqueIndex() ) /* if we didn't prepare the key */ - if(( rc = i->index->CreateKey( 0, 0 )) != XB_NO_ERROR ) /* then do it before the add */ - return rc; - if(( rc = i->index->AddKey(nextRecNo)) != XB_NO_ERROR ) - return rc; - i->index->TouchIndex(); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ - -#ifdef XB_REAL_DELETE - char buf[4]; - - if(RealDelete && FirstFreeRec){ - /* - ** Grab the next free rec no and put it in FirstFreeRec - */ - if(_fseek(fp, (HeaderLen+(((xbOffT)FirstFreeRec-1)*RecordLen)+1), 0) != 0) - return XB_SEEK_ERROR; - - if(fread(buf, 4, 1, fp) != 1) - return XB_READ_ERROR; - - FirstFreeRec = xbase->GetULong(buf); - } - - /* - ** Okay, seek and write the record out - */ - if(_fseek(fp, (HeaderLen+(((xbOffT)nextRecNo-1)*RecordLen)), 0) != 0) - return XB_SEEK_ERROR; - - if(fwrite( RecBuf, RecordLen, 1, fp) != 1) - return XB_WRITE_ERROR; - - /* - ** If we just appended the record to the file, then write the EOF char - */ - if(nextRecNo == NoOfRecs + 1){ - if( fputc( XB_CHAREOF, fp ) != XB_CHAREOF ) - return XB_WRITE_ERROR; - } -#else - /* write the last record */ - if( _fseek( fp,(HeaderLen+((xbOffT)NoOfRecs*RecordLen)), 0 ) != 0 ) - return XB_SEEK_ERROR; - - if( fwrite( RecBuf, RecordLen, 1, fp ) != 1 ) - return XB_WRITE_ERROR; - - /* write the end of file marker */ - if( fputc( XB_CHAREOF, fp ) != XB_CHAREOF ) - return XB_WRITE_ERROR; -#endif - - /* calculate the latest header information */ - xbDate d; - UpdateYY = d.YearOf() - 1900; - if(XFV == 3) - UpdateYY %= 100; // dBASE III seems to do this, IV does not. DTB - UpdateMM = d.MonthOf(); - UpdateDD = d.DayOf( XB_FMT_MONTH ); -#ifndef XB_REAL_DELETE - NoOfRecs++; -#else - if(RealDelete){ - if(nextRecNo == NoOfRecs + 1) - NoOfRecs++; - RealNumRecs++; - } - else - NoOfRecs++; -#endif - CurRec = nextRecNo; - - /* rewrite the header record */ - if(( rc = WriteHeader( 1 )) != XB_NO_ERROR ) - return rc; - -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// LockDatabase( XB_UNLOCK, 0L ); - -#if defined(XB_INDEX_ANY) - i = NdxList; - while( i && AutoLock ){ -// i->index->LockIndex( XB_UNLOCK ); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ -#endif /* XB_LOCKING_ON */ - - DbfStatus = XB_OPEN; - return XB_NO_ERROR; -} -/************************************************************************/ -//! Get a record from the data file -/*! - This method attempts to retrieve the record specified by RecNo from the - data file into the record buffer. - - \param RecNo Record number to retrieve - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::GetRecord( xbULong RecNo ) -{ - xbShort rc; - if( DbfStatus == XB_CLOSED ) - return XB_NOT_OPEN; - -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// if(( rc = LockDatabase( XB_LOCK, RecNo )) != 0 ) return rc; - - rc = ReadHeader(1); - -// if(AutoLock) -// LockDatabase( XB_UNLOCK, RecNo ); - - if( rc ) - return rc; - -#endif - - if( RecNo > NoOfRecs || RecNo == 0L ) - return XB_INVALID_RECORD; - - if( _fseek( fp, (HeaderLen+(((xbOffT)RecNo-1L)*RecordLen)), SEEK_SET )){ -#ifdef XB_LOCKING_ON -// LockDatabase( XB_UNLOCK, RecNo ); -#endif - return XB_SEEK_ERROR; - } - - if( fread( RecBuf, RecordLen, 1, fp ) != 1 ){ -#ifdef XB_LOCKING_ON -// LockDatabase( XB_UNLOCK, RecNo ); -#endif - return XB_READ_ERROR; - } - -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// LockDatabase( XB_LOCK, RecNo ); -#endif - - DbfStatus = XB_OPEN; - CurRec = RecNo; - return XB_NO_ERROR; -} -/************************************************************************/ -//! Get the first physical record in the data file -/*! - Attempts to retrieve the first physical record from the data file into - the record buffer. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::GetFirstRecord() -{ - xbShort rc; - if( NoOfRecs == 0 ) - return XB_INVALID_RECORD; - - rc = GetRecord( 1L ); -#ifdef XB_REAL_DELETE - if(!rc && RealDelete && RecordDeleted()) - rc = GetNextRecord(); -#endif - - return rc; -} -/************************************************************************/ -//! Get the last phyiscal record in the data file -/*! - Attempts to retrieve the last physical record from the data file into - the record buffer. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_EOF</td><td>At end of file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_EOF & At end of file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::GetLastRecord() -{ - xbShort rc; - if( NoOfRecs == 0 ) - return XB_INVALID_RECORD; - - rc = GetRecord( NoOfRecs ); -#ifdef XB_REAL_DELETE - if(!rc && RealDelete && RecordDeleted()) - rc = GetPrevRecord(); -#endif - - return rc; -} -/************************************************************************/ -//! Get the next physical record in the data file -/*! - Attempts to retrieve the next physical record from the data file into - the record buffer. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_EOF</td><td>At end of file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_EOF & At end of file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::GetNextRecord() -{ - xbShort rc; - if( NoOfRecs == 0 ) - return XB_INVALID_RECORD; - else if( CurRec >= NoOfRecs ) - return XB_EOF; - - rc = GetRecord( ++CurRec ); - -#ifdef XB_REAL_DELETE - while(!rc && RealDelete && RecordDeleted()) - rc = GetRecord(++CurRec); -#endif - - return rc; -} -/************************************************************************/ -//! Get the previous physical record in the data file -/*! - Attempts to retrieve the previous physical record from the data file into - the record buffer. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_BOF</td><td>At beginning of file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_BOF & At beginning of file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::GetPrevRecord() -{ - xbShort rc; - if( NoOfRecs == 0 ) - return XB_INVALID_RECORD; - else if( CurRec <= 1L ) - return XB_EOF; - - rc = GetRecord( --CurRec ); - -#ifdef XB_REAL_DELETE - while(!rc && RealDelete && RecordDeleted()) - rc = GetRecord(--CurRec); -#endif - - return rc; -} -/************************************************************************/ -//! Dump record -/*! - Dump the contents of the specified record to stdout. - - \param RecNo Record number of record to be dumped. - \returns An error code (same as GetRecord()). -*/ -xbShort xbDbf::DumpRecord( xbULong RecNo ) -{ - int i, rc; - char buf[4096]; - - if( RecNo == 0 || RecNo > NoOfRecs ) - return XB_INVALID_RECORD; - - rc = GetRecord( RecNo ); - if( rc != XB_NO_ERROR ) - return rc; - - std::cout << "\nREC NUMBER " << RecNo << "\n"; - - if( RecordDeleted() ) - std::cout << "\nRecord deleted...\n"; - - for( i = 0; i < NoOfFields; i++ ){ -#ifdef XB_MEMO_FIELDS - if(SchemaPtr[i].Type == 'M'){ - if( MemoFieldExists( i )){ - std::cout << SchemaPtr[i].Type << " " << SchemaPtr[i].FieldName - << " len = " << GetMemoFieldLen( i ) << std::endl; - memset( buf, 0x00, 4095 ); - rc = GetMemoField(i, 4095, buf, 0); - if(rc != XB_NO_ERROR) - return rc; - } else { - buf[0] = 0x00; - } - } - else - GetField( i, buf ); - std::cout << SchemaPtr[i].Type << " " << SchemaPtr[i].FieldName << " = '" << buf << "'\n"; -#else - GetField( i, buf ); - std::cout << SchemaPtr[i].FieldName << " = '" << buf << "'\n"; -#endif - } - std::cout << std::endl; - return XB_NO_ERROR; -} -/************************************************************************/ -//! Write the current record buffer to the current record in the data file. -/*! - Attempts to write the contents of the record buffer to the current - record in the data file. Updates any open indexes. - - \sa PutRecord(xbULong RecNo) - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ - -/************************************************************************/ -xbShort xbDbf::PutRecord() { - return PutRecord(CurRec); -} - -//! Write the current record buffer to the specified record in the data file. -/*! - Attempts to write the contents of the record buffer to the record specified - by RecNo. Updates any open indexes. - - \param RecNo Record number to which data should be written - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Couldn't lock file</td></tr> - <tr><td>XB_NOT_OPEN</td><td>File is not open</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Error writing to file</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_LOCK\_FAILED & Couldn't lock file \\ \hline - XB\_NOT\_OPEN & File is not open \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_WRITE\_ERROR & Error writing to file \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::PutRecord(xbULong RecNo) -{ - xbShort rc; - -#if defined(XB_INDEX_ANY) - xbIxList *i; -#endif - - if( DbfStatus == XB_CLOSED ) - return XB_NOT_OPEN; - -/* lock the database */ -#ifdef XB_LOCKING_ON - if( AutoLock ){ -// if(( rc = LockDatabase( XB_LOCK, RecNo )) != XB_NO_ERROR ) -// return rc; -// if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR ){ -// LockDatabase( XB_UNLOCK, RecNo ); -// return rc; -// } - - if((rc = ReadHeader(1)) != XB_NO_ERROR){ -// if(AutoLock){ -// LockDatabase( XB_UNLOCK, RecNo ); -// LockDatabase( XB_UNLOCK, 0L ); -// } - return rc; - } - } -#endif - - if( RecNo > NoOfRecs || RecNo == 0L ) - return XB_INVALID_RECORD; - -/* lock the indexes */ -#if defined(XB_INDEX_ANY) -#ifdef XB_LOCKING_ON - i = NdxList; - while( i && AutoLock ){ -// if(( rc = i->index->LockIndex( XB_LOCK )) != XB_NO_ERROR ) -// return rc; - i = i->NextIx; - } -#endif /* XB_LOCKING_ON */ -#endif - -#if defined(XB_INDEX_ANY) - /* for any unique indexes that were updated, verify no unique keys exist */ - i = NdxList; - while( i ){ - if( i->index->UniqueIndex() ){ - if(( i->KeyUpdated = i->index->KeyWasChanged()) == 1 ){ - i->index->CreateKey(0, 0); - if( i->index->FindKey() == XB_FOUND && i->index->GetCurDbfRec() != RecNo) - return XB_KEY_NOT_UNIQUE; - } - } - i = i->NextIx; - } -#endif - -#if defined(XB_INDEX_ANY) - /* loop through deleting old index keys and adding new index keys */ - i = NdxList; - while( i ){ - if( !i->index->UniqueIndex() ) - i->KeyUpdated = i->index->KeyWasChanged(); - if( i->KeyUpdated ){ - i->index->CreateKey( 1, 0 ); /* load key buf w/ old values */ - if((rc = i->index->DeleteKey( CurRec )) != XB_NO_ERROR){ -#ifdef XB_LOCKING_ON -// if( AutoLock ){ -// LockDatabase( XB_UNLOCK, RecNo ); -// LockDatabase( XB_UNLOCK, 0L ); -// } -#if defined(XB_INDEX_ANY) - i = NdxList; - while( i && AutoLock ){ -// i->index->LockIndex( XB_UNLOCK ); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ -#endif /* XB_LOCKING_ON */ - return rc; - } - - i->index->CreateKey( 0, 0 ); - if(( rc = i->index->AddKey(CurRec)) != XB_NO_ERROR ){ -#ifdef XB_LOCKING_ON -// if( AutoLock ){ -// LockDatabase( XB_UNLOCK, RecNo ); -// LockDatabase( XB_UNLOCK, 0L ); -// } -#if defined(XB_INDEX_ANY) - i = NdxList; - while( i && AutoLock ){ -// i->index->LockIndex( XB_UNLOCK ); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ -#endif /* XB_LOCKING_ON */ - return rc; - } - i->index->TouchIndex(); - } - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ - - if( _fseek( fp, (HeaderLen+(((xbOffT)RecNo-1L)*RecordLen)),0 )) - return XB_SEEK_ERROR; - - if( fwrite( RecBuf, RecordLen, 1, fp ) != 1 ) - return XB_WRITE_ERROR; - - /* calculate the latest header information */ - xbDate d; - UpdateYY = d.YearOf() - 1900; - if(XFV == 3) - UpdateYY %= 100; // dBASE III seems to do this, IV does not. DTB - UpdateMM = d.MonthOf(); - UpdateDD = d.DayOf( XB_FMT_MONTH ); - - /* rewrite the header record */ - if(( rc = WriteHeader( 1 )) != XB_NO_ERROR ) - return rc; - -#ifdef XB_LOCKING_ON -// if( AutoLock ){ -// LockDatabase( XB_UNLOCK, RecNo ); -// LockDatabase( XB_UNLOCK, 0L ); -// } - -#if defined(XB_INDEX_ANY) - i = NdxList; - while( i && AutoLock ){ -// i->index->LockIndex( XB_UNLOCK ); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ -#endif /* XB_LOCKING_ON */ - - CurRec = RecNo; - DbfStatus = XB_OPEN; - return XB_NO_ERROR; -} -/************************************************************************/ -//! Delete the current record -/*! - Marks the current record as deleted or if "real" deletes are turned - on (xbDbf::RealDeleteOn()) will delete the record and add it to the - free record list. Normal dBase behavior is to simply mark the record - as deleted; the record will actually be deleted when the the DBF file - "packed" (xbDbf::PackDatabase()). If "real" deletes are not on, a - record may be undeleted using xbDbf::UndeleteRecord(). - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::DeleteRecord() -{ - xbULong newCurRec = 0; - xbShort rc = XB_NO_ERROR; - -#if defined(XB_INDEX_ANY) - xbIxList *i; -#endif - - if(!RecBuf) - return XB_INVALID_RECORD; - - if(CurRec < 1 || CurRec > NoOfRecs) - return XB_INVALID_RECORD; - -/* lock the database */ -#ifdef XB_LOCKING_ON - - if( AutoLock ){ -/* - if(( rc = LockDatabase( XB_LOCK, CurRec )) != XB_NO_ERROR ) - return rc; - if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR ){ - LockDatabase( XB_UNLOCK, CurRec ); - return rc; - } - */ - if((rc = ReadHeader(1)) != XB_NO_ERROR){ -// if(AutoLock){ -// LockDatabase( XB_UNLOCK, CurRec ); -// LockDatabase( XB_UNLOCK, 0L ); -// } - return rc; - } - } -#endif - -/* lock the indexes */ -#if defined(XB_INDEX_ANY) && defined(XB_LOCKING_ON) && defined(XB_REAL_DELETE) - i = NdxList; - while( i && AutoLock ){ -// if(( rc = i->index->LockIndex( XB_LOCK )) != XB_NO_ERROR ) -// return rc; - i = i->NextIx; - } -#endif - -/* remove keys from indexes */ -#if defined(XB_REAL_DELETE) && defined(XB_INDEX_ANY) - - if(RealDelete){ - i = NdxList; - while(i){ - i->index->CreateKey(0, 0); /* load key buf */ - if(i->index->GetCurDbfRec() == (xbULong)CurRec){ - i->index->DeleteKey(CurRec); - newCurRec = i->index->GetCurDbfRec(); - } - else - i->index->DeleteKey(CurRec); - i->index->TouchIndex(); - i = i->NextIx; - } - } - -#endif - - RecBuf[0] = 0x2a; - - -#ifdef XB_REAL_DELETE - if(RealDelete){ -#ifdef XB_MEMO_FIELDS - // - // Delete memo data for memo fields. - // - for(int f = 0; f < NoOfFields; f++ ) - if(GetFieldType(f) == 'M' && MemoFieldExists(f)) - UpdateMemoData(f, 0, 0, XB_LOCK); -#endif - xbase->PutULong(&RecBuf[1], FirstFreeRec); - FirstFreeRec = CurRec; - RealNumRecs--; - WriteHeader(1); - } -#endif - - if(!RealDelete){ - if( DbfStatus != XB_UPDATED ){ - DbfStatus = XB_UPDATED; - memcpy( RecBuf2, RecBuf, RecordLen ); - } - rc = PutRecord( CurRec ); - } - else - { - if(_fseek( fp, (HeaderLen+(((xbOffT)CurRec-1L)*RecordLen)), 0)) - return XB_SEEK_ERROR; - if(fwrite( RecBuf, RecordLen, 1, fp ) != 1 ) - return XB_WRITE_ERROR; - - // - // Attempt to read in the record for the current location - // in the active index. - // - CurRec = newCurRec; - if(CurRec) - rc = GetRecord(CurRec); - else - BlankRecord(); - } - -#ifdef XB_LOCKING_ON -// if(AutoLock){ -// LockDatabase( XB_UNLOCK, CurRec ); -// LockDatabase( XB_UNLOCK, 0L ); -// } - -#if defined(XB_INDEX_ANY) && defined(XB_REAL_DELETE) - i = NdxList; - while( i && AutoLock ){ -// i->index->LockIndex( XB_UNLOCK ); - i = i->NextIx; - } -#endif /* XB_INDEX_ANY */ -#endif /* XB_LOCKING_ON */ - - return rc; -} -/************************************************************************/ -//! Undelete the current record -/*! - Marks the currect record as not deleted (i.e. removes the flag indicating - the record is deleted). This method may not be used (and will return - an error code) if "real" deletes are on. - - \returns One of the following: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_INVALID_RECORD</td><td>Invalid record number</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No error \\ \hline - XB\_INVALID\_RECORD & Invalid record number \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::UndeleteRecord() -{ - xbShort rc; - -#ifdef XB_REAL_DELETE - if(RealDelete) - return XB_INVALID_RECORD; -#endif - if( RecBuf ){ - if( DbfStatus != XB_UPDATED ){ - DbfStatus = XB_UPDATED; - memcpy( RecBuf2, RecBuf, RecordLen ); - } - - RecBuf[0] = 0x20; - if(( rc = PutRecord( CurRec )) != 0 ) - return rc; - } - else - return XB_INVALID_RECORD; - - return 0; -} -/************************************************************************/ -//! Determine if current record is deleted -/*! - \returns TRUE (1) if the current record is marked as deleted or FALSE - (0) if not. -*/ -xbShort xbDbf::RecordDeleted() -{ - if( RecBuf && RecBuf[0] == 0x2a ) - return 1; - else - return 0; -} -/************************************************************************/ -//! Create a unique file name -/*! -*/ -xbShort xbDbf::CreateUniqueDbfName( xbString & sDbfn, xbString & sDbtn ) -{ - xbShort dnf; /* directory in name flag */ - xbShort unique = 0; - xbLong l = 1; - char dbfn[13]; - char dbtn[13]; - - dnf = xbase->DirectoryExistsInName( GetFileName() ); - sprintf( dbfn, "xb%06d.dbf", l ); - sprintf( dbtn, "xb%06d.dbt", l++ ); - - if( dnf ){ - sDbfn.assign( GetFileName(), 0, dnf ); - sDbfn += dbfn; - sDbtn.assign( GetFileName(), 0, dnf ); - sDbtn += dbtn; - } else { - sDbfn = dbfn; - sDbtn = dbtn; - } - - while( !unique ){ - if( access( sDbfn.getData(), 0 ) == -1 && - access( sDbtn.getData(), 0 ) == -1 ) - unique++; - else{ - sprintf( dbfn, "xb%06d.dbf", l ); - sprintf( dbtn, "xb%06d.dbt", l++ ); - - if( dnf ){ - sDbfn.assign( GetFileName(), 0, dnf ); - sDbfn += dbfn; - sDbtn.assign( GetFileName(), 0, dnf ); - sDbtn += dbtn; - } else { - sDbfn = dbfn; - sDbtn = dbtn; - } - } - } - return 0; -} - -/************************************************************************/ -//! Pack data file -/*! -*/ -xbShort xbDbf::PackDatafiles(void (*statusFunc)(xbLong itemNum, xbLong numItems)) -{ - xbShort rc, i; - FILE *t; - xbLong l; - char *target, *source; - xbString TempDbfName; - xbString TempDbtName; - char * Buf = 0; - -#ifdef XB_MEMO_FIELDS - char tbuf[4]; -#endif - -#ifdef XB_MEMO_FIELDS - xbLong len, BufSize; - xbShort MemoFields; -#endif /* XB_MEMO_FIELDS */ - - xbDbf Temp( xbase ); - CreateUniqueDbfName( TempDbfName, TempDbtName ); - - if(( t = fopen( TempDbfName, "w+b" )) == NULL ) - return XB_OPEN_ERROR; - - /* copy file header */ - if(( rc = _fseek( fp, 0, SEEK_SET )) != 0 ) - return XB_SEEK_ERROR; - - for( i = 0; i < HeaderLen; i++ ) - fputc( fgetc( fp ), t ); - fputc( 0x1a, t ); - - if( fclose( t ) != 0 ) - return XB_CLOSE_ERROR; - -#ifdef XB_MEMO_FIELDS - if(( MemoFields = MemoFieldsPresent()) > 0 ){ - - if((t = fopen( TempDbtName, "w+b" )) == NULL) - return XB_OPEN_ERROR; - - l = 1L; - memset( tbuf, 0x00, 4 ); - xbase->PutLong( tbuf, l ); - - if((fwrite(&tbuf, 4, 1, t)) != 1) - return XB_WRITE_ERROR; - - if( MemoHeader.Version == 0x03 ){ - for( i = 0; i < 12; i++ ) fputc( 0x00, t ); - fputc( 0x03, t ); - for( i = 0; i < 495; i++ ) fputc( 0x00, t ); - } else { - for( i = 0; i < 4; i++ ) fputc( 0x00, t ); - if ((fwrite(&MemoHeader.FileName, 8, 1, t)) != 1) - return XB_WRITE_ERROR; - for( i = 0; i < 4; i++ ) fputc( 0x00, t ); - memset( tbuf, 0x00, 2 ); - xbase->PutShort( tbuf, MemoHeader.BlockSize ); - if ((fwrite(&tbuf, 2, 1, t)) != 1) - return XB_WRITE_ERROR; - - for( i = 22; i < MemoHeader.BlockSize; i++ ) fputc( 0x00, t ); - } - - if( fclose( t ) != 0 ) - return XB_CLOSE_ERROR; - } -#endif /* XB_MEMO_FIELDS */ - - /* reopen as database */ - if(( rc = Temp.OpenDatabase( TempDbfName )) != XB_NO_ERROR ) - return rc; - -#ifdef XB_REAL_DELETE - if(RealDelete) - Temp.RealDeleteOn(); - Temp.FirstFreeRec = 0; - Temp.RealNumRecs = 0; -#endif - Temp.ResetNoOfRecs(); - Temp.WriteHeader(2); // flush NoOfRecs=0 to disk - target = Temp.GetRecordBuf(); - source = GetRecordBuf(); - - for( l = 1; l <= PhysicalNoOfRecords(); l++ ){ - if(statusFunc && (l == 1 || !(l % 100) || l == PhysicalNoOfRecords())) - statusFunc(l, PhysicalNoOfRecords()); - - if(( rc = GetRecord( l )) != XB_NO_ERROR ) - return rc; - - if( !RecordDeleted() ){ - memcpy( target, source, GetRecordLen()); - -#ifdef XB_MEMO_FIELDS - BufSize = 0L; -// Buf = NULL; Already set to 0, this statement flags as memory leak - - for( i = 0; i < NoOfFields; i++ ){ - if( GetFieldType( i ) == 'M' && MemoFieldExists( i )){ - Temp.PutLongField(i, 0L); - len = GetMemoFieldLen( i ); - if( len > BufSize ){ - if( Buf ) - free( Buf ); - if((Buf = (char *)malloc(len)) == NULL) - return XB_NO_MEMORY; - BufSize = len; - } - GetMemoField( i, len, Buf, -1 ); - Temp.UpdateMemoData( i, len, Buf, -1 ); - } - } -#endif - if(( rc = Temp.AppendRecord()) != XB_NO_ERROR ){ - if(Buf) free(Buf); - return rc; - } - } - } - if( Buf ) free( Buf ); - Temp.CloseDatabase(); - - if(fclose(fp) != 0) - return XB_CLOSE_ERROR; - - if(remove(GetFileName()) != 0) - return XB_WRITE_ERROR; - - if(rename(TempDbfName, GetFileName()) != 0) - return XB_WRITE_ERROR; - -#ifdef XB_MEMO_FIELDS - if( MemoFields ){ - if(fclose(mfp) != 0) - return XB_CLOSE_ERROR; - - if(remove(MemofileName) != 0) - return XB_WRITE_ERROR; - if( rename( TempDbtName, MemofileName ) != 0 ) - return XB_WRITE_ERROR; - if(( mfp = fopen( MemofileName, "r+b" )) == NULL ) - return XB_OPEN_ERROR; - if(( rc = GetDbtHeader(1)) != 0 ){ - fclose( mfp ); - return rc; - } -#ifdef XB_LOCKING_ON - /* no buffering in multi user mode */ - setbuf( mfp, NULL ); -#endif - } - -#endif /* XB_MEMO_FIELDS */ - - if(( fp = fopen( GetFileName(), "r+b" )) == NULL ) - return XB_OPEN_ERROR; - -#ifdef XB_LOCKING_ON - /* no buffering in multi user mode */ - setbuf( fp, NULL ); -#endif - - return XB_NO_ERROR; -} -/************************************************************************/ -//! Pack the database -/*! - This method removes all records marked for deletion from an Xbase (.DBF) - file, reindexes any open index files, and also reorganizes any memo fields - stored in a .DBT memo file. - - \param packStatusFunc status function - \param indexStatusFunc index status function - - \param LockWaitOption One of the following: - \htmlonly - <p> - <table border=2><tr><th>LockWaitOption</th><th>Description</th></tr> - <tr><td>F_SETLK</td><td>Return immediately if the DBF file cannot be locked</td></tr> - <tr><td>XB_LOCK</td><td>Wait for lock on DBF file to succeed</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{LockWaitOption} & \textbf{Description} \\ \hline \hline - F\_SETLK & Return immediately if DBF file cannot be locked \\ \hline - F\_SETLKW & Wait for lock on DBF file to succeed \\ \hline - \end{tabular} - \endlatexonly - - \returns One of the following return codes: - \htmlonly - <p> - <table border=2><tr><th>Return Code</th><th>Description</th></tr> - <tr><td>XB_NO_ERROR</td><td>No error</td></tr> - <tr><td>XB_CLOSE_ERROR</td><td>Unable to close intermediate work file</td></tr> - <tr><td>XB_OPEN_ERROR</td><td>Could not open file</td></tr> - <tr><td>XB_NO_MEMORY</td><td>Memory allocation error</td></tr> - <tr><td>XB_WRITE_ERROR</td><td>Couldn't write to disk</td></tr> - <tr><td>XB_SEEK_ERROR</td><td>Error seeking file</td></tr> - <tr><td>XB_LOCK_FAILED</td><td>Unable to lock file or index</td></tr> - </table> - \endhtmlonly - \latexonly - \\ - \\ - \begin{tabular}{|l|l|} \hline - \textbf{Return Code} & \textbf{Description} \\ \hline \hline - XB\_NO\_ERROR & No Error \\ \hline - XB\_CLOSE\_ERROR & Unable to close intermediate work file \\ \hline - XB\_OPEN\_ERROR & Couldn't open the file \\ \hline - XB\_NO\_MEMORY & Memory allocation error \\ \hline - XB\_WRITE\_ERROR & Couldn't write to disk \\ \hline - XB\_SEEK\_ERROR & Error seeking file \\ \hline - XB\_LOCK\_FAILED & Unable to lock file or index \\ \hline - \end{tabular} - \endlatexonly -*/ -xbShort xbDbf::PackDatabase(xbShort LockWaitOption, - void (*packStatusFunc)(xbLong itemNum, xbLong numItems), - void (*indexStatusFunc)(xbLong itemNum, xbLong numItems)) -{ - xbShort rc; - - /* lock all open files and indexes */ -// if(( rc = ExclusiveLock( LockWaitOption )) != XB_NO_ERROR ) return rc; - - if(( rc = PackDatafiles(packStatusFunc)) != XB_NO_ERROR ){ -// ExclusiveUnlock(); - return rc; - } - - /* refresh file header */ - if(( rc = ReadHeader(1)) != XB_NO_ERROR ) - return rc; - - if(( rc = RebuildAllIndices(indexStatusFunc)) != XB_NO_ERROR ) - return rc; - -// ExclusiveUnlock(); - return XB_NO_ERROR; -} -/************************************************************************/ -//! Copy DBF structure -/*! -*/ -xbShort xbDbf::CopyDbfStructure(const char *NewFileName, xbShort Overlay) { - - xbShort rc, i; - xbString ndfn; /* new dbf file name */ - char ch; - -#ifdef XB_MEMO_FIELDS - char buf[9]; - xbShort ct, NameLen; - xbString MemoName; -#endif - FILE *t; - - /* build the new file name */ - rc = NameSuffixMissing( 1, NewFileName ); - ndfn = NewFileName; - if( rc == 1 ) - ndfn += ".dbf"; - else if( rc == 2 ) - ndfn += ".DBF"; - - /* check if the file exists and Overlay is on */ - if(((t = fopen( ndfn, "r" )) != NULL ) && !Overlay) { - fclose(t); - return XB_FILE_EXISTS; - } - - /* open new file */ - if((t = fopen(ndfn, "w+b")) == NULL) - return XB_OPEN_ERROR; - - /* copy the file header */ - if(( rc = _fseek( fp, 0, SEEK_SET )) != 0 ) - return XB_SEEK_ERROR; - - fputc( fgetc( fp ), t ); - - /* do the date */ - xbDate d; - ch = d.YearOf() - 1900; - if(XFV == 3) - ch %= 100; // dBASE III+ does this, dBASE IV does not. - fputc( ch, t ); - ch = d.MonthOf(); - fputc( ch, t ); - ch = d.DayOf( XB_FMT_MONTH ); - fputc( ch, t ); - - /* record count */ - for( i = 0; i < 4; i++ ) fputc( 0x00, t ); - - if((rc = _fseek(fp, 7, SEEK_CUR)) != 0) { - fclose( t ); - return XB_SEEK_ERROR; - } - for( i = 0; i < 4; i++ ) - fputc( fgetc( fp ), t ); - - for( i = 0; i < 17; i++ ) - fputc( 0x00, t ); - - if((rc = _fseek( fp, 17, SEEK_CUR )) != 0) { - fclose( t ); - return XB_SEEK_ERROR; - } - - for( i = 29; i < HeaderLen; i++ ) - fputc( fgetc( fp ), t ); - - fputc( 0x1a, t ); - fclose( t ); - -#ifdef XB_MEMO_FIELDS - if( MemoFieldsPresent()){ - MemoName = ndfn; - - NameLen = MemoName.len(); - NameLen--; - if( MemoName.getCharacter( NameLen ) == 'F' ) - MemoName.putAt(NameLen, 'T'); - else - MemoName.putAt(NameLen, 't'); - - if(( t = fopen( MemoName, "w+b" )) == NULL ) - return XB_OPEN_ERROR; - - memset( buf, 0x00, 4 ); - xbase->PutLong( buf, 1L ); - if(( fwrite( &buf, 4, 1, t )) != 1 ){ - fclose( t ); - return XB_WRITE_ERROR; - } - if( MemoHeader.Version == 0x03 ){ - for( i = 0; i < 12; i++ ) fputc( 0x00, t ); - fputc( 0x03, t ); - for( i = 0; i < 495; i++ ) fputc( 0x00, t ); - } - else - { - for( i = 0; i < 4; i++ ) fputc( 0x00, t ); // put 4 bytes 0x00 - memset( buf, 0x00, 9 ); - NameLen = ndfn.len(); - for( i = 0, ct = 0; i < NameLen; i++ ) - if( ndfn.getCharacter( i ) == PATH_SEPARATOR ){ - ct = i; - ct++; - } - - for( i = 0; i < 8 && ndfn[i+ct] != '.'; i++ ) - buf[i] = ndfn[i+ct]; - - fwrite( &buf, 8, 1, t ); - for( i = 0; i < 4; i++ ) fputc( 0x00, t ); - memset( buf, 0x00, 2 ); - xbase->PutShort( buf, MemoHeader.BlockSize ); - if(( fwrite( &buf, 2, 1, t )) != 1 ){ - fclose(t); - return XB_WRITE_ERROR; - } - for( i = 22; i < MemoHeader.BlockSize; i++ ) fputc( 0x00, t ); - } - } - fclose( t ); -#endif // XB_MEMO_FIELDS - return XB_NO_ERROR; -} -/************************************************************************/ -//! Add index to list -/*! - Adds the specified index to the list of indexes maintained by the - dbf. - - \param n index to add - \param IndexName name of index -*/ -#if defined(XB_INDEX_ANY) -xbShort xbDbf::AddIndexToIxList(xbIndex * n, const char *IndexName) -{ - xbIxList *i, *s, *t; - - if( !FreeIxList ){ - if((i = (xbIxList *) malloc(sizeof(xbIxList))) == NULL) - return XB_NO_MEMORY; - } - else - { - i = FreeIxList; - FreeIxList = i->NextIx; - } - memset(i, 0x00, sizeof(xbIxList)); - - i->IxName = IndexName; - i->index = n; - - s = NULL; - t = NdxList; - while( t && strcmp( t->IxName, IndexName ) < 0 ){ - s = t; - t = t->NextIx; - } - i->NextIx = t; - if( s == NULL ) - NdxList = i; - else - s->NextIx = i; - return 0; -} -#endif -/************************************************************************/ -//! Rebuild all index files -/*! -*/ -xbShort xbDbf::RebuildAllIndices(void (*statusFunc)(xbLong itemNum, xbLong numItems)) -{ -#if defined(XB_INDEX_ANY) - xbShort rc; - xbIxList *n; - - n = NdxList; - while( n ){ - if(( rc = n->index->ReIndex(statusFunc)) != XB_NO_ERROR ){ -// ExclusiveUnlock(); - return rc; - } - n = n->NextIx; - } -#endif - return XB_NO_ERROR; -} -/************************************************************************/ -//! Delete all records -/*! -*/ -xbShort xbDbf::DeleteAll( xbShort Option ) -{ - xbShort rc; - - if(( NoOfRecords()) == 0 ) - return XB_NO_ERROR; - if(( rc = GetFirstRecord()) != XB_NO_ERROR ) - return rc; - - if( Option == 0 ){ /* delete all option */ - while( 1 ){ - if( !RecordDeleted()) - if(( rc = DeleteRecord()) != XB_NO_ERROR ) - return rc; - if(( rc = GetNextRecord()) != XB_NO_ERROR ) - break; - } - } - else /* undelete all option */ - { - while( 1 ){ - if( RecordDeleted()) - if(( rc = UndeleteRecord()) != XB_NO_ERROR ) - return rc; - if(( rc = GetNextRecord()) != XB_NO_ERROR ) - break; - } - } - if( rc == XB_EOF ) - return XB_NO_ERROR; - else - return rc; -} -/************************************************************************/ -//! Delete all records and pack data file -/*! -*/ -xbShort xbDbf::Zap( xbShort WaitOption ) -{ - xbShort rc; - xbString TempDbfName, TempDbtName; - - CreateUniqueDbfName( TempDbfName, TempDbtName ); - if(( rc = CopyDbfStructure( TempDbfName, 1 )) != XB_NO_ERROR) { - return rc; - } - - if( fp ){ - fclose( fp ); - fp = 0; - } - - if(( rc = remove( GetFileName() )) != 0 ) - return XB_WRITE_ERROR; - - if(( rc = rename( TempDbfName, GetFileName() )) != 0 ) - return XB_WRITE_ERROR; - - if((fp = fopen( GetFileName(), "r+b" )) == NULL) - return XB_OPEN_ERROR; - -#ifdef XB_LOCKING_ON - setbuf( fp, NULL ); -#endif - ReadHeader( 1 ); - -#ifdef XB_MEMO_FIELDS - if( MemoFieldsPresent() ){ - fclose( mfp ); - - if(( rc = remove( MemofileName )) != 0 ) - return XB_WRITE_ERROR; - - if(( rc = rename( TempDbtName, MemofileName )) != 0 ) - return XB_WRITE_ERROR; - - if(( mfp = fopen( MemofileName, "r+b" )) == NULL) - return XB_OPEN_ERROR; - - } -#endif // XB_MEMO_FIELDS - - if(( rc = RebuildAllIndices()) != XB_NO_ERROR ) - return rc; - - return XB_NO_ERROR; -} -/************************************************************************/ -//! Remove an index from the list -/*! -*/ -#if defined(XB_INDEX_ANY) -xbShort xbDbf::RemoveIndexFromIxList(xbIndex * n) { - xbIxList *i, *s; - - i = NdxList; - s = NULL; - while( i ){ - if( i->index == n ){ - /* remove it from current chain */ - if( s ) - s->NextIx = i->NextIx; - else - NdxList = i->NextIx; - - /* add i to the current free chain */ - i->NextIx = FreeIxList; - FreeIxList = i; - FreeIxList->IxName = (const char *)NULL; - FreeIxList->index = NULL; - break; - } - else - { - s = i; - i = i->NextIx; - } - } - return XB_NO_ERROR; -} -#endif - -/************************************************************************/ -//! Gets the number of records in the data file -/*! -*/ -xbLong xbDbf::NoOfRecords() -{ - xbLong numRecs; - -/* lock the database */ -#ifdef XB_LOCKING_ON - xbShort rc; - - if( AutoLock ){ -// if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR ) -// return rc; - - if((rc = ReadHeader(1)) != XB_NO_ERROR){ -// if(AutoLock) -// LockDatabase( XB_UNLOCK, 0L ); - return rc; - } - } -#endif - -#ifndef XB_REAL_DELETE - numRecs = NoOfRecs; -#else - numRecs = RealDelete ? RealNumRecs : NoOfRecs; -#endif - -#ifdef XB_LOCKING_ON -// if(AutoLock) -// LockDatabase( XB_UNLOCK, 0L ); -#endif - - return numRecs; -} -/************************************************************************/ -//! Get the physical number of records in the data file -/*! -*/ -xbLong xbDbf::PhysicalNoOfRecords() -{ - xbShort rc; - -/* lock the database */ -#ifdef XB_LOCKING_ON -// if( AutoLock ) -// if(( rc = LockDatabase( XB_LOCK, 0L )) != XB_NO_ERROR ) -// return rc; -#endif - - rc = ReadHeader(1); - -#ifdef XB_LOCKING_ON -// if(AutoLock) -// if(( rc = LockDatabase( XB_UNLOCK, 0L )) != XB_NO_ERROR ) -// return rc; -#endif - - if( rc ) - return rc; - - return NoOfRecs; -} - -/************************************************************************/ -#if defined(XB_INDEX_ANY) -//! Get the number of currently open indexes for data file -/*! -*/ -xbShort xbDbf::IndexCount() -{ - xbShort count; - xbIxList *i; - - for(count = 0, i = NdxList; i; i = i->NextIx, count++) ; - - return count; -} -/************************************************************************/ -//! Get a specific index -/*! -*/ -xbIndex * xbDbf::GetIndex(xbShort indexNum) -{ - xbIxList *i; - - i = NdxList; - while(indexNum && i){ - indexNum--; - i = i->NextIx; - } - - if(i) - return i->index; - - return 0; -} - -#endif // XB_INDEX_ANY -/************************************************************************/ -void xbDbf::Flush() -{ - if(fp) - fflush(fp); - -#ifdef XB_MEMO_FIELDS - if(mfp) - fflush(mfp); -#endif - -#if defined(XB_INDEX_ANY) - xbIxList - *i; - - i = NdxList; - while(i) { - i->index->Flush(); - i = i->NextIx; - } -#endif -} -/************************************************************************/ -#ifdef XB_LOCKING_ON -xbShort xbDbf::SetLockMode( xbShort nlm ) -{ -/* - xbShort rc; - if( LockMode != XB_XBASE_LOCK_MODE && - nlm == XB_XBASE_LOCK_MODE && - !xblfh ){ - rc = OpenXbLockFile(); - if( rc ) - return rc; - } -*/ - LockMode = nlm; - return XB_NO_ERROR; -} -#endif -/************************************************************************/ -const char * xbDbf::GetExtWithDot( bool lower ) -{ - return lower ? ".dbf" : ".DBF"; -} |