paradigm

defmodule Paradigm.Conformance do
  alias Paradigm.Graph.Node.Ref
  alias Paradigm.Graph.Node.ExternalRef

  defmodule Issue do
    defstruct [:kind, :node_id, :property, :details]

    @type t :: %__MODULE__{
            kind:
              :invalid_class
              | :unknown_property
              | :missing_property
              | :cardinality_too_low
              | :cardinality_too_high
              | :should_be_list
              | :references_missing_node
              | :references_wrong_class
              | :invalid_enum_value
              | :expected_reference
              | :composite_primitive_type
              | :multiple_composite_owners
              | :composite_reference_without_flag
              | :composite_owned_node_without_owner
              | :abstract_class_instantiated,
            node_id: Paradigm.id(),
            property: String.t() | nil,
            details: map() | nil
          }
  end

  defmodule Result do
    defstruct [:issues]

    @type t :: %__MODULE__{
            issues: [Issue.t()]
          }

    def valid?(%Result{issues: []}), do: true
    def valid?(%Result{}), do: false
  end

  @doc """
  Asserts that a graph conforms to a paradigm.
  """
  def assert_conforms(graph, paradigm) do
    # Check if graph is empty and raise trivial conformance error
    if Paradigm.Graph.stream_all_nodes(graph) |> Enum.empty?() do
      raise "Graph is empty"
    end

    case check_graph(graph, paradigm) do
      %Paradigm.Conformance.Result{issues: []} ->
        graph

      %Paradigm.Conformance.Result{issues: issues} ->
        raise format_error_message(issues)
    end
  end

  defp format_error_message(issues) do
    count = length(issues)
    formatted = format_issues(issues)
    "Graph does not conform to paradigm (#{count} issue(s)):\n#{formatted}"
  end

  defp format_issues(issues) do
    issues
    |> Enum.with_index(1)
    |> Enum.map(fn {issue, index} -> "  #{index}. #{inspect(issue)}" end)
    |> Enum.join("\n")
  end

  @spec check_graph(any(), %Paradigm{} | Graph.t(), integer()) :: Result.t()
  def check_graph(graph, paradigm, cutoff \\ 50)

  def check_graph(graph, %Paradigm{} = paradigm, cutoff) do
    # First pass: build a lightweight node index (just id -> {class, owned_by})
    node_index =
      Paradigm.Graph.stream_all_nodes(graph)
      |> Stream.map(fn node ->
        {node.id, %{class: node.class, owned_by: node.owned_by}}
      end)
      |> Enum.into(%{})

    # Second pass: stream validation with the index
    issues =
      Paradigm.Graph.stream_all_nodes(graph)
      |> Stream.flat_map(&validate_node(&1, paradigm, node_index))
      |> Stream.take(cutoff)
      |> Enum.to_list()
      |> Kernel.++(validate_composite_ownership_exclusivity(graph, paradigm))

    %Result{issues: issues}
  end

  def check_graph(graph, paradigm_graph, cutoff) do
    check_graph(graph, Paradigm.Abstraction.extract(paradigm_graph), cutoff)
  end

  defp validate_node(node, paradigm, node_index) do
    with {:ok, class} <- get_class_safe(paradigm, node.class) do
      abstract_class_issues =
        if class.is_abstract do
          [
            %Issue{
              kind: :abstract_class_instantiated,
              node_id: node.id,
              property: nil,
              details: %{class: node.class}
            }
          ]
        else
          []
        end

      property_issues = validate_node_properties(node, node.id, paradigm, node_index)

      abstract_class_issues ++ property_issues
    else
      {:error, :invalid_class} ->
        [
          %Issue{
            kind: :invalid_class,
            node_id: node.id,
            property: nil,
            details: %{class: node.class}
          }
        ]
    end
  end

  defp validate_node_properties(node, node_id, paradigm, node_index) do
    class = paradigm.classes[node.class]
    properties_map = Paradigm.get_all_properties(class, paradigm)
    properties = Map.values(properties_map)

    [
      validate_property_coverage(node, node_id, properties),
      validate_property_values(node, node_id, properties, paradigm, node_index)
    ]
    |> List.flatten()
  end

  defp validate_property_coverage(node, node_id, properties) do
    data_keys = MapSet.new(Map.keys(node.data))
    property_names = MapSet.new(Enum.map(properties, & &1.name))

    required_names =
      MapSet.new(Enum.filter(properties, &(&1.lower_bound > 0)) |> Enum.map(& &1.name))

    missing_issues =
      MapSet.difference(required_names, data_keys)
      |> Enum.map(
        &%Issue{
          kind: :missing_property,
          node_id: node_id,
          property: &1,
          details: %{class: node.class}
        }
      )

    unknown_issues =
      MapSet.difference(data_keys, property_names)
      |> Enum.map(
        &%Issue{
          kind: :unknown_property,
          node_id: node_id,
          property: &1,
          details: %{class: node.class}
        }
      )

    missing_issues ++ unknown_issues
  end

  defp validate_property_values(node, node_id, properties, paradigm, node_index) do
    Enum.flat_map(properties, fn property ->
      value = Map.get(node.data, property.name)

      # Only validate if the property is present
      if Map.has_key?(node.data, property.name) do
        validate_property_value(node_id, property, value, paradigm, node_index)
      else
        []
      end
    end)
  end

  defp validate_property_value(node_id, property, value, paradigm, node_index) do
    [
      validate_cardinality(node_id, property, value),
      validate_references(node_id, property, value, paradigm, node_index),
      validate_enum_value(node_id, property, value, paradigm),
      validate_composite_property(node_id, property, value, paradigm)
    ]
    |> List.flatten()
  end

  defp validate_cardinality(node_id, property, value) do
    count = get_count(value)
    is_list = is_list(value)

    cond do
      count < property.lower_bound ->
        [
          %Issue{
            kind: :cardinality_too_low,
            node_id: node_id,
            property: property.name,
            details: %{count: count, minimum: property.lower_bound}
          }
        ]

      property.upper_bound != :infinity and count > property.upper_bound ->
        [
          %Issue{
            kind: :cardinality_too_high,
            node_id: node_id,
            property: property.name,
            details: %{count: count, maximum: property.upper_bound}
          }
        ]

      not is_list and property.upper_bound > 1 ->
        [
          %Issue{
            kind: :should_be_list,
            node_id: node_id,
            property: property.name,
            details: nil
          }
        ]

      true ->
        []
    end
  end

  defp validate_references(node_id, property, value, paradigm, node_index) do
    if is_reference_property?(property, paradigm) do
      issues_from_refs =
        value
        |> extract_refs()
        |> Enum.flat_map(&validate_single_reference(node_id, property, &1, paradigm, node_index))

      issues_from_non_refs = validate_non_reference_values(node_id, property, value, paradigm)

      issues_from_refs ++ issues_from_non_refs
    else
      []
    end
  end

  defp validate_non_reference_values(node_id, property, value, paradigm) do
    if is_reference_property?(property, paradigm) do
      non_ref_values = extract_non_refs(value)

      Enum.map(non_ref_values, fn non_ref_value ->
        %Issue{
          kind: :expected_reference,
          node_id: node_id,
          property: property.name,
          details: %{actual_type: get_type_name(non_ref_value)}
        }
      end)
    else
      []
    end
  end

  defp validate_single_reference(
         node_id,
         property,
         %Ref{id: referenced_id, composite: composite_flag},
         paradigm,
         node_index
       ) do
    issues = []

    # Check if reference exists
    ref_exists_issues =
      case Map.get(node_index, referenced_id) do
        nil ->
          [
            %Issue{
              kind: :references_missing_node,
              node_id: node_id,
              property: property.name,
              details: %{referenced_id: referenced_id}
            }
          ]

        %{class: referenced_class} ->
          if valid_class_reference?(referenced_class, property.type, paradigm) do
            []
          else
            [
              %Issue{
                kind: :references_wrong_class,
                node_id: node_id,
                property: property.name,
                details: %{class: referenced_class}
              }
            ]
          end
      end

    # Check composite flag consistency
    composite_flag_issues =
      if property.is_composite and not composite_flag do
        [
          %Issue{
            kind: :composite_reference_without_flag,
            node_id: node_id,
            property: property.name,
            details: %{referenced_id: referenced_id}
          }
        ]
      else
        []
      end

    # Check composite ownership integrity
    composite_ownership_issues =
      if property.is_composite do
        case Map.get(node_index, referenced_id) do
          %{owned_by: nil} ->
            [
              %Issue{
                kind: :composite_owned_node_without_owner,
                node_id: referenced_id,
                property: property.name,
                details: %{owner_node_id: node_id}
              }
            ]

          %{owned_by: _} ->
            []

          nil ->
            []
        end
      else
        []
      end

    issues ++ ref_exists_issues ++ composite_flag_issues ++ composite_ownership_issues
  end

  defp validate_single_reference(_node_id, _property, %ExternalRef{}, _paradigm, _node_index) do
    # External references are always valid - they point outside the model
    # We assume they are resolved elsewhere or are inherently valid
    []
  end

  defp validate_enum_value(node_id, property, value, paradigm) do
    if is_enum_property?(property, paradigm) do
      enum = paradigm.enumerations[property.type]

      value
      |> normalize_to_list()
      |> Enum.reject(&is_nil/1)
      |> Enum.reject(&(&1 in enum.literals))
      |> Enum.map(
        &%Issue{
          kind: :invalid_enum_value,
          node_id: node_id,
          property: property.name,
          details: %{value: &1}
        }
      )
    else
      []
    end
  end

  defp validate_composite_property(node_id, property, _value, paradigm) do
    if property.is_composite and is_primitive_type?(property.type, paradigm) do
      [
        %Issue{
          kind: :composite_primitive_type,
          node_id: node_id,
          property: property.name,
          details: %{type: property.type}
        }
      ]
    else
      []
    end
  end

  defp validate_composite_ownership_exclusivity(graph, paradigm) do
    # Build a map of referenced node IDs to their composite owners
    composite_owners =
      Paradigm.Graph.stream_all_nodes(graph)
      |> Enum.reduce(%{}, fn node, acc ->
        Enum.reduce(node.data, acc, fn {property_name, value}, inner_acc ->
          collect_composite_references(node, property_name, value, paradigm, inner_acc)
        end)
      end)

    # Find nodes with multiple composite owners
    composite_owners
    |> Enum.filter(fn {_referenced_id, owners} -> length(owners) > 1 end)
    |> Enum.flat_map(fn {referenced_id, owners} ->
      # Create issues for all owners except the first one
      [_first_owner | other_owners] = owners

      Enum.map(other_owners, fn {owner_node_id, property_name, first_owner_id} ->
        %Issue{
          kind: :multiple_composite_owners,
          node_id: owner_node_id,
          property: property_name,
          details: %{referenced_id: referenced_id, other_owner: first_owner_id}
        }
      end)
    end)
  end

  defp collect_composite_references(node, property_name, value, paradigm, acc) do
    # Get the property from the node's class hierarchy
    case get_class_safe(paradigm, node.class) do
      {:ok, class} ->
        properties_map = Paradigm.get_all_properties(class, paradigm)

        case Map.get(properties_map, property_name) do
          %{is_composite: true} = _property ->
            refs = extract_refs(value)

            Enum.reduce(refs, acc, fn %Ref{id: referenced_id}, inner_acc ->
              Map.update(
                inner_acc,
                referenced_id,
                [{node.id, property_name, node.id}],
                fn existing_owners ->
                  [{node.id, property_name, hd(existing_owners) |> elem(2)} | existing_owners]
                end
              )
            end)

          _ ->
            acc
        end

      _ ->
        acc
    end
  end

  # Helper functions
  defp get_class_safe(paradigm, class_name) do
    case Map.fetch(paradigm.classes, class_name) do
      {:ok, class} -> {:ok, class}
      :error -> {:error, :invalid_class}
    end
  end

  defp normalize_to_list(value) when is_list(value), do: value
  defp normalize_to_list(nil), do: []
  defp normalize_to_list(value), do: [value]

  defp extract_refs(value) when is_list(value) do
    Enum.filter(value, &(match?(%Ref{}, &1) or match?(%ExternalRef{}, &1)))
  end

  defp extract_refs(%Ref{} = ref), do: [ref]
  defp extract_refs(%ExternalRef{} = ref), do: [ref]
  defp extract_refs(_), do: []

  defp extract_non_refs(value) when is_list(value) do
    Enum.reject(value, &(match?(%Ref{}, &1) or match?(%ExternalRef{}, &1) or is_nil(&1)))
  end

  defp extract_non_refs(%Ref{}), do: []
  defp extract_non_refs(%ExternalRef{}), do: []
  defp extract_non_refs(nil), do: []
  defp extract_non_refs(value), do: [value]

  defp get_type_name(value) when is_binary(value), do: "string"
  defp get_type_name(value) when is_integer(value), do: "integer"
  defp get_type_name(value) when is_float(value), do: "float"
  defp get_type_name(value) when is_boolean(value), do: "boolean"
  defp get_type_name(value) when is_list(value), do: "list"
  defp get_type_name(value) when is_map(value), do: "map"
  defp get_type_name(_), do: "unknown"

  defp get_count(value) when is_list(value), do: length(value)
  defp get_count(nil), do: 0
  defp get_count(_), do: 1

  defp is_reference_property?(property, paradigm) do
    not (property.type in Map.keys(paradigm.primitive_types) or
           property.type in Map.keys(paradigm.enumerations))
  end

  defp is_enum_property?(property, paradigm) do
    Map.has_key?(paradigm.enumerations, property.type)
  end

  defp is_primitive_type?(type, paradigm) do
    Map.has_key?(paradigm.primitive_types, type)
  end

  defp valid_class_reference?(actual_class, expected_type, paradigm) do
    actual_class == expected_type or
      Paradigm.is_subclass_of?(actual_class, expected_type, paradigm)
  end
end