54 lines
1.1 KiB
Elixir
54 lines
1.1 KiB
Elixir
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
|
|
|
|
# message handlers / proc steps
|
|
|
|
def process(msg, scope) do
|
|
proc(scope).(msg, scope)
|
|
end
|
|
|
|
def notify(msg, scope) do
|
|
Actor.send(env(scope), msg)
|
|
end
|
|
|
|
def forward(msg, scope) do
|
|
Enum.reduce(syns(scope), false, fn s, _acc -> s.(msg); true end)
|
|
end
|
|
|
|
# synapse operations
|
|
|
|
def noop(msg), do: msg
|
|
|
|
# `send` shortcuts
|
|
|
|
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
|
|
|
|
# scope access shortcuts
|
|
|
|
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
|