30 lines
655 B
Elixir
30 lines
655 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 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
|