1 files changed, 320 insertions, 0 deletions
diff --git a/libs/installer_omod/src/implementations/ScriptFunctions.cpp b/libs/installer_omod/src/implementations/ScriptFunctions.cpp
new file mode 100644
index 0000000..be4deb3
--- /dev/null
+++ b/libs/installer_omod/src/implementations/ScriptFunctions.cpp
@@ -0,0 +1,320 @@
+#include "ScriptFunctions.h"
+
+#include <QApplication>
+#include <QDir>
+#include <QGridLayout>
+#include <QInputDialog>
+#include <QImageReader>
+#include <QLabel>
+#include <QMessageBox>
+#include <QScreen>
+
+#include <uibase/iplugingame.h>
+#include <uibase/ipluginlist.h>
+#include <uibase/log.h>
+
+#include "../interop/QtDotNetConverters.h"
+#include "../newstuff/rtfPopup.h"
+#include "../oldstuff/DialogSelect.h"
+
+ScriptFunctionsHelper::ScriptFunctionsHelper() : mMessageBoxHelper(make_unique<MessageBoxHelper>())
+{
+  moveToThread(QApplication::instance()->thread());
+
+  connect(this, &ScriptFunctionsHelper::DialogSelectSignal, this, &ScriptFunctionsHelper::DialogSelectSlot, Qt::BlockingQueuedConnection);
+  connect(this, &ScriptFunctionsHelper::InputStringSignal, this, &ScriptFunctionsHelper::InputStringSlot, Qt::BlockingQueuedConnection);
+  connect(this, &ScriptFunctionsHelper::DisplayImageSignal, this, &ScriptFunctionsHelper::DisplayImageSlot, Qt::BlockingQueuedConnection);
+  connect(this, &ScriptFunctionsHelper::DisplayTextSignal, this, &ScriptFunctionsHelper::DisplayTextSlot, Qt::BlockingQueuedConnection);
+}
+
+std::optional<QVector<int>> ScriptFunctionsHelper::DialogSelect(QWidget* parent, const QString& title, const QVector<QString>& items, const QVector<QString>& descriptions, const QVector<QString>& pixmaps, bool multiSelect)
+{
+  std::optional<QVector<int>> result;
+  emit DialogSelectSignal(result, parent, title, items, descriptions, pixmaps, multiSelect);
+  return result;
+}
+
+QString ScriptFunctionsHelper::InputString(QWidget* parentWidget, const QString& title, const QString& initialText)
+{
+  QString text;
+  emit InputStringSignal(text, parentWidget, title, initialText);
+  return text;
+}
+
+void ScriptFunctionsHelper::DisplayImage(QWidget* parentWidget, const QString& path, const QString& title)
+{
+  emit DisplayImageSignal(parentWidget, path, title);
+}
+
+void ScriptFunctionsHelper::DisplayText(QWidget* parentWidget, const QString& path, const QString& title)
+{
+  emit DisplayTextSignal(parentWidget, path, title);
+}
+
+void ScriptFunctionsHelper::InputStringSlot(QString& textOut, QWidget* parentWidget, const QString& title, const QString& initialText)
+{
+  textOut = QInputDialog::getText(parentWidget, title, title, QLineEdit::Normal, initialText);
+}
+
+void ScriptFunctionsHelper::DisplayImageSlot(QWidget* parentWidget, const QString& path, const QString& title)
+{
+  QImageReader reader(path);
+  QImage image = reader.read();
+  if (!image.isNull())
+  {
+    QPixmap pixmap = QPixmap::fromImage(image);
+    MOBase::log::debug("image size {}, pixmap size {}", image.size(), pixmap.size());
+    QDialog popup;
+    QLayout* layout = new QGridLayout(&popup);
+    popup.setLayout(layout);
+    FixedAspectRatioImageLabel* label = new FixedAspectRatioImageLabel(&popup);
+    label->setUnscaledPixmap(pixmap);
+
+    QSize screenSize = parentWidget->screen()->availableSize();
+    int maxHeight = static_cast<int>(screenSize.height() * 0.8f);
+    if (pixmap.size().height() > maxHeight)
+      // This is approximate due to borders, label can sort out details.
+      popup.resize(label->widthForHeight(maxHeight), maxHeight);
+
+    layout->addWidget(label);
+    popup.setWindowTitle(title);
+    popup.exec();
+  }
+  else
+    MOBase::log::error("Unable to display {}. Error was {}: {}", path, reader.error(), reader.errorString());
+}
+
+void ScriptFunctionsHelper::DisplayTextSlot(QWidget* parentWidget, const QString& path, const QString& title)
+{
+  RtfPopup popup(toDotNetString(path), parentWidget);
+  popup.setWindowTitle(title);
+  // the size readmes are becoming automatically
+  popup.resize(492, 366);
+  popup.exec();
+}
+
+void ScriptFunctionsHelper::DialogSelectSlot(std::optional<QVector<int>>& resultOut, QWidget* parent, const QString& title, const QVector<QString>& items,
+                                             const QVector<QString>& descriptions, const QVector<QString>& pixmaps, bool multiSelect)
+{
+  resultOut = ::DialogSelect(parent, title, items, descriptions, pixmaps, multiSelect);
+}
+
+ScriptFunctions::ScriptFunctions(QWidget* parentWidget, MOBase::IOrganizer* moInfo) : mParentWidget(parentWidget), mMoInfo(moInfo), mHelper(new ScriptFunctionsHelper) {}
+
+ScriptFunctions::~ScriptFunctions()
+{
+  if (!mHelper)
+    return;
+  this->!ScriptFunctions();
+}
+
+ScriptFunctions::!ScriptFunctions()
+{
+  mHelper->deleteLater();
+  mHelper = nullptr;
+}
+
+void ScriptFunctions::Warn(System::String^ msg)
+{
+  mHelper->warning(mParentWidget, "Warning", toQString(msg));
+}
+
+void ScriptFunctions::Message(System::String^ msg)
+{
+  mHelper->information(mParentWidget, "Message", toQString(msg));
+}
+
+void ScriptFunctions::Message(System::String^ msg, System::String^ title)
+{
+  mHelper->information(mParentWidget, toQString(title), toQString(msg));
+}
+
+System::Collections::Generic::List<int>^ ScriptFunctions::Select(System::Collections::Generic::List<System::String^>^ items,
+                                                                 System::String^ title,
+                                                                 bool isMultiSelect,
+                                                                 System::Collections::Generic::List<System::String^>^ previews,
+                                                                 System::Collections::Generic::List<System::String^>^ descriptions)
+{
+  QVector<QString> qItems;
+  qItems.reserve(items ? items->Count : 0);
+  QVector<QString> qPreviews;
+  qPreviews.reserve(previews ? previews->Count : 0);
+  QVector<QString> qDescriptions;
+  qDescriptions.reserve(descriptions ? descriptions->Count : 0);
+
+  // Expect red squiggles. No one told intellisense about this syntax, but it's the least ugly.
+  if (items)
+  {
+    for each (System::String ^ item in items)
+      qItems.push_back(toQString(item));
+  }
+
+  if (previews)
+  {
+    for each (System::String ^ preview in previews)
+      qPreviews.push_back(toQString(preview));
+  }
+
+  if (descriptions)
+  {
+    for each (System::String ^ description in descriptions)
+      qDescriptions.push_back(toQString(description));
+  }
+
+  std::optional<QVector<int>> qResponse = mHelper->DialogSelect(mParentWidget, toQString(title), qItems, qDescriptions, qPreviews, isMultiSelect);
+  if (!qResponse.has_value())
+    return nullptr;
+
+  System::Collections::Generic::List<int>^ response = gcnew System::Collections::Generic::List<int>(qResponse.value().length());
+  for (const auto selection : qResponse.value())
+    response->Add(selection);
+  return response;
+}
+
+System::String^ ScriptFunctions::InputString(System::String^ title, System::String^ initialText)
+{
+  return toDotNetString(mHelper->InputString(mParentWidget, toQString(title), initialText ? toQString(initialText) : ""));
+}
+
+int ScriptFunctions::DialogYesNo(System::String^ message)
+{
+  return mHelper->question(mParentWidget, "", toQString(message)) == QMessageBox::StandardButton::Yes;
+}
+
+int ScriptFunctions::DialogYesNo(System::String^ message, System::String^ title)
+{
+  return mHelper->question(mParentWidget, toQString(title), toQString(message)) == QMessageBox::StandardButton::Yes;
+}
+
+void ScriptFunctions::DisplayImage(System::String^ path, System::String^ title)
+{
+  mHelper->DisplayImage(mParentWidget, toQString(path), toQString(title));
+}
+
+void ScriptFunctions::DisplayText(System::String^ text, System::String^ title)
+{
+  mHelper->DisplayText(mParentWidget, toQString(text), toQString(title));
+}
+
+void ScriptFunctions::Patch(System::String^ from, System::String^ to)
+{
+  throw gcnew System::NotImplementedException();
+}
+
+System::String^ ScriptFunctions::ReadOblivionINI(System::String^ section, System::String^ name)
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. OMODFramework should be handling this for us.
+}
+
+System::String^ ScriptFunctions::ReadRendererInfo(System::String^ name)
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. OMODFramework should be handling this for us.
+}
+
+bool ScriptFunctions::DataFileExists(System::String^ path)
+{
+  return mMoInfo->resolvePath(toQString(path)) != "";
+}
+
+bool ScriptFunctions::HasScriptExtender()
+{
+  for (const auto& forcedLoad : mMoInfo->managedGame()->executableForcedLoads())
+  {
+    if (forcedLoad.library().toLower().startsWith("obse"))
+    {
+      if (mMoInfo->managedGame()->gameDirectory().exists(forcedLoad.library()))
+        return true;
+    }
+  }
+
+  return mMoInfo->managedGame()->gameDirectory().exists("obse_loader.exe");
+}
+
+bool ScriptFunctions::HasGraphicsExtender()
+{
+  return DataFileExists("obse\\plugins\\obge.dll");
+}
+
+System::Version^ ScriptFunctions::ScriptExtenderVersion()
+{
+  QString obsePath;
+  for (const auto& forcedLoad : mMoInfo->managedGame()->executableForcedLoads())
+  {
+    if (forcedLoad.library().toLower().startsWith("obse"))
+    {
+      if (mMoInfo->managedGame()->gameDirectory().exists(forcedLoad.library()))
+      {
+        obsePath = mMoInfo->managedGame()->gameDirectory().filePath(forcedLoad.library());
+        break;
+      }
+    }
+  }
+
+  if (obsePath.isEmpty())
+    obsePath = mMoInfo->managedGame()->gameDirectory().filePath("obse_loader.exe");
+
+  System::Diagnostics::FileVersionInfo^ info = System::Diagnostics::FileVersionInfo::GetVersionInfo(toDotNetString(obsePath));
+  return gcnew System::Version(info->FileMajorPart, info->FileMinorPart, info->FileBuildPart, info->FilePrivatePart);
+}
+
+System::Version^ ScriptFunctions::GraphicsExtenderVersion()
+{
+  return gcnew System::Version(System::Diagnostics::FileVersionInfo::GetVersionInfo(toDotNetString(mMoInfo->resolvePath("obse\\plugins\\obge.dll")))->FileVersion);
+}
+
+System::Version^ ScriptFunctions::OblivionVersion()
+{
+  return gcnew System::Version(System::Diagnostics::FileVersionInfo::GetVersionInfo(toDotNetString(mMoInfo->managedGame()->gameDirectory().filePath("oblivion.exe")))->FileVersion);
+}
+
+System::Version^ ScriptFunctions::OBSEPluginVersion(System::String^ path)
+{
+  QString pluginPath = mMoInfo->resolvePath(toQString(System::IO::Path::Combine("obse", "plugins", System::IO::Path::ChangeExtension(path, ".dll"))));
+  if (pluginPath.isEmpty())
+    return nullptr;
+  return gcnew System::Version(System::Diagnostics::FileVersionInfo::GetVersionInfo(toDotNetString(pluginPath))->FileVersion);
+}
+
+System::Collections::Generic::IEnumerable<OMODFramework::Scripting::ScriptESP>^ ScriptFunctions::GetESPs()
+{
+  QStringList plugins = mMoInfo->pluginList()->pluginNames();
+  System::Collections::Generic::List<OMODFramework::Scripting::ScriptESP>^ pluginList = gcnew System::Collections::Generic::List<OMODFramework::Scripting::ScriptESP>(plugins.count());
+  for (const auto& pluginName : plugins)
+  {
+    auto state = mMoInfo->pluginList()->state(pluginName);
+    if (state != MOBase::IPluginList::PluginState::STATE_MISSING)
+    {
+      OMODFramework::Scripting::ScriptESP plugin;
+      plugin.Name = toDotNetString(pluginName);
+      plugin.Active = state == MOBase::IPluginList::PluginState::STATE_ACTIVE;
+      pluginList->Add(plugin);
+    }
+  }
+  return pluginList;
+}
+
+System::Collections::Generic::IEnumerable<System::String^>^ ScriptFunctions::GetActiveOMODNames()
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. No known OMODs seem to actually use this (which is irritating as this is one of OBMM's most powerful features).
+}
+
+cli::array<unsigned char, 1>^ ScriptFunctions::ReadExistingDataFile(System::String^ file)
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. OMODFramework should be handling this for us.
+}
+
+cli::array<unsigned char, 1>^ ScriptFunctions::GetDataFileFromBSA(System::String^ file)
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. OMODFramework should be handling this for us.
+}
+
+cli::array<unsigned char, 1>^ ScriptFunctions::GetDataFileFromBSA(System::String^ bsa, System::String^ file)
+{
+  throw gcnew System::NotImplementedException();
+  // TODO: implement this if a user ever reports the exception. OMODFramework should be handling this for us.
+}