webassembly

alias WebAssembly.Core

defmodule Core do
  #@moduledoc "Core of the elements assembly."
  @moduledoc false #todo

  defmodule Builder do
    @moduledoc false #todo

    @s __MODULE__
    @pid_key :builder_pid

    defstruct scopes: [], result: nil

    defp pid(), do: Process.get(@pid_key)

    @spec start() :: :ok
    def start() do
      {:ok, pid} = Agent.start_link(fn -> %@s{} end)
      Process.put(@pid_key, pid)
      :ok
    end

    @spec new_scope() :: :ok
    def new_scope() do
      Agent.update(pid, fn %{scopes: scopes} = state -> 
        %{ state | scopes: [[]|scopes] }
      end)
    end

    @spec push(T.content) :: :ok
    def push(val) do
      Agent.update(pid, fn %{scopes: [scope|prevs]} = state ->
        %{ state | scopes: [[val|scope] | prevs] }
      end)
    end

    @spec release_scope() :: :ok
    def release_scope() do
      import Enum, only: [reverse: 1]

      Agent.update(pid, fn
        %{scopes: [scope1,scope0|prevs]} = state ->
          scope_merged = [reverse(scope1) | scope0]
          %{ state | scopes: [scope_merged | prevs] }

        %{scopes: [scope|[]]} ->
          %@s{ result: reverse(scope), scopes: :finished }
      end)
    end

    require WebAssembly.Types, as: T

    @spec finish() :: [T.content]
    def finish() do
      result = Agent.get(pid, fn
        %{scopes: :finished, result: res} ->
        res
      end)
      :ok = Agent.stop(pid)
      result
    end
  end
end