defmodule Membrane.AAC.Parser do
  @moduledoc """
  Parser for Advanced Audio Codec.

  Supports both plain and ADTS-encapsulated output (configured by `out_encapsulation`).
  Input with encapsulation `:none` is supported, but correct AAC stream format needs to be supplied with the stream.

  If PTS is absent, it calculates and puts one based on the sample rate.
  """
  use Membrane.Filter
  require Membrane.Logger
  alias __MODULE__.{ADTS, Config}
  alias Membrane.{AAC, Buffer}

  def_input_pad :input,
    flow_control: :manual,
    demand_unit: :buffers,
    accepted_format: any_of(AAC, Membrane.RemoteStream)

  def_output_pad :output, flow_control: :manual, accepted_format: AAC

  def_options samples_per_frame: [
                spec: AAC.samples_per_frame(),
                default: 1024,
                description: "Count of audio samples in each AAC frame"
              ],
              out_encapsulation: [
                spec: AAC.encapsulation(),
                default: :ADTS,
                description: """
                Determines whether output AAC frames should be prefixed with ADTS headers
                """
              ],
              audio_specific_config: [
                spec: binary() | nil,
                default: nil,
                description: """
                Decoder configuration data AudioSpecificConfig(), as defined in ISO/IEC 14496-3 - if received 
                via side channel it should be provided via this option.
                """
              ],
              output_config: [
                spec:
                  :audio_specific_config
                  | :esds
                  | {:esds, avg_bit_rate :: non_neg_integer(), max_bit_rate :: non_neg_integer()}
                  | nil,
                default: nil,
                description: """
                Determines which config spec will be generated and included in output stream format as `config`:
                  - `esds` - the field will be an `esds` MP4 atom. `avg_bit_rate` and `max_bit_rate` can be 
                    additionally provided and will be included in the `esds`. If not provided they will be set to 0.
                  - `audio_specific_config` - the field will be a decoder configuration data AudioSpecificConfig(), 
                as defined in ISO/IEC 14496-3.
                """
              ]

  @type timestamp :: Ratio.t() | Membrane.Time.t()

  defmodule State do
    @moduledoc false

    @type t :: %__MODULE__{
            samples_per_frame: AAC.samples_per_frame(),
            out_encapsulation: AAC.encapsulation(),
            audio_specific_config: binary() | nil,
            output_config: :audio_specific_config | :esds | nil,
            avg_bit_rate: non_neg_integer(),
            max_bit_rate: non_neg_integer(),
            leftover: binary(),
            timestamp: Membrane.AAC.Parser.timestamp(),
            in_encapsulation: AAC.encapsulation() | nil
          }

    @enforce_keys [
      :samples_per_frame,
      :out_encapsulation,
      :audio_specific_config,
      :output_config,
      :avg_bit_rate,
      :max_bit_rate
    ]
    defstruct @enforce_keys ++
                [
                  leftover: <<>>,
                  timestamp: 0,
                  in_encapsulation: nil
                ]
  end

  @impl true
  def handle_init(_ctx, opts) do
    {output_config, avg_bit_rate, max_bit_rate} =
      case opts.output_config do
        {:esds, avg_bit_rate, max_bit_rate} -> {:esds, avg_bit_rate, max_bit_rate}
        config -> {config, 0, 0}
      end

    state = %State{
      samples_per_frame: opts.samples_per_frame,
      out_encapsulation: opts.out_encapsulation,
      audio_specific_config: opts.audio_specific_config,
      output_config: output_config,
      avg_bit_rate: avg_bit_rate,
      max_bit_rate: max_bit_rate
    }

    {[], state}
  end

  @impl true
  def handle_stream_format(:input, %AAC{} = stream_format, _ctx, state) do
    stream_format =
      stream_format
      |> Map.update!(:config, fn stream_format_config ->
        case {stream_format_config, state.audio_specific_config} do
          {nil, nil} ->
            nil

          {nil, state_config} ->
            {:audio_specific_config, state_config}

          {stream_format_config, nil} ->
            stream_format_config

          {stream_format_config, _non_nil_state_config} ->
            Membrane.Logger.warning(
              "AAC config provided both with stream_format and options, ignoring the latter"
            )

            stream_format_config
        end
      end)
      |> Config.parse_config()

    config = Config.generate_config(stream_format, state)

    {[
       stream_format:
         {:output, %{stream_format | encapsulation: state.out_encapsulation, config: config}}
     ], %{state | in_encapsulation: stream_format.encapsulation}}
  end

  @impl true
  def handle_stream_format(:input, %Membrane.RemoteStream{}, _ctx, state) do
    {[], %{state | in_encapsulation: :ADTS}}
  end

  @impl true
  def handle_buffer(:input, buffer, ctx, %{in_encapsulation: :ADTS} = state) do
    %{stream_format: stream_format} = ctx.pads.output
    timestamp = buffer.pts || state.timestamp

    case ADTS.parse_adts(state.leftover <> buffer.payload, stream_format, timestamp, state) do
      {:ok, {output, leftover, timestamp}} ->
        actions = Enum.map(output, fn {action, value} -> {action, {:output, value}} end)

        {actions ++ [redemand: :output], %{state | leftover: leftover, timestamp: timestamp}}

      {:error, reason} ->
        raise "Could not parse incoming buffer due to #{inspect(reason)}"
    end
  end

  @impl true
  def handle_buffer(:input, buffer, ctx, %{in_encapsulation: :none} = state) do
    timestamp = buffer.pts || ADTS.next_timestamp(state.timestamp, ctx.pads.output.stream_format)

    buffer = %{buffer | pts: timestamp |> Ratio.to_float() |> round()}

    buffer =
      case state.out_encapsulation do
        :ADTS ->
          %Buffer{
            buffer
            | payload: ADTS.payload_to_adts(buffer.payload, ctx.pads.output.stream_format)
          }

        _other ->
          buffer
      end

    {[buffer: {:output, buffer}], %{state | timestamp: timestamp}}
  end

  @impl true
  def handle_demand(:output, size, :buffers, _ctx, state) do
    {[demand: {:input, size}], state}
  end
end