Imported Upstream version 3.1.2upstream/3.1.2

1 files changed, 1347 insertions, 0 deletions

diff --git a/bin/dbfutil1.cpp b/bin/dbfutil1.cpp
new file mode 100755
index 0000000..0b74d41
--- /dev/null
+++ b/bin/dbfutil1.cpp
@@ -0,0 +1,1347 @@
+/*
+    dbf utility program
+
+    This is a generic XBase menu program for executing XBase64 functions
+    on a single dbf database table.
+
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU 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 General Public License for more details.
+
+    You should have received a copy of the GNU 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:
+    
+      xbase64-devel@lists.sourceforge.net
+      xbase64-users@lists.sourceforge.net
+      
+      
+     Regular Mail:
+     
+       XBase Support
+       149C South Main St
+       Keller Texas, 76248     
+       USA
+
+*/
+
+#include <xbase64/xbase64.h>
+
+// next lines are helpful for debugging purposes
+/*
+#include <xbase64/xbdbf.cpp>
+#include <xbase64/xbexp.cpp>
+#include <xbase64/xbexpprc.cpp>
+#include <xbase64/xbexpfnc.cpp>
+#include <xbase64/xbfields.cpp>
+#include <xbase64/xbindex.cpp>
+#include <xbase64/xbmemo.cpp>
+#include <xbase64/xbndx.cpp>
+#include <xbase64/xbntx.cpp>
+#include <xbase64/xbase64.cpp>
+#include <xbase64/xbdate.cpp>
+#include <xbase64/xbfilter.cpp>
+#include <xbase64/xblock.cpp>
+#include <xbase64/xbstring.cpp>
+#include <xbase64/xbfile.cpp>
+#include <xbase64/xbcdx.cpp>
+*/
+
+xbXBase x;
+xbDbf d( &x );
+xbIndex *ix;
+
+#ifdef XB_FILTERS
+xbFilter *xbf;
+#endif
+
+
+class MyClass {
+  public:
+    MyClass() {};
+    void OpenFile();
+    void CloseFile();
+    void ConvertDatabase();
+    void ReindexDatabase();
+    void PackDatabase();
+    void ZapDatabase();
+    void DeleteMemoField();
+    void UpdateMemoField();
+    void ShowFieldInfo( int );
+    void ShowFieldData();
+    void UpdateFieldData();
+    void PutRecord();
+    void GetRecord();
+    void DumpDbtHeader();
+    void BlankRecord();
+    void FindMemoBlocks();
+    void GetMemoBlocks();
+    void FileStats();
+    void MainMenu();
+    void FileMenu();
+    void RecordMenu();
+    void FieldMenu();
+    void IndexMenu();
+    void LockingMenu();
+    void DebugMenu();    
+    void OpenIndex();
+    void CloseIndex();
+    void FindKey();
+    void GetFirstKey();
+    void GetLastKey();
+    void GetNextKey();
+    void GetPrevKey();
+    void DumpIndexNodes();
+    void ShowLockInfo();
+    void SetRetryCount(); 
+    void SetDefaultLockMode();
+    void SetTableLockMode();
+    void LockDbf();
+    void UnlockDbf();
+    void LockRecord();
+    void UnlockRecord();
+    void LockMemoFile( xbShort );
+    void LockIndexFile( xbShort );
+    void CreateNewIndex();
+    void ProcessExpression();    
+    void FilterMenu();
+    void SetFilter();
+    void FirstFilterRec();
+    void NextFilterRec();
+    void PrevFilterRec();
+    void LastFilterRec();
+};
+/************************************************************************/
+#ifdef XB_FILTERS
+void MyClass::FilterMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+    std::cout << std::endl << std::endl
+              << "Filter Menu"     << std::endl;
+    std::cout << "1  - Set Filter Expression"      << std::endl;
+    std::cout << "2  - Get First Filter Record"    << std::endl;
+    std::cout << "3  - Get Next Filter Record"     << std::endl;
+    std::cout << "4  - Get Previous Filter Record" << std::endl;
+    std::cout << "5  - Get Last Filter Record"     << std::endl;
+    std::cout << "99 - Exit Menu"                  << std::endl;
+    std::cin >> option;
+    switch( option ){
+      case 1:  SetFilter();      break;
+      case 2:  FirstFilterRec(); break;
+      case 3:  NextFilterRec();  break;
+      case 4:  PrevFilterRec();  break;
+      case 5:  LastFilterRec();  break;
+      case 99: break;
+      default: std::cout << "Invalid option" << std::endl; break;
+    }
+  }
+}
+/************************************************************************/
+void  MyClass::SetFilter()
+{
+  char Expression[512];
+  memset( Expression, 0x00, 512 );
+  while( !strlen( Expression )){
+    std::cout << "Enter filter expression (like AMOUNT<5)" << std::endl;
+    gets( Expression );
+  }
+  if( xbf )
+    delete xbf;
+
+  xbf = new xbFilter( &d, 0, Expression );
+
+  if( xbf->GetStatus() )
+    x.DisplayError( xbf->GetStatus());
+  else
+    std::cout << "Filter initialized" << std::endl;
+}
+/************************************************************************/
+void  MyClass::FirstFilterRec()
+{
+  xbShort rc;
+  if( !xbf )
+    SetFilter();
+  rc = xbf->GetFirstFilterRec();
+  if( rc ){
+    x.DisplayError( rc );
+    return;
+  }
+  std::cout << "Record: " << d.GetCurRecNo() << std::endl;
+  for( int i = 0; i < d.FieldCount() && i < 3; i++ )
+    printf( "%-10s = %s\n", d.GetFieldName(i), d.GetStringField(i));
+
+}
+/************************************************************************/
+void  MyClass::NextFilterRec()
+{
+  xbShort rc;
+  if( !xbf )
+    SetFilter();
+  rc = xbf->GetNextFilterRec();
+  if( rc ){
+    x.DisplayError( rc );
+    return;
+  }
+  std::cout << "Record: " << d.GetCurRecNo() << std::endl;
+  for( int i = 0; i < d.FieldCount() && i < 3; i++ )
+    printf( "%-10s = %s\n", d.GetFieldName(i), d.GetStringField(i));
+}
+/************************************************************************/
+void  MyClass::PrevFilterRec()
+{
+  xbShort rc;
+  if( !xbf )
+    SetFilter();
+  rc = xbf->GetPrevFilterRec();
+  if( rc ){
+    x.DisplayError( rc );
+    return;
+  }
+  std::cout << "Record: " << d.GetCurRecNo() << std::endl;
+  for( int i = 0; i < d.FieldCount() && i < 3; i++ )
+    printf( "%-10s = %s\n", d.GetFieldName(i), d.GetStringField(i));
+}
+/************************************************************************/
+void  MyClass::LastFilterRec()
+{
+  xbShort rc;
+  if( !xbf )
+    SetFilter();
+  rc = xbf->GetLastFilterRec();
+  if( rc ){
+    x.DisplayError( rc );
+    return;
+  }
+  std::cout << "Record: " << d.GetCurRecNo() << std::endl;
+  for( int i = 0; i < d.FieldCount() && i < 3; i++ )
+    printf( "%-10s = %s\n", d.GetFieldName(i), d.GetStringField(i));
+}
+#endif // XB_FILTERS
+/************************************************************************/
+#ifdef XB_EXPRESSIONS
+void MyClass::ProcessExpression()
+{
+  char exprsn[256];
+  char type;
+  xbExpn *exp;            // expression
+  xbShort rc; 
+  int debug = 0;
+  memset( exprsn, 0x00, 256 );
+
+  std::cout << "Enter expression string or HELP" << std::endl;
+
+  while( !strstr( exprsn, "QUIT" ) && !strstr( exprsn, "quit" )){
+
+    std::cout << ">";
+    gets( exprsn );
+
+    if( strstr( exprsn, "HELP" ) || strstr( exprsn, "help" )){
+      std::cout << "** Command Help ***"    << std::endl << std::endl;
+      std::cout << "HELP  - This help screen"            << std::endl;
+      std::cout << "QUIT  - Exit the function"           << std::endl;
+      #ifdef XBASE_DEBUG
+      std::cout << "DEBUG - Toggle debug mode on/off"    << std::endl;
+      #endif
+      std::cout << "\nExamples expressions:"             << std::endl;
+      std::cout << "  5+5  or 5-2/7  or FUNC(op1,op2)"   << std::endl;
+      std::cout << "\nRecognized functions:"             << std::endl;
+      xbString s;
+      xbShort i = 0;
+      exp = new xbExpn( &x );
+      s = exp->GetValidFuncName( i++ );
+      while( s.len() ){
+        std::cout << s << "\t";
+        s = exp->GetValidFuncName( i++ );
+      }
+        
+      delete exp;
+      std::cout << "\n\nSee documentation for more expression info"
+                << std::endl << std::endl;
+    }
+
+    else if( strstr( exprsn, "DEBUG" ) || strstr( exprsn, "debug" )){
+      if( debug ){
+        std::cout << "Debug mode toggled off"          << std::endl;
+        debug = 0;
+      } else {
+        std::cout << "Debug mode toggled on"           << std::endl;
+        debug = 1;
+      }
+    }
+
+    else if( !strstr( exprsn, "QUIT" ) && !strstr( exprsn, "quit" ))
+    {
+      exp = new xbExpn( &x );
+      if(( rc = exp->ParseExpression( exprsn, &d )) != 0 ){
+        std::cout << "Error while parsing" << std::endl;
+        x.DisplayError( rc );
+      }
+
+      else {
+        if( debug ){
+          exp->DumpExpressionTree( 1 );
+          std::cout << "Expression tree dumped to file xbase64.log" << std::endl;
+        }
+ 
+         if(( rc = exp->ProcessExpression()) != 0 ){
+          std::cout << "Error in processing " << std::endl;
+          x.DisplayError( rc );
+        } else {
+
+          type = exp->GetExpressionResultType();
+ 
+          std::cout << "Result Type = [" << type << "]" << std::endl;
+          std::cout << "Result Data = [";
+          switch( type ){
+           case 'C':
+           case 'D':
+            std::cout << exp->GetStringResult() << "]" << std::endl;
+            break;
+           case 'N':
+            std::cout << exp->GetDoubleResult() << "]" << std::endl;
+            break;
+           case 'L':
+            std::cout << exp->GetIntResult()    << "]" << std::endl;
+            break;
+           default:
+            std::cout << "Unknown result type]"     << std::endl;
+            break;
+          }
+        }
+        delete exp;
+      }
+    }
+  } 
+}
+#endif // XB_EXPRESSIONS
+/************************************************************************/
+#ifdef XBASE_DEBUG
+void MyClass::DumpIndexNodes()
+{
+  xbLong NodeCnt = ix->GetTotalNodes();
+  std::cout << "For NDX indices, output placed in xbase.log" << std::endl;
+  std::cout << "total nodes = " << NodeCnt << std::endl;
+  ix->DumpHdrNode( 1 );
+  if( NodeCnt > 1 )
+    for( xbLong l = 1L; l <= NodeCnt-1; l++ )
+      ix->DumpNodeRec( l );
+}
+#endif
+/************************************************************************/
+void MyClass::OpenIndex()
+{
+  int rc;
+  char Filename[51];
+
+  if( d.GetDbfStatus() == XB_CLOSED ){
+    std::cout << "No open database" << std::endl;
+    return;
+  }   
+  if( ix ){
+    std::cout << "Index already opened" << std::endl;
+    return;
+  }
+
+  std::cout << "Enter index name: ";
+  std::cin >> Filename;
+  if( strstr( Filename, "NDX" ) || strstr( Filename, "ndx" )){
+    ix = new xbNdx( &d );
+    rc = ix->OpenIndex( Filename );
+  }
+  else if( strstr( Filename, "NTX" ) || strstr( Filename, "ntx" )){
+    ix = new xbNtx( &d );
+    rc = ix->OpenIndex( Filename );
+  }
+  else
+  {
+    std::cout
+      << "Invalid index name. Needs file extension. index.ndx or index.ntx"
+      << std::endl;
+    return;
+  }
+  x.DisplayError( rc );
+//  std::cout << "Return code " << rc << std::endl;
+}    
+/************************************************************************/
+void MyClass::FindKey()
+{
+  if( !ix ){
+    std::cout << "No open index" << std::endl;
+    return;
+  }
+
+  char KeyBuf[101];
+  memset( KeyBuf, 0x00, 101 );
+  std::cout << "This function only works for character keys (so far).."
+            << std::endl;
+  std::cout << "Enter search key:" << std::endl;
+  std::cin >> KeyBuf;
+  x.DisplayError( ix->FindKey( KeyBuf ) );
+}
+/************************************************************************/
+void MyClass::GetNextKey()
+{
+  if( !ix )
+    std::cout << "No open index" << std::endl;
+  else
+    x.DisplayError( ix->GetNextKey() );
+}
+/************************************************************************/
+void MyClass::GetPrevKey()
+{
+  if( !ix )
+    std::cout << "No open index" << std::endl;
+  else
+    x.DisplayError( ix->GetPrevKey() );
+}
+/************************************************************************/
+void MyClass::GetFirstKey()
+{
+  if( !ix )
+    std::cout << "No open index" << std::endl;
+  else
+    x.DisplayError( ix->GetFirstKey() );
+}
+/************************************************************************/
+void MyClass::GetLastKey()
+{
+  if( !ix )
+    std::cout << "No open index" << std::endl;
+  else
+    x.DisplayError( ix->GetLastKey() );
+}
+/************************************************************************/
+void MyClass::CloseIndex()
+{
+  if( !ix ){
+    std::cout << "No open index" << std::endl;
+    return;
+  }
+  x.DisplayError( ix->CloseIndex());
+  delete ix;
+  ix = 0;
+}
+/************************************************************************/
+/* stats */
+void MyClass::FileStats()
+{ 
+  if( d.GetDbfStatus() == XB_CLOSED ){
+    std::cout << "No open database" << std::endl;
+    return;
+  }   
+  std::cout << "Database name       = " << d.GetDbfName()          << std::endl;
+  std::cout << "Number of records   = " << d.NoOfRecords()         << std::endl;
+  std::cout << "Physical no of recs = " << d.PhysicalNoOfRecords() << std::endl;
+  std::cout << "Number of fields    = " << d.FieldCount()          << std::endl;
+  std::cout << "Database Status     = ";
+  switch( d.GetDbfStatus() ){
+    case 0:
+      std::cout << "XB_CLOSED"  << std::endl;
+      break;
+    case 1:
+      std::cout << "XB_OPEN"    << std::endl;
+      break;
+    case 2:
+      std::cout << "XB_UPDATED" << std::endl;
+      break;
+    default:
+      std::cout << std::endl;
+      break;
+  }    
+  std::cout << "Record Length       = " << d.GetRecordLen()     << std::endl;
+#ifdef XB_MEMO_FIELDS
+  std::cout << "Memo Fields Present = ";
+  switch( d.MemoFieldsPresent() ){
+    case 0:
+      std::cout << "No " << std::endl;
+      break;
+    case 1:
+      std::cout << "Yes" << std::endl;
+      std::cout << "Memofile name       = " << d.GetDbtName()   << std::endl;
+      break;
+    default:
+      std::cout << std::endl;
+      break;
+  }
+#endif
+  std::cout << "Current Record No   = " << d.GetCurRecNo()  << std::endl;
+  std::cout << "Autolock status     = " << d.GetAutoLock()  << std::endl;
+  std::cout << "Real Delete status  = " << d.GetRealDelete()<< std::endl;
+  std::cout << "Index Count         = " << d.IndexCount()   << std::endl;
+}  
+/************************************************************************/
+/* open database */
+void MyClass::OpenFile()
+{
+  int rc;
+  char filename[50];
+  std::cout << "Enter database file (.dbf) name: ";
+  std::cin >> filename;
+
+  rc = d.OpenDatabase( filename );
+  x.DisplayError( rc );
+}
+/************************************************************************/
+/* open database */
+void MyClass::PackDatabase()
+{
+  x.DisplayError( d.PackDatabase( 0,0,0 ));
+}
+/************************************************************************/
+/* open database */
+void MyClass::ZapDatabase()
+{
+  x.DisplayError( d.Zap(0) );
+}
+/************************************************************************/
+/* close database */
+void MyClass::CloseFile()
+{
+  int rc;
+  rc = d.CloseDatabase();
+  x.DisplayError( rc );
+}
+/************************************************************************/
+/* convert database */
+void MyClass::ConvertDatabase()
+{
+  int     rc;
+  xbShort FieldNo;
+  xbLong  len, FieldCnt;
+  xbDbf   d2( &x );
+  char    *MemoFieldBuf = NULL;
+  xbLong  MemoFieldLen = 0L;
+
+  std::cout << "Warning - check your results!!" << std::endl << std::endl;
+
+  char filename[50];
+  std::cout << "Enter database file name to convert to: ";
+  std::cin >> filename;
+
+  if(( rc = d2.OpenDatabase( filename )) != XB_NO_ERROR ){
+    std::cout << "Error " << rc << " opening database" << std::endl;
+    return;
+  }
+
+  rc = d.GetFirstRecord();
+  FieldCnt = d.FieldCount();
+  std::cout << "Database has " << FieldCnt << " fields to convert"
+            << std::endl;
+  while( rc == XB_NO_ERROR )
+  {
+    d2.BlankRecord();
+    for( xbShort i = 0; i < FieldCnt; i++ )
+    {
+      if(( FieldNo = d2.GetFieldNo( d.GetFieldName( i ))) == -1 )
+        std::cout << "Error converting field " << d.GetFieldName( i )
+                  << std::endl;
+      else 
+      {
+        if( d.GetFieldType( i ) != d2.GetFieldType( FieldNo ))
+          std::cout << "Error - different field types " << d.GetFieldName(i);
+        else
+        {
+          if( d.GetFieldType( i ) == 'M' )
+          {
+#ifdef XB_MEMO_FIELDS
+            len = d.GetMemoFieldLen( i ); 
+            if( len > MemoFieldLen )
+            {
+              if( MemoFieldLen > 0 ) 
+                delete MemoFieldBuf;
+              MemoFieldBuf = new char[len];
+              MemoFieldLen = len;
+            }
+            d.GetMemoField( i, len, MemoFieldBuf, XB_LOCK );              
+            d2.UpdateMemoData( FieldNo, len, MemoFieldBuf, XB_LOCK );
+#else
+           std::cout
+             << "Memo fields not converted XB_MEMO_FIELDS not compiled in\n";
+#endif
+          }
+          else{
+            if( d.GetFieldType(i) == 'N' ){
+                std::cout << "const code compile prob..." << std::endl;
+
+//                d2.PutField( FieldNo, x.LTRIM( d.GetField( i )));
+            }
+            else
+             d2.PutField( FieldNo, d.GetField(i));
+          }
+        } 
+      }
+    }
+    rc = d.GetNextRecord();
+    d2.AppendRecord();
+  }
+  if( MemoFieldLen > 0 ) 
+    delete MemoFieldBuf;
+  d2.CloseDatabase();
+}
+/************************************************************************/
+void MyClass::ShowFieldInfo( int option )
+{
+  FILE * out;
+  xbString dbfName = d.GetDbfName();
+  if( option ){
+    if(( out = fopen( "xbase64.dmp" , "w" )) == NULL ){
+      std::cout << "File could not be opened" << std::endl;
+      getchar();        
+    } else {  
+      fprintf( out, "Table Name = %s\n\n", dbfName.getData());
+      fprintf( out, "Number   Name            Type      Len  Decs\n" );
+      for( int i = 0; i < d.FieldCount(); i++ )
+        fprintf(out,  "%3d     %-10s         %c     %5d   %d\n", i+1,
+              d.GetFieldName(i), d.GetFieldType(i), 
+	      d.GetFieldLen(i),  d.GetFieldDecimal(i) );
+    }
+    fclose( out );
+  }
+  else
+  {
+    printf( "Table Name = %s\n", dbfName.getData());
+    std::cout << "Number   Name            Type      Len  Decs" << std::endl;
+    for( int i = 0; i < d.FieldCount(); i++ ){
+      printf( "%3d     %-10s         %c     %5d   %d\n", i+1,
+              d.GetFieldName(i), d.GetFieldType(i), 
+	      d.GetFieldLen(i),  d.GetFieldDecimal(i) );
+      if(((i+1)%15) == 0 ){
+        std::cout << "Press a key to continue" << std::endl;
+        getchar();
+        std::cout << "Number   Name        Type  Len  Decs" << std::endl;
+      }
+    }
+  } 
+  std::cout << "Press a key to continue" << std::endl;
+  getchar();
+}
+/************************************************************************/
+void MyClass::ShowFieldData()
+{
+  int done = 0;
+
+  if( d.GetCurRecNo() == 0L ){
+    d.GetRecord( 1L );
+  }
+
+  while( !done ){
+    std::cout << "Record: " << d.GetCurRecNo() << std::endl;
+    std::cout << "FieldName    Data" << std::endl;
+    std::cout << "=========    ====" << std::endl;
+    if( d.RecordDeleted())
+      std::cout << "Record is deleted" << std::endl;
+    for( int i = 0; i < d.FieldCount(); i++ ){
+      printf( "%-10s = %s\n", d.GetFieldName(i), d.GetStringField(i));
+      if(((i+1)%15) == 0 ){
+        std::cout << "Press a key to continue" << std::endl;
+        getchar();
+        std::cout << " Name        Data" << std::endl;
+      }
+    }
+    std::cout << "Press 'N' for next record or any other key to exit" << std::endl;
+    if( toupper( getchar()) == 'N' ){
+      d.GetRecord( d.GetCurRecNo() + 1L );
+      getchar();
+    }
+    else
+      done ++;
+  }   
+}
+/************************************************************************/
+void MyClass::UpdateFieldData()
+{
+  char dbuf[100];
+  int rc, fn;
+  std::cout  << "Enter Field Number to update (first field is 0): "
+             << std::endl;
+  std::cin   >> fn;
+  std::cout  << "Enter Field Data" << std::endl;
+  std::cin   >> dbuf;
+  rc = d.PutField( fn, dbuf );
+  x.DisplayError( rc );
+}
+/************************************************************************/
+/* open database */
+void MyClass::ReindexDatabase()
+{
+  xbNdx n(&d);
+  int rc;
+  char filename[50];
+  std::cout << "Enter index file name: ";
+  std::cin >> filename;
+
+  if(( rc = n.OpenIndex( filename )) != XB_NO_ERROR ){
+    x.DisplayError( rc );
+    return;
+  }
+  x.DisplayError( n.ReIndex() );
+}
+/************************************************************************/
+void MyClass::GetRecord()
+{
+  xbLong RecNo;
+  std::cout << "Enter record number: ";
+  std::cin >> RecNo;
+
+  x.DisplayError( d.GetRecord( RecNo ));
+}
+/************************************************************************/
+void MyClass::UpdateMemoField()
+{
+#ifdef XB_MEMO_FIELDS
+  xbShort fn,rc;
+  xbLong len;
+  char bufchar[2];
+  char *buf;
+
+  std::cout << "Enter Field Number: " << std::endl;
+  std::cin >> fn;
+  if( fn < 0 || fn > d.FieldCount()){
+    std::cout << "Invalid Field Number" << std::endl;
+    return;
+  }
+  if( d.GetFieldType( fn ) != 'M' ){
+    std::cout << "Field " << fn << " is not a memo field" << std::endl;
+    std::cout << "Field Name = " << d.GetFieldName( fn ) << " type= ";
+    std::cout << d.GetFieldType( fn ) << std::endl;
+    return;
+  }
+  std::cout << "Enter length of memo data:" << std::endl;
+  std::cin >> len;
+ 
+  std::cout << "Enter character to populate memo data:" << std::endl;
+  std::cin >> bufchar;
+
+  buf = new char[len];
+  memset( buf, bufchar[0], len );
+
+  rc = d.UpdateMemoData( fn, len, buf, XB_LOCK );  
+  std::cout << "Return Code = " << rc << std::endl;
+#else
+  std::cout << "\nXB_MEMO_FIELDS is not compiled in\n";
+#endif
+}
+/************************************************************************/
+void MyClass::DeleteMemoField()
+{
+#ifdef XB_MEMO_FIELDS
+  xbShort fn,rc;
+  std::cout << "Enter Field Number: " << std::endl;
+  std::cin >> fn;
+  if( fn < 0 || fn > d.FieldCount()){
+    std::cout << "Invalid Field Number" << std::endl;
+    return;
+  }
+  if( d.GetFieldType( fn ) != 'M' ){
+    std::cout << "Field " << fn << " is not a memo field" << std::endl;
+    std::cout << "Field Name = " << d.GetFieldName( fn ) << " type= ";
+    std::cout << d.GetFieldType( fn ) << std::endl;
+    return;
+  }
+  rc = d.UpdateMemoData( fn, 0, 0, XB_LOCK );
+  x.DisplayError( rc );
+#else
+  std::cout << "\nXB_MEMO_FIELDS is not compiled in\n";
+#endif
+}
+/************************************************************************/
+#ifdef XBASE_DEBUG
+void MyClass::DumpDbtHeader()
+{
+  int rc;
+
+#ifdef XB_MEMO_FIELDS
+#ifdef XBASE_DEBUG
+
+/* - This is used to peek in the file for debugging purposes
+     probably not to useful for anything else - Gary 
+*/
+
+  rc = d.DumpMemoFreeChain();
+  x.DisplayError( rc );
+
+#else
+  std::cout << "\nXBASE_DEBUG is not compiled in\n";
+#endif
+#else
+  std::cout << "\nXB_MEMO_FIELDS is not compiled in\n";
+#endif
+}
+/************************************************************************/
+void MyClass::GetMemoBlocks()
+{
+#ifdef XB_MEMO_FIELDS
+  xbLong BlocksNeeded, Location, PrevNode;
+  int rc;
+
+  std::cout << "Enter number of blocks: " << std::endl;
+  std::cin  >> BlocksNeeded;
+  std::cout << "Enter starting location: " << std::endl;
+  std::cin  >> Location;
+  std::cout << "Enter previous node: " << std::endl;
+  std::cin  >> PrevNode;
+  rc = d.GetBlockSetFromChain( BlocksNeeded, Location, PrevNode );
+  x.DisplayError( rc );
+
+#else
+  std::cout << "\nXB_MEMO_FIELDS is not compiled in\n";
+#endif
+}
+/************************************************************************/
+void MyClass::CreateNewIndex()
+{
+  char IndexName[128];
+  char KeyExpression[500];
+  char Unique[25];
+  xbShort  uniqueSw = 0;
+  xbShort rc;
+
+  if( ix ){
+    std::cout << "Program only supports one open index at a time" << std::endl;
+    std::cout << "Looking for volunteer to change that fact" << std::endl;
+    return;
+  }
+  memset( IndexName, 0x00, 128 );
+  memset( KeyExpression, 0x00, 500 );
+  memset( Unique, 0x00, 25 );
+  std::cout << "This function creates a new index for an open table" << std::endl;
+  std::cout << "If the index already exists, it will be overlaid" << std::endl;
+  while( !strlen( IndexName ) || 
+    ( !strstr( IndexName, ".ndx" ) && !strstr( IndexName, ".ntx" ))){
+    std::cout << "Enter index name (include .ntx or .ndx extension)" << std::endl;
+    std::cin  >> IndexName;
+    for( int i = 0; i < (int) strlen( IndexName ); i++ )
+      IndexName[i] = tolower( IndexName[i] );
+  }
+  while( Unique[0] != 'U' && Unique[0] != 'N' ){
+    std::cout << "Enter U)nique or N)on unique" << std::endl;
+    std::cin  >> Unique;
+    if( Unique[0] == 'U' )
+      uniqueSw++;
+  }
+  while( !strlen( KeyExpression )){
+    std::cout << "Enter key expression" << std::endl;
+    std::cin  >> KeyExpression;
+  }
+  if( strstr( IndexName, "ndx" )){
+    ix = new xbNdx( &d );
+    rc = ix->CreateIndex( IndexName, KeyExpression, uniqueSw, 1 );
+  }
+  else if( strstr( IndexName, "ntx" )){
+    ix = new xbNtx( &d );
+    rc = ix->CreateIndex( IndexName, KeyExpression, uniqueSw, 1 );
+  }
+  if( rc ){
+    x.DisplayError( rc );
+    ix->CloseIndex();
+    ix = NULL;
+    return;
+  }
+  std::cout << IndexName << " created. Loading data.." << std::endl;
+  rc = ix->ReIndex();
+  if( rc ){
+    x.DisplayError( rc );
+    return;
+  }
+  std::cout << "Index loaded successfully" << std::endl;
+  return;
+}
+/************************************************************************/
+void MyClass::FindMemoBlocks()
+{
+#ifdef XB_MEMO_FIELDS
+  xbLong BlocksNeeded, Location, PrevNode;
+  int rc;
+
+  std::cout << "Enter number of blocks: " << std::endl;
+  std::cin  >> BlocksNeeded;
+  rc = d.FindBlockSetInChain( BlocksNeeded, 0, Location, PrevNode );
+  std::cout << "Return code = " << rc << std::endl;
+  std::cout << "Location = " << Location << std::endl;
+  std::cout << "Previous Node = " << PrevNode << std::endl;
+#else
+  std::cout << "\nXB_MEMO_FIELDS is not compiled in\n";
+#endif
+}
+#endif   // XBASE_DEBUG
+/************************************************************************/
+void MyClass::IndexMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl
+             << "NDX and NTX Index Menu"     << std::endl;
+   std::cout << "This program only supports one open index at a time" << std::endl;
+   std::cout << "1  - Open Index"            << std::endl;
+   std::cout << "2  - Create New Index"      << std::endl;
+   if( ix ){
+     std::cout << "3  - Find Key"              << std::endl;
+     std::cout << "4  - Get First Key"         << std::endl;
+     std::cout << "5  - Get Last Key"          << std::endl;
+     std::cout << "6  - Get Previous Key"      << std::endl;
+     std::cout << "7  - Get Next Key"          << std::endl;
+     std::cout << "8  - Close Index"           << std::endl;
+     std::cout << "9  - Check Index Integrity" << std::endl;   
+   }
+   std::cout << "99 - Exit Menu"             << std::endl;
+   std::cin >> option;
+   switch( option ){
+    case 1:  OpenIndex();      break;
+    case 2:  CreateNewIndex(); break;
+    case 3:  FindKey();        break;
+    case 4:  GetFirstKey();    break;
+    case 5:  GetLastKey();     break;
+    case 6:  GetPrevKey();     break;
+    case 7:  GetNextKey();     break;
+    case 8:  CloseIndex();     break;    
+    case 9:  x.DisplayError( ix->CheckIndexIntegrity( 1 )); break;
+    case 99: break;
+    default: std::cout << "Invalid option" << std::endl; break;
+   }
+  }
+}
+/************************************************************************/
+#ifdef XBASE_DEBUG
+void MyClass::DebugMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "Debug Menu"         << std::endl;
+   std::cout << "1 - Dislay DBT Header"                        << std::endl;
+   std::cout << "2 - Find Memo Blocks"                         << std::endl;
+   std::cout << "3 - Get Memo Blocks"                          << std::endl;
+   std::cout << "4 - Dump index node chains to file xbase.dmp" << std::endl;
+   std::cout << "5 - Dump index node chain"                    << std::endl;
+   std::cout << "99 - Exit Menu"                               << std::endl;
+   std::cin >> option;
+   switch( option ){
+    case 1:  DumpDbtHeader();  break;
+    case 2:  FindMemoBlocks(); break;
+    case 3:  GetMemoBlocks();  break;
+    case 4:  DumpIndexNodes(); break;
+    case 5:  ix->DumpNodeChain();  break;
+    case 99: break;
+    default: std::cout << "Invalid option" << std::endl; break;
+   }
+  }
+}
+#endif   //  XBASE_DEBUG
+
+/************************************************************************/
+
+#ifdef XB_LOCKING_ON
+
+void MyClass::LockDbf()
+{
+  xbShort rc;
+  std::cout << "Locking table" << std::endl;
+//  rc = d.LockTable( XB_LOCK );
+//  x.DisplayError( rc );
+  std::cout << "temporarily out of service" << std::endl;
+}
+/************************************************************************/
+
+void MyClass::UnlockDbf()
+{
+  xbShort rc;
+  std::cout << "Unlocking table" << std::endl;
+//  rc = d.LockTable( XB_UNLOCK );
+//  x.DisplayError( rc );
+  
+  std::cout << "temporarily out of service" << std::endl;
+}
+
+/************************************************************************/
+
+void MyClass::LockRecord()
+{
+  xbShort rc;
+  xbULong RecNo;
+  xbULong RecCnt;
+  
+  std::cout << "Enter start record number to lock" << std::endl;
+  std::cin  >> RecNo;
+  std::cout << "Enter number of records to lock" << std::endl;
+  std::cin  >> RecCnt;
+  
+//  rc = d.LockRecord( XB_LOCK, RecNo, RecCnt );
+//  x.DisplayError( rc );
+
+  std::cout << "temporarily out of service" << std::endl;
+}
+/************************************************************************/
+void MyClass::UnlockRecord()
+{
+  xbShort rc;
+  xbULong RecNo;
+  xbULong RecCnt;  
+  std::cout << "Enter start record number to unlock" << std::endl;
+  std::cin  >> RecNo;
+  std::cout << "Enter number of records to unlock" << std::endl;
+  std::cin  >> RecCnt;    
+//  rc = d.LockRecord( XB_UNLOCK, RecNo, RecCnt );
+//  x.DisplayError( rc );
+
+  std::cout << "temporarily out of service" << std::endl;
+}
+/************************************************************************/
+void MyClass::ShowLockInfo()
+{
+  std::cout << "Retry Count (in seconds)  => " << x.GetLockRetryCount() << std::endl;
+//  std::cout << "No of table locks         => " << d.GetTableLockCnt()   << std::endl;
+
+  #ifdef XB_MEMO_FIELDS
+//  std::cout << "Memo locks                => " << d.GetMemoLockCnt()    << std::endl;
+  #endif
+
+  std::cout << "Current default lock mode => ";
+  switch( x.GetLockMode() ){
+    case XB_SINGLE_USER_MODE:
+      std::cout << "XB_SINGLE_USER_MODE" << std::endl;
+      break;
+    case XB_XBASE_LOCK_MODE:
+      std::cout << "XB_XBASE_LOCK_MODE" << std::endl;
+      break;
+    case XB_DBASE5_LOCK_MODE:
+      std::cout << "XB_DBASE5_LOCK_MODE" << std::endl;
+      break;    case XB_CLIPPER5_LOCK_MODE:
+      std::cout << "XB_CLIPPER5_LOCK_MODE" << std::endl;
+      break;
+    case XB_FOXPRO3_LOCK_MODE:
+      std::cout << "XB_FOXPRO3_LOCK_MODE" << std::endl;
+      break;
+    default:
+      std::cout << "Unknown lock mode" << std::endl;
+      break;
+  }
+
+  std::cout << "Current table lock mode   => ";
+  switch( d.GetLockMode() ){
+    case XB_SINGLE_USER_MODE:
+      std::cout << "XB_SINGLE_USER_MODE" << std::endl;
+      break;
+    case XB_XBASE_LOCK_MODE:
+      std::cout << "XB_XBASE_LOCK_MODE" << std::endl;
+      break;
+    case XB_DBASE5_LOCK_MODE:
+      std::cout << "XB_DBASE5_LOCK_MODE" << std::endl;
+      break;
+    case XB_CLIPPER5_LOCK_MODE:
+      std::cout << "XB_CLIPPER5_LOCK_MODE" << std::endl;
+      break;
+    case XB_FOXPRO3_LOCK_MODE:
+      std::cout << "XB_FOXPRO3_LOCK_MODE" << std::endl;
+      break;
+    default:
+      std::cout << "Unknown lock mode" << std::endl;
+      break;
+  } 
+}
+
+/************************************************************************/
+
+void MyClass::SetDefaultLockMode()
+{
+  xbShort option;
+
+  std::cout << std::endl << std::endl;
+  std::cout << "Default Lock Mode Selection"  << std::endl;
+  std::cout << "1  - XB_SINGLE_USER_MODE"     << std::endl;
+  std::cout << "2  - XB_XBASE_LOCK_MODE"      << std::endl;
+  std::cout << "3  - XB_DBASE5_LOCK_MODE"     << std::endl;
+  std::cout << "4  - XB_CLIPPER5_LOCK_MODE"   << std::endl;
+  std::cout << "5  - XB_FOXPRO3_LOCK_MODE"    << std::endl;
+  std::cout << "99 - Exit Menu" << std::endl;
+  std::cin >> option;
+
+  switch( option ){
+    case 1:  x.SetLockMode( XB_SINGLE_USER_MODE );    break;
+    case 2:  x.SetLockMode( XB_XBASE_LOCK_MODE );     break;
+    case 3:  x.SetLockMode( XB_DBASE5_LOCK_MODE );    break;
+    case 4:  x.SetLockMode( XB_CLIPPER5_LOCK_MODE );  break;
+    case 5:  x.SetLockMode( XB_FOXPRO3_LOCK_MODE );   break;
+    case 99: break;
+  }
+}
+
+/************************************************************************/
+
+void MyClass::SetTableLockMode()
+{
+
+  xbShort option;
+
+  std::cout << std::endl << std::endl;
+  std::cout << "Table Lock Mode Selection"    << std::endl;
+  std::cout << "1  - XB_SINGLE_USER_MODE"     << std::endl;
+  std::cout << "2  - XB_XBASE_LOCK_MODE"      << std::endl;
+  std::cout << "3  - XB_DBASE5_LOCK_MODE"     << std::endl;
+  std::cout << "4  - XB_CLIPPER5_LOCK_MODE"   << std::endl;
+  std::cout << "5  - XB_FOXPRO3_LOCK_MODE"    << std::endl;
+  std::cout << "99 - Exit Menu" << std::endl;
+  std::cin >> option;
+
+  switch( option ){
+    case 1:  d.SetLockMode( XB_SINGLE_USER_MODE );    break;
+    case 2:  d.SetLockMode( XB_XBASE_LOCK_MODE );     break;
+    case 3:  d.SetLockMode( XB_DBASE5_LOCK_MODE );    break;
+    case 4:  d.SetLockMode( XB_CLIPPER5_LOCK_MODE );  break;
+    case 5:  d.SetLockMode( XB_FOXPRO3_LOCK_MODE );   break;
+    case 99: break;
+  }
+}
+
+/************************************************************************/
+
+void MyClass::SetRetryCount()
+{
+  xbShort retryCnt;
+  std::cout << "Enter new Retry Count " << std::endl;
+  std::cin >> retryCnt;
+  x.SetLockRetryCount( retryCnt );
+}
+
+/************************************************************************/
+#ifdef XB_MEMO_FIELDS
+
+void MyClass::LockMemoFile( xbShort LockType )
+{
+  xbShort rc;
+//  rc = d.LockMemoFile( LockType );
+//  x.DisplayError( rc );
+  std::cout << "no memo locking here" << std::endl;
+}
+
+#endif
+
+/************************************************************************/
+
+void MyClass::LockIndexFile( xbShort LockType )
+{
+  xbShort rc;
+  
+  if( ix ){
+//    rc = ix->LockIndex( LockType );
+//    x.DisplayError( rc );
+
+  std::cout << "temporarily out of service" << std::endl;
+  }
+  else
+    std::cout << "No open index" << std::endl;
+}
+
+#endif
+/************************************************************************/
+void MyClass::PutRecord()
+{
+  xbLong l;
+  std::cout << "Enter Record number for PutRecord()" << std::endl;
+  std::cin >> l;
+  int rc = d.PutRecord( l );
+  x.DisplayError( rc );
+}
+/************************************************************************/
+void MyClass::FieldMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "Field Menu" << std::endl;
+   std::cout << "1  - Delete Memo Field" << std::endl;
+   std::cout << "2  - Update Memo Field" << std::endl;
+   std::cout << "3  - Show Field Info"   << std::endl;
+   std::cout << "4  - Dump Field Info to file xbase64.dmp" << std::endl;
+   std::cout << "5  - Show Field Data"   << std::endl;
+   std::cout << "6  - Update Field Data" << std::endl;
+   std::cout << "99 - Exit Menu" << std::endl;
+   std::cin >> option;
+   switch( option ){
+    case 1:  DeleteMemoField(); break;
+    case 2:  UpdateMemoField(); break;
+    case 3:  ShowFieldInfo(0);  break;
+    case 4:  ShowFieldInfo(1);  break;
+    case 5:  ShowFieldData();   break;
+    case 6:  UpdateFieldData(); break;
+    case 99: break;
+    default: std::cout << "Function not available" << std::endl; break;
+   }
+ }
+}
+/************************************************************************/
+void MyClass::RecordMenu()
+{
+  int option = 0;
+  std::cout << "Record Menu" << std::endl;
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "Record Menu" << std::endl;
+   std::cout << "1  - Get Record"      << std::endl;
+   std::cout << "2  - Blank Record"    << std::endl;
+   std::cout << "3  - Append Record"   << std::endl;
+   std::cout << "4  - Put Record"      << std::endl;
+   std::cout << "5  - Delete Record"   << std::endl;
+   std::cout << "6  - Undelete Record" << std::endl;
+   std::cout << "99 - Exit Menu"       << std::endl;
+   std::cin >> option;
+   switch( option ){
+    case 1:  GetRecord(); break;
+    case 2:  x.DisplayError( d.BlankRecord());    break;
+    case 3:  x.DisplayError( d.AppendRecord());   break;
+    case 4:  x.DisplayError( d.PutRecord());      break;
+    case 5:  x.DisplayError( d.DeleteRecord());   break;
+    case 6:  x.DisplayError( d.UndeleteRecord()); break;
+    case 99: break;
+    default: std::cout << "Invalid option" << std::endl; break;
+   }
+  }
+}
+/************************************************************************/
+void MyClass::FileMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "File Menu" << std::endl;
+   std::cout << "1  - Open File"        << std::endl;
+   std::cout << "2  - Close File"       << std::endl;
+   std::cout << "3  - File Stats"       << std::endl;
+   std::cout << "4  - Convert Database" << std::endl; 
+   std::cout << "5  - Reindex Database" << std::endl;
+   std::cout << "6  - Pack Database"    << std::endl;
+   std::cout << "7  - Zap Database"     << std::endl;
+   std::cout << "99 - Exit Menu"        << std::endl;
+   std::cin  >> option;
+
+   switch( option ){
+    case 1:  OpenFile();        break;
+    case 2:  CloseFile();       break;
+    case 3:  FileStats();       break;
+    case 4:  ConvertDatabase(); break;
+    case 5:  ReindexDatabase(); break;
+    case 6:  PackDatabase();    break;
+    case 7:  ZapDatabase();     break;
+    case 99: break;
+    default: std::cout << "Invalid Option" << std::endl;
+   }
+ }
+}
+/************************************************************************/
+
+#ifdef XB_LOCKING_ON
+void MyClass::LockingMenu()
+{
+  int option = 0;
+
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "Locking Menu" << std::endl;
+   std::cout << "1  - Display lock info"         << std::endl;
+   std::cout << "2  - Set retry count"           << std::endl;
+   std::cout << "3  - Set default lock mode"     << std::endl;
+   std::cout << "4  - Set table lock mode"       << std::endl;
+   std::cout << "5  - Lock table (dbf file)"     << std::endl;
+   std::cout << "6  - Unlock table (dbf file)"   << std::endl;
+   std::cout << "7  - Lock Record"               << std::endl;
+   std::cout << "8  - Unlock Record"             << std::endl; 
+   std::cout << "9  - Lock Memo File"            << std::endl; 
+   std::cout << "10 - Unlock Memo File"          << std::endl;
+   std::cout << "11 - Lock Index File"           << std::endl;
+   std::cout << "12 - Unlock Index File"          << std::endl;
+   
+   std::cout << "99 - Exit Menu"                 << std::endl;
+   std::cin  >> option;
+
+   switch( option ) {
+    case 1:  ShowLockInfo();             break;
+    case 2:  SetRetryCount();            break;
+    case 3:  SetDefaultLockMode();       break;
+    case 4:  SetTableLockMode();         break;
+    case 5:  LockDbf();                  break;
+    case 6:  UnlockDbf();                break;
+    case 7:  LockRecord();               break;
+    case 8:  UnlockRecord();             break;
+    case 9:  LockMemoFile( XB_LOCK );    break;
+    case 10: LockMemoFile( XB_UNLOCK );  break;
+    case 11: LockIndexFile( XB_LOCK );   break;
+    case 12: LockIndexFile( XB_UNLOCK ); break;
+
+    case 99: break;
+    default: std::cout << "Invalid Option" << std::endl;
+   }
+ }
+}
+#endif
+
+/************************************************************************/
+
+void MyClass::MainMenu()
+{
+  int option = 0;
+  std::cout << std::endl<< std::endl << "XBase Utility Program";
+  while( option != 99 ) {
+   std::cout << std::endl << std::endl << "Main Menu" << std::endl;
+   std::cout << "1  - File Menu"           << std::endl;
+   std::cout << "2  - Record Menu"         << std::endl; 
+   std::cout << "3  - Field Menu"          << std::endl;
+   std::cout << "4  - Index Menu"          << std::endl;
+   #ifdef XB_LOCKING_ON
+     std::cout << "5  - Locking Menu"      << std::endl;
+   #endif
+   #ifdef XBASE_DEBUG
+     std::cout << "6  - Debug Menu"        << std::endl;
+   #endif
+   #ifdef XB_EXPRESSIONS
+     std::cout << "7  - Expression Testor" << std::endl;
+   #endif
+   #ifdef XB_FILTERS
+     std::cout << "8  - Filter Menu"       << std::endl;
+   #endif
+   std::cout << "99 - Exit"                << std::endl;
+   std::cin >> option;
+   switch( option ){
+     case 1:  FileMenu();          break;
+     case 2:  RecordMenu();        break;
+     case 3:  FieldMenu();         break;
+     case 4:  IndexMenu();         break;
+     #ifdef XB_LOCKING_ON
+     case 5:  LockingMenu();       break;
+     #endif
+     #ifdef XBASE_DEBUG
+     case 6:  DebugMenu();         break;
+     #endif
+     #ifdef XB_EXPRESSIONS
+     case 7:  ProcessExpression(); break;
+     #endif
+     #ifdef XB_FILTERS
+     case 8:  FilterMenu(); break;
+     #endif
+
+     case 99: std::cout << "Bye!! - Thanks for using XBase64"
+                        << std::endl; break;
+     default: std::cout << "Invalid function" << std::endl; break;
+   }
+  }
+}
+
+/************************************************************************/
+
+int main(int, char**)
+{
+  MyClass m;
+  m.MainMenu();
+    return 0;
+}