defmodule Scopes.CSys do
  require Logger

  alias Scopes.Core.Actor
  alias Scopes.Shape

  def neuron(scope) do
    Logger.info([scope: inspect(scope)])
    Actor.create(fn msg -> process(msg, scope) end)
  end

  def update_neuron(scope) do
    Actor.become(self(), fn msg -> process(msg, scope) end)
  end

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

  # helper functions

  def process(msg, scope) do
    proc(scope).(msg, scope)
  end

  def send_message(rcvr, head, data) do
    Actor.send(rcvr, Shape.create(head, data: data))
  end

  def send_value(rcvr, val) do
    send_message(rcvr, [:csys, :data], %{value: val}) 
  end

  def state(scope), do: elem(scope, 0)
  def proc(scope), do: elem(scope, 1)
  def syns(scope), do: elem(scope, 2)
  def env(scope), do: elem(scope, 3)
end