defmodule Scopes.CSys do
  alias Scopes.Core.Actor

  def neuron(proc, scope) do
    fn msg -> proc.(msg, scope) end
  end

  def synapse(rcvr, op) do
    fn msg -> Actor.send(rcvr, op.(msg)) end
  end

  # predefined neuron processors

  def echo(msg, {_state, _syns, env}) do
    send(env, msg)
  end

  def std_proc(msg, {state, syns, env}) do
    case msg do
      {:parent} ->
        syn = synapse(self(), fn x -> x end)
        new = Actor.create(neuron(&std_proc/2, {nil, [syn], env}))
        # Actor.become(&std_proc/2, {state, syns, env})
        send(env, {:created, new})

      msg ->
        echo(msg, {state, syns, env})
    end
  end
end