From 1ff299bee112918e84bb6c68679a904346aca1b2 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Wed, 17 Jun 2026 14:39:40 +0200
Subject: [PATCH] use new :create action, remove old create actions and
 handlers

---
 lib/core/program.ex | 31 +++++++++----------------------
 1 file changed, 9 insertions(+), 22 deletions(-)

diff --git a/lib/core/program.ex b/lib/core/program.ex
index 24486d6..b77b28b 100644
--- a/lib/core/program.ex
+++ b/lib/core/program.ex
@@ -60,8 +60,6 @@ defmodule Scopes.Core.Program do
         [:csys, :data | _rest] -> process_basic(msg, scope, args)
         #[:csys, :trigger | _rest] -> process_trigger(msg, scope)
         [:csys, :connect | _rest] -> Core.connect(msg, scope)
-        [:csys, :create, :succ | _rest] -> create_succ(msg, scope)
-        [:csys, :create, :pred | _rest] -> create_pred(msg, scope)
         [:csys, :create | _rest] -> create(msg, scope)
         #[:csys, :next | _rest] -> next(msg, scope)
         _ -> Core.forward(msg, scope) || Core.notify(msg, scope)
@@ -92,18 +90,6 @@ defmodule Scopes.Core.Program do
     end
   end
 
-  def create_succ(msg, scope) do
-    new = Core.create(msg, restart(scope))
-    data = Shape.data(msg)
-    Core.send_message(self(), ~w(csys connect)a, Map.put(data, :target, new))
-  end
-
-  def create_pred(msg, scope) do
-    new = Core.create(msg, restart(scope))
-    data = Shape.data(msg)
-    Core.send_message(new, ~w(csys connect)a, Map.put(data, :target, self()))
-  end
-
   def create(msg, scope) do
     new = Core.create(msg, restart(scope))
     data = Shape.data(msg)
@@ -140,11 +126,12 @@ defmodule Scopes.Core.Program do
     two = [:csys, :c00, "1-1"]
     three = [:csys, :s01, "1-1"]
     [ 
-      &Environ.send_message(&1, zero, ~w(csys create pred)a, 
-        %{op: [Core.data_only(), negate()], addr: one}),
-      &Environ.send_message(&1, one, ~w(csys create succ)a, 
-        %{op: Core.data_only(), addr: two}),
-      &Environ.send_message(&1, two, ~w(csys create pred)a, %{addr: three}),
+      &Environ.send_message(&1, zero, ~w(csys create)a, 
+        %{op: [Core.data_only(), negate()], addr: one, dir: :pred}),
+      &Environ.send_message(&1, one, ~w(csys create)a, 
+        %{op: Core.data_only(), addr: two, dir: :succ}),
+      &Environ.send_message(&1, two, ~w(csys create)a, 
+        %{addr: three, dir: :pred}),
       &Environ.connect(&1, three, zero)
     ]
   end
@@ -152,9 +139,9 @@ defmodule Scopes.Core.Program do
   def init_recursive_1() do 
     zero = [:csys, :c00, "0-0"]
     [
-      &Environ.send_message(&1, zero, ~w(csys create succ)a, %{}),
-      &Environ.send_message(&1, zero, ~w(csys create pred)a,
-          %{addr: [:csys, :s01, "1-1"]}),
+      &Environ.send_message(&1, zero, ~w(csys create)a, %{dir: :succ}),
+      &Environ.send_message(&1, zero, ~w(csys create)a,
+        %{addr: [:csys, :s01, "1-1"], dir: :pred}),
       &Environ.connect(&1, zero, zero, negate())
     ]
   end