44 lines
1 KiB
Elixir
44 lines
1 KiB
Elixir
defmodule Scopes.CSys do
|
|
require Logger
|
|
|
|
alias Scopes.Core.Actor
|
|
alias Scopes.CSys.Environ
|
|
alias Scopes.Shape
|
|
|
|
def neuron(scope) do
|
|
Logger.info([scope: inspect(scope)])
|
|
Actor.create(fn msg -> process(msg, scope) end)
|
|
# Environ.register(env, ac, ...)
|
|
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
|
|
|
|
defp process(msg, scope) do
|
|
proc(scope).(msg, scope)
|
|
end
|
|
|
|
def setup(progname, prog) do
|
|
env = Environ.create(self())
|
|
Environ.put_prog(env, progname, prog)
|
|
proc = Environ.get_stage(env, progname, :initial)
|
|
neuron({[], proc, [], env})
|
|
end
|
|
|
|
def send_value(rcvr, val) do
|
|
msg = Shape.create([:csys, :data], data: %{value: val})
|
|
Actor.send(rcvr, msg)
|
|
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
|