Qualify optimistic tree reparenting with authoritative cycle rejection

2026-09-20 22:25:11 -07:00
parent c0669d2ed8
commit d80464d285
5 changed files with 71 additions and 0 deletions
@@ -0,0 +1,19 @@
+workspace Tree id "workspace:tree" revision "workspace:tree@1" commit "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" {
+  import interface TreeData;
+  import package TreeRuntime;
+  atom Node id "tree:node";
+  conform Node as TreeData id "tree:node:data" {
+    private edge Parent id "tree:parent-edge" {
+      atom Node projection parent id "tree:parent-projection" optional-one;
+      interface TreeData projection children id "tree:children-projection" many;
+    }
+    bind parent.resolve to edge Parent.parent.resolve;
+    bind children.resolve to edge Parent.children.resolve;
+    bind reparent.call to package TreeRuntime.reparent with {
+      parent to edge Parent.parent;
+    } accept with {
+      current to edge Parent.parent;
+      ancestors to interface TreeData from input;
+    };
+  }
+}