cco/ex-scopes
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

provide Environ.create() for simplification of init sequence

Browse source
This commit is contained in:
Helmut Merz 2026-06-21 17:30:06 +02:00
parent 4ec4b62a59
commit 7701030b0c
2 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/core/environ.ex
View file

@ -72,16 +72,19 @@ defmodule Scopes.Core.Environ do
Core.send_message(rcvr, head, data) Core.send_message(rcvr, head, data)
end end
def send_value(addr, value) do def send_value(addr = {dom, _cat, _item}, value) do
send_message(addr, ~w(csys data)a, %{value: value}) send_message(addr, [dom, :data], %{value: value})
end
def create(addr = {dom, _cat, _item}, args \\ []) do
send_message(addr, [dom, :create], Map.new(args))
end end
def connect(addr = {dom, _cat, _item}, target, op \\ []) do def connect(addr = {dom, _cat, _item}, target, op \\ []) do
send_message(addr, [dom, :connect], send_message(addr, [dom, :connect], %{target: get_cell(target), op: op})
%{target: get_cell(target), op: op})
end end
# delegating tasks to env # delegating tasks to env (possibly obsolete)
def delegate(env, func) do def delegate(env, func) do
Core.send_message(env, {:exec, func}) Core.send_message(env, {:exec, func})

15
lib/core/program.ex
View file

@ -126,12 +126,10 @@ defmodule Scopes.Core.Program do
two = {:csys, :c00, "1-1"} two = {:csys, :c00, "1-1"}
three = {:csys, :s01, "1-1"} three = {:csys, :s01, "1-1"}
[ [
fn -> Environ.send_message(zero, ~w(csys create)a, fn -> Environ.create(zero, addr: one, dir: :pred,
%{op: [Core.data_only(), negate()], addr: one, dir: :pred}) end, op: [Core.data_only(), negate()]) end,
fn -> Environ.send_message(one, ~w(csys create)a, fn -> Environ.create(one, op: Core.data_only(), addr: two, dir: :succ) end,
%{op: Core.data_only(), addr: two, dir: :succ}) end, fn -> Environ.create(two, addr: three, dir: :pred) end,
fn -> Environ.send_message(two, ~w(csys create)a,
%{addr: three, dir: :pred}) end,
fn -> Environ.connect(three, zero) end fn -> Environ.connect(three, zero) end
] ]
end end
@ -139,9 +137,8 @@ defmodule Scopes.Core.Program do
def init_recursive_1() do def init_recursive_1() do
zero = {:csys, :c00, "0-0"} zero = {:csys, :c00, "0-0"}
[ [
fn -> Environ.send_message(zero, ~w(csys create)a, %{dir: :succ}) end, fn -> Environ.create(zero, dir: :succ) end,
fn -> Environ.send_message(zero, ~w(csys create)a, fn -> Environ.create(zero, addr: {:csys, :s01, "1-1"}, dir: :pred) end,
%{addr: {:csys, :s01, "1-1"}, dir: :pred}) end,
fn -> Environ.connect(zero, zero, negate()) end fn -> Environ.connect(zero, zero, negate()) end
] ]
end end