1 files changed, 108 insertions, 0 deletions
diff --git a/src/sexpr/union.hpp b/src/sexpr/union.hpp
new file mode 100644
index 0000000..e0c3051
--- /dev/null
+++ b/src/sexpr/union.hpp
@@ -0,0 +1,108 @@
+#ifndef TMWA_SEXPR_UNION_HPP
+#define TMWA_SEXPR_UNION_HPP
+//    union.hpp - A (unsafe!) convenience wrapper for classes in unions.
+//
+//    Copyright © 2012 Ben Longbons <b.r.longbons@gmail.com>
+//
+//    This file is part of The Mana World (Athena server)
+//
+//    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 3 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, see <http://www.gnu.org/licenses/>.
+
+# include <utility>
+# include <type_traits>
+# include <cstddef>
+# include <new>
+
+# include "fwd.hpp"
+
+
+namespace tmwa
+{
+namespace sexpr
+{
+    template<class... T>
+    class Union;
+
+    template<>
+    class Union<>
+    {
+    public:
+        template<class T>
+        constexpr static size_t index()
+        {
+            return -1;
+        }
+        Union() = default;
+        ~Union() = default;
+        Union(const Union&) = delete;
+        Union& operator = (const Union&) = delete;
+    };
+
+    template<class F, class... R>
+    class Union<F, R...>
+    {
+        static_assert(!std::is_const<F>::value, "union elements are not const");
+        static_assert(!std::is_volatile<F>::value, "union elements are not volatile");
+        static_assert(!std::is_reference<F>::value, "union elements are not references");
+        static_assert(Union<R...>::template index<F>() == size_t(-1), "unions do not contain duplicates");
+        union Impl
+        {
+            F first;
+            Union<R...> rest;
+
+            Impl() {}
+            ~Impl() {}
+        } data;
+    public:
+        template<class T>
+        constexpr static size_t index()
+        {
+            return std::is_same<F, T>::value
+                ? 0
+                : 1 + Union<R...>::template index<T>()
+                ?: -1;
+        }
+        template<class T>
+        void get(T*& p) { data.rest.get(p); }
+        void get(F*& p) { p = std::addressof(data.first); }
+        template<class T>
+        void get(const T*& p) const { data.rest.get(p); }
+        void get(const F*& p) const { p = std::addressof(data.first); }
+
+        template<class T>
+        T *get() { T *out; get(out); return out; }
+        template<class T>
+        const T *get() const { const T *out; get(out); return out; }
+
+        Union() = default;
+        ~Union() = default;
+        Union(const Union&) = delete;
+        Union& operator = (const Union&) = delete;
+
+        template<class T, class... A>
+        void construct(A&&... a)
+        {
+            new (get<T>()) T(std::forward<A>(a)...);
+        }
+
+        template<class T>
+        void destruct()
+        {
+            get<T>()->~T();
+        }
+    };
+} // namespace sexpr
+} // namespace tmwa
+
+#endif //TMWA_SEXPR_UNION_HPP