nex_json_schema

defmodule NExJsonSchema.Validator.Format do
  alias NExJsonSchema.Validator

  @date_regex ~r/^([\+-]?\d{4}(?!\d{2}\b))((-?)((0[1-9]|1[0-2])(\3([12]\d|0[1-9]|3[01]))?|W([0-4]\d|5[0-2])(-?[1-7])?|(00[1-9]|0[1-9]\d|[12]\d{2}|3([0-5]\d|6[1-6])))?)?$/
  @date_time_regex ~r/^(-?(?:[1-9][0-9]*)?[0-9]{4})-(1[0-2]|0[1-9])-(3[01]|0[1-9]|[12][0-9])T(2[0-3]|[01][0-9]):([0-5][0-9]):([0-5][0-9])(\.[0-9]+)?(Z|[+-](?:2[0-3]|[01][0-9]):[0-5][0-9])?$/
  @email_regex ~r<^[\w!#$%&'*+/=?`{|}~^-]+(?:\.[\w!#$%&'*+/=?`{|}~^-]+)*@(?:[A-Z0-9-]+\.)+[A-Z]{2,6}$>i
  @hostname_regex ~r/^((?=[a-z0-9-]{1,63}\.)(xn--)?[a-z0-9]+(-[a-z0-9]+)*\.)+[a-z]{2,63}$/i
  @ipv4_regex ~r/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/
  @ipv6_regex ~r/^(?:(?:[A-F0-9]{1,4}:){7}[A-F0-9]{1,4}|(?=(?:[A-F0-9]{0,4}:){0,7}[A-F0-9]{0,4}$)(([0-9A-F]{1,4}:){1,7}|:)((:[0-9A-F]{1,4}){1,7}|:)|(?:[A-F0-9]{1,4}:){7}:|:(:[A-F0-9]{1,4}){7})$/i

  @spec validate(String.t, String.t) :: Validator.errors_with_list_paths
  def validate(format, data) when is_binary(data) do
    do_validate(format, data)
  end

  @spec validate(String.t, NExJsonSchema.data) :: []
  def validate(_, _), do: []

  defp do_validate("date-time", data) do
    validate_with_regex(data, @date_time_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be a valid ISO 8601 date-time",
        rule: :datetime,
        params: [inspect(@date_time_regex)]
      }
    end)
  end

  defp do_validate("date", data) do
    validate_with_regex(data, @date_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be a valid ISO 8601 date",
        rule: :date,
        params: [inspect(@date_regex)]
      }
    end)
  end

  defp do_validate("email", data) do
    validate_with_regex(data, @email_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be an email address",
        rule: :email,
        params: [inspect(@email_regex)]
      }
    end)
  end

  defp do_validate("hostname", data) do
    validate_with_regex(data, @hostname_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be a host name",
        rule: :format,
        params: [inspect(@hostname_regex)]
      }
    end)
  end

  defp do_validate("ipv4", data) do
    validate_with_regex(data, @ipv4_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be an IPv4 address",
        rule: :format,
        params: [inspect(@ipv4_regex)]
      }
    end)
  end

  defp do_validate("ipv6", data) do
    validate_with_regex(data, @ipv6_regex, fn data ->
      %{
        description: "expected #{inspect(data)} to be an IPv6 address",
        rule: :format,
        params: [inspect(@ipv6_regex)]
      }
    end)
  end

  defp do_validate(_, _) do
    []
  end

  defp validate_with_regex(data, regex, failure_message_fun) do
    case Regex.match?(regex, data) do
      true -> []
      false -> [{failure_message_fun.(data), []}]
    end
  end
end