1 files changed, 214 insertions, 0 deletions
diff --git a/libs/archive/src/propertyvariant.cpp b/libs/archive/src/propertyvariant.cpp
new file mode 100644
index 0000000..fe882b2
--- /dev/null
+++ b/libs/archive/src/propertyvariant.cpp
@@ -0,0 +1,214 @@
+/*
+Mod Organizer archive handling
+
+Copyright (C) 2012 Sebastian Herbord, 2020 MO2 Team. All rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 3 of the License, or (at your option) any later version.
+
+This library 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
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+*/
+
+#include "propertyvariant.h"
+#include "compat.h"
+
+#ifdef _WIN32
+#include <guiddef.h>
+#endif
+
+#include <stdexcept>
+#include <stdint.h>
+#include <string>
+
+PropertyVariant::PropertyVariant()
+{
+  PropVariantInit(this);
+}
+
+PropertyVariant::~PropertyVariant()
+{
+  clear();
+}
+
+void PropertyVariant::clear()
+{
+  PropVariantClear(this);
+}
+
+// Arguably the behviours for empty here are wrong.
+template <>
+PropertyVariant::operator bool() const
+{
+  switch (vt) {
+  case VT_EMPTY:
+    return false;
+
+  case VT_BOOL:
+    return boolVal != VARIANT_FALSE;
+
+  default:
+    throw std::runtime_error("Property is not a bool");
+  }
+}
+
+template <>
+PropertyVariant::operator uint64_t() const
+{
+  switch (vt) {
+  case VT_EMPTY:
+    return 0;
+
+  case VT_UI1:
+    return bVal;
+
+  case VT_UI2:
+    return uiVal;
+
+  case VT_UI4:
+    return ulVal;
+
+  case VT_UI8:
+    return static_cast<uint64_t>(uhVal.QuadPart);
+
+  default:
+    throw std::runtime_error("Property is not an unsigned integer");
+  }
+}
+
+template <>
+PropertyVariant::operator uint32_t() const
+{
+  switch (vt) {
+  case VT_EMPTY:
+    return 0;
+
+  case VT_UI1:
+    return bVal;
+
+  case VT_UI2:
+    return uiVal;
+
+  case VT_UI4:
+    return ulVal;
+
+  default:
+    throw std::runtime_error("Property is not an unsigned integer");
+  }
+}
+
+template <>
+PropertyVariant::operator std::wstring() const
+{
+  switch (vt) {
+  case VT_EMPTY:
+    return L"";
+
+  case VT_BSTR:
+    return std::wstring(bstrVal, ::SysStringLen(bstrVal));
+
+  default:
+    throw std::runtime_error("Property is not a string");
+  }
+}
+
+// This is what he does, though it looks rather a strange use of the property
+template <>
+PropertyVariant::operator std::string() const
+{
+  switch (vt) {
+  case VT_EMPTY:
+    return "";
+
+  case VT_BSTR:
+    // If he can do a memcpy, I can do a reinterpret case
+    return std::string(reinterpret_cast<char const*>(bstrVal),
+                       ::SysStringByteLen(bstrVal));
+
+  default:
+    throw std::runtime_error("Property is not a string");
+  }
+}
+
+// This is what he does, though it looks rather a strange use of the property
+template <>
+PropertyVariant::operator GUID() const
+{
+  switch (vt) {
+  case VT_BSTR:
+    // He did a cast too!
+    return *reinterpret_cast<const GUID*>(bstrVal);
+
+  default:
+    throw std::runtime_error("Property is not a GUID (string)");
+  }
+}
+
+template <>
+PropertyVariant::operator FILETIME() const
+{
+  switch (vt) {
+  case VT_FILETIME:
+    return filetime;
+
+  default:
+    throw std::runtime_error("Property is not a file time");
+  }
+}
+
+// Assignments
+template <>
+PropertyVariant& PropertyVariant::operator=(std::wstring const& str)
+{
+  clear();
+  vt      = VT_BSTR;
+  bstrVal = ::SysAllocString(str.c_str());
+  if (bstrVal == NULL) {
+    throw std::bad_alloc();
+  }
+  return *this;
+}
+
+template <>
+PropertyVariant& PropertyVariant::operator=(bool const& n)
+{
+  clear();
+  vt      = VT_BOOL;
+  boolVal = n ? VARIANT_TRUE : VARIANT_FALSE;
+  return *this;
+}
+
+template <>
+PropertyVariant& PropertyVariant::operator=(FILETIME const& n)
+{
+  clear();
+  vt       = VT_FILETIME;
+  filetime = n;
+  return *this;
+}
+
+template <>
+PropertyVariant& PropertyVariant::operator=(uint32_t const& n)
+{
+  clear();
+  vt    = VT_UI4;
+  ulVal = n;
+  return *this;
+}
+
+template <>
+PropertyVariant& PropertyVariant::operator=(uint64_t const& n)
+{
+  clear();
+  vt             = VT_UI8;
+  uhVal.QuadPart = n;
+  return *this;
+}