1 files changed, 104 insertions, 0 deletions
diff --git a/src/utils/xb_tblinfo.cpp b/src/utils/xb_tblinfo.cpp
new file mode 100755
index 0000000..241642a
--- /dev/null
+++ b/src/utils/xb_tblinfo.cpp
@@ -0,0 +1,104 @@
+/*  xb_tblinfo.cpp
+
+XBase64 Software Library
+
+Copyright (c) 1997,2003,2014,2021,2023 Gary A Kunkel
+
+The xb64 software library is covered under 
+the terms of the GPL Version 3, 2007 license.
+
+Email Contact:
+
+    xb64-devel@lists.sourceforge.net
+    xb64-users@lists.sourceforge.net
+
+*/
+
+
+#include <xbase.h>
+
+using namespace xb;
+
+
+void PrintHelp();
+void PrintHelp(){
+  std::cout << "Usage: xb_tblinfo [-h] [-?] [--help] [-v] [--version] -i filename.DBF"  << std::endl << std::endl;
+  std::cout << "This program dumps table definition information from a DBF file and associated indices." << std::endl << std::endl;
+}
+void PrintVersion();
+void PrintVersion(){
+  std::cout << "Xbase64 Version: " << xbase_VERSION_MAJOR << "." << xbase_VERSION_MINOR << "." << xbase_VERSION_PATCH << std::endl;
+}
+
+int main(int argc, char *argv[] ){
+
+  xbXBase  x;
+  xbInt16  iRc;
+  xbString sTagName;
+  xbDbf    *MyFile = NULL;
+
+  x.EnableMsgLogging();
+  x.SetLogSize( 1000000L );
+
+  xbString sParm;
+  if (argc < 2 || x.GetCmdLineOpt( argc, argv, "-h", sParm ) ||
+                  x.GetCmdLineOpt( argc, argv, "-?", sParm ) ||
+                  x.GetCmdLineOpt( argc, argv, "--help", sParm )){
+    PrintHelp();
+    return 1;
+  }
+
+  if ( x.GetCmdLineOpt( argc, argv, "-v", sParm ) ||
+       x.GetCmdLineOpt( argc, argv, "--version", sParm )){
+    PrintVersion();
+    return 1;
+  }
+
+  if( !x.GetCmdLineOpt( argc, argv, "-i", sParm ) || sParm == "" ){
+    PrintHelp();
+    return 1;
+  }
+
+  if(( iRc = x.OpenHighestVersion( sParm.Str(), "", &MyFile )) != XB_NO_ERROR ){
+    std::cout << "Could not open file iRc = " << iRc  << " file = "  << sParm.Str() << std::endl;
+    x.DisplayError( iRc );
+    return 1;
+  }
+  MyFile->DumpHeader( 4 );
+
+
+
+  #ifdef XB_INDEX_SUPPORT
+  xbIxList *ixl;
+  xbIx     *ixp;
+  xbString sFileType;
+
+  #ifdef XB_MDX_SUPPORT
+  ixl = MyFile->GetIxList();
+  while( ixl ){
+    ixp = ixl->ix;
+    ixp->GetFileType( sFileType );
+    if( sFileType == "MDX" )
+      ixp->DumpHeader( 1, 3 );
+    ixl = ixl->next;
+  }
+  #endif // XB_MDX_SUPPORT
+
+
+  #ifdef XB_NDX_SUPPORT
+  ixl = MyFile->GetIxList();
+  while( ixl ){
+    ixp = ixl->ix;
+    ixp->GetFileType( sFileType );
+    if( sFileType == "NDX" )
+      ixp->DumpHeader( 1, 3 );
+    ixl = ixl->next;
+  }
+  #endif // XB_NDX_SUPPORT
+
+  #endif // XB_INDEX_SUPPORT
+
+  MyFile->Close();
+  delete MyFile;
+  return 0;
+}