/* SPDX-License-Identifier: GPL-2.0-or-later */

// #include "BLI_hash.h"
#include "BLI_noise.hh"

#include "node_function_util.hh"

#include "NOD_socket_search_link.hh"

#include "UI_interface.h"
#include "UI_resources.h"

namespace blender::nodes::node_fn_random_value_cc {

NODE_STORAGE_FUNCS(NodeRandomValue)

static void fn_node_random_value_declare(NodeDeclarationBuilder &b)
{
  b.add_input<decl::Vector>(N_("Min")).supports_field();
  b.add_input<decl::Vector>(N_("Max")).default_value({1.0f, 1.0f, 1.0f}).supports_field();
  b.add_input<decl::Float>(N_("Min"), "Min_001").supports_field();
  b.add_input<decl::Float>(N_("Max"), "Max_001").default_value(1.0f).supports_field();
  b.add_input<decl::Int>(N_("Min"), "Min_002").min(-100000).max(100000).supports_field();
  b.add_input<decl::Int>(N_("Max"), "Max_002")
      .default_value(100)
      .min(-100000)
      .max(100000)
      .supports_field();
  b.add_input<decl::Float>(N_("Probability"))
      .min(0.0f)
      .max(1.0f)
      .default_value(0.5f)
      .subtype(PROP_FACTOR)
      .supports_field()
      .make_available([](bNode &node) { node_storage(node).data_type = CD_PROP_BOOL; });
  b.add_input<decl::Int>(N_("ID")).implicit_field(implicit_field_inputs::id_or_index);
  b.add_input<decl::Int>(N_("Seed")).default_value(0).min(-10000).max(10000).supports_field();

  b.add_output<decl::Vector>(N_("Value")).dependent_field();
  b.add_output<decl::Float>(N_("Value"), "Value_001").dependent_field();
  b.add_output<decl::Int>(N_("Value"), "Value_002").dependent_field();
  b.add_output<decl::Bool>(N_("Value"), "Value_003").dependent_field();
}

static void fn_node_random_value_layout(uiLayout *layout, bContext * /*C*/, PointerRNA *ptr)
{
  uiItemR(layout, ptr, "data_type", 0, "", ICON_NONE);
}

static void fn_node_random_value_init(bNodeTree * /*tree*/, bNode *node)
{
  NodeRandomValue *data = MEM_cnew<NodeRandomValue>(__func__);
  data->data_type = CD_PROP_FLOAT;
  node->storage = data;
}

static void fn_node_random_value_update(bNodeTree *ntree, bNode *node)
{
  const NodeRandomValue &storage = node_storage(*node);
  const eCustomDataType data_type = static_cast<eCustomDataType>(storage.data_type);

  bNodeSocket *sock_min_vector = (bNodeSocket *)node->inputs.first;
  bNodeSocket *sock_max_vector = sock_min_vector->next;
  bNodeSocket *sock_min_float = sock_max_vector->next;
  bNodeSocket *sock_max_float = sock_min_float->next;
  bNodeSocket *sock_min_int = sock_max_float->next;
  bNodeSocket *sock_max_int = sock_min_int->next;
  bNodeSocket *sock_probability = sock_max_int->next;

  bNodeSocket *sock_out_vector = (bNodeSocket *)node->outputs.first;
  bNodeSocket *sock_out_float = sock_out_vector->next;
  bNodeSocket *sock_out_int = sock_out_float->next;
  bNodeSocket *sock_out_bool = sock_out_int->next;

  nodeSetSocketAvailability(ntree, sock_min_vector, data_type == CD_PROP_FLOAT3);
  nodeSetSocketAvailability(ntree, sock_max_vector, data_type == CD_PROP_FLOAT3);
  nodeSetSocketAvailability(ntree, sock_min_float, data_type == CD_PROP_FLOAT);
  nodeSetSocketAvailability(ntree, sock_max_float, data_type == CD_PROP_FLOAT);
  nodeSetSocketAvailability(ntree, sock_min_int, data_type == CD_PROP_INT32);
  nodeSetSocketAvailability(ntree, sock_max_int, data_type == CD_PROP_INT32);
  nodeSetSocketAvailability(ntree, sock_probability, data_type == CD_PROP_BOOL);

  nodeSetSocketAvailability(ntree, sock_out_vector, data_type == CD_PROP_FLOAT3);
  nodeSetSocketAvailability(ntree, sock_out_float, data_type == CD_PROP_FLOAT);
  nodeSetSocketAvailability(ntree, sock_out_int, data_type == CD_PROP_INT32);
  nodeSetSocketAvailability(ntree, sock_out_bool, data_type == CD_PROP_BOOL);
}

static std::optional<eCustomDataType> node_type_from_other_socket(const bNodeSocket &socket)
{
  switch (socket.type) {
    case SOCK_FLOAT:
      return CD_PROP_FLOAT;
    case SOCK_BOOLEAN:
      return CD_PROP_BOOL;
    case SOCK_INT:
      return CD_PROP_INT32;
    case SOCK_VECTOR:
    case SOCK_RGBA:
      return CD_PROP_FLOAT3;
    default:
      return {};
  }
}

static void fn_node_random_value_gather_link_search(GatherLinkSearchOpParams &params)
{
  const NodeDeclaration &declaration = *params.node_type().fixed_declaration;
  const std::optional<eCustomDataType> type = node_type_from_other_socket(params.other_socket());
  if (!type) {
    return;
  }
  if (params.in_out() == SOCK_IN) {
    if (ELEM(*type, CD_PROP_INT32, CD_PROP_FLOAT3, CD_PROP_FLOAT)) {
      params.add_item(IFACE_("Min"), [type](LinkSearchOpParams &params) {
        bNode &node = params.add_node("FunctionNodeRandomValue");
        node_storage(node).data_type = *type;
        params.update_and_connect_available_socket(node, "Min");
      });
      params.add_item(IFACE_("Max"), [type](LinkSearchOpParams &params) {
        bNode &node = params.add_node("FunctionNodeRandomValue");
        node_storage(node).data_type = *type;
        params.update_and_connect_available_socket(node, "Max");
      });
    }
    search_link_ops_for_declarations(params, declaration.inputs().take_back(3));
  }
  else {
    params.add_item(IFACE_("Value"), [type](LinkSearchOpParams &params) {
      bNode &node = params.add_node("FunctionNodeRandomValue");
      node_storage(node).data_type = *type;
      params.update_and_connect_available_socket(node, "Value");
    });
  }
}

static void fn_node_random_value_build_multi_function(NodeMultiFunctionBuilder &builder)
{
  const NodeRandomValue &storage = node_storage(builder.node());
  const eCustomDataType data_type = static_cast<eCustomDataType>(storage.data_type);

  switch (data_type) {
    case CD_PROP_FLOAT3: {
      static fn::CustomMF<fn::MFParamTag<fn::MFParamCategory::SingleInput, float3>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, float3>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleOutput, float3>>
          fn{"Random Vector",
             [](float3 min_value, float3 max_value, int id, int seed, float3 *r_value) {
               const float x = noise::hash_to_float(seed, id, 0);
               const float y = noise::hash_to_float(seed, id, 1);
               const float z = noise::hash_to_float(seed, id, 2);
               *r_value = float3(x, y, z) * (max_value - min_value) + min_value;
             },
             fn::CustomMF_presets::SomeSpanOrSingle<2>()};
      builder.set_matching_fn(fn);
      break;
    }
    case CD_PROP_FLOAT: {
      static fn::CustomMF<fn::MFParamTag<fn::MFParamCategory::SingleInput, float>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, float>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleOutput, float>>
          fn{"Random Float",
             [](float min_value, float max_value, int id, int seed, float *r_value) {
               const float value = noise::hash_to_float(seed, id);
               *r_value = value * (max_value - min_value) + min_value;
             },
             fn::CustomMF_presets::SomeSpanOrSingle<2>()};
      builder.set_matching_fn(fn);
      break;
    }
    case CD_PROP_INT32: {
      static fn::CustomMF<fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleOutput, int>>
          fn{"Random Int",
             [](int min_value, int max_value, int id, int seed, int *r_value) {
               const float value = noise::hash_to_float(id, seed);
               /* Add one to the maximum and use floor to produce an even
                * distribution for the first and last values (See T93591). */
               *r_value = floor(value * (max_value + 1 - min_value) + min_value);
             },
             fn::CustomMF_presets::SomeSpanOrSingle<2>()};
      builder.set_matching_fn(fn);
      break;
    }
    case CD_PROP_BOOL: {
      static fn::CustomMF<fn::MFParamTag<fn::MFParamCategory::SingleInput, float>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleInput, int>,
                          fn::MFParamTag<fn::MFParamCategory::SingleOutput, bool>>
          fn{"Random Bool",
             [](float probability, int id, int seed, bool *r_value) {
               *r_value = noise::hash_to_float(id, seed) <= probability;
             },
             fn::CustomMF_presets::SomeSpanOrSingle<1>()};
      builder.set_matching_fn(fn);
      break;
    }
    default: {
      BLI_assert_unreachable();
      break;
    }
  }
}

}  // namespace blender::nodes::node_fn_random_value_cc

void register_node_type_fn_random_value()
{
  namespace file_ns = blender::nodes::node_fn_random_value_cc;

  static bNodeType ntype;

  fn_node_type_base(&ntype, FN_NODE_RANDOM_VALUE, "Random Value", NODE_CLASS_CONVERTER);
  ntype.initfunc = file_ns::fn_node_random_value_init;
  ntype.updatefunc = file_ns::fn_node_random_value_update;
  ntype.draw_buttons = file_ns::fn_node_random_value_layout;
  ntype.declare = file_ns::fn_node_random_value_declare;
  ntype.build_multi_function = file_ns::fn_node_random_value_build_multi_function;
  ntype.gather_link_search_ops = file_ns::fn_node_random_value_gather_link_search;
  node_type_storage(
      &ntype, "NodeRandomValue", node_free_standard_storage, node_copy_standard_storage);
  nodeRegisterType(&ntype);
}