elixir_xdr

defmodule XDR.Struct do
  @behaviour XDR.Declaration
  @moduledoc """
  this module is in charge of process the struct types based on the RFC4056 XDR Standard
  """

  defstruct components: nil

  @typedoc """
  Every Struct structure has a component keyword which contains the keys and its representation value
  """
  @type t :: %XDR.Struct{components: keyword}

  alias XDR.Error.Struct

  @doc """
  this function provides an easy way to create an XDR.DoubleFloat type

  returns a XDR.DoubleFloat struct with the value received as parameter
  """
  @spec new(components :: keyword) :: t()
  def new(components), do: %XDR.Struct{components: components}

  @impl XDR.Declaration
  @doc """
  This function is in charge of encode structure types into and XDR format, it receives an XDR.Struct structure
  which contains the structure to encode

  returns an :ok tuple with the resulted XDR
  """
  @spec encode_xdr(map()) :: {:ok, binary}
  def encode_xdr(%{components: components}) when not is_list(components),
    do: raise(Struct, :not_list)

  def encode_xdr(%{components: []}), do: raise(Struct, :empty_list)

  def encode_xdr(%{components: components}) do
    xdr =
      components
      |> Enum.reduce(<<>>, fn {_key, component}, bytes ->
        component_module = component.__struct__
        bytes <> component_module.encode_xdr!(component)
      end)

    {:ok, xdr}
  end

  @impl XDR.Declaration
  @doc """
  This function is in charge of encode structure types into and XDR format, it receives an XDR.Struct structure
  which contains the structure to encode

  returns the resulted XDR
  """
  @spec encode_xdr!(map()) :: binary
  def encode_xdr!(struct), do: encode_xdr(struct) |> elem(1)

  @impl XDR.Declaration
  @doc """
    This function is in charge of decode an XDR into an structure, it receives an XDR.Struct structure
  which contains the binary to encode

  returns an :ok tuple with the resulted struct
  """
  @spec decode_xdr(bytes :: binary, struct :: map()) :: {:ok, {t(), binary()}}
  def decode_xdr(bytes, _struct) when not is_binary(bytes),
    do: raise(Struct, :not_binary)

  def decode_xdr(_bytes, %{components: components}) when not is_list(components),
    do: raise(Struct, :not_list)

  def decode_xdr(bytes, %{components: components}) do
    {rest, new_components} =
      bytes
      |> decode_struct(components)
      |> Keyword.pop(:rest)

    {:ok, {XDR.Struct.new(new_components), rest}}
  end

  @impl XDR.Declaration
  @doc """
    This function is in charge of decode an XDR into an structure, it receives an XDR.Struct structure
  which contains the binary to encode

  returns an :ok tuple with the resulted struct
  """
  @spec decode_xdr!(bytes :: binary, struct :: map()) :: {t(), binary()}
  def decode_xdr!(bytes, struct), do: decode_xdr(bytes, struct) |> elem(1)

  defp decode_struct(bytes, []), do: bytes

  defp decode_struct(bytes, [{key, component} | tail]) do
    {decoded_component, rest} = component.decode_xdr!(bytes)

    keyword1 = Keyword.new([{key, decoded_component}])
    merge_keyword(keyword1, decode_struct(rest, tail))
  end

  @spec merge_keyword(keyword1 :: keyword, keyword) :: keyword
  defp merge_keyword(keyword1, rest) when not is_list(rest),
    do: Keyword.merge(keyword1, rest: rest)

  defp merge_keyword(keyword1, keyword2), do: Keyword.merge(keyword1, keyword2)
end