WebServerControl.h

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html

#pragma once

#include "Control.h"

#include "WebServerControlTypeRegistry.h"

#include "tinyhttp/http.h"

#include <atomic>
#include <memory>
#include <thread>

class WebServerControl : public Control
{
public:
  static InputParameters validParams();

  WebServerControl(const InputParameters & parameters);
  ~WebServerControl();

  virtual void execute() override;

  static std::string stringifyJSONType(const miniJson::JsonType & json_type);

  template <typename T, miniJson::JsonType json_type>
  static T getScalarJSONValue(const miniJson::Json & json_value);

  using ValueBase = Moose::WebServerControlTypeRegistry::ValueBase;

  template <typename T>
  class TypedValueBase : public ValueBase
  {
  public:
    TypedValueBase(const std::string & name, const std::string & type) : ValueBase(name, type) {}
    TypedValueBase(const std::string & name, const std::string & type, const T & value)
      : ValueBase(name, type), _value(value)
    {
    }

    const T & value() const { return _value; }

    virtual void setControllableValue(WebServerControl & control) override final
    {
      control.comm().broadcast(_value);
      control.setControllableValueByName<T>(name(), value());
    }

  private:
    T _value;
  };

  template <typename T, miniJson::JsonType json_type>
  class ScalarValue : public TypedValueBase<T>
  {
  public:
    ScalarValue(const std::string & name, const std::string & type) : TypedValueBase<T>(name, type)
    {
    }
    ScalarValue(const std::string & name,
                const std::string & type,
                const miniJson::Json & json_value)
      : TypedValueBase<T>(name, type, getScalarJSONValue<T, json_type>(json_value))
    {
    }
  };

  template <typename T, miniJson::JsonType json_type>
  class VectorValue : public TypedValueBase<std::vector<T>>
  {
  public:
    VectorValue(const std::string & name, const std::string & type)
      : TypedValueBase<std::vector<T>>(name, type)
    {
    }
    VectorValue(const std::string & name,
                const std::string & type,
                const miniJson::Json & json_value)
      : TypedValueBase<std::vector<T>>(name, type, getVectorJSONValue(json_value))
    {
    }

    static std::vector<T> getVectorJSONValue(const miniJson::Json & json_value)
    {
      const auto from_json_type = json_value.getType();
      if (from_json_type != miniJson::JsonType::kArray)
        throw ValueBase::Exception("The value '" + json_value.serialize() + "' of type " +
                                   stringifyJSONType(from_json_type) + " is not an array");

      const auto & array_value = json_value.toArray();
      std::vector<T> value(array_value.size());
      for (const auto i : index_range(array_value))
        value[i] = getScalarJSONValue<T, json_type>(array_value[i]);
      return value;
    }
  };

  template <typename T, miniJson::JsonType json_type>
  static char registerScalarType(const std::string type_name)
  {
    return Moose::WebServerControlTypeRegistry().add<ScalarValue<T, json_type>>(type_name);
  }
  template <typename T, miniJson::JsonType json_type>
  static char registerVectorType(const std::string type_name)
  {
    return Moose::WebServerControlTypeRegistry().add<VectorValue<T, json_type>>("std::vector<" +
                                                                                type_name + ">");
  }

private:
  void startServer();

  bool currentlyWaiting() const { return _currently_waiting.load(); }

  std::atomic<bool> _currently_waiting;

  std::unique_ptr<HttpServer> _server;
  std::unique_ptr<std::thread> _server_thread;

  std::vector<std::unique_ptr<ValueBase>> _controlled_values;
  std::mutex _controlled_values_mutex;
};

template <typename T, miniJson::JsonType json_type>
T
WebServerControl::getScalarJSONValue(const miniJson::Json & json_value)
{
  const auto from_json_type = json_value.getType();
  if (from_json_type != json_type)
    throw ValueBase::Exception("The value " + json_value.serialize() + " of JSON type " +
                               stringifyJSONType(from_json_type) +
                               " is not of the expected JSON type " + stringifyJSONType(json_type));

  if constexpr (json_type == miniJson::JsonType::kBool)
    return json_value.toBool();
  else if constexpr (json_type == miniJson::JsonType::kNumber)
    return json_value.toDouble();
  else if constexpr (json_type == miniJson::JsonType::kString)
    return json_value.toString();
  ::mooseError("WebServerControl::getScalarJSONValue(): Not configured for parsing type ",
               stringifyJSONType(from_json_type));
}