31 lines
682 B
Elixir
31 lines
682 B
Elixir
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 forward(msg, {_state, syns, _env}) do
|
|
for s <- syns, do: s.(msg)
|
|
end
|
|
|
|
def std_proc({:parent}, {_state, _syns, env}) do
|
|
syn = synapse(self(), &Function.identity/1)
|
|
new = Actor.create(neuron(&std_proc/2, {nil, [syn], env}))
|
|
send(env, {:created, new})
|
|
end
|
|
|
|
def std_proc(msg, scope) do
|
|
if forward(msg, scope) === [], do: echo(msg, scope)
|
|
end
|
|
end
|