sax

defmodule Sax.Parser.Utils do
  @moduledoc false

  alias Sax.ParseError

  @compile {:inline, [parse_error: 4]}

  def parse_error(buffer, position, _state, reason) do
    {
      :error,
      %ParseError{
        reason: reason,
        binary: buffer,
        position: position
      }
    }
  end

  @compile {:inline, [bad_return_error: 1]}

  def bad_return_error(return) do
    {
      :error,
      %ParseError{
        reason: {:bad_return, return}
      }
    }
  end

  @compile {:inline, [compute_char_len: 1]}

  def compute_char_len(char) do
    cond do
      char <= 0x7F -> 1
      char <= 0x7FF -> 2
      char <= 0xFFFF -> 3
      true -> 4
    end
  end

  @compile {:inline, [valid_pi_name?: 1]}

  def valid_pi_name?(<<l::integer, m::integer, x::integer>>)
      when x in [?X, ?x] or m in [?M, ?m] or l in [?L, ?l],
      do: false

  def valid_pi_name?(<<_::bits>>), do: true

  @compile {:inline, [valid_encoding?: 1]}

  def valid_encoding?(encoding) do
    String.upcase(encoding, :ascii) == "UTF-8"
  end
end