From c894a7cdd8686ea695602a23a511a3f1b0d047be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff-webhosting.net>
Date: Mon, 14 Aug 2023 21:07:46 +0200
Subject: New upstream version 4.1.4

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

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

diff --git a/src/sql/xbset.cpp b/src/sql/xbset.cpp
new file mode 100755
index 0000000..d0e8821
--- /dev/null
+++ b/src/sql/xbset.cpp
@@ -0,0 +1,90 @@
+/* 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::SqlSet( const xbString &sCmdLine ){
+
+  // std::cout << "SET [" << sCmdLine << "]\n";
+  // expected format:
+  //  SET ATTRIBUTE = DATAVALUE
+  //  SET ATTRIBUTE = ^     (to delete an entry)
+
+  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 = 100;
+          throw iRc;
+        }
+      } else {
+        if(( iRc = uda.UpdTokenForKey( sKey, sToken )) != XB_NO_ERROR ){
+          iErrorStop = 110;
+          throw iRc;
+        }
+      }
+    }
+  }
+  catch (xbInt16 iRc ){
+    xbString sMsg;
+    sMsg.Sprintf( "xbSql::SqlSet() 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