From a340f4e1da354158e0236700d5105e2cdc84a532 Mon Sep 17 00:00:00 2001
From: Paul Reeves <preeves@ibphoenix.com>
Date: Thu, 19 Jan 2023 16:52:45 +0100
Subject: [PATCH] Initial Commit

---
 sql/MyFirstUDRKit.sql |  33 ++++++++
 src/MyFirstUDFKit.h   | 172 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 205 insertions(+)
 create mode 100644 sql/MyFirstUDRKit.sql
 create mode 100644 src/MyFirstUDFKit.h

diff --git a/sql/MyFirstUDRKit.sql b/sql/MyFirstUDRKit.sql
new file mode 100644
index 0000000..eead7fa
--- /dev/null
+++ b/sql/MyFirstUDRKit.sql
@@ -0,0 +1,33 @@
+set term ^;
+
+create or alter package my_first_udr_kit
+as
+begin
+
+-- Add Procedure and Function Headers here
+-- eg:
+/*
+procedure split_boolean (
+      in_txt       blob sub_type text,
+      in_separator varchar(31))
+  returns (
+      out_boolean boolean);
+*/
+
+end ^
+
+
+recreate package body my_first_udr_kit
+as
+begin
+  procedure split_boolean (
+      in_txt       blob sub_type text,
+      in_separator varchar(31))
+  returns (
+      out_boolean boolean)
+  external name 'my_first_udr_kit!split' engine udr;
+
+end ^
+
+
+set term ;^
diff --git a/src/MyFirstUDFKit.h b/src/MyFirstUDFKit.h
new file mode 100644
index 0000000..804ef1e
--- /dev/null
+++ b/src/MyFirstUDFKit.h
@@ -0,0 +1,172 @@
+/*
+ * License Boiler plate here
+ */
+#ifndef MY_FIRST_UDR_KIT_H
+#define MY_FIRST_UDR_KIT_H
+
+#define FB_UDR_STATUS_TYPE ::Firebird::ThrowStatusWrapper
+
+#include "ibase.h"
+#include "firebird/UdrCppEngine.h"
+#include <assert.h>
+#include <stdio.h>
+
+
+
+
+
+// This is the basic stuff from UdrCppExample.h - seems to be declared in all UDR libraries
+
+namespace
+{
+	template <typename T>
+	class AutoReleaseClear
+	{
+	public:
+		static void clear(T* ptr)
+		{
+			if (ptr)
+				ptr->release();
+		}
+	};
+
+	template <typename T>
+	class AutoDisposeClear
+	{
+	public:
+		static void clear(T* ptr)
+		{
+			if (ptr)
+				ptr->dispose();
+		}
+	};
+
+	template <typename T>
+	class AutoDeleteClear
+	{
+	public:
+		static void clear(T* ptr)
+		{
+			delete ptr;
+		}
+	};
+
+	template <typename T>
+	class AutoArrayDeleteClear
+	{
+	public:
+		static void clear(T* ptr)
+		{
+			delete [] ptr;
+		}
+	};
+
+	template <typename T, typename Clear>
+	class AutoImpl
+	{
+	public:
+		AutoImpl<T, Clear>(T* aPtr = NULL)
+			: ptr(aPtr)
+		{
+		}
+
+		~AutoImpl()
+		{
+			Clear::clear(ptr);
+		}
+
+		AutoImpl<T, Clear>& operator =(T* aPtr)
+		{
+			Clear::clear(ptr);
+			ptr = aPtr;
+			return *this;
+		}
+
+		operator T*()
+		{
+			return ptr;
+		}
+
+		operator const T*() const
+		{
+			return ptr;
+		}
+
+		bool operator !() const
+		{
+			return !ptr;
+		}
+
+		bool hasData() const
+		{
+			return ptr != NULL;
+		}
+
+		T* operator ->()
+		{
+			return ptr;
+		}
+
+		T* release()
+		{
+			T* tmp = ptr;
+			ptr = NULL;
+			return tmp;
+		}
+
+		void reset(T* aPtr = NULL)
+		{
+			if (aPtr != ptr)
+			{
+				Clear::clear(ptr);
+				ptr = aPtr;
+			}
+		}
+
+	private:
+		// not implemented
+		AutoImpl<T, Clear>(AutoImpl<T, Clear>&);
+		void operator =(AutoImpl<T, Clear>&);
+
+	private:
+		T* ptr;
+	};
+
+	template <typename T> class AutoDispose : public AutoImpl<T, AutoDisposeClear<T> >
+	{
+	public:
+		AutoDispose(T* ptr = NULL)
+			: AutoImpl<T, AutoDisposeClear<T> >(ptr)
+		{
+		}
+	};
+
+	template <typename T> class AutoRelease : public AutoImpl<T, AutoReleaseClear<T> >
+	{
+	public:
+		AutoRelease(T* ptr = NULL)
+			: AutoImpl<T, AutoReleaseClear<T> >(ptr)
+		{
+		}
+	};
+
+	template <typename T> class AutoDelete : public AutoImpl<T, AutoDeleteClear<T> >
+	{
+	public:
+		AutoDelete(T* ptr = NULL)
+			: AutoImpl<T, AutoDeleteClear<T> >(ptr)
+		{
+		}
+	};
+
+	template <typename T> class AutoArrayDelete : public AutoImpl<T, AutoArrayDeleteClear<T> >
+	{
+	public:
+		AutoArrayDelete(T* ptr = NULL)
+			: AutoImpl<T, AutoArrayDeleteClear<T> >(ptr)
+		{
+		}
+	};
+}
+
+#endif	// MY_FIRST_UDR_KIT_H