bquarp

defmodule Network.Evaluator do
  use GenServer
  require Logger
  alias GenServer

  ####################

  # Client interface #

  ####################


  @doc """

  Start the GenServer.

  """
  def start_link(args \\ []) do
    GenServer.start_link(__MODULE__, args, name: __MODULE__)
  end

  @doc """

  Deploys a program locally in the reactor.

  """
  def deploy_program(program) do
    GenServer.cast(__MODULE__, {:deploy_program, program})
  end

  ####################

  # Server callbacks #

  ####################


  def init([]) do
    {:ok, %{}}
  end

  def handle_call({:deploy_program, program}, _from, state) do
    res = program.()

    Logger.debug("""

    Program evaluated

    ======================================

    Result of evaluation: #{inspect(res)}

    ======================================

    """)

    {:reply, :ok, state}
  end
end