exiffer

defmodule Exiffer.Header.APP4 do
  @moduledoc """
  Documentation for `Exiffer.Header.APP4`.
  """

  alias Exiffer.{Binary, Buffer}
  require Logger

  @enforce_keys ~w(value)a
  defstruct ~w(value)a

  def new(%{data: <<0xff, 0xe4, _rest::binary>>} = buffer) do
    buffer = Buffer.skip(buffer, 2)
    {<<length_bytes::binary-size(2)>>, buffer} = Buffer.consume(buffer, 2)
    length = Binary.big_endian_to_integer(length_bytes)
    {value, buffer} = Buffer.consume(buffer, length - 2)
    app4 = %__MODULE__{value: value}
    {app4, buffer}
  end

  def binary(%__MODULE__{value: value}) do
    length = byte_size(value)
    length_binary = Binary.int16u_to_big_endian(2 + length)
    <<0xff, 0xe4, length_binary::binary, value::binary>>
  end

  def puts(%__MODULE__{value: value}) do
    length = byte_size(value)
    IO.puts "APP4"
    IO.puts "----"
    IO.puts "value: #{length} bytes"
  end

  def write(%__MODULE__{} = data, io_device) do
    Logger.debug "Writing APP4 header"
    binary = binary(data)
    :ok = IO.binwrite(io_device, binary)
  end

  defimpl Exiffer.Serialize do
    def binary(data) do
      Exiffer.Header.APP4.binary(data)
    end

    def puts(data) do
      Exiffer.Header.APP4.puts(data)
    end

    def write(data, io_device) do
      Exiffer.Header.APP4.write(data, io_device)
    end
  end
end