From 517ad9d4b6eae320b708d03a9340a22893b0cab7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff-webhosting.net>
Date: Sun, 29 Jan 2023 15:45:51 +0100
Subject: New upstream version 4.0.3

---
 src/sql/xbselect.cpp | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100755 src/sql/xbselect.cpp

(limited to 'src/sql/xbselect.cpp')

diff --git a/src/sql/xbselect.cpp b/src/sql/xbselect.cpp
new file mode 100755
index 0000000..91c0485
--- /dev/null
+++ b/src/sql/xbselect.cpp
@@ -0,0 +1,92 @@
+/* xbset.cpp
+
+XBase64 Software Library
+
+Copyright (c) 1997,2003,2014,2022 Gary A Kunkel
+
+The xb64 software library is covered under the terms of the GPL Version 3, 2007 license.
+
+Email Contact:
+
+    XDB-devel@lists.sourceforge.net
+    XDB-users@lists.sourceforge.net
+
+*/
+
+#include "xbase.h"
+
+#ifdef XB_SQL_SUPPORT
+
+namespace xb{
+
+
+/***********************************************************************/
+xbInt16 xbSql::SqlSelect( const xbString &sCmdLine ){
+
+  std::cout << "SELECT [" << sCmdLine << "]\n";
+  // expected format:
+  //  SELECT 
+
+  xbInt16  iRc = 0;
+  xbInt16  iErrorStop = 0;
+  xbUInt32 ulPos;
+
+  try{
+
+/*
+    xbString sCmd = sCmdLine;
+    sCmd.Trim();
+    sCmd.ZapTrailingChar( ';' );
+    sCmd.Trim();
+
+    // drop off the first node "SET"
+    ulPos = sCmd.Pos( ' ' );
+    sCmd.Ltrunc( ulPos );
+    sCmd.Ltrim();
+
+    xbString sNode1 = sCmd;
+    sNode1.ToUpperCase();
+
+    if( sNode1 == "SET" ) {
+        uda.DumpUda();
+
+    } else {
+
+      xbString sKey;
+      sKey.ExtractElement( sCmd, '=', 1, 0 );
+      sKey.Trim();
+
+      xbString sToken;
+      sToken.ExtractElement( sCmd, '=', 2, 0 );
+      sToken.Trim();
+
+
+      if( sToken == '^' ){
+        if(( iRc = uda.DelTokenForKey( sKey )) != XB_NO_ERROR ){
+          iErrorStop = 10;
+          throw iRc;
+        }
+      } else {
+        if(( iRc = uda.UpdTokenForKey( sKey, sToken )) != XB_NO_ERROR ){
+          iErrorStop = 10;
+          throw iRc;
+        }
+      }
+    }
+*/
+
+  }
+  catch (xbInt16 iRc ){
+    xbString sMsg;
+    sMsg.Sprintf( "xbSql::SqlSelect() Exception Caught. Error Stop = [%d] rc = [%d]", iErrorStop, iRc );
+    xbase->WriteLogMessage( sMsg.Str() );
+    xbase->WriteLogMessage( GetErrorMessage( iRc ));
+  }
+
+  return iRc;
+}
+
+/***********************************************************************/
+}              /* namespace       */
+#endif         /*  XB_SQL_SUPPORT */
+
-- 
cgit v1.2.3