acl.go

@@ -0,0 +1,233 @@
+package graphvent
+
+import (
+  "github.com/google/uuid"
+  "slices"
+  "time"
+)
+
+type ACLSignal struct {
+  SignalHeader
+  Principal NodeID `gv:"principal"`
+  Action Tree `gv:"tree"`
+}
+
+func NewACLSignal(principal NodeID, action Tree) *ACLSignal {
+  return &ACLSignal{
+    SignalHeader: NewSignalHeader(Direct),
+    Principal: principal,
+    Action: action,
+  }
+}
+
+var DefaultACLPolicy = NewAllNodesPolicy(Tree{
+  SerializedType(SignalTypeFor[ACLSignal]()): nil,
+})
+
+func (signal ACLSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[ACLSignal]()): nil,
+  }
+}
+
+type ACLExt struct {
+  Policies []Policy `gv:"policies"`
+  PendingACLs map[uuid.UUID]PendingACL `gv:"pending_acls"`
+  Pending map[uuid.UUID]PendingACLSignal `gv:"pending"`
+}
+
+func NewACLExt(policies []Policy) *ACLExt {
+  return &ACLExt{
+    Policies: policies,
+    PendingACLs: map[uuid.UUID]PendingACL{},
+    Pending: map[uuid.UUID]PendingACLSignal{},
+  }
+}
+
+func (ext *ACLExt) Load(ctx *Context, node *Node) error {
+  return nil
+}
+
+func (ext *ACLExt) Unload(ctx *Context, node *Node) {
+}
+
+func (ext *ACLExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
+  response, is_response := signal.(ResponseSignal)
+  if is_response == true {
+    var messages Messages = nil
+    var changes = Changes{}
+    info, waiting := ext.Pending[response.ResponseID()]
+    if waiting == true {
+      changes.Add("pending")
+      delete(ext.Pending, response.ResponseID())
+      if response.ID() != info.Timeout {
+        err := node.DequeueSignal(info.Timeout)
+        if err != nil {
+          ctx.Log.Logf("acl", "timeout dequeue error: %s", err)
+        }
+      }
+
+      acl_info, found := ext.PendingACLs[info.ID]
+      if found == true {
+        acl_info.Counter -= 1
+        acl_info.Responses = append(acl_info.Responses, response)
+
+        policy_index := slices.IndexFunc(ext.Policies, func(policy Policy) bool {
+          return policy.ID() == info.Policy
+        })
+
+        if policy_index == -1 {
+          ctx.Log.Logf("acl", "pending signal for nonexistent policy")
+          delete(ext.PendingACLs, info.ID)
+          err := node.DequeueSignal(acl_info.TimeoutID)
+          if err != nil {
+            ctx.Log.Logf("acl", "acl proxy timeout dequeue error: %s", err)
+          }
+        } else {
+          if ext.Policies[policy_index].ContinueAllows(ctx, acl_info, response) == Allow {
+            changes.Add("pending_acls")
+            delete(ext.PendingACLs, info.ID)
+            ctx.Log.Logf("acl", "Request delayed allow")
+            messages = messages.Add(ctx, acl_info.Source, node, nil, NewSuccessSignal(info.ID))
+            err := node.DequeueSignal(acl_info.TimeoutID)
+            if err != nil {
+              ctx.Log.Logf("acl", "acl proxy timeout dequeue error: %s", err)
+            }
+          } else if acl_info.Counter == 0 {
+            changes.Add("pending_acls")
+            delete(ext.PendingACLs, info.ID)
+            ctx.Log.Logf("acl", "Request delayed deny")
+            messages = messages.Add(ctx, acl_info.Source, node, nil, NewErrorSignal(info.ID, "acl_denied"))
+            err := node.DequeueSignal(acl_info.TimeoutID)
+            if err != nil {
+              ctx.Log.Logf("acl", "acl proxy timeout dequeue error: %s", err)
+            }
+          } else {
+            node.PendingACLs[info.ID] = acl_info
+            changes.Add("pending_acls")
+          }
+        }
+      }
+    }
+    return messages, changes
+  }
+
+  var messages Messages = nil
+  var changes = Changes{}
+
+  switch sig := signal.(type) {
+  case *ACLSignal:
+    var acl_messages map[uuid.UUID]Messages = nil
+    denied := true
+    for _, policy := range(ext.Policies) {
+      policy_messages, result := policy.Allows(ctx, sig.Principal, sig.Action, node)
+      if result == Allow {
+        denied = false
+        break
+      } else if result == Pending {
+        if len(policy_messages) == 0 {
+          ctx.Log.Logf("acl", "Pending result for %s with no messages returned", policy.ID())
+          continue
+        } else if acl_messages == nil {
+          acl_messages = map[uuid.UUID]Messages{}
+          denied = false
+        }
+
+        acl_messages[policy.ID()] = policy_messages
+        ctx.Log.Logf("acl", "Pending result for %s:%s - %+v", node.ID, policy.ID(), acl_messages)
+      }
+    }
+
+    if denied == true {
+      ctx.Log.Logf("acl", "Request denied")
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "acl_denied"))
+    } else if acl_messages != nil {
+      ctx.Log.Logf("acl", "Request pending")
+      changes.Add("pending")
+      total_messages := 0
+      // TODO: reasonable timeout/configurable
+      timeout_time := time.Now().Add(time.Second)
+      for policy_id, policy_messages := range(acl_messages) {
+        total_messages += len(policy_messages)
+        for _, message := range(policy_messages) {
+          timeout_signal := NewTimeoutSignal(message.Signal.ID())
+          ext.Pending[message.Signal.ID()] = PendingACLSignal{
+            Policy: policy_id,
+            Timeout: timeout_signal.Id,
+            ID: sig.Id,
+          }
+          node.QueueSignal(timeout_time, timeout_signal)
+          messages = append(messages, message)
+        }
+      }
+
+      acl_timeout := NewACLTimeoutSignal(sig.Id)
+      node.QueueSignal(timeout_time, acl_timeout)
+      ext.PendingACLs[sig.Id] = PendingACL{
+        Counter: total_messages,
+        Responses: []ResponseSignal{},
+        TimeoutID: acl_timeout.Id,
+        Action: sig.Action,
+        Principal: sig.Principal,
+
+        Source: source,
+        Signal: signal,
+      }
+    } else {
+      ctx.Log.Logf("acl", "Request allowed")
+      messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
+    }
+    // Test an action against the policy list, sending any intermediate signals necessary and seeting Pending and PendingACLs accordingly. Add a TimeoutSignal for every message awaiting a response, and an ACLTimeoutSignal for the overall request
+  case *ACLTimeoutSignal:
+    acl_info, exists := ext.PendingACLs[sig.ReqID]
+    if exists == true {
+      delete(ext.PendingACLs, sig.ReqID)
+      changes.Add("pending_acls")
+      ctx.Log.Logf("acl", "Request timeout deny")
+      messages = messages.Add(ctx, acl_info.Source, node, nil, NewErrorSignal(sig.ReqID, "acl_timeout"))
+      err := node.DequeueSignal(acl_info.TimeoutID)
+      if err != nil {
+        ctx.Log.Logf("acl", "acl proxy timeout dequeue error: %s", err)
+      }
+    } else {
+      ctx.Log.Logf("acl", "ACL_TIMEOUT_SIGNAL for passed acl")
+    }
+    // Delete from PendingACLs
+  }
+
+  return messages, changes
+}
+
+type ACLProxyPolicy struct {
+  PolicyHeader
+  Proxies []NodeID `gv:"proxies"`
+}
+
+func NewACLProxyPolicy(proxies []NodeID) ACLProxyPolicy {
+  return ACLProxyPolicy{
+    NewPolicyHeader(),
+    proxies,
+  }
+}
+
+func (policy ACLProxyPolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node) (Messages, RuleResult) {
+  if len(policy.Proxies) == 0 {
+    return nil, Deny
+  }
+
+  messages := Messages{}
+  for _, proxy := range(policy.Proxies) {
+    messages = messages.Add(ctx, proxy, node, nil, NewACLSignal(principal_id, action))
+  }
+
+  return messages, Pending
+}
+
+func (policy ACLProxyPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  _, is_success := signal.(*SuccessSignal)
+  if is_success == true {
+    return Allow
+  }
+  return Deny
+}
+

acl_test.go

@@ -0,0 +1,141 @@
+package graphvent
+
+import (
+  "testing"
+  "time"
+  "reflect"
+  "runtime/debug"
+)
+
+func checkSignal[S Signal](t *testing.T, signal Signal, check func(S)){
+  response_casted, cast_ok := signal.(S)
+  if cast_ok == false {
+    error_signal, is_error := signal.(*ErrorSignal)
+    if is_error {
+      t.Log(string(debug.Stack()))
+      t.Fatal(error_signal.Error)
+    }
+    t.Fatalf("Response of wrong type %s", reflect.TypeOf(signal))
+  }
+
+  check(response_casted)
+}
+
+func testSendACL[S Signal](t *testing.T, ctx *Context, listener *Node, action Tree, policies []Policy, check func(S)){
+  acl_node, err := NewNode(ctx, nil, "Base", 100, []Policy{DefaultACLPolicy}, NewACLExt(policies))
+  fatalErr(t, err)
+
+  acl_signal := NewACLSignal(listener.ID, action)
+  response, _ := testSend(t, ctx, acl_signal, listener, acl_node)
+
+  checkSignal(t, response, check)
+}
+
+func testErrorSignal(t *testing.T, error_string string) func(*ErrorSignal){
+  return func(response *ErrorSignal) {
+    if response.Error != error_string {
+      t.Fatalf("Wrong error: %s", response.Error)
+    }
+  }
+}
+
+func testSuccess(*SuccessSignal){}
+
+func testSend(t *testing.T, ctx *Context, signal Signal, source, destination *Node) (ResponseSignal, []Signal) {
+  source_listener, err := GetExt[ListenerExt](source)
+  fatalErr(t, err)
+
+  messages := Messages{}
+  messages = messages.Add(ctx, destination.ID, source, nil, signal)
+  fatalErr(t, ctx.Send(messages))
+
+  response, signals, err := WaitForResponse(source_listener.Chan, time.Millisecond*10, signal.ID())
+  fatalErr(t, err)
+
+  return response, signals
+}
+
+func TestACLBasic(t *testing.T) {
+  ctx := logTestContext(t, []string{"test", "acl", "group", "read_field"})
+
+  listener, err := NewNode(ctx, nil, "Base", 100, nil, NewListenerExt(100))
+  fatalErr(t, err)
+
+  ctx.Log.Logf("test", "testing fail")
+  testSendACL(t, ctx, listener, nil, nil, testErrorSignal(t, "acl_denied"))
+
+  ctx.Log.Logf("test", "testing allow all")
+  testSendACL(t, ctx, listener, nil, []Policy{NewAllNodesPolicy(nil)}, testSuccess)
+
+  group, err := NewNode(ctx, nil, "Base", 100, []Policy{
+    DefaultGroupPolicy,
+    NewPerNodePolicy(map[NodeID]Tree{
+      listener.ID: {
+        SerializedType(SignalTypeFor[AddSubGroupSignal]()): nil,
+        SerializedType(SignalTypeFor[AddMemberSignal]()): nil,
+      },
+    }),
+  }, NewGroupExt(nil))
+  fatalErr(t, err)
+
+  ctx.Log.Logf("test", "testing empty groups")
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewMemberOfPolicy(map[NodeID]map[string]Tree{
+      group.ID: {
+        "test_group": nil,
+      },
+    }),
+  }, testErrorSignal(t, "acl_denied"))
+
+  ctx.Log.Logf("test", "testing adding group")
+  add_subgroup_signal := NewAddSubGroupSignal("test_group")
+  add_subgroup_response, _ := testSend(t, ctx, add_subgroup_signal, listener, group)
+  checkSignal(t, add_subgroup_response, testSuccess)
+
+  ctx.Log.Logf("test", "testing adding member")
+  add_member_signal := NewAddMemberSignal("test_group", listener.ID)
+  add_member_response, _ := testSend(t, ctx, add_member_signal, listener, group)
+  checkSignal(t, add_member_response, testSuccess)
+
+  ctx.Log.Logf("test", "testing group membership")
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewMemberOfPolicy(map[NodeID]map[string]Tree{
+      group.ID: {
+        "test_group": nil,
+      },
+    }),
+  }, testSuccess)
+
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewACLProxyPolicy(nil),
+  }, testErrorSignal(t, "acl_denied"))
+
+  acl_proxy_1, err := NewNode(ctx, nil, "Base", 100, []Policy{DefaultACLPolicy}, NewACLExt(nil))
+  fatalErr(t, err)
+
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewACLProxyPolicy([]NodeID{acl_proxy_1.ID}),
+  }, testErrorSignal(t, "acl_denied"))
+
+  acl_proxy_2, err := NewNode(ctx, nil, "Base", 100, []Policy{DefaultACLPolicy}, NewACLExt([]Policy{NewAllNodesPolicy(nil)}))
+  fatalErr(t, err)
+
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewACLProxyPolicy([]NodeID{acl_proxy_2.ID}),
+  }, testSuccess)
+
+  acl_proxy_3, err := NewNode(ctx, nil, "Base", 100, []Policy{DefaultACLPolicy},
+    NewACLExt([]Policy{
+      NewMemberOfPolicy(map[NodeID]map[string]Tree{
+        group.ID: {
+          "test_group": nil,
+        },
+      }),
+    }),
+  )
+  fatalErr(t, err)
+
+  testSendACL(t, ctx, listener, nil, []Policy{
+    NewACLProxyPolicy([]NodeID{acl_proxy_3.ID}),
+  }, testSuccess)
+}

cmd/graphiql/main.go

@@ -1,43 +0,0 @@
-package main
-
-import (
-	"fmt"
-
-	badger "github.com/dgraph-io/badger/v3"
-	gv "github.com/mekkanized/graphvent"
-)
-
-func check(err error) {
-  if err != nil {
-    panic(err)
-  }
-}
-
-func main() {
-  db, err := badger.Open(badger.DefaultOptions("").WithInMemory(true))
-  check(err)
-
-  ctx, err := gv.NewContext(db, gv.NewConsoleLogger([]string{"test", "signal"}))
-  check(err)
-
-  gql_ext, err := gv.NewGQLExt(ctx, ":8080", nil, nil)
-  check(err)
-
-  listener_ext := gv.NewListenerExt(1000)
-
-  n1, err := gv.NewNode(ctx, nil, "Lockable", 1000, gv.NewLockableExt(nil))
-  check(err)
-
-  n2, err := gv.NewNode(ctx, nil, "Lockable", 1000, gv.NewLockableExt([]gv.NodeID{n1.ID}))
-  check(err)
-
-  _, err = gv.NewNode(ctx, nil, "Lockable", 1000, gql_ext, listener_ext, gv.NewLockableExt([]gv.NodeID{n2.ID}))
-  check(err)
-
-  for true {
-    select {
-    case message := <- listener_ext.Chan:
-      fmt.Printf("Listener Message: %+v\n", message)
-    }
-  }
-}

db.go

@@ -1,195 +0,0 @@
-package graphvent
-
-import (
-	"encoding/binary"
-	"fmt"
-
-	badger "github.com/dgraph-io/badger/v3"
-)
-
-func WriteNodeInit(ctx *Context, node *Node) error {
-  if node == nil {
-    return fmt.Errorf("Cannot serialize nil *Node")
-  }
-
-  return ctx.DB.Update(func(tx *badger.Txn) error {
-    // Get the base key bytes
-    id_ser, err := node.ID.MarshalBinary()
-    if err != nil {
-      return err
-    }
-
-    // Write Node value
-    node_val, err := Serialize(ctx, node)
-    if err != nil {
-      return err
-    }
-    err = tx.Set(id_ser, node_val)
-    if err != nil {
-      return err
-    }
-    
-    // Write empty signal queue
-    sigqueue_id := append(id_ser, []byte(" - SIGQUEUE")...)
-    sigqueue_val, err := Serialize(ctx, node.SignalQueue)
-    if err != nil {
-      return err
-    }
-    err = tx.Set(sigqueue_id, sigqueue_val)
-    if err != nil {
-      return err
-    }
-
-    // Write node extension list
-    ext_list := []ExtType{}
-    for ext_type := range(node.Extensions) {
-      ext_list = append(ext_list, ext_type)
-    }
-    ext_list_val, err := Serialize(ctx, ext_list)
-    if err != nil {
-      return err
-    }
-    ext_list_id := append(id_ser, []byte(" - EXTLIST")...)
-    err = tx.Set(ext_list_id, ext_list_val)
-    if err != nil {
-      return err
-    }
-
-    // For each extension:
-    for ext_type, ext := range(node.Extensions) {
-      // Write each extension's current value
-      ext_id := binary.BigEndian.AppendUint64(id_ser, uint64(ext_type))
-      ext_val, err := Serialize(ctx, ext)
-      if err != nil {
-        return err
-      }
-      err = tx.Set(ext_id, ext_val)
-    }
-    return nil
-  })
-}
-
-func WriteNodeChanges(ctx *Context, node *Node, changes map[ExtType]Changes) error {
-  return ctx.DB.Update(func(tx *badger.Txn) error {
-    // Get the base key bytes
-    id_ser, err := node.ID.MarshalBinary()
-    if err != nil {
-      return err
-    }
-
-    // Write the signal queue if it needs to be written
-    if node.writeSignalQueue {
-      node.writeSignalQueue = false
-
-      sigqueue_id := append(id_ser, []byte(" - SIGQUEUE")...)
-      sigqueue_val, err := Serialize(ctx, node.SignalQueue)
-      if err != nil {
-        return err
-      }
-      err = tx.Set(sigqueue_id, sigqueue_val)
-      if err != nil {
-        return err
-      }
-    }
-
-    // For each ext in changes
-    for ext_type := range(changes) {
-      // Write each ext
-      ext, exists := node.Extensions[ext_type]
-      if exists == false {
-        return fmt.Errorf("%s is not an extension in %s", ext_type, node.ID)
-      }
-      ext_id := binary.BigEndian.AppendUint64(id_ser, uint64(ext_type))
-      ext_ser, err := Serialize(ctx, ext)
-      if err != nil {
-        return err
-      }
-
-      err = tx.Set(ext_id, ext_ser)
-      if err != nil {
-        return err
-      }
-    }
-    return nil
-  })
-}
-
-func LoadNode(ctx *Context, id NodeID) (*Node, error) {
-  var node *Node = nil
-  err := ctx.DB.View(func(tx *badger.Txn) error {
-    // Get the base key bytes
-    id_ser, err := id.MarshalBinary()
-    if err != nil {
-      return err
-    }
-
-    // Get the node value
-    node_item, err := tx.Get(id_ser)
-    if err != nil {
-      return err
-    }
-
-    err = node_item.Value(func(val []byte) error {
-      node, err = Deserialize[*Node](ctx, val)
-      return err
-    })
-
-    if err != nil {
-      return nil
-    }
-
-    // Get the signal queue
-    sigqueue_id := append(id_ser, []byte(" - SIGQUEUE")...)
-    sigqueue_item, err := tx.Get(sigqueue_id)
-    if err != nil {
-      return err
-    }
-    err = sigqueue_item.Value(func(val []byte) error {
-      node.SignalQueue, err = Deserialize[[]QueuedSignal](ctx, val)
-      return err
-    })
-    if err != nil {
-      return err
-    }
-
-    // Get the extension list
-    ext_list_id := append(id_ser, []byte(" - EXTLIST")...)
-    ext_list_item, err := tx.Get(ext_list_id)
-    if err != nil {
-      return err
-    }
-
-    var ext_list []ExtType
-    ext_list_item.Value(func(val []byte) error {
-      ext_list, err = Deserialize[[]ExtType](ctx, val)
-      return err
-    })
-
-    // Get the extensions
-    for _, ext_type := range(ext_list) {
-      ext_id := binary.BigEndian.AppendUint64(id_ser, uint64(ext_type))
-      ext_item, err := tx.Get(ext_id)
-      if err != nil {
-        return err
-      }
-
-      var ext Extension
-      err = ext_item.Value(func(val []byte) error {
-        ext, err = Deserialize[Extension](ctx, val)
-        return err
-      })
-      if err != nil {
-        return err
-      }
-      node.Extensions[ext_type] = ext
-    }
-
-    return nil
-  })
-
-  if err != nil {
-    return nil, err
-  }
-
-  return node, nil
-} 

event.go

@@ -8,11 +8,45 @@ import (
 type EventCommand string
 type EventState string
 
+type ParentOfPolicy struct {
+  PolicyHeader
+  Policy Tree
+}
+
+func NewParentOfPolicy(policy Tree) *ParentOfPolicy {
+  return &ParentOfPolicy{
+    PolicyHeader: NewPolicyHeader(),
+    Policy: policy,
+  }
+}
+
+func (policy ParentOfPolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node)(Messages, RuleResult) {
+  event_ext, err := GetExt[EventExt](node)
+  if err != nil {
+    ctx.Log.Logf("event", "ParentOfPolicy, node not event %s", node.ID)
+    return nil, Deny
+  }
+
+  if event_ext.Parent == principal_id {
+    return nil, policy.Policy.Allows(action)
+  }
+
+  return nil, Deny
+}
+
+func (policy ParentOfPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  return Deny
+}
+
+var DefaultEventPolicy = NewParentOfPolicy(Tree{
+  SerializedType(SignalTypeFor[EventControlSignal]()): nil,
+})
+
 type EventExt struct {
   Name string `gv:"name"`
   State EventState `gv:"state"`
   StateStart time.Time `gv:"state_start"`
-  Parent NodeID `gv:"parent" node:"Base"`
+  Parent NodeID `gv:"parent"`
 }
 
 func (ext *EventExt) Load(ctx *Context, node *Node) error {
@@ -37,13 +71,19 @@ type EventStateSignal struct {
   Time time.Time `gv:"time"`
 }
 
+func (signal EventStateSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[StatusSignal]()): nil,
+  }
+}
+
 func (signal EventStateSignal) String() string {
   return fmt.Sprintf("EventStateSignal(%s, %s, %s, %+v)", signal.SignalHeader, signal.Source, signal.State, signal.Time)
 }
 
 func NewEventStateSignal(source NodeID, state EventState, t time.Time) *EventStateSignal {
   return &EventStateSignal{
-    SignalHeader: NewSignalHeader(),
+    SignalHeader: NewSignalHeader(Up),
     Source: source,
     State: state,
     Time: t,
@@ -61,11 +101,19 @@ func (signal EventControlSignal) String() string {
 
 func NewEventControlSignal(command EventCommand) *EventControlSignal {
   return &EventControlSignal{
-    NewSignalHeader(),
+    NewSignalHeader(Direct),
     command,
   }
 }
 
+func (signal EventControlSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[EventControlSignal]()): {
+      Hash("command", string(signal.Command)): nil,
+    },
+  }
+}
+
 func (ext *EventExt) UpdateState(node *Node, changes Changes, state EventState, state_start time.Time) {
   if ext.State != state {
     ext.StateStart = state_start
@@ -75,10 +123,14 @@ func (ext *EventExt) UpdateState(node *Node, changes Changes, state EventState,
   }
 }
 
-func (ext *EventExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) ([]SendMsg, Changes) {
+func (ext *EventExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
 
+  if signal.Direction() == Up && ext.Parent != node.ID {
+    messages = messages.Add(ctx, ext.Parent, node, nil, signal)
+  }
+
   return messages, changes
 }
 
@@ -113,27 +165,27 @@ var test_event_commands = EventCommandMap{
 }
 
 
-func (ext *TestEventExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) ([]SendMsg, Changes) {
+func (ext *TestEventExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
 
   switch sig := signal.(type) {
   case *EventControlSignal:
     event_ext, err := GetExt[EventExt](node)
     if err != nil {
-      messages = append(messages, SendMsg{source, NewErrorSignal(sig.Id, "not_event")})
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "not_event"))
     } else {
       ctx.Log.Logf("event", "%s got %s EventControlSignal while in %s", node.ID, sig.Command, event_ext.State)
       new_state, error_signal := event_ext.ValidateEventCommand(sig, test_event_commands)
       if error_signal != nil {
-        messages = append(messages, SendMsg{source, error_signal})
+        messages = messages.Add(ctx, source, node, nil, error_signal)
       } else {
         switch sig.Command {
         case "start":
           node.QueueSignal(time.Now().Add(ext.Length), NewEventControlSignal("finish"))
         }
         event_ext.UpdateState(node, changes, new_state, time.Now())
-        messages = append(messages, SendMsg{source, NewSuccessSignal(sig.Id)})
+        messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
       }
     }
   }

event_test.go

@@ -11,13 +11,11 @@ func TestEvent(t *testing.T) {
   ctx := logTestContext(t, []string{"event", "listener", "listener_debug"})
   err := RegisterExtension[TestEventExt](ctx, nil)
   fatalErr(t, err)
-  err = RegisterObject[TestEventExt](ctx)
-  fatalErr(t, err)
 
 
   event_public, event_private, err := ed25519.GenerateKey(rand.Reader)
   event_listener := NewListenerExt(100)
-  event, err := NewNode(ctx, event_private, "Base", 100, NewEventExt(KeyID(event_public), "Test Event"), &TestEventExt{time.Second}, event_listener)
+  event, err := NewNode(ctx, event_private, "Base", 100, nil, NewEventExt(KeyID(event_public), "Test Event"), &TestEventExt{time.Second}, event_listener)
   fatalErr(t, err)
 
   response, signals := testSend(t, ctx, NewEventControlSignal("ready?"), event, event)

extension.go

@@ -7,7 +7,7 @@ import (
 // Extensions are data attached to nodes that process signals
 type Extension interface {
   // Called to process incoming signals, returning changes and messages to send
-  Process(*Context, *Node, NodeID, Signal) ([]SendMsg, Changes)
+  Process(*Context, *Node, NodeID, Signal) (Messages, Changes)
 
   // Called when the node is loaded into a context(creation or move), so extension data can be initialized
   Load(*Context, *Node) error

go.mod

@@ -31,6 +31,6 @@ require (
 	github.com/pkg/errors v0.9.1 // indirect
 	github.com/stretchr/testify v1.8.2 // indirect
 	go.opencensus.io v0.22.5 // indirect
-	golang.org/x/exp v0.0.0-20240222234643-814bf88cf225 // indirect
+	golang.org/x/exp v0.0.0-20231006140011-7918f672742d // indirect
 	golang.org/x/sys v0.13.0 // indirect
 )

go.sum

@@ -111,8 +111,6 @@ golang.org/x/crypto v0.0.0-20200622213623-75b288015ac9/go.mod h1:LzIPMQfyMNhhGPh
 golang.org/x/exp v0.0.0-20190121172915-509febef88a4/go.mod h1:CJ0aWSM057203Lf6IL+f9T1iT9GByDxfZKAQTCR3kQA=
 golang.org/x/exp v0.0.0-20231006140011-7918f672742d h1:jtJma62tbqLibJ5sFQz8bKtEM8rJBtfilJ2qTU199MI=
 golang.org/x/exp v0.0.0-20231006140011-7918f672742d/go.mod h1:ldy0pHrwJyGW56pPQzzkH36rKxoZW1tw7ZJpeKx+hdo=
-golang.org/x/exp v0.0.0-20240222234643-814bf88cf225 h1:LfspQV/FYTatPTr/3HzIcmiUFH7PGP+OQ6mgDYo3yuQ=
-golang.org/x/exp v0.0.0-20240222234643-814bf88cf225/go.mod h1:CxmFvTBINI24O/j8iY7H1xHzx2i4OsyguNBmN/uPtqc=
 golang.org/x/lint v0.0.0-20181026193005-c67002cb31c3/go.mod h1:UVdnD1Gm6xHRNCYTkRU2/jEulfH38KcIWyp/GAMgvoE=
 golang.org/x/lint v0.0.0-20190227174305-5b3e6a55c961/go.mod h1:wehouNa3lNwaWXcvxsM5YxQ5yQlVC4a0KAMCusXpPoU=
 golang.org/x/lint v0.0.0-20190313153728-d0100b6bd8b3/go.mod h1:6SW0HCj/g11FgYtHlgUYUwCkIfeOF89ocIRzGO/8vkc=

gql.go

@@ -1,12 +1,18 @@
 package graphvent
 
 import (
+  "bytes"
   "context"
+  "crypto"
+  "crypto/aes"
+  "crypto/cipher"
   "crypto/ecdh"
   "crypto/ecdsa"
+  "crypto/ed25519"
   "crypto/elliptic"
   "crypto/rand"
   "crypto/x509"
+  "encoding/base64"
   "encoding/json"
   "fmt"
   "io"
@@ -14,9 +20,12 @@ import (
   "net"
   "net/http"
   "reflect"
+  "strings"
   "sync"
   "time"
 
+  "filippo.io/edwards25519"
+  "crypto/sha512"
   "github.com/gobwas/ws"
   "github.com/gobwas/ws/wsutil"
   "github.com/graphql-go/graphql"
@@ -31,6 +40,78 @@ import (
   "github.com/google/uuid"
 )
 
+func NodeInterfaceDefaultIsType(required_extensions []ExtType) func(graphql.IsTypeOfParams) bool {
+  return func(p graphql.IsTypeOfParams) bool {
+    ctx, ok := p.Context.Value("resolve").(*ResolveContext)
+    if ok == false {
+      return false
+    }
+    node, ok := p.Value.(NodeResult)
+    if ok == false {
+      return false
+    }
+
+    node_type_def, exists := ctx.Context.Nodes[node.NodeType]
+    if exists == false {
+      return false
+    } else {
+      for _, ext := range(required_extensions) {
+        found := false
+        for _, e := range(node_type_def.Extensions) {
+          if e == ext {
+            found = true
+            break
+          }
+        }
+        if found == false {
+          return false
+        }
+      }
+    }
+
+    return true
+  }
+}
+
+func NodeInterfaceResolveType(required_extensions []ExtType, default_type **graphql.Object)func(graphql.ResolveTypeParams) *graphql.Object {
+  return func(p graphql.ResolveTypeParams) *graphql.Object {
+    ctx, ok := p.Context.Value("resolve").(*ResolveContext)
+    if ok == false {
+      return nil
+    }
+
+    node, ok := p.Value.(NodeResult)
+    if ok == false {
+      return nil
+    }
+
+    gql_type, exists := ctx.GQLContext.NodeTypes[node.NodeType]
+    ctx.Context.Log.Logf("gql", "GQL_INTERFACE_RESOLVE_TYPE(%+v): %+v - %t - %+v - %+v", node, gql_type, exists, required_extensions, *default_type)
+    if exists == false {
+      node_type_def, exists := ctx.Context.Nodes[node.NodeType]
+      if exists == false {
+        return nil
+      } else {
+        for _, ext := range(required_extensions) {
+          found := false
+          for _, e := range(node_type_def.Extensions) {
+            if e == ext {
+              found = true
+              break
+            }
+          }
+          if found == false {
+            return nil
+          }
+        }
+      }
+      return *default_type
+    }
+
+    return gql_type
+  }
+}
+
 func PrepResolve(p graphql.ResolveParams) (*ResolveContext, error) {
   resolve_context, ok := p.Context.Value("resolve").(*ResolveContext)
   if ok == false {
@@ -40,7 +121,7 @@ func PrepResolve(p graphql.ResolveParams) (*ResolveContext, error) {
   return resolve_context, nil
 }
 
-// TODO: Make composabe by checking if K is a slice, then recursing in the same way that ExtractList does
+// TODO: Make composabe by checkinf if K is a slice, then recursing in the same way that ExtractList does
 func ExtractParam[K interface{}](p graphql.ResolveParams, name string) (K, error) {
   var zero K
   arg_if, ok := p.Args[name]
@@ -76,6 +157,20 @@ func ExtractList[K interface{}](p graphql.ResolveParams, name string) ([]K, erro
   return ret, nil
 }
 
+func ExtractID(p graphql.ResolveParams, name string) (NodeID, error) {
+  id_str, err := ExtractParam[string](p, name)
+  if err != nil {
+    return ZeroID, err
+  }
+
+  id, err := ParseID(id_str)
+  if err != nil {
+    return ZeroID, err
+  }
+
+  return id, nil
+}
+
 func GraphiQLHandler() func(http.ResponseWriter, *http.Request) {
   return func(w http.ResponseWriter, r * http.Request) {
     graphiql_string := fmt.Sprintf(`
@@ -220,6 +315,9 @@ type ResolveContext struct {
   // Graph Context this resolver is running under
   Context *Context
 
+  // GQL Extension context this resolver is running under
+  GQLContext *GQLExtContext
+
   // Pointer to the node that's currently processing this request
   Server *Node
 
@@ -228,6 +326,212 @@ type ResolveContext struct {
 
   // Cache of resolved nodes
   NodeCache map[NodeID]NodeResult
+
+  // Authorization from the user that started this request
+  Authorization *ClientAuthorization
+}
+
+func AuthB64(client_key ed25519.PrivateKey, server_pubkey ed25519.PublicKey) (string, error) {
+  token_start := time.Now()
+  token_start_bytes, err := token_start.MarshalBinary()
+  if err != nil {
+    return "", err
+  }
+
+  session_key_public, session_key_private, err := ed25519.GenerateKey(rand.Reader)
+  if err != nil {
+    return "", err
+  }
+
+  session_h := sha512.Sum512(session_key_private.Seed())
+  ecdh_client, err := ECDH.NewPrivateKey(session_h[:32])
+  if err != nil {
+    return "", err
+  }
+
+  server_point, err := (&edwards25519.Point{}).SetBytes(server_pubkey)
+  if err != nil {
+    return "", err
+  }
+
+  ecdh_server, err := ECDH.NewPublicKey(server_point.BytesMontgomery())
+  if err != nil {
+    return "", err
+  }
+
+
+  secret, err := ecdh_client.ECDH(ecdh_server)
+  if err != nil {
+    return "", err
+  }
+
+  if len(secret) != 32 {
+    return "", fmt.Errorf("ECDH secret not 32 bytes(for AES-256): %d bytes long", len(secret))
+  }
+
+  block, err := aes.NewCipher(secret)
+  if err != nil {
+    return "", err
+  }
+
+  iv := make([]byte, block.BlockSize())
+  iv_len, err := rand.Reader.Read(iv)
+  if err != nil {
+    return "", err
+  } else if iv_len != block.BlockSize() {
+    return "", fmt.Errorf("Not enough iv bytes read: %d", iv_len)
+  }
+
+  var key_encrypted bytes.Buffer
+  stream := cipher.NewOFB(block, iv)
+  writer := &cipher.StreamWriter{S: stream, W: &key_encrypted}
+
+  bytes_written, err := writer.Write(session_key_private.Seed())
+  if err != nil {
+    return "", err
+  } else if bytes_written != len(ecdh_client.Bytes()) {
+    return "", fmt.Errorf("wrong number of bytes encrypted %d/%d", bytes_written, len(ecdh_client.Bytes()))
+  }
+
+  digest := append(session_key_public, token_start_bytes...)
+  signature, err := client_key.Sign(rand.Reader, digest, crypto.Hash(0))
+  if err != nil {
+    return "", err
+  }
+
+  start_b64 := base64.StdEncoding.EncodeToString(token_start_bytes)
+  iv_b64 := base64.StdEncoding.EncodeToString(iv)
+  encrypted_b64 := base64.StdEncoding.EncodeToString(key_encrypted.Bytes())
+  key_b64 := base64.StdEncoding.EncodeToString(session_key_public)
+  sig_b64 := base64.StdEncoding.EncodeToString(signature)
+  id_b64 := base64.StdEncoding.EncodeToString(client_key.Public().(ed25519.PublicKey))
+
+  return base64.StdEncoding.EncodeToString([]byte(strings.Join([]string{id_b64, iv_b64, key_b64, encrypted_b64, start_b64, sig_b64}, ":"))), nil
+}
+
+func ParseAuthB64(auth_base64 string, server_id ed25519.PrivateKey) (*ClientAuthorization, error) {
+  joined_b64, err := base64.StdEncoding.DecodeString(auth_base64)
+  if err != nil {
+    return nil, err
+  }
+
+  auth_parts := strings.Split(string(joined_b64), ":")
+  if len(auth_parts) != 6 {
+    return nil, fmt.Errorf("Wrong number of delimited elements %d", len(auth_parts))
+  }
+
+  id_bytes, err := base64.StdEncoding.DecodeString(auth_parts[0])
+  if err != nil {
+    return nil, err
+  }
+
+  iv, err := base64.StdEncoding.DecodeString(auth_parts[1])
+  if err != nil {
+    return nil, err
+  }
+
+  public_key, err := base64.StdEncoding.DecodeString(auth_parts[2])
+  if err != nil {
+    return nil, err
+  }
+
+  key_encrypted, err := base64.StdEncoding.DecodeString(auth_parts[3])
+  if err != nil {
+    return nil, err
+  }
+
+  start_bytes, err := base64.StdEncoding.DecodeString(auth_parts[4])
+  if err != nil {
+    return nil, err
+  }
+
+  signature, err := base64.StdEncoding.DecodeString(auth_parts[5])
+  if err != nil {
+    return nil, err
+  }
+
+  var start time.Time
+  err = start.UnmarshalBinary(start_bytes)
+  if err != nil {
+    return nil, err
+  }
+
+  client_id := ed25519.PublicKey(id_bytes)
+  if err != nil {
+    return nil, err
+  }
+
+  client_point, err := (&edwards25519.Point{}).SetBytes(public_key)
+  if err != nil {
+    return nil, err
+  }
+
+  ecdh_client, err := ECDH.NewPublicKey(client_point.BytesMontgomery())
+  if err != nil {
+    return nil, err
+  }
+
+  h := sha512.Sum512(server_id.Seed())
+  ecdh_server, err := ECDH.NewPrivateKey(h[:32])
+  if err != nil {
+    return nil, err
+  }
+
+  secret, err := ecdh_server.ECDH(ecdh_client)
+  if err != nil {
+    return nil, err
+  } else if len(secret) != 32 {
+    return nil, fmt.Errorf("Secret wrong length: %d/32", len(secret))
+  }
+
+  block, err := aes.NewCipher(secret)
+  if err != nil {
+    return nil, err
+  }
+
+  encrypted_reader := bytes.NewReader(key_encrypted)
+  stream := cipher.NewOFB(block, iv)
+  reader := cipher.StreamReader{S: stream, R: encrypted_reader}
+  var decrypted_key bytes.Buffer
+  _, err = io.Copy(&decrypted_key, reader)
+  if err != nil {
+    return nil, err
+  }
+
+  session_key := ed25519.NewKeyFromSeed(decrypted_key.Bytes())
+  digest := append(session_key.Public().(ed25519.PublicKey), start_bytes...)
+  if ed25519.Verify(client_id, digest, signature) == false {
+    return nil, fmt.Errorf("Failed to verify digest/signature against client_id")
+  }
+
+  return &ClientAuthorization{
+    AuthInfo: AuthInfo{
+      Identity: client_id,
+      Start: start,
+      Signature: signature,
+    },
+    Key: session_key,
+  }, nil
+}
+
+func ValidateAuthorization(auth Authorization, valid time.Duration) error {
+  // Check that the time + valid < now
+  // Check that Signature is public_key + start signed with client_id
+  if auth.Start.Add(valid).Compare(time.Now()) != 1 {
+    return fmt.Errorf("authorization expired")
+  }
+
+  time_bytes, err := auth.Start.MarshalBinary()
+  if err != nil {
+    return err
+  }
+
+  digest := append(auth.Key, time_bytes...)
+  if ed25519.Verify(auth.Identity, digest, auth.Signature) != true {
+    return fmt.Errorf("verification failed")
+  }
+
+  return nil
 }
 
 func NewResolveContext(ctx *Context, server *Node, gql_ext *GQLExt) (*ResolveContext, error) {
@@ -236,8 +540,10 @@ func NewResolveContext(ctx *Context, server *Node, gql_ext *GQLExt) (*ResolveCon
     Ext: gql_ext,
     Chans: map[uuid.UUID]chan Signal{},
     Context: ctx,
+    GQLContext: ctx.Extensions[ExtTypeFor[GQLExt]()].Data.(*GQLExtContext),
     NodeCache: map[NodeID]NodeResult{},
     Server: server,
+    Authorization: nil,
   }, nil
 }
 
@@ -251,6 +557,13 @@ func GQLHandler(ctx *Context, server *Node, gql_ext *GQLExt) func(http.ResponseW
     }
     ctx.Log.Logm("gql", header_map, "REQUEST_HEADERS")
 
+    auth, err := ParseAuthB64(r.Header.Get("Authorization"), server.Key)
+    if err != nil {
+      ctx.Log.Logf("gql", "GQL_AUTH_ID_PARSE_ERROR: %s", err)
+      json.NewEncoder(w).Encode(GQLUnauthorized(""))
+      return
+    }
+
     resolve_context, err := NewResolveContext(ctx, server, gql_ext)
     if err != nil {
       ctx.Log.Logf("gql", "GQL_AUTH_ERR: %s", err)
@@ -258,6 +571,8 @@ func GQLHandler(ctx *Context, server *Node, gql_ext *GQLExt) func(http.ResponseW
       return
     }
 
+    resolve_context.Authorization = auth
+
     req_ctx := context.Background()
     req_ctx = context.WithValue(req_ctx, "resolve", resolve_context)
 
@@ -270,10 +585,10 @@ func GQLHandler(ctx *Context, server *Node, gql_ext *GQLExt) func(http.ResponseW
     query := GQLPayload{}
     json.Unmarshal(str, &query)
 
-    schema := ctx.Extensions[ExtTypeFor[GQLExt]()].Data.(graphql.Schema)
+    gql_context := ctx.Extensions[ExtTypeFor[GQLExt]()].Data.(*GQLExtContext)
 
     params := graphql.Params{
-      Schema: schema,
+      Schema: gql_context.Schema,
       Context: req_ctx,
       RequestString: query.Query,
     }
@@ -401,6 +716,14 @@ func GQLWSHandler(ctx * Context, server *Node, gql_ext *GQLExt) func(http.Respon
             break
           }
 
+          authorization, err := ParseAuthB64(connection_params.Payload.Token, server.Key)
+          if err != nil {
+            ctx.Log.Logf("gqlws", "WS_AUTH_PARSE_ERR: %s", err)
+            break
+          }
+
+          resolve_context.Authorization = authorization
+
           conn_state = "ready"
           err = wsutil.WriteServerMessage(conn, 1, []byte("{\"type\": \"connection_ack\"}"))
           if err != nil {
@@ -416,9 +739,9 @@ func GQLWSHandler(ctx * Context, server *Node, gql_ext *GQLExt) func(http.Respon
           }
         } else if msg.Type == "subscribe" {
           ctx.Log.Logf("gqlws", "SUBSCRIBE: %+v", msg.Payload)
-          schema := ctx.Extensions[ExtTypeFor[GQLExt]()].Data.(graphql.Schema)
+          gql_context := ctx.Extensions[ExtTypeFor[GQLExt]()].Data.(*GQLExtContext)
           params := graphql.Params{
-            Schema: schema,
+            Schema: gql_context.Schema,
             Context: req_ctx,
             RequestString: msg.Payload.Query,
           }
@@ -506,10 +829,165 @@ type Field struct {
   Field *graphql.Field
 }
 
+// GQL Specific Context information
+type GQLExtContext struct {
+  // Generated GQL schema
+  Schema graphql.Schema
+
+  // Custom graphql types, mapped to NodeTypes
+  NodeTypes map[NodeType]*graphql.Object
+  Interfaces map[string]*Interface
+  Fields map[string]Field
+
+  // Schema parameters
+  Types []graphql.Type
+  Query *graphql.Object
+  Mutation *graphql.Object
+}
+
+func (ctx *GQLExtContext) GetACLFields(obj_name string, names []string) (map[ExtType][]string, error) {
+  ext_fields := map[ExtType][]string{}
+  for _, name := range(names) {
+    switch name {
+    case "ID":
+    case "TypeHash":
+    default:
+      field, exists := ctx.Fields[name]
+      if exists == false {
+        continue
+      }
+
+      ext, exists := ext_fields[field.Ext]
+      if exists == false {
+        ext = []string{}
+      }
+      ext = append(ext, field.Name)
+      ext_fields[field.Ext] = ext
+    }
+  }
+
+  return ext_fields, nil
+}
+
+func BuildSchema(ctx *GQLExtContext) (graphql.Schema, error) {
+  schemaConfig := graphql.SchemaConfig{
+    Types: ctx.Types,
+    Query: ctx.Query,
+    Mutation: ctx.Mutation,
+  }
+
+  return graphql.NewSchema(schemaConfig)
+}
+
+func (ctx *GQLExtContext) RegisterField(gql_type graphql.Type, gql_name string, ext_type ExtType, gv_tag string, resolve_fn func(graphql.ResolveParams, *ResolveContext, reflect.Value)(interface{}, error)) error {
+  if ctx == nil {
+    return fmt.Errorf("ctx is nil")
+  }
+
+  if resolve_fn == nil {
+    return fmt.Errorf("resolve_fn cannot be nil")
+  }
+
+  _, exists := ctx.Fields[gql_name]
+  if exists == true {
+    return fmt.Errorf("%s is already a field in the context, cannot add again", gql_name)
+  }
+
+  // Resolver has p.Source.(NodeResult) = read result of current node
+  resolver := func(p graphql.ResolveParams)(interface{}, error) {
+    ctx, err := PrepResolve(p)
+    if err != nil {
+      return nil, err
+    }
+
+    node, ok := p.Source.(NodeResult)
+    if ok == false {
+      return nil, fmt.Errorf("p.Value is not NodeResult")
+    }
+
+    ext, ext_exists := node.Data[ext_type]
+    if ext_exists == false {
+      return nil, fmt.Errorf("%+v is not in the extensions of the result: %+v", ext_type, node.Data)
+    }
+
+    val_ser, field_exists := ext[gv_tag]
+    if field_exists == false {
+      return nil, fmt.Errorf("%s is not in the fields of %+v in the result for %s - %+v", gv_tag, ext_type, gql_name, node)
+    }
+
+    if val_ser.TypeStack[0] == SerializedTypeFor[error]() {
+      return nil, fmt.Errorf(string(val_ser.Data))
+    }
+
+    field_type, _, err := DeserializeType(ctx.Context, val_ser.TypeStack)
+    if err != nil {
+      return nil, err
+    }
+
+    field_value, _, err := DeserializeValue(ctx.Context, field_type, val_ser.Data)
+    if err != nil {
+      return nil, err
+    }
+
+    ctx.Context.Log.Logf("gql", "Resolving %+v", field_value)
+
+    return resolve_fn(p, ctx, field_value)
+  }
+
+  ctx.Fields[gql_name] = Field{ext_type, gv_tag, &graphql.Field{
+    Type: gql_type,
+    Resolve: resolver,
+  }}
+  return nil
+}
+
+func GQLInterfaces(ctx *GQLExtContext, interface_names []string) ([]*graphql.Interface, error) {
+  ret := make([]*graphql.Interface, len(interface_names))
+  for i, in := range(interface_names) {
+    ctx_interface, exists := ctx.Interfaces[in]
+    if exists == false {
+      return nil, fmt.Errorf("%s is not in GQLExtContext.Interfaces", in)
+    }
+    ret[i] = ctx_interface.Interface
+  }
+
+  return ret, nil
+}
+
+func GQLFields(ctx *GQLExtContext, field_names []string) (graphql.Fields, []ExtType, error) {
+  fields := graphql.Fields{
+    "ID": &graphql.Field{
+      Type: graphql.String,
+      Resolve: ResolveNodeID,
+    },
+    "TypeHash": &graphql.Field{
+      Type: graphql.String,
+      Resolve: ResolveNodeTypeHash,
+    },
+  }
+
+  exts := map[ExtType]ExtType{}
+  ext_list := []ExtType{}
+  for _, name := range(field_names) {
+    field, exists := ctx.Fields[name]
+    if exists == false {
+      return nil, nil, fmt.Errorf("%s is not in GQLExtContext.Fields", name)
+    }
+    fields[name] = field.Field
+    _, exists = exts[field.Ext]
+    if exists == false {
+      ext_list = append(ext_list, field.Ext)
+      exts[field.Ext] = field.Ext
+    }
+  }
+
+  return fields, ext_list, nil
+}
+
 type NodeResult struct {
   NodeID NodeID
   NodeType NodeType
-  Data map[ExtType]map[string]interface{}
+  Data map[ExtType]map[string]SerializedValue
 }
 
 type ListField struct {
@@ -524,6 +1002,193 @@ type SelfField struct {
   ResolveFn func(graphql.ResolveParams, *ResolveContext, reflect.Value) (*NodeID, error)
 }
 
+func (ctx *GQLExtContext) RegisterInterface(name string, default_name string, interfaces []string, fields []string, self_fields map[string]SelfField, list_fields map[string]ListField) error {
+  if interfaces == nil {
+    return fmt.Errorf("interfaces is nil")
+  }
+
+  if fields == nil {
+    return fmt.Errorf("fields is nil")
+  }
+
+  _, exists := ctx.Interfaces[name]
+  if exists == true {
+    return fmt.Errorf("%s is already an interface in ctx", name)
+  }
+
+  node_interfaces, err := GQLInterfaces(ctx, interfaces)
+  if err != nil {
+    return err
+  }
+
+  node_fields, node_exts, err := GQLFields(ctx, fields)
+  if err != nil {
+    return err
+  }
+
+  ctx_interface := Interface{}
+
+  ctx_interface.Interface = graphql.NewInterface(graphql.InterfaceConfig{
+    Name: name,
+    ResolveType: NodeInterfaceResolveType(node_exts, &ctx_interface.Default),
+    Fields: node_fields,
+  })
+  ctx_interface.List = graphql.NewList(ctx_interface.Interface)
+
+  for field_name, field := range(self_fields) {
+    self_field := field
+    err := ctx.RegisterField(ctx_interface.Interface, field_name, self_field.Extension, self_field.ACLName,
+    func(p graphql.ResolveParams, ctx *ResolveContext, value reflect.Value)(interface{}, error) {
+      id, err := self_field.ResolveFn(p, ctx, value)
+      if err != nil {
+        return nil, err
+      }
+
+      if id != nil {
+        nodes, err := ResolveNodes(ctx, p, []NodeID{*id})
+        if err != nil {
+          return nil, err
+        } else if len(nodes) != 1 {
+          return nil, fmt.Errorf("wrong length of nodes returned")
+        }
+        return nodes[0], nil
+      } else {
+        return nil, nil
+      }
+    })
+    if err != nil {
+      return err
+    }
+
+    ctx_interface.Interface.AddFieldConfig(field_name, ctx.Fields[field_name].Field)
+    node_fields[field_name] = ctx.Fields[field_name].Field
+  }
+
+  for field_name, field := range(list_fields) {
+    list_field := field
+    resolve_fn := func(p graphql.ResolveParams, ctx *ResolveContext, value reflect.Value)(interface{}, error) {
+      var zero NodeID
+      ids, err := list_field.ResolveFn(p, ctx, value)
+      if err != nil {
+        return zero, err
+      }
+
+      nodes, err := ResolveNodes(ctx, p, ids)
+      if err != nil {
+        return nil, err
+      } else if len(nodes) != len(ids) {
+        return nil, fmt.Errorf("wrong length of nodes returned")
+      }
+      return nodes, nil
+    }
+
+    err := ctx.RegisterField(ctx_interface.List, field_name, list_field.Extension, list_field.ACLName, resolve_fn)
+    if err != nil {
+      return err
+    }
+    ctx_interface.Interface.AddFieldConfig(field_name, ctx.Fields[field_name].Field)
+    node_fields[field_name] = ctx.Fields[field_name].Field
+  }
+
+  ctx_interface.Default = graphql.NewObject(graphql.ObjectConfig{
+    Name: default_name,
+    Interfaces: append(node_interfaces, ctx_interface.Interface),
+    IsTypeOf: NodeInterfaceDefaultIsType(node_exts),
+    Fields: node_fields,
+  })
+
+  ctx.Interfaces[name] = &ctx_interface
+  ctx.Types = append(ctx.Types, ctx_interface.Default)
+
+  return nil
+}
+
+func (ctx *GQLExtContext) RegisterNodeType(node_type NodeType, name string, interface_names []string, field_names []string) error {
+  if field_names == nil {
+    return fmt.Errorf("fields is nil")
+  }
+
+  _, exists := ctx.NodeTypes[node_type]
+  if exists == true {
+    return fmt.Errorf("%+v already in GQLExtContext.NodeTypes", node_type)
+  }
+
+  node_interfaces, err := GQLInterfaces(ctx, interface_names)
+  if err != nil {
+    return err
+  }
+
+  gql_fields, _, err := GQLFields(ctx, field_names)
+  if err != nil {
+    return err
+  }
+
+  gql_type := graphql.NewObject(graphql.ObjectConfig{
+    Name: name,
+    Interfaces: node_interfaces,
+    IsTypeOf: func(p graphql.IsTypeOfParams) bool {
+      node, ok := p.Value.(NodeResult)
+      if ok == false {
+        return false
+      }
+
+      return node.NodeType == node_type
+    },
+    Fields: gql_fields,
+  })
+
+  ctx.NodeTypes[node_type] = gql_type
+  ctx.Types = append(ctx.Types, gql_type)
+
+  return nil
+}
+
+func NewGQLExtContext() *GQLExtContext {
+  query := graphql.NewObject(graphql.ObjectConfig{
+    Name: "Query",
+    Fields: graphql.Fields{
+      "Test": &graphql.Field{
+        Type: graphql.String,
+        Resolve: func(p graphql.ResolveParams) (interface{}, error) {
+				  return "Test Data", nil
+			  },
+      },
+    },
+  })
+
+  mutation := graphql.NewObject(graphql.ObjectConfig{
+    Name: "Mutation",
+    Fields: graphql.Fields{
+      "Test": &graphql.Field{
+        Type: graphql.String,
+        Resolve: func(p graphql.ResolveParams) (interface{}, error) {
+          return "Test Mutation Data", nil
+        },
+      },
+    },
+  })
+
+
+  context := GQLExtContext{
+    Schema: graphql.Schema{},
+    Types: []graphql.Type{},
+    Query: query,
+    Mutation: mutation,
+    NodeTypes: map[NodeType]*graphql.Object{},
+    Interfaces: map[string]*Interface{},
+    Fields: map[string]Field{},
+  }
+
+  schema, err := BuildSchema(&context)
+  if err != nil {
+    panic(err)
+  }
+
+  context.Schema = schema
+
+  return &context
+}
+
 type SubscriptionInfo struct {
   ID uuid.UUID
   Channel chan interface{}
@@ -630,10 +1295,9 @@ func (ext *GQLExt) FreeResponseChannel(req_id uuid.UUID) chan Signal {
   return response_chan
 }
 
-func (ext *GQLExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) ([]SendMsg, Changes) {
+func (ext *GQLExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
   // Process ReadResultSignalType by forwarding it to the waiting resolver
-  var changes Changes = nil
+  var changes = Changes{}
-  var messages []SendMsg = nil
 
   switch sig := signal.(type) {
   case *SuccessSignal:
@@ -691,7 +1355,7 @@ func (ext *GQLExt) Process(ctx *Context, node *Node, source NodeID, signal Signa
     ext.subscriptions_lock.RUnlock()
   }
 
-  return messages, changes
+  return nil, changes
 }
 
 var ecdsa_curves = map[uint8]elliptic.Curve{

gql_node.go

@@ -1,10 +1,11 @@
 package graphvent
 import (
+  "time"
   "reflect"
   "fmt"
-  "time"
   "github.com/graphql-go/graphql"
   "github.com/graphql-go/graphql/language/ast"
+  "github.com/google/uuid"
 )
 
 func ResolveNodeID(p graphql.ResolveParams) (interface{}, error) {
@@ -16,7 +17,7 @@ func ResolveNodeID(p graphql.ResolveParams) (interface{}, error) {
   return node.NodeID, nil
 }
 
-func ResolveNodeType(p graphql.ResolveParams) (interface{}, error) {
+func ResolveNodeTypeHash(p graphql.ResolveParams) (interface{}, error) {
   node, ok := p.Source.(NodeResult)
   if ok == false {
     return nil, fmt.Errorf("Can't get TypeHash from %+v", reflect.TypeOf(p.Source))
@@ -36,6 +37,7 @@ func GetFieldNames(ctx *Context, selection_set *ast.SelectionSet) []string {
     case *ast.Field:
       names = append(names, field.Name.Value)
     case *ast.InlineFragment:
+      names = append(names, GetFieldNames(ctx, field.SelectionSet)...)
     default:
       ctx.Log.Logf("gql", "Unknown selection type: %s", reflect.TypeOf(field))
     }
@@ -44,109 +46,144 @@ func GetFieldNames(ctx *Context, selection_set *ast.SelectionSet) []string {
   return names
 }
 
-// Returns the fields that need to be resolved
+func GetResolveFields(ctx *Context, p graphql.ResolveParams) []string {
-func GetResolveFields(id NodeID, ctx *ResolveContext, p graphql.ResolveParams) (map[ExtType][]string, error) {
-  node_info, mapped := ctx.Context.NodeTypes[p.Info.ReturnType.Name()]
-  if mapped == false {
-    return nil, fmt.Errorf("No NodeType %s", p.Info.ReturnType.Name())
-  }
-
-  fields := map[ExtType][]string{}
   names := []string{}
   for _, field := range(p.Info.FieldASTs) {
-    names = append(names, GetFieldNames(ctx.Context, field.SelectionSet)...)
+    names = append(names, GetFieldNames(ctx, field.SelectionSet)...)
   }
 
-  cache, node_cached := ctx.NodeCache[id]
+  return names
-  for _, name := range(names) {
+}
-    if name == "ID" || name == "Type" {
-      continue
-    }
 
-    ext_type, field_mapped := node_info.Fields[name]
+func ResolveNodes(ctx *ResolveContext, p graphql.ResolveParams, ids []NodeID) ([]NodeResult, error) {
-    if field_mapped == false {
+  fields := GetResolveFields(ctx.Context, p)
-      return nil, fmt.Errorf("NodeType %s does not have field %s", p.Info.ReturnType.Name(), name)
+  ctx.Context.Log.Logf("gql_resolve_node", "RESOLVE_NODES(%+v): %+v", ids, fields)
-    }
 
-    ext_fields, exists := fields[ext_type]
+  resp_channels := map[uuid.UUID]chan Signal{}
-    if exists == false {
+  indices := map[uuid.UUID]int{}
-      ext_fields = []string{}
-    }
 
-    if node_cached {
+  // Get a list of fields that will be written
-      ext_cache, ext_cached := cache.Data[ext_type]
+  ext_fields, err := ctx.GQLContext.GetACLFields(p.Info.FieldName, fields)
-      if ext_cached {
+  if err != nil {
-        _, field_cached := ext_cache[name]
+    return nil, err
-        if field_cached {
+  }
-          continue
+  ctx.Context.Log.Logf("gql_resolve_node", "ACL Fields from request: %+v", ext_fields)
+
+  responses := make([]NodeResult, len(ids))
+
+  for i, id := range(ids) {
+    var read_signal *ReadSignal = nil 
+
+    node, cached := ctx.NodeCache[id]
+    if cached == true {
+      resolve := false
+      missing_exts := map[ExtType][]string{}
+      for ext_type, fields := range(ext_fields) {
+        cached_ext, exists := node.Data[ext_type]
+        if exists == true {
+          missing_fields := []string{}
+          for _, field_name := range(fields) {
+            _, found := cached_ext[field_name]
+            if found == false {
+              missing_fields = append(missing_fields, field_name)
+            }
+          }
+          if len(missing_fields) > 0 {
+            missing_exts[ext_type] = missing_fields
+            resolve = true
+          }
+        } else {
+          missing_exts[ext_type] = fields
+          resolve = true
         }
       }
-    }
 
-    fields[ext_type] = append(ext_fields, name)
+      if resolve == true {
+        read_signal = NewReadSignal(missing_exts)
+        ctx.Context.Log.Logf("gql_resolve_node", "sending read for %+v because of missing fields %+v", id, missing_exts)
+      } else {
+        ctx.Context.Log.Logf("gql_resolve_node", "Using cached response for %+v(%d)", id, i)
+        responses[i] = node
+        continue
+      }
+    } else {
+      ctx.Context.Log.Logf("gql_resolve_node", "sending read for %+v", id)
+      read_signal = NewReadSignal(ext_fields)
+    }
+    // Create a read signal, send it to the specified node, and add the wait to the response map if the send returns no error
+    msgs := Messages{}
+    msgs = msgs.Add(ctx.Context, id, ctx.Server, ctx.Authorization, read_signal)
+
+    response_chan := ctx.Ext.GetResponseChannel(read_signal.ID())
+    resp_channels[read_signal.ID()] = response_chan
+    indices[read_signal.ID()] = i
+
+    // TODO: Send all at once instead of creating Messages for each
+    err = ctx.Context.Send(msgs)
+    if err != nil {
+      ctx.Ext.FreeResponseChannel(read_signal.ID())
+      return nil, err
+    }
   }
-  
-  return fields, nil
-}
 
-func ResolveNode(id NodeID, p graphql.ResolveParams) (NodeResult, error) {
+  errors := ""
-  ctx, err := PrepResolve(p)
+  for sig_id, response_chan := range(resp_channels) {
-  if err != nil {
+    // Wait for the response, returning an error on timeout
-    return NodeResult{}, err
+    response, other, err := WaitForResponse(response_chan, time.Millisecond*100, sig_id)
-  }
+    if err != nil {
+      return nil, err
+    }
+    ctx.Context.Log.Logf("gql_resolve_node", "GQL node response: %+v", response)
+    ctx.Context.Log.Logf("gql_resolve_node", "GQL node other messages: %+v", other)
 
-  fields, err := GetResolveFields(id, ctx, p)
+    // for now, just put signals we didn't want back into the 'queue'
-  if err != nil {
+    for _, other_signal := range(other) {
-    return NodeResult{}, err
+      response_chan <- other_signal
-  }
+    }
-  
-  ctx.Context.Log.Logf("gql", "Resolving fields %+v on node %s", fields, id)
-
-  signal := NewReadSignal(fields)
-  response_chan := ctx.Ext.GetResponseChannel(signal.ID())
-  // TODO: TIMEOUT DURATION
-  err = ctx.Context.Send(ctx.Server, []SendMsg{{
-    Dest: id,
-    Signal: signal,
-  }})
-  if err != nil {
-    ctx.Ext.FreeResponseChannel(signal.ID())
-    return NodeResult{}, err
-  }
 
-  response, _, err := WaitForResponse(response_chan, 100*time.Millisecond, signal.ID())
+    error_signal, is_error := response.(*ErrorSignal)
-  ctx.Ext.FreeResponseChannel(signal.ID())
+    if is_error {
-  if err != nil {
+      errors = fmt.Sprintf("%s, %s", errors, error_signal.Error)
-    return NodeResult{}, err
+      continue
-  }
+    }
 
-  switch response := response.(type) {
+    read_response, is_read_response := response.(*ReadResultSignal)
-  case *ReadResultSignal:
+    if is_read_response == false {
-    cache, node_cached := ctx.NodeCache[id]
+      errors = fmt.Sprintf("%s, wrong response type %+v", errors, reflect.TypeOf(response))
-    if node_cached == false {
+      continue
-      cache = NodeResult{
+    }
-        NodeID: id,
+
-        NodeType: response.NodeType,
+    idx := indices[sig_id]
-        Data: response.Extensions,
+    responses[idx] = NodeResult{
-      }
+      read_response.NodeID,
-    } else {
+      read_response.NodeType,
-      for ext_type, ext_data := range(response.Extensions) {
+      read_response.Extensions,
-        cached_ext, ext_cached := cache.Data[ext_type]
+    }
-        if ext_cached {
-          for field_name, field := range(ext_data) {
-            cache.Data[ext_type][field_name] = field
-          }
-        } else {
-          cache.Data[ext_type] = ext_data
-        }
 
-        cache.Data[ext_type] = cached_ext
+    cache, exists := ctx.NodeCache[read_response.NodeID]
+    if exists == true {
+      ctx.Context.Log.Logf("gql_resolve_node", "Merging new response with cached: %s, %+v - %+v", read_response.NodeID, cache, read_response.Extensions)
+      for ext_type, fields := range(read_response.Extensions) {
+        cached_fields, exists := cache.Data[ext_type]
+        if exists == false {
+          cached_fields = map[string]SerializedValue{}
+          cache.Data[ext_type] = cached_fields
+        }
+        for field_name, field_value := range(fields) {
+          cached_fields[field_name] = field_value
+        }
       }
+      responses[idx] = cache
+    } else {
+      ctx.Context.Log.Logf("gql_resolve_node", "Adding new response to node cache: %s, %+v", read_response.NodeID, read_response.Extensions)
+      ctx.NodeCache[read_response.NodeID] = responses[idx]
     }
+  }
 
-    ctx.NodeCache[id] = cache
+  if errors != "" {
-    return ctx.NodeCache[id], nil
+    return nil, fmt.Errorf(errors)
-  default:
-    return NodeResult{}, fmt.Errorf("Bad read response: %+v", response)
   }
+
+  ctx.Context.Log.Logf("gql_resolve_node", "RESOLVED_NODES %+v - %+v", ids, responses)
+  return responses, nil
 }

gql_signal.go

@@ -0,0 +1,145 @@
+package graphvent
+
+import (
+  graphql "github.com/graphql-go/graphql"
+  "github.com/google/uuid"
+  "reflect"
+  "fmt"
+  "time"
+)
+
+type StructFieldInfo struct {
+  Name string
+  Type *TypeInfo
+  Index []int
+}
+
+func ArgumentInfo(ctx *Context, field reflect.StructField, gv_tag string) (StructFieldInfo, error) {
+  type_info, mapped := ctx.TypeReflects[field.Type]
+  if mapped == false {
+    return StructFieldInfo{}, fmt.Errorf("field %+v is of unregistered type %+v ", field.Name, field.Type)
+  }
+  
+  return StructFieldInfo{
+    Name: gv_tag,
+    Type: type_info,
+    Index: field.Index,
+  }, nil
+}
+
+func SignalFromArgs(ctx *Context, signal_type reflect.Type, fields []StructFieldInfo, args map[string]interface{}, id_index, direction_index []int) (Signal, error) {
+  fmt.Printf("FIELD: %+v\n", fields)
+  signal_value := reflect.New(signal_type)
+
+  id_field := signal_value.Elem().FieldByIndex(id_index)
+  id_field.Set(reflect.ValueOf(uuid.New()))
+
+  direction_field := signal_value.Elem().FieldByIndex(direction_index)
+  direction_field.Set(reflect.ValueOf(Direct))
+
+  for _, field := range(fields) {
+    arg, arg_exists := args[field.Name]
+    if arg_exists == false {
+      return nil, fmt.Errorf("No arg provided named %s", field.Name)
+    }
+    field_value := signal_value.Elem().FieldByIndex(field.Index)
+    if field_value.CanConvert(field.Type.Reflect) == false {
+      return nil, fmt.Errorf("Arg %s wrong type %s/%s", field.Name, field_value.Type(), field.Type.Reflect)
+    }
+    value, err := field.Type.GQLValue(ctx, arg)
+    if err != nil {
+      return nil, err
+    }
+    fmt.Printf("Setting %s to %+v of type %+v\n", field.Name, value, value.Type())
+    field_value.Set(value)
+  }
+  return signal_value.Interface().(Signal), nil
+}
+
+func NewSignalMutation(ctx *Context, name string, send_id_key string, signal_type reflect.Type) (*graphql.Field, error) {
+  args := graphql.FieldConfigArgument{}
+  arg_info := []StructFieldInfo{}
+  var id_index []int = nil
+  var direction_index []int = nil
+
+  for _, field := range(reflect.VisibleFields(signal_type)) {
+    gv_tag, tagged_gv := field.Tag.Lookup("gv")
+    if tagged_gv {
+      if gv_tag == "id" {
+        id_index = field.Index
+      } else if gv_tag == "direction" {
+        direction_index = field.Index
+      } else {
+        _, exists := args[gv_tag]
+        if exists == true {
+          return nil, fmt.Errorf("Signal has repeated tag %s", gv_tag)
+        } else {
+          info, err := ArgumentInfo(ctx, field, gv_tag)
+          if err != nil {
+            return nil, err
+          }
+          args[gv_tag] = &graphql.ArgumentConfig{
+          }
+          arg_info = append(arg_info, info)
+        }
+      }
+    }
+  }
+
+  _, send_exists := args[send_id_key]
+  if send_exists == false {
+    args[send_id_key] = &graphql.ArgumentConfig{
+      Type: graphql.String,
+    }
+  }
+
+  resolve_signal := func(p graphql.ResolveParams) (interface{}, error) {
+    ctx, err := PrepResolve(p)
+    if err != nil {
+      return nil, err
+    }
+
+    send_id, err := ExtractID(p, send_id_key)
+    if err != nil {
+      return nil, err
+    }
+
+    signal, err := SignalFromArgs(ctx.Context, signal_type, arg_info, p.Args, id_index, direction_index)
+    if err != nil {
+      return nil, err
+    }
+    msgs := Messages{}
+    msgs = msgs.Add(ctx.Context, send_id, ctx.Server, ctx.Authorization, signal)
+
+    response_chan := ctx.Ext.GetResponseChannel(signal.ID())
+    err = ctx.Context.Send(msgs)
+    if err != nil {
+      ctx.Ext.FreeResponseChannel(signal.ID())
+      return nil, err
+    }
+
+    response, _, err := WaitForResponse(response_chan, 100*time.Millisecond, signal.ID())
+    if err != nil {
+      ctx.Ext.FreeResponseChannel(signal.ID())
+      return nil, err
+    }
+
+    _, is_success := response.(*SuccessSignal)
+    if is_success == true {
+      return "success", nil
+    }
+
+    error_response, is_error := response.(*ErrorSignal)
+    if is_error == true {
+      return "error", fmt.Errorf(error_response.Error)
+    }
+
+    return nil, fmt.Errorf("response of unhandled type %s", reflect.TypeOf(response))
+  }
+
+  return &graphql.Field{
+    Type: graphql.String,
+    Args: args,
+    Resolve: resolve_signal,
+  }, nil
+}

graph_test.go

@@ -3,7 +3,6 @@ package graphvent
 import (
   "testing"
   "runtime/debug"
-  "time"
   badger "github.com/dgraph-io/badger/v3"
 )
 
@@ -29,7 +28,7 @@ func logTestContext(t * testing.T, components []string) *Context {
   ctx, err := NewContext(db, NewConsoleLogger(components))
   fatalErr(t, err)
 
-  err = RegisterNodeType(ctx, "LockableListener", []ExtType{ExtTypeFor[ListenerExt](), ExtTypeFor[LockableExt]()})
+  err = RegisterNodeType(ctx, "LockableListener", []ExtType{ExtTypeFor[ListenerExt](), ExtTypeFor[LockableExt]()}, map[string]FieldIndex{})
   fatalErr(t, err)
 
   return ctx
@@ -45,16 +44,3 @@ func fatalErr(t * testing.T, err error) {
     t.Fatal(err)
   }
 }
-
-func testSend(t *testing.T, ctx *Context, signal Signal, source, destination *Node) (ResponseSignal, []Signal) {
-  source_listener, err := GetExt[ListenerExt](source)
-  fatalErr(t, err)
-
-  messages := []SendMsg{{destination.ID, signal}}
-  fatalErr(t, ctx.Send(source, messages))
-
-  response, signals, err := WaitForResponse(source_listener.Chan, time.Millisecond*10, signal.ID())
-  fatalErr(t, err)
-
-  return response, signals
-}

group.go

@@ -0,0 +1,296 @@
+package graphvent
+
+import (
+  "slices"
+)
+
+type AddSubGroupSignal struct {
+  SignalHeader
+  Name string `gv:"name"`
+}
+
+func NewAddSubGroupSignal(name string) *AddSubGroupSignal {
+  return &AddSubGroupSignal{
+    NewSignalHeader(Direct),
+    name,
+  }
+}
+
+func (signal AddSubGroupSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[AddSubGroupSignal]()): {
+      Hash("name", signal.Name): nil,
+    },
+  }
+}
+
+type RemoveSubGroupSignal struct {
+  SignalHeader
+  Name string `gv:"name"`
+}
+
+func NewRemoveSubGroupSignal(name string) *RemoveSubGroupSignal {
+  return &RemoveSubGroupSignal{
+    NewSignalHeader(Direct),
+    name,
+  }
+}
+
+func (signal RemoveSubGroupSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[RemoveSubGroupSignal]()): {
+      Hash("command", signal.Name): nil,
+    },
+  }
+}
+
+type AddMemberSignal struct {
+  SignalHeader
+  SubGroup string `gv:"sub_group"`
+  MemberID NodeID `gv:"member_id"`
+}
+
+type SubGroupGQL struct {
+  Name string
+  Members []NodeID
+}
+
+func (signal AddMemberSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[AddMemberSignal]()): {
+      Hash("sub_group", signal.SubGroup): nil,
+    },
+  }
+}
+
+func NewAddMemberSignal(sub_group string, member_id NodeID) *AddMemberSignal {
+  return &AddMemberSignal{
+    NewSignalHeader(Direct),
+    sub_group,
+    member_id,
+  }
+}
+
+type RemoveMemberSignal struct {
+  SignalHeader
+  SubGroup string `gv:"sub_group"`
+  MemberID NodeID `gv:"member_id"`
+}
+
+func (signal RemoveMemberSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[RemoveMemberSignal]()): {
+      Hash("sub_group", signal.SubGroup): nil,
+    },
+  }
+}
+
+func NewRemoveMemberSignal(sub_group string, member_id NodeID) *RemoveMemberSignal {
+  return &RemoveMemberSignal{
+    NewSignalHeader(Direct),
+    sub_group,
+    member_id,
+  }
+}
+
+var DefaultGroupPolicy = NewAllNodesPolicy(Tree{
+  SerializedType(SignalTypeFor[ReadSignal]()): {
+    SerializedType(ExtTypeFor[GroupExt]()): {
+      SerializedType(GetFieldTag("sub_groups")): nil,
+    },
+  },
+})
+
+type SubGroup struct {
+  Members []NodeID
+  Permissions Tree
+}
+
+type MemberOfPolicy struct {
+  PolicyHeader
+  Groups map[NodeID]map[string]Tree
+}
+
+func NewMemberOfPolicy(groups map[NodeID]map[string]Tree) MemberOfPolicy {
+  return MemberOfPolicy{
+    PolicyHeader: NewPolicyHeader(),
+    Groups: groups,
+  }
+}
+
+func (policy MemberOfPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  sig, ok := signal.(*ReadResultSignal)
+  if ok == false {
+    return Deny
+  }
+  ctx.Log.Logf("group", "member_of_read_result: %+v", sig.Extensions)
+
+  group_ext_data, ok := sig.Extensions[ExtTypeFor[GroupExt]()]
+  if ok == false {
+    return Deny
+  }
+
+  sub_groups_ser, ok := group_ext_data["sub_groups"]
+  if ok == false {
+    return Deny
+  }
+
+  sub_groups_type, _, err := DeserializeType(ctx, sub_groups_ser.TypeStack)
+  if err != nil {
+    ctx.Log.Logf("group", "Type deserialize error: %s", err)
+    return Deny
+  }
+
+  sub_groups_if, _, err := DeserializeValue(ctx, sub_groups_type, sub_groups_ser.Data)
+  if err != nil {
+    ctx.Log.Logf("group", "Value deserialize error: %s", err)
+    return Deny
+  }
+
+  ext_sub_groups, ok := sub_groups_if.Interface().(map[string][]NodeID)
+  if ok == false {
+    return Deny
+  }
+
+  group, exists := policy.Groups[sig.NodeID]
+  if exists == false {
+    return Deny
+  }
+
+  for sub_group_name, permissions := range(group) {
+    ext_sub_group, exists := ext_sub_groups[sub_group_name]
+    if exists == true {
+      for _, member_id := range(ext_sub_group) {
+        if member_id == current.Principal {
+          if permissions.Allows(current.Action) == Allow {
+            return Allow
+          }
+        }
+      }
+    }
+  }
+
+  return Deny
+}
+
+// Send a read signal to Group to check if principal_id is a member of it
+func (policy MemberOfPolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node) (Messages, RuleResult) {
+  var messages Messages = nil
+  for group_id, sub_groups := range(policy.Groups) {
+    if group_id == node.ID {
+      ext, err := GetExt[GroupExt](node)
+      if err != nil {
+        ctx.Log.Logf("group", "MemberOfPolicy with self ID error: %s", err)
+      } else {
+        for sub_group_name, permission := range(sub_groups) {
+          ext_sub_group, exists := ext.SubGroups[sub_group_name]
+          if exists == true {
+            for _, member := range(ext_sub_group) {
+              if member == principal_id {
+                if permission.Allows(action) == Allow {
+                  return nil, Allow
+                }
+                break
+              }
+            }
+          }
+        }
+      }
+    } else {
+      // Send the read request to the group so that ContinueAllows can parse the response to check membership
+      messages = messages.Add(ctx, group_id, node, nil, NewReadSignal(map[ExtType][]string{
+        ExtTypeFor[GroupExt](): {"sub_groups"},
+      }))
+    }
+  }
+  if len(messages) > 0 {
+    return messages, Pending
+  } else {
+    return nil, Deny
+  }
+}
+
+type GroupExt struct {
+  SubGroups map[string][]NodeID `gv:"sub_groups"`
+}
+
+func NewGroupExt(sub_groups map[string][]NodeID) *GroupExt {
+  if sub_groups == nil {
+    sub_groups = map[string][]NodeID{}
+  }
+  return &GroupExt{
+    SubGroups: sub_groups,
+  }
+}
+
+func (ext *GroupExt) Load(ctx *Context, node *Node) error {
+  return nil
+}
+
+func (ext *GroupExt) Unload(ctx *Context, node *Node) {
+
+}
+
+func (ext *GroupExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
+  var messages Messages = nil
+  var changes = Changes{}
+
+  switch sig := signal.(type) {
+  case *AddMemberSignal:
+    sub_group, exists := ext.SubGroups[sig.SubGroup]
+    if exists == false {
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "not_subgroup"))
+    } else {
+      if slices.Contains(sub_group, sig.MemberID) == true {
+        messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "already_member"))
+      } else {
+        sub_group = append(sub_group, sig.MemberID)
+        ext.SubGroups[sig.SubGroup] = sub_group
+
+        messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
+        changes.Add("sub_groups")
+      }
+    }
+
+  case *RemoveMemberSignal:
+    sub_group, exists := ext.SubGroups[sig.SubGroup]
+    if exists == false {
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "not_subgroup"))
+    } else {
+      idx := slices.Index(sub_group, sig.MemberID)
+      if idx == -1 {
+        messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "not_member"))
+      } else {
+        sub_group = slices.Delete(sub_group, idx, idx+1)
+        ext.SubGroups[sig.SubGroup] = sub_group
+
+        messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
+        changes.Add("sub_groups")
+      }
+    }
+
+  case *AddSubGroupSignal:
+    _, exists := ext.SubGroups[sig.Name]
+    if exists == true {
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "already_subgroup"))
+    } else {
+      ext.SubGroups[sig.Name] = []NodeID{}
+
+      changes.Add("sub_groups")
+      messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
+    }
+  case *RemoveSubGroupSignal:
+    _, exists := ext.SubGroups[sig.Name]
+    if exists == false {
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(sig.Id, "not_subgroup"))
+    } else {
+      delete(ext.SubGroups, sig.Name)
+
+      changes.Add("sub_groups")
+      messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(sig.Id))
+    }
+  }
+
+  return messages, changes
+}
+

group_test.go

@@ -0,0 +1,94 @@
+package graphvent
+
+import (
+  "testing"
+  "time"
+)
+
+func TestGroupAdd(t *testing.T) {
+  ctx := logTestContext(t, []string{"listener", "test"})
+
+  group_listener := NewListenerExt(10)
+  group, err := NewNode(ctx, nil, "Base", 10, nil, group_listener, NewGroupExt(nil))
+  fatalErr(t, err)
+
+  add_subgroup_signal := NewAddSubGroupSignal("test_group")
+  messages := Messages{}
+  messages = messages.Add(ctx, group.ID, group, nil, add_subgroup_signal)
+  fatalErr(t, ctx.Send(messages))
+
+  resp_1, _, err := WaitForResponse(group_listener.Chan, 10*time.Millisecond, add_subgroup_signal.Id)
+  fatalErr(t, err)
+
+  error_1, is_error := resp_1.(*ErrorSignal)
+  if is_error {
+    t.Fatalf("Error returned: %s", error_1.Error)
+  }
+
+  user_id := RandID()
+  add_member_signal := NewAddMemberSignal("test_group", user_id)
+
+  messages = Messages{}
+  messages = messages.Add(ctx, group.ID, group, nil, add_member_signal)
+  fatalErr(t, ctx.Send(messages))
+
+  resp_2, _, err := WaitForResponse(group_listener.Chan, 10*time.Millisecond, add_member_signal.Id)
+  fatalErr(t, err)
+
+  error_2, is_error := resp_2.(*ErrorSignal)
+  if is_error {
+    t.Fatalf("Error returned: %s", error_2.Error)
+  }
+
+  read_signal := NewReadSignal(map[ExtType][]string{
+    ExtTypeFor[GroupExt](): {"sub_groups"},
+  })
+
+  messages = Messages{}
+  messages = messages.Add(ctx, group.ID, group, nil, read_signal)
+  fatalErr(t, ctx.Send(messages))
+
+  response, _, err := WaitForResponse(group_listener.Chan, 10*time.Millisecond, read_signal.Id)
+  fatalErr(t, err)
+
+  read_response := response.(*ReadResultSignal)
+
+  sub_groups_serialized := read_response.Extensions[ExtTypeFor[GroupExt]()]["sub_groups"]
+
+  sub_groups_type, remaining_types, err := DeserializeType(ctx, sub_groups_serialized.TypeStack)
+  fatalErr(t, err)
+  if len(remaining_types) > 0 {
+    t.Fatalf("Types remaining after deserializing subgroups: %d", len(remaining_types))
+  }
+
+  sub_groups_value, remaining, err := DeserializeValue(ctx, sub_groups_type, sub_groups_serialized.Data)
+  fatalErr(t, err)
+  if len(remaining) > 0 {
+    t.Fatalf("Data remaining after deserializing subgroups: %d", len(remaining_types))
+  }
+
+  sub_groups, ok := sub_groups_value.Interface().(map[string][]NodeID)
+  
+  if ok != true {
+    t.Fatalf("sub_groups wrong type %s", sub_groups_value.Type())
+  }
+
+  if len(sub_groups) != 1 {
+    t.Fatalf("sub_groups wrong length %d", len(sub_groups))
+  }
+
+  test_subgroup, exists := sub_groups["test_group"]
+  if exists == false {
+    t.Fatal("test_group not in subgroups")
+  }
+
+  if len(test_subgroup) != 1 {
+    t.Fatalf("test_group wrong size %d/1", len(test_subgroup))
+  }
+
+  if test_subgroup[0] != user_id {
+    t.Fatalf("sub_groups wrong value %s", test_subgroup[0])
+  }
+
+  ctx.Log.Logf("test", "Read Response: %+v", read_response)
+}

listener.go

@@ -11,13 +11,17 @@ type ListenerExt struct {
 }
 
 func (ext *ListenerExt) Load(ctx *Context, node *Node) error {
-  ext.Chan = make(chan Signal, ext.Buffer)
   return nil
 }
 
 func (ext *ListenerExt) Unload(ctx *Context, node *Node) {
 }
 
+func (ext *ListenerExt) PostDeserialize(ctx *Context) error {
+  ext.Chan = make(chan Signal, ext.Buffer)
+  return nil
+}
+
 // Create a new listener extension with a given buffer size
 func NewListenerExt(buffer int) *ListenerExt {
   return &ListenerExt{
@@ -27,7 +31,7 @@ func NewListenerExt(buffer int) *ListenerExt {
 }
 
 // Send the signal to the channel, logging an overflow if it occurs
-func (ext *ListenerExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) ([]SendMsg, Changes) {
+func (ext *ListenerExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
   ctx.Log.Logf("listener", "%s - %+v", node.ID, reflect.TypeOf(signal))
   ctx.Log.Logf("listener_debug", "%s->%s - %+v", source, node.ID, signal)
   select {

lockable.go

@@ -5,6 +5,18 @@ import (
   "time"
 )
 
+var AllowParentUnlockPolicy = NewOwnerOfPolicy(Tree{
+  SerializedType(SignalTypeFor[LockSignal]()): {
+    Hash(LockStateBase, "unlock"): nil,
+  },
+})
+
+var AllowAnyLockPolicy = NewAllNodesPolicy(Tree{
+  SerializedType(SignalTypeFor[LockSignal]()): {
+    Hash(LockStateBase, "lock"): nil,
+  },
+})
+
 type ReqState byte
 const (
   Unlocked = ReqState(0)
@@ -25,11 +37,11 @@ var ReqStateStrings = map[ReqState]string {
 type LockableExt struct{
   State ReqState `gv:"state"`
   ReqID *uuid.UUID `gv:"req_id"`
-  Owner *NodeID `gv:"owner" node:"Base"`
+  Owner *NodeID `gv:"owner"`
-  PendingOwner *NodeID `gv:"pending_owner" node:"Base"`
+  PendingOwner *NodeID `gv:"pending_owner"`
   PendingID uuid.UUID `gv:"pending_id"`
-  Requirements map[NodeID]ReqState `gv:"requirements" node:"Lockable:"`
+  Requirements map[NodeID]ReqState `gv:"requirements"`
-  WaitInfos WaitMap `gv:"wait_infos" node:":Base"`
+  WaitInfos WaitMap `gv:"wait_infos"`
 }
 
 func NewLockableExt(requirements []NodeID) *LockableExt {
@@ -50,15 +62,17 @@ func NewLockableExt(requirements []NodeID) *LockableExt {
 }
 
 func UnlockLockable(ctx *Context, node *Node) (uuid.UUID, error) {
+  messages := Messages{}
   signal := NewLockSignal("unlock")
-  messages := []SendMsg{{node.ID, signal}}
+  messages = messages.Add(ctx, node.ID, node, nil, signal)
-  return signal.ID(), ctx.Send(node, messages)
+  return signal.ID(), ctx.Send(messages)
 }
 
 func LockLockable(ctx *Context, node *Node) (uuid.UUID, error) {
+  messages := Messages{}
   signal := NewLockSignal("lock")
-  messages := []SendMsg{{node.ID, signal}}
+  messages = messages.Add(ctx, node.ID, node, nil, signal)
-  return signal.ID(), ctx.Send(node, messages)
+  return signal.ID(), ctx.Send(messages)
 }
 
 func (ext *LockableExt) Load(ctx *Context, node *Node) error {
@@ -68,8 +82,8 @@ func (ext *LockableExt) Load(ctx *Context, node *Node) error {
 func (ext *LockableExt) Unload(ctx *Context, node *Node) {
 }
 
-func (ext *LockableExt) HandleErrorSignal(ctx *Context, node *Node, source NodeID, signal *ErrorSignal) ([]SendMsg, Changes) {
+func (ext *LockableExt) HandleErrorSignal(ctx *Context, node *Node, source NodeID, signal *ErrorSignal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes Changes = nil
 
   info, info_found := node.ProcessResponse(ext.WaitInfos, signal)
@@ -112,7 +126,7 @@ func (ext *LockableExt) HandleErrorSignal(ctx *Context, node *Node, source NodeI
               ext.Requirements[id] = Unlocking
               lock_signal := NewLockSignal("unlock")
               ext.WaitInfos[lock_signal.Id] = node.QueueTimeout("unlock", id, lock_signal, 100*time.Millisecond)
-              messages = append(messages, SendMsg{id, lock_signal})
+              messages = messages.Add(ctx, id, node, nil, lock_signal)
               ctx.Log.Logf("lockable", "sent abort unlock to %s from %s", id, node.ID)
             }
           }
@@ -139,43 +153,43 @@ func (ext *LockableExt) HandleErrorSignal(ctx *Context, node *Node, source NodeI
   return messages, changes
 }
 
-func (ext *LockableExt) HandleLinkSignal(ctx *Context, node *Node, source NodeID, signal *LinkSignal) ([]SendMsg, Changes) {
+func (ext *LockableExt) HandleLinkSignal(ctx *Context, node *Node, source NodeID, signal *LinkSignal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
   if ext.State == Unlocked {
     switch signal.Action {
     case "add":
       _, exists := ext.Requirements[signal.NodeID]
       if exists == true {
-        messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "already_requirement")})
+        messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "already_requirement"))
       } else {
         if ext.Requirements == nil {
           ext.Requirements = map[NodeID]ReqState{}
         }
         ext.Requirements[signal.NodeID] = Unlocked
         changes.Add("requirements")
-        messages = append(messages, SendMsg{source, NewSuccessSignal(signal.ID())})
+        messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(signal.ID()))
       }
     case "remove":
       _, exists := ext.Requirements[signal.NodeID]
       if exists == false {
-        messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "can't link: not_requirement")})
+        messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "can't link: not_requirement"))
       } else {
         delete(ext.Requirements, signal.NodeID)
         changes.Add("requirements")
-        messages = append(messages, SendMsg{source, NewSuccessSignal(signal.ID())})
+        messages = messages.Add(ctx, source, node, nil, NewSuccessSignal(signal.ID()))
       }
     default:
-      messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "unknown_action")})
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "unknown_action"))
     }
   } else {
-    messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "not_unlocked")})
+    messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "not_unlocked"))
   }
   return messages, changes
 }
 
-func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source NodeID, signal *SuccessSignal) ([]SendMsg, Changes) {
+func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source NodeID, signal *SuccessSignal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
   if source == node.ID {
     return messages, changes
@@ -204,7 +218,7 @@ func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source Nod
             ext.State = Locked
             ext.Owner = ext.PendingOwner
             changes.Add("state", "owner", "requirements")
-            messages = append(messages, SendMsg{*ext.Owner, NewSuccessSignal(ext.PendingID)})
+            messages = messages.Add(ctx, *ext.Owner, node, nil, NewSuccessSignal(ext.PendingID))
           } else {
             changes.Add("requirements")
             ctx.Log.Logf("lockable", "PARTIAL LOCK: %s - %d/%d", node.ID, locked, len(ext.Requirements))
@@ -214,7 +228,7 @@ func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source Nod
 
           lock_signal := NewLockSignal("unlock")
           ext.WaitInfos[lock_signal.Id] = node.QueueTimeout("unlock", info.Destination, lock_signal, 100*time.Millisecond)
-          messages = append(messages, SendMsg{info.Destination, lock_signal})
+          messages = messages.Add(ctx, info.Destination, node, nil, lock_signal)
 
           ctx.Log.Logf("lockable", "sending abort_lock to %s for %s", info.Destination, node.ID)
         }
@@ -240,10 +254,10 @@ func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source Nod
             ext.Owner = ext.PendingOwner
             ext.ReqID = nil
             changes.Add("state", "owner", "req_id")
-            messages = append(messages, SendMsg{previous_owner, NewSuccessSignal(ext.PendingID)})
+            messages = messages.Add(ctx, previous_owner, node, nil, NewSuccessSignal(ext.PendingID))
           } else if old_state == AbortingLock {
             changes.Add("state", "pending_owner")
-            messages = append(messages, SendMsg{*ext.PendingOwner, NewErrorSignal(*ext.ReqID, "not_unlocked")})
+            messages = messages.Add(ctx, *ext.PendingOwner, node, nil, NewErrorSignal(*ext.ReqID, "not_unlocked"))
             ext.PendingOwner = ext.Owner
           }
         } else {
@@ -258,8 +272,8 @@ func (ext *LockableExt) HandleSuccessSignal(ctx *Context, node *Node, source Nod
 }
 
 // Handle a LockSignal and update the extensions owner/requirement states
-func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID, signal *LockSignal) ([]SendMsg, Changes) {
+func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID, signal *LockSignal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
 
   switch signal.State {
@@ -272,7 +286,7 @@ func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID
         ext.PendingOwner = &new_owner
         ext.Owner = &new_owner
         changes.Add("state", "pending_owner", "owner")
-        messages = append(messages, SendMsg{new_owner, NewSuccessSignal(signal.ID())})
+        messages = messages.Add(ctx, new_owner, node, nil, NewSuccessSignal(signal.ID()))
       } else {
         ext.State = Locking
         id := signal.ID()
@@ -290,11 +304,11 @@ func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID
           ext.WaitInfos[lock_signal.Id] = node.QueueTimeout("lock", id, lock_signal, 500*time.Millisecond)
           ext.Requirements[id] = Locking
 
-          messages = append(messages, SendMsg{id, lock_signal})
+          messages = messages.Add(ctx, id, node, nil, lock_signal)
         }
       }
     default:
-      messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "not_unlocked")})
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "not_unlocked"))
       ctx.Log.Logf("lockable", "Tried to lock %s while %s", node.ID, ext.State)
     }
   case "unlock":
@@ -305,7 +319,7 @@ func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID
         ext.PendingOwner = nil
         ext.Owner = nil
         changes.Add("state", "pending_owner", "owner")
-        messages = append(messages, SendMsg{new_owner, NewSuccessSignal(signal.ID())})
+        messages = messages.Add(ctx, new_owner, node, nil, NewSuccessSignal(signal.ID()))
       } else if source == *ext.Owner {
         ext.State = Unlocking
         id := signal.ID()
@@ -322,11 +336,11 @@ func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID
           ext.WaitInfos[lock_signal.Id] = node.QueueTimeout("unlock", id, lock_signal, 100*time.Millisecond)
           ext.Requirements[id] = Unlocking
 
-          messages = append(messages, SendMsg{id, lock_signal})
+          messages = messages.Add(ctx, id, node, nil, lock_signal)
         }
       }
     } else {
-      messages = append(messages, SendMsg{source, NewErrorSignal(signal.ID(), "not_locked")})
+      messages = messages.Add(ctx, source, node, nil, NewErrorSignal(signal.ID(), "not_locked"))
     }
   default:
     ctx.Log.Logf("lockable", "LOCK_ERR: unkown state %s", signal.State)
@@ -334,8 +348,8 @@ func (ext *LockableExt) HandleLockSignal(ctx *Context, node *Node, source NodeID
   return messages, changes
 }
 
-func (ext *LockableExt) HandleTimeoutSignal(ctx *Context, node *Node, source NodeID, signal *TimeoutSignal) ([]SendMsg, Changes) {
+func (ext *LockableExt) HandleTimeoutSignal(ctx *Context, node *Node, source NodeID, signal *TimeoutSignal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
 
   wait_info, found := node.ProcessResponse(ext.WaitInfos, signal)
@@ -366,7 +380,7 @@ func (ext *LockableExt) HandleTimeoutSignal(ctx *Context, node *Node, source Nod
             ext.Requirements[id] = Unlocking
             lock_signal := NewLockSignal("unlock")
             ext.WaitInfos[lock_signal.Id] = node.QueueTimeout("unlock", id, lock_signal, 100*time.Millisecond)
-            messages = append(messages, SendMsg{id, lock_signal})
+            messages = messages.Add(ctx, id, node, nil, lock_signal)
             ctx.Log.Logf("lockable", "sent abort unlock to %s from %s", id, node.ID)
           }
         }
@@ -391,32 +405,124 @@ func (ext *LockableExt) HandleTimeoutSignal(ctx *Context, node *Node, source Nod
   return messages, changes
 }
 
-// LockableExts process status signals by forwarding them to it's owner
+// LockableExts process Up/Down signals by forwarding them to owner, dependency, and requirement nodes
 // LockSignal and LinkSignal Direct signals are processed to update the requirement/dependency/lock state
-func (ext *LockableExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) ([]SendMsg, Changes) {
+func (ext *LockableExt) Process(ctx *Context, node *Node, source NodeID, signal Signal) (Messages, Changes) {
-  var messages []SendMsg = nil
+  var messages Messages = nil
   var changes = Changes{}
 
-  switch sig := signal.(type) {
+  switch signal.Direction() {
-  case *StatusSignal:
+  case Up:
     if ext.Owner != nil {
       if *ext.Owner != node.ID {
-        messages = append(messages, SendMsg{*ext.Owner, signal})
+        messages = messages.Add(ctx, *ext.Owner, node, nil, signal)
       }
     }
-  case *LinkSignal:
+
-    messages, changes = ext.HandleLinkSignal(ctx, node, source, sig)
+  case Down:
-  case *LockSignal:
+    for requirement := range(ext.Requirements) {
-    messages, changes = ext.HandleLockSignal(ctx, node, source, sig)
+      messages = messages.Add(ctx, requirement, node, nil, signal)
-  case *ErrorSignal:
+    }
-    messages, changes = ext.HandleErrorSignal(ctx, node, source, sig)
+
-  case *SuccessSignal:
+  case Direct:
-    messages, changes = ext.HandleSuccessSignal(ctx, node, source, sig)
+    switch sig := signal.(type) {
-  case *TimeoutSignal:
+    case *LinkSignal:
-    messages, changes = ext.HandleTimeoutSignal(ctx, node, source, sig)
+      messages, changes = ext.HandleLinkSignal(ctx, node, source, sig)
+    case *LockSignal:
+      messages, changes = ext.HandleLockSignal(ctx, node, source, sig)
+    case *ErrorSignal:
+      messages, changes = ext.HandleErrorSignal(ctx, node, source, sig)
+    case *SuccessSignal:
+      messages, changes = ext.HandleSuccessSignal(ctx, node, source, sig)
+    case *TimeoutSignal:
+      messages, changes = ext.HandleTimeoutSignal(ctx, node, source, sig)
+    default:
+    }
   default:
   }
-
   return messages, changes
 }
 
+type OwnerOfPolicy struct {
+  PolicyHeader
+  Rules Tree `gv:"rules"`
+}
+
+func NewOwnerOfPolicy(rules Tree) OwnerOfPolicy {
+  return OwnerOfPolicy{
+    PolicyHeader: NewPolicyHeader(),
+    Rules: rules,
+  }
+}
+
+func (policy OwnerOfPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  return Deny
+}
+
+func (policy OwnerOfPolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node)(Messages, RuleResult) {
+  l_ext, err := GetExt[LockableExt](node)
+  if err != nil {
+    ctx.Log.Logf("lockable", "OwnerOfPolicy.Allows called on node without LockableExt")
+    return nil, Deny
+  }
+
+  if l_ext.Owner == nil {
+    return nil, Deny
+  }
+
+  if principal_id == *l_ext.Owner {
+    return nil, Allow
+  }
+
+  return nil, Deny
+}
+
+type RequirementOfPolicy struct {
+  PerNodePolicy
+}
+
+func NewRequirementOfPolicy(dep_rules map[NodeID]Tree) RequirementOfPolicy {
+  return RequirementOfPolicy {
+    PerNodePolicy: NewPerNodePolicy(dep_rules),
+  }
+}
+
+func (policy RequirementOfPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  sig, ok := signal.(*ReadResultSignal)
+  if ok == false {
+    return Deny
+  }
+
+  ext, ok := sig.Extensions[ExtTypeFor[LockableExt]()]
+  if ok == false {
+    return Deny
+  }
+
+  reqs_ser, ok := ext["requirements"]
+  if ok == false {
+    return Deny
+  }
+
+  reqs_type, _, err := DeserializeType(ctx, reqs_ser.TypeStack)
+  if err != nil {
+    return Deny
+  }
+
+  reqs_if, _, err := DeserializeValue(ctx, reqs_type, reqs_ser.Data)
+  if err != nil {
+    return Deny
+  }
+
+  requirements, ok := reqs_if.Interface().(map[NodeID]ReqState)
+  if ok == false {
+    return Deny
+  }
+
+  for req := range(requirements) {
+    if req == current.Principal {
+      return policy.NodeRules[sig.NodeID].Allows(current.Action)
+    }
+  }
+
+  return Deny
+}

lockable_test.go

@@ -3,24 +3,48 @@ package graphvent
 import (
   "testing"
   "time"
+  "crypto/ed25519"
+  "crypto/rand"
 )
 
+func lockableTestContext(t *testing.T, logs []string) *Context {
+  ctx := logTestContext(t, logs)
+
+  err := RegisterNodeType(ctx, "Lockable", []ExtType{ExtTypeFor[LockableExt]()}, map[string]FieldIndex{})
+  fatalErr(t, err)
+
+  return ctx
+}
+
 func TestLink(t *testing.T) {
-  ctx := logTestContext(t, []string{"lockable", "listener"})
+  ctx := lockableTestContext(t, []string{"lockable", "listener"})
 
+  l1_pub, l1_key, err := ed25519.GenerateKey(rand.Reader)
+  fatalErr(t, err)
+  l1_id := KeyID(l1_pub)
+  policy := NewPerNodePolicy(map[NodeID]Tree{
+    l1_id: nil,
+  })
 
   l2_listener := NewListenerExt(10)
-  l2, err := NewNode(ctx, nil, "Lockable", 10, l2_listener, NewLockableExt(nil))
+  l2, err := NewNode(ctx, nil, "Lockable", 10, []Policy{policy},
+                  l2_listener,
+                  NewLockableExt(nil),
+                )
   fatalErr(t, err)
 
   l1_lockable := NewLockableExt(nil)
   l1_listener := NewListenerExt(10)
-  l1, err := NewNode(ctx, nil, "Lockable", 10, l1_listener, l1_lockable)
+  l1, err := NewNode(ctx, l1_key, "Lockable", 10, nil,
+                 l1_listener,
+                 l1_lockable,
+               )
   fatalErr(t, err)
 
+  msgs := Messages{}
   link_signal := NewLinkSignal("add", l2.ID)
-  msgs := []SendMsg{{l1.ID, link_signal}}
+  msgs = msgs.Add(ctx, l1.ID, l1, nil, link_signal)
-  err = ctx.Send(l1, msgs)
+  err = ctx.Send(msgs)
   fatalErr(t, err)
 
   _, _, err = WaitForResponse(l1_listener.Chan, time.Millisecond*10, link_signal.ID())
@@ -33,9 +57,10 @@ func TestLink(t *testing.T) {
     t.Fatalf("l2 in bad requirement state in l1: %+v", state)
   }
 
+  msgs = Messages{}
   unlink_signal := NewLinkSignal("remove", l2.ID)
-  msgs = []SendMsg{{l1.ID, unlink_signal}}
+  msgs = msgs.Add(ctx, l1.ID, l1, nil, unlink_signal)
-  err = ctx.Send(l1, msgs)
+  err = ctx.Send(msgs)
   fatalErr(t, err)
 
   _, _, err = WaitForResponse(l1_listener.Chan, time.Millisecond*10, unlink_signal.ID())
@@ -43,10 +68,20 @@ func TestLink(t *testing.T) {
 }
 
 func Test1000Lock(t *testing.T) {
-  ctx := logTestContext(t, []string{"test"})
+  ctx := lockableTestContext(t, []string{"test", "lockable"})
 
+  l_pub, listener_key, err := ed25519.GenerateKey(rand.Reader)
+  fatalErr(t, err)
+  listener_id := KeyID(l_pub)
+  child_policy := NewPerNodePolicy(map[NodeID]Tree{
+    listener_id: {
+      SerializedType(SignalTypeFor[LockSignal]()): nil,
+    },
+  })
   NewLockable := func()(*Node) {
-    l, err := NewNode(ctx, nil, "Lockable", 10, NewLockableExt(nil))
+    l, err := NewNode(ctx, nil, "Lockable", 10, []Policy{child_policy},
+                  NewLockableExt(nil),
+                )
     fatalErr(t, err)
     return l
   }
@@ -58,8 +93,15 @@ func Test1000Lock(t *testing.T) {
   }
   ctx.Log.Logf("test", "CREATED_1000")
 
+  l_policy := NewAllNodesPolicy(Tree{
+    SerializedType(SignalTypeFor[LockSignal]()): nil,
+  })
+
   listener := NewListenerExt(5000)
-  node, err := NewNode(ctx, nil, "Lockable", 5000, listener, NewLockableExt(reqs))
+  node, err := NewNode(ctx, listener_key, "Lockable", 5000, []Policy{l_policy},
+                listener,
+                NewLockableExt(reqs),
+              )
   fatalErr(t, err)
   ctx.Log.Logf("test", "CREATED_LISTENER")
 
@@ -79,11 +121,16 @@ func Test1000Lock(t *testing.T) {
 }
 
 func TestLock(t *testing.T) {
-  ctx := logTestContext(t, []string{"test", "lockable"})
+  ctx := lockableTestContext(t, []string{"test", "lockable"})
+
+  policy := NewAllNodesPolicy(nil)
 
   NewLockable := func(reqs []NodeID)(*Node, *ListenerExt) {
     listener := NewListenerExt(1000)
-    l, err := NewNode(ctx, nil, "Lockable", 10, listener, NewLockableExt(reqs))
+    l, err := NewNode(ctx, nil, "Lockable", 10, []Policy{policy},
+                  listener,
+                  NewLockableExt(reqs),
+                )
     fatalErr(t, err)
     return l, listener
   }

message.go

@@ -1,11 +1,114 @@
 package graphvent
 
-type SendMsg struct {
+import (
-  Dest   NodeID
+  "time"
-  Signal Signal
+  "crypto/ed25519"
+  "crypto/rand"
+  "crypto"
+)
+
+type AuthInfo struct {
+  // The Node that issued the authorization
+  Identity ed25519.PublicKey
+
+  // Time the authorization was generated
+  Start time.Time
+
+  // Signature of Start + Principal with Identity private key
+  Signature []byte
+}
+
+type AuthorizationToken struct {
+  AuthInfo
+
+  // The private key generated by the client, encrypted with the servers public key
+  KeyEncrypted []byte
+}
+
+type ClientAuthorization struct {
+  AuthInfo
+
+  // The private key generated by the client
+  Key ed25519.PrivateKey
+}
+
+// Authorization structs can be passed in a message that originated from a different node than the sender
+type Authorization struct {
+  AuthInfo
+
+  // The public key generated for this authorization
+  Key ed25519.PublicKey
 }
 
-type RecvMsg struct {
+type Message struct {
-  Source NodeID
+  Dest NodeID
+  Source ed25519.PublicKey
+
+  Authorization *Authorization
+
   Signal Signal
+  Signature []byte
+}
+
+type Messages []*Message
+func (msgs Messages) Add(ctx *Context, dest NodeID, source *Node, authorization *ClientAuthorization, signal Signal) Messages {
+  msg, err := NewMessage(ctx, dest, source, authorization, signal)
+  if err != nil {
+    panic(err)
+  } else {
+    msgs = append(msgs, msg)
+  }
+  return msgs
+}
+
+func NewMessages(ctx *Context, dest NodeID, source *Node, authorization *ClientAuthorization, signals... Signal) Messages {
+  messages := Messages{}
+  for _, signal := range(signals) {
+    messages = messages.Add(ctx, dest, source, authorization, signal)
+  }
+  return messages
+}
+
+func NewMessage(ctx *Context, dest NodeID, source *Node, authorization *ClientAuthorization, signal Signal) (*Message, error) {
+  signal_ser, err := SerializeAny(ctx, signal)
+  if err != nil {
+    return nil, err
+  }
+
+  signal_chunks, err := signal_ser.Chunks()
+  if err != nil {
+    return nil, err
+  }
+
+  dest_ser, err := dest.MarshalBinary()
+  if err != nil {
+    return nil, err
+  }
+  source_ser, err := source.ID.MarshalBinary()
+  if err != nil {
+    return nil, err
+  }
+  sig_data := append(dest_ser, source_ser...)
+  sig_data = append(sig_data, signal_chunks.Slice()...)
+  var message_auth *Authorization = nil
+  if authorization != nil {
+    sig_data = append(sig_data, authorization.Signature...)
+    message_auth = &Authorization{
+      authorization.AuthInfo,
+      authorization.Key.Public().(ed25519.PublicKey),
+    }
+  }
+
+  sig, err := source.Key.Sign(rand.Reader, sig_data, crypto.Hash(0))
+  if err != nil {
+    return nil, err
+  }
+
+  return &Message{
+    Dest: dest,
+    Source: source.Key.Public().(ed25519.PublicKey),
+    Authorization: message_auth,
+    Signal: signal,
+    Signature: sig,
+  }, nil
 }

node.go

@@ -10,7 +10,7 @@ import (
   "sync/atomic"
   "time"
 
-  _ "github.com/dgraph-io/badger/v3"
+  badger "github.com/dgraph-io/badger/v3"
   "github.com/google/uuid"
 )
 
@@ -33,16 +33,6 @@ func IDFromBytes(bytes []byte) (NodeID, error) {
   return NodeID(id), err
 }
 
-func (id NodeID) MarshalText() ([]byte, error) {
-  return []byte(id.String()), nil
-}
-
-func (id *NodeID) UnmarshalText(text []byte) error {
-  parsed, err := ParseID(string(text))
-  *id = parsed
-  return err
-}
-
 // Parse an ID from a string
 func ParseID(str string) (NodeID, error) {
   id_uuid, err := uuid.Parse(str)
@@ -67,6 +57,24 @@ func (q QueuedSignal) String() string {
   return fmt.Sprintf("%+v@%s", reflect.TypeOf(q.Signal), q.Time)
 }
 
+type PendingACL struct {
+  Counter int
+  Responses []ResponseSignal
+
+  TimeoutID uuid.UUID
+  Action Tree
+  Principal NodeID
+
+  Signal Signal
+  Source NodeID
+}
+
+type PendingACLSignal struct {
+  Policy uuid.UUID
+  Timeout uuid.UUID
+  ID uuid.UUID
+}
+
 // Default message channel size for nodes
 // Nodes represent a group of extensions that can be collectively addressed
 type Node struct {
@@ -76,8 +84,13 @@ type Node struct {
   // TODO: move each extension to it's own db key, and extend changes to notify which extension was changed
   Extensions map[ExtType]Extension
 
+  Policies []Policy `gv:"policies"`
+
+  PendingACLs map[uuid.UUID]PendingACL `gv:"pending_acls"`
+  PendingACLSignals map[uuid.UUID]PendingACLSignal `gv:"pending_signal"`
+
   // Channel for this node to receive messages from the Context
-  MsgChan chan RecvMsg
+  MsgChan chan *Message
   // Size of MsgChan
   BufferSize uint32 `gv:"buffer_size"`
   // Channel for this node to process delayed signals
@@ -97,14 +110,37 @@ func (node *Node) PostDeserialize(ctx *Context) error {
   public := node.Key.Public().(ed25519.PublicKey)
   node.ID = KeyID(public)
 
-  node.MsgChan = make(chan RecvMsg, node.BufferSize)
+  node.MsgChan = make(chan *Message, node.BufferSize)
 
   return nil
 }
 
+type RuleResult int
+const (
+  Allow RuleResult = iota
+  Deny
+  Pending
+)
+
+func (node *Node) Allows(ctx *Context, principal_id NodeID, action Tree)(map[uuid.UUID]Messages, RuleResult) {
+  pends := map[uuid.UUID]Messages{}
+  for _, policy := range(node.Policies) {
+    msgs, resp := policy.Allows(ctx, principal_id, action, node)
+    if resp == Allow {
+      return nil, Allow
+    } else if resp == Pending {
+      pends[policy.ID()] = msgs
+    }
+  }
+  if len(pends) != 0 {
+    return pends, Pending
+  }
+  return nil, Deny
+}
+
 type WaitReason string
 type WaitInfo struct {
-  Destination NodeID `gv:"destination" node:"Base"`
+  Destination NodeID `gv:"destination"`
   Timeout uuid.UUID `gv:"timeout"`
   Reason WaitReason `gv:"reason"`
 }
@@ -214,23 +250,37 @@ func (err StringError) MarshalBinary() ([]byte, error) {
   return []byte(string(err)), nil
 }
 
-func (node *Node) ReadFields(ctx *Context, reqs map[ExtType][]string)map[ExtType]map[string]any {
+func NewErrorField(fstring string, args ...interface{}) SerializedValue {
+  str := StringError(fmt.Sprintf(fstring, args...))
+  str_ser, err := str.MarshalBinary()
+  if err != nil {
+    panic(err)
+  }
+  return SerializedValue{
+    TypeStack: []SerializedType{SerializedTypeFor[error]()},
+    Data: str_ser,
+  }
+}
+
+func (node *Node) ReadFields(ctx *Context, reqs map[ExtType][]string)map[ExtType]map[string]SerializedValue {
   ctx.Log.Logf("read_field", "Reading %+v on %+v", reqs, node.ID)
-  exts := map[ExtType]map[string]any{}
+  exts := map[ExtType]map[string]SerializedValue{}
   for ext_type, field_reqs := range(reqs) {
-    ext_info, ext_known := ctx.Extensions[ext_type]
+    fields := map[string]SerializedValue{}
-    if ext_known { 
+    for _, req := range(field_reqs) {
-      fields := map[string]any{}
+      ext, exists := node.Extensions[ext_type]
-      for _, req := range(field_reqs) {
+      if exists == false {
-        ext, exists := node.Extensions[ext_type]
+        fields[req] = NewErrorField("%+v does not have %+v extension", node.ID, ext_type)
-        if exists == false {
+      } else {
-          fields[req] = fmt.Errorf("%+v does not have %+v extension", node.ID, ext_type)
+        f, err := SerializeField(ctx, ext, req)
+        if err != nil {
+          fields[req] = NewErrorField(err.Error())
         } else {
-          fields[req] = reflect.ValueOf(ext).Elem().FieldByIndex(ext_info.Fields[req].Index).Interface()
+          fields[req] = f
         }
       }
-      exts[ext_type] = fields
     }
+    exts[ext_type] = fields
   }
   return exts
 }
@@ -242,14 +292,106 @@ func nodeLoop(ctx *Context, node *Node) error {
     return fmt.Errorf("%s is already started, will not start again", node.ID)
   }
 
+  // Load each extension before starting the main loop
+  for _, extension := range(node.Extensions) {
+    err := extension.Load(ctx, node)
+    if err != nil {
+      return err
+    }
+  }
+
   run := true
   for run == true {
     var signal Signal
     var source NodeID
     select {
     case msg := <- node.MsgChan:
+      ctx.Log.Logf("node_msg", "NODE_MSG: %s - %+v", node.ID, msg.Signal)
+      signal_ser, err := SerializeAny(ctx, msg.Signal)
+      if err != nil {
+        ctx.Log.Logf("signal", "SIGNAL_SERIALIZE_ERR: %s - %+v", err, msg.Signal)
+      }
+      chunks, err := signal_ser.Chunks()
+      if err != nil {
+        ctx.Log.Logf("signal", "SIGNAL_SERIALIZE_ERR: %s - %+v", err, signal_ser)
+        continue
+      }
+
+      dst_id_ser, err := msg.Dest.MarshalBinary()
+      if err != nil {
+        ctx.Log.Logf("signal", "SIGNAL_DEST_ID_SER_ERR: %e", err)
+        continue
+      }
+      src_id_ser, err := KeyID(msg.Source).MarshalBinary()
+      if err != nil {
+        ctx.Log.Logf("signal", "SIGNAL_SRC_ID_SER_ERR: %e", err)
+        continue
+      }
+      sig_data := append(dst_id_ser, src_id_ser...)
+      sig_data = append(sig_data, chunks.Slice()...)
+      if msg.Authorization != nil {
+        sig_data = append(sig_data, msg.Authorization.Signature...)
+      }
+      validated := ed25519.Verify(msg.Source, sig_data, msg.Signature)
+      if validated == false {
+        ctx.Log.Logf("signal_verify", "SIGNAL_VERIFY_ERR: %s - %s", node.ID, reflect.TypeOf(msg.Signal))
+        continue
+      }
+
+      var princ_id NodeID
+      if msg.Authorization == nil {
+        princ_id = KeyID(msg.Source)
+      } else {
+        err := ValidateAuthorization(*msg.Authorization, time.Hour)
+        if err != nil {
+          ctx.Log.Logf("node", "Authorization validation failed: %s", err)
+          continue
+        }
+        princ_id = KeyID(msg.Authorization.Identity)
+      }
+      if princ_id != node.ID {
+        pends, resp := node.Allows(ctx, princ_id, msg.Signal.Permission())
+        if resp == Deny {
+          ctx.Log.Logf("policy", "SIGNAL_POLICY_DENY: %s->%s - %+v(%+s)", princ_id, node.ID, reflect.TypeOf(msg.Signal), msg.Signal)
+          ctx.Log.Logf("policy", "SIGNAL_POLICY_SOURCE: %s", msg.Source)
+          msgs := Messages{}
+          msgs = msgs.Add(ctx, KeyID(msg.Source), node, nil, NewErrorSignal(msg.Signal.ID(), "acl denied"))
+          ctx.Send(msgs)
+          continue
+        } else if resp == Pending {
+          ctx.Log.Logf("policy", "SIGNAL_POLICY_PENDING: %s->%s - %s - %+v", princ_id, node.ID, msg.Signal.Permission(), pends)
+          timeout_signal := NewACLTimeoutSignal(msg.Signal.ID())
+          node.QueueSignal(time.Now().Add(100*time.Millisecond), timeout_signal)
+          msgs := Messages{}
+          for policy_type, sigs := range(pends) {
+            for _, m := range(sigs) {
+              msgs = append(msgs, m)
+              timeout_signal := NewTimeoutSignal(m.Signal.ID())
+              node.QueueSignal(time.Now().Add(time.Second), timeout_signal)
+              node.PendingACLSignals[m.Signal.ID()] = PendingACLSignal{policy_type, timeout_signal.Id, msg.Signal.ID()}
+            }
+          }
+          node.PendingACLs[msg.Signal.ID()] = PendingACL{
+            Counter: len(msgs),
+            TimeoutID: timeout_signal.ID(),
+            Action: msg.Signal.Permission(),
+            Principal: princ_id,
+            Responses: []ResponseSignal{},
+            Signal: msg.Signal,
+            Source: KeyID(msg.Source),
+          }
+          ctx.Log.Logf("policy", "Sending signals for pending ACL: %+v", msgs)
+          ctx.Send(msgs)
+          continue
+        } else if resp == Allow {
+          ctx.Log.Logf("policy", "SIGNAL_POLICY_ALLOW: %s->%s - %s", princ_id, node.ID, reflect.TypeOf(msg.Signal))
+        }
+      } else {
+        ctx.Log.Logf("policy", "SIGNAL_POLICY_SELF: %s - %s", node.ID, reflect.TypeOf(msg.Signal))
+      }
+
       signal = msg.Signal
-      source = msg.Source
+      source = KeyID(msg.Source)
 
     case <-node.TimeoutChan:
       signal = node.NextSignal.Signal
@@ -283,12 +425,68 @@ func nodeLoop(ctx *Context, node *Node) error {
 
     ctx.Log.Logf("node", "NODE_SIGNAL_QUEUE[%s]: %+v", node.ID, node.SignalQueue)
 
+    response, ok := signal.(ResponseSignal)
+    if ok == true {
+      info, waiting := node.PendingACLSignals[response.ResponseID()]
+      if waiting == true {
+        delete(node.PendingACLSignals, response.ResponseID())
+        ctx.Log.Logf("pending", "FOUND_PENDING_SIGNAL: %s - %s", node.ID, signal)
+
+        req_info, exists := node.PendingACLs[info.ID]
+        if exists == true {
+          req_info.Counter -= 1
+          req_info.Responses = append(req_info.Responses, response)
+
+          idx := -1
+          for i, p := range(node.Policies) {
+            if p.ID() == info.Policy {
+              idx = i
+              break
+            }
+          }
+          if idx == -1 {
+            ctx.Log.Logf("policy", "PENDING_FOR_NONEXISTENT_POLICY: %s - %s", node.ID, info.Policy)
+            delete(node.PendingACLs, info.ID)
+          } else {
+            allowed := node.Policies[idx].ContinueAllows(ctx, req_info, signal)
+            if allowed == Allow {
+              ctx.Log.Logf("policy", "DELAYED_POLICY_ALLOW: %s - %s", node.ID, req_info.Signal)
+              signal = req_info.Signal
+              source = req_info.Source
+              err := node.DequeueSignal(req_info.TimeoutID)
+              if err != nil {
+                ctx.Log.Logf("node", "dequeue error: %s", err)
+              }
+              delete(node.PendingACLs, info.ID)
+            } else if req_info.Counter == 0 {
+              ctx.Log.Logf("policy", "DELAYED_POLICY_DENY: %s - %s", node.ID, req_info.Signal)
+              // Send the denied response
+              msgs := Messages{}
+              msgs = msgs.Add(ctx, req_info.Source, node, nil, NewErrorSignal(req_info.Signal.ID(), "acl_denied"))
+              err := ctx.Send(msgs)
+              if err != nil {
+                ctx.Log.Logf("signal", "SEND_ERR: %s", err)
+              }
+              err = node.DequeueSignal(req_info.TimeoutID)
+              if err != nil {
+                ctx.Log.Logf("node", "ACL_DEQUEUE_ERROR: timeout signal not in queue when trying to clear after counter hit 0 %s, %s - %s", err, signal.ID(), req_info.TimeoutID)
+              }
+              delete(node.PendingACLs, info.ID)
+            } else {
+              node.PendingACLs[info.ID] = req_info
+              continue
+            }
+          }
+        }
+      }
+    }
+
     switch sig := signal.(type) {
     case *ReadSignal:
       result := node.ReadFields(ctx, sig.Extensions)
-      msgs := []SendMsg{}
+      msgs := Messages{}
-      msgs = append(msgs, SendMsg{source, NewReadResultSignal(sig.ID(), node.ID, node.Type, result)})
+      msgs = msgs.Add(ctx, source, node, nil, NewReadResultSignal(sig.ID(), node.ID, node.Type, result))
-      ctx.Send(node, msgs)
+      ctx.Send(msgs)
 
     default:
       err := node.Process(ctx, source, signal)
@@ -324,7 +522,7 @@ func (node *Node) QueueChanges(ctx *Context, changes map[ExtType]Changes) error
 
 func (node *Node) Process(ctx *Context, source NodeID, signal Signal) error {
   ctx.Log.Logf("node_process", "PROCESSING MESSAGE: %s - %+v", node.ID, signal)
-  messages := []SendMsg{}
+  messages := Messages{}
   changes := map[ExtType]Changes{}
   for ext_type, ext := range(node.Extensions) {
     ctx.Log.Logf("node_process", "PROCESSING_EXTENSION: %s/%s", node.ID, ext_type)
@@ -339,7 +537,7 @@ func (node *Node) Process(ctx *Context, source NodeID, signal Signal) error {
   ctx.Log.Logf("changes", "Changes for %s after %+v - %+v", node.ID, reflect.TypeOf(signal), changes)
 
   if len(messages) != 0 {
-    send_err := ctx.Send(node, messages)
+    send_err := ctx.Send(messages)
     if send_err != nil {
       return send_err
     }
@@ -398,7 +596,7 @@ func KeyID(pub ed25519.PublicKey) NodeID {
 }
 
 // Create a new node in memory and start it's event loop
-func NewNode(ctx *Context, key ed25519.PrivateKey, type_name string, buffer_size uint32, extensions ...Extension) (*Node, error) {
+func NewNode(ctx *Context, key ed25519.PrivateKey, type_name string, buffer_size uint32, policies []Policy, extensions ...Extension) (*Node, error) {
   node_type, known_type := ctx.NodeTypes[type_name]
   if known_type == false {
     return nil, fmt.Errorf("%s is not a known node type", type_name)
@@ -420,48 +618,55 @@ func NewNode(ctx *Context, key ed25519.PrivateKey, type_name string, buffer_size
     return nil, fmt.Errorf("Attempted to create an existing node")
   }
 
+  def, exists := ctx.Nodes[node_type]
+  if exists == false {
+    return nil, fmt.Errorf("Node type %+v not registered in Context", node_type)
+  }
+
   ext_map := map[ExtType]Extension{}
   for _, ext := range(extensions) {
-    ext_type, exists := ctx.ExtensionTypes[reflect.TypeOf(ext).Elem()]
+    ext_type, exists := ctx.ExtensionTypes[reflect.TypeOf(ext)]
     if exists == false {
       return nil, fmt.Errorf(fmt.Sprintf("%+v is not a known Extension", reflect.TypeOf(ext)))
     }
-    _, exists = ext_map[ext_type.ExtType]
+    _, exists = ext_map[ext_type]
     if exists == true {
       return nil, fmt.Errorf("Cannot add the same extension to a node twice")
     }
-    ext_map[ext_type.ExtType] = ext
+    ext_map[ext_type] = ext
   }
 
-  for _, required_ext := range(node_type.Extensions) {
+  for _, required_ext := range(def.Extensions) {
     _, exists := ext_map[required_ext]
     if exists == false {
       return nil, fmt.Errorf(fmt.Sprintf("%+v requires %+v", node_type, required_ext))
     }
   }
 
+  policies = append(policies, DefaultPolicy)
+
   node := &Node{
     Key: key,
     ID: id,
-    Type: node_type.NodeType,
+    Type: node_type,
     Extensions: ext_map,
-    MsgChan: make(chan RecvMsg, buffer_size),
+    Policies: policies,
+    PendingACLs: map[uuid.UUID]PendingACL{},
+    PendingACLSignals: map[uuid.UUID]PendingACLSignal{},
+    MsgChan: make(chan *Message, buffer_size),
     BufferSize: buffer_size,
     SignalQueue: []QueuedSignal{},
-    writeSignalQueue: false,
   }
 
-  err = WriteNodeInit(ctx, node)
+  err = WriteNodeExtList(ctx, node)
   if err != nil {
     return nil, err
   }
 
-  // Load each extension before starting the main loop
+  node.writeSignalQueue = true
-  for _, extension := range(node.Extensions) {
+  err = WriteNodeInit(ctx, node)
-    err := extension.Load(ctx, node)
+  if err != nil {
-    if err != nil {
+    return nil, err
-      return nil, err
-    }
   }
 
   ctx.AddNode(id, node)
@@ -478,3 +683,258 @@ func ExtTypeSuffix(ext_type ExtType) []byte {
   binary.BigEndian.PutUint64(ret[4:], uint64(ext_type))
   return ret
 }
+
+func WriteNodeExtList(ctx *Context, node *Node) error {
+  ext_list := make([]ExtType, len(node.Extensions))
+  i := 0
+  for ext_type := range(node.Extensions) {
+    ext_list[i] = ext_type
+    i += 1
+  }
+
+  ctx.Log.Logf("db", "Writing ext_list for %s - %+v", node.ID, ext_list)
+
+  id_bytes, err := node.ID.MarshalBinary()
+  if err != nil {
+    return err
+  }
+
+  ext_list_serialized, err := SerializeAny(ctx, ext_list)
+  if err != nil {
+    return err
+  }
+
+  return ctx.DB.Update(func(txn *badger.Txn) error {
+    return txn.Set(append(id_bytes, extension_suffix...), ext_list_serialized.Data)
+  })
+}
+
+func WriteNodeInit(ctx *Context, node *Node) error {
+  ctx.Log.Logf("db", "Writing initial entry for %s - %+v", node.ID, node)
+
+  ext_serialized := map[ExtType]SerializedValue{}
+  for ext_type, ext := range(node.Extensions) {
+    serialized_ext, err := SerializeAny(ctx, ext)
+    if err != nil {
+      return err
+    }
+    ext_serialized[ext_type] = serialized_ext
+  }
+
+  sq_serialized, err := SerializeAny(ctx, node.SignalQueue)
+  if err != nil {
+    return err
+  }
+
+  node_serialized, err := SerializeAny(ctx, node)
+  if err != nil {
+    return err
+  }
+
+  id_bytes, err := node.ID.MarshalBinary()
+
+  return ctx.DB.Update(func(txn *badger.Txn) error {
+    err := txn.Set(id_bytes, node_serialized.Data)
+    if err != nil {
+      return nil
+    }
+
+    err = txn.Set(append(id_bytes, signal_queue_suffix...), sq_serialized.Data)
+    if err != nil {
+      return err
+    }
+
+    for ext_type, data := range(ext_serialized) {
+      err := txn.Set(append(id_bytes, ExtTypeSuffix(ext_type)...), data.Data)
+      if err != nil {
+        return err
+      }
+    }
+
+    return nil
+  })
+
+}
+
+func WriteNodeChanges(ctx *Context, node *Node, changes map[ExtType]Changes) error {
+  ctx.Log.Logf("db", "Writing changes for %s - %+v", node.ID, changes)
+
+  ext_serialized := map[ExtType]SerializedValue{}
+  for ext_type := range(changes) {
+    ext, ext_exists := node.Extensions[ext_type]
+    if ext_exists == false {
+      ctx.Log.Logf("db", "extension 0x%x does not exist for %s", ext_type, node.ID)
+    } else {
+      serialized_ext, err := SerializeAny(ctx, ext)
+      if err != nil {
+        return err
+      }
+      ext_serialized[ext_type] = serialized_ext
+    }
+  }
+
+  var sq_serialized *SerializedValue = nil
+  if node.writeSignalQueue == true {
+    node.writeSignalQueue = false
+    ser, err := SerializeAny(ctx, node.SignalQueue)
+    if err != nil {
+      return err
+    }
+    sq_serialized = &ser
+  }
+
+  node_serialized, err := SerializeAny(ctx, node)
+  if err != nil {
+    return err
+  }
+
+  id_bytes, err := node.ID.MarshalBinary()
+  return ctx.DB.Update(func(txn *badger.Txn) error {
+    err := txn.Set(id_bytes, node_serialized.Data)
+    if err != nil {
+      return err
+    }
+    if sq_serialized != nil {
+      err := txn.Set(append(id_bytes, signal_queue_suffix...), sq_serialized.Data)
+      if err != nil {
+        return err
+      }
+    }
+    for ext_type, data := range(ext_serialized) {
+      err := txn.Set(append(id_bytes, ExtTypeSuffix(ext_type)...), data.Data)
+      if err != nil {
+        return err
+      }
+    }
+    return nil
+  })
+}
+
+func LoadNode(ctx *Context, id NodeID) (*Node, error) {
+  ctx.Log.Logf("db", "LOADING_NODE: %s", id)
+  var node_bytes []byte = nil
+  var sq_bytes []byte = nil
+  var ext_bytes = map[ExtType][]byte{}
+
+  err := ctx.DB.View(func(txn *badger.Txn) error {
+    id_bytes, err := id.MarshalBinary()
+    if err != nil {
+      return err
+    }
+
+    node_item, err := txn.Get(id_bytes)
+    if err != nil {
+      ctx.Log.Logf("db", "node key not found")
+      return err
+    }
+
+    node_bytes, err = node_item.ValueCopy(nil)
+    if err != nil {
+      return err
+    }
+
+    sq_item, err := txn.Get(append(id_bytes, signal_queue_suffix...))
+    if err != nil {
+      ctx.Log.Logf("db", "sq key not found")
+      return err
+    }
+    sq_bytes, err = sq_item.ValueCopy(nil)
+    if err != nil {
+      return err
+    }
+
+    ext_list_item, err := txn.Get(append(id_bytes, extension_suffix...))
+    if err != nil {
+      ctx.Log.Logf("db", "ext_list key not found")
+      return err
+    }
+
+    ext_list_bytes, err := ext_list_item.ValueCopy(nil)
+    if err != nil {
+      return err
+    }
+
+    ext_list_value, remaining, err := DeserializeValue(ctx, reflect.TypeOf([]ExtType{}), ext_list_bytes)
+    if err != nil {
+      return err
+    } else if len(remaining) > 0 {
+      return fmt.Errorf("Data remaining after ext_list deserialize %d", len(remaining))
+    }
+    ext_list, ok := ext_list_value.Interface().([]ExtType)
+    if ok == false {
+      return fmt.Errorf("deserialize returned wrong type %s", ext_list_value.Type())
+    }
+
+    for _, ext_type := range(ext_list) {
+      ext_item, err := txn.Get(append(id_bytes, ExtTypeSuffix(ext_type)...))
+      if err != nil {
+        ctx.Log.Logf("db", "ext %s key not found", ext_type)
+        return err
+      }
+
+      ext_bytes[ext_type], err = ext_item.ValueCopy(nil)
+      if err != nil {
+        return err
+      }
+    }
+    return nil
+  })
+  if err != nil {
+    return nil, err
+  }
+
+  node_value, remaining, err := DeserializeValue(ctx, reflect.TypeOf((*Node)(nil)), node_bytes)
+  if err != nil {
+    return nil, err
+  } else if len(remaining) != 0 {
+    return nil, fmt.Errorf("data left after deserializing node %d", len(remaining))
+  }
+
+  node, node_ok := node_value.Interface().(*Node)
+  if node_ok == false {
+    return nil, fmt.Errorf("node wrong type %s", node_value.Type())
+  }
+
+  ctx.Log.Logf("db", "Deserialized node bytes %+v", node)
+
+  signal_queue_value, remaining, err := DeserializeValue(ctx, reflect.TypeOf([]QueuedSignal{}), sq_bytes)
+  if err != nil {
+    return nil, err
+  } else if len(remaining) != 0 {
+    return nil, fmt.Errorf("data left after deserializing signal_queue %d", len(remaining))
+  }
+
+  signal_queue, sq_ok := signal_queue_value.Interface().([]QueuedSignal)
+  if sq_ok == false {
+    return nil, fmt.Errorf("signal queue wrong type %s", signal_queue_value.Type())
+  }
+
+  for ext_type, data := range(ext_bytes) {
+    ext_info, exists := ctx.Extensions[ext_type]
+    if exists == false {
+      return nil, fmt.Errorf("0x%0x is not a known extension type", ext_type)
+    }
+
+    ext_value, remaining, err := DeserializeValue(ctx, ext_info.Reflect, data)
+    if err != nil {
+      return nil, err
+    } else if len(remaining) > 0 {
+      return nil, fmt.Errorf("data left after deserializing ext(0x%x) %d", ext_type, len(remaining))
+    }
+    ext, ext_ok := ext_value.Interface().(Extension)
+    if ext_ok == false {
+      return nil, fmt.Errorf("extension wrong type %s", ext_value.Type())
+    }
+
+    node.Extensions[ext_type] = ext
+  }
+
+  node.SignalQueue = signal_queue
+  node.NextSignal, node.TimeoutChan = SoonestSignal(signal_queue)
+
+  ctx.AddNode(id, node) 
+  ctx.Log.Logf("db", "loaded %+v", node)
+  go runNode(ctx, node)
+
+  return node, nil
+}

node_test.go

@@ -12,7 +12,7 @@ func TestNodeDB(t *testing.T) {
   ctx := logTestContext(t, []string{"node", "db"})
 
   node_listener := NewListenerExt(10)
-  node, err := NewNode(ctx, nil, "Base", 10, NewLockableExt(nil), node_listener)
+  node, err := NewNode(ctx, nil, "Base", 10, nil, NewGroupExt(nil), NewLockableExt(nil), node_listener)
   fatalErr(t, err)
 
   _, err = WaitForSignal(node_listener.Chan, 10*time.Millisecond, func(sig *StatusSignal) bool {
@@ -45,18 +45,25 @@ func TestNodeRead(t *testing.T) {
   ctx.Log.Logf("test", "N1: %s", n1_id)
   ctx.Log.Logf("test", "N2: %s", n2_id)
 
+  n1_policy := NewPerNodePolicy(map[NodeID]Tree{
+    n2_id: {
+      SerializedType(SignalTypeFor[ReadSignal]()): nil,
+    },
+  })
+
   n2_listener := NewListenerExt(10)
-  n2, err := NewNode(ctx, n2_key, "Base", 10, n2_listener)
+  n2, err := NewNode(ctx, n2_key, "Base", 10, nil, NewGroupExt(nil), n2_listener)
   fatalErr(t, err)
 
-  n1, err := NewNode(ctx, n1_key, "Base", 10, NewListenerExt(10)) 
+  n1, err := NewNode(ctx, n1_key, "Base", 10, []Policy{n1_policy}, NewGroupExt(nil))
   fatalErr(t, err)
 
   read_sig := NewReadSignal(map[ExtType][]string{
-    ExtTypeFor[ListenerExt](): {"buffer"},
+    ExtTypeFor[GroupExt](): {"members"},
   })
-  msgs := []SendMsg{{n1.ID, read_sig}}
+  msgs := Messages{}
-  err = ctx.Send(n2, msgs)
+  msgs = msgs.Add(ctx, n1.ID, n2, nil, read_sig)
+  err = ctx.Send(msgs)
   fatalErr(t, err)
 
   res, err := WaitForSignal(n2_listener.Chan, 10*time.Millisecond, func(sig *ReadResultSignal) bool {

policy.go

@@ -0,0 +1,139 @@
+package graphvent
+
+import (
+  "github.com/google/uuid"
+)
+
+type Policy interface {
+  Allows(ctx *Context, principal_id NodeID, action Tree, node *Node)(Messages, RuleResult)
+  ContinueAllows(ctx *Context, current PendingACL, signal Signal)RuleResult
+  ID() uuid.UUID
+}
+
+type PolicyHeader struct {
+  UUID uuid.UUID `gv:"uuid"`
+}
+
+func (header PolicyHeader) ID() uuid.UUID {
+  return header.UUID
+}
+
+func (policy AllNodesPolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node)(Messages, RuleResult) {
+  return nil, policy.Rules.Allows(action)
+}
+
+func (policy AllNodesPolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  return Deny
+}
+
+func (policy PerNodePolicy) Allows(ctx *Context, principal_id NodeID, action Tree, node *Node)(Messages, RuleResult) {
+  for id, actions := range(policy.NodeRules) {
+    if id != principal_id {
+      continue
+    }
+    return nil, actions.Allows(action)
+  }
+  return nil, Deny
+}
+
+func (policy PerNodePolicy) ContinueAllows(ctx *Context, current PendingACL, signal Signal) RuleResult {
+  return Deny
+}
+
+func CopyTree(tree Tree) Tree {
+  if tree == nil {
+    return nil
+  }
+
+  ret := Tree{}
+  for name, sub := range(tree) {
+    ret[name] = CopyTree(sub)
+  }
+
+  return ret
+}
+
+func MergeTrees(first Tree, second Tree) Tree {
+  if first == nil || second == nil {
+    return nil
+  }
+
+  ret := CopyTree(first)
+  for name, sub := range(second) {
+    current, exists := ret[name]
+    if exists == true {
+      ret[name] = MergeTrees(current, sub)
+    } else {
+      ret[name] = CopyTree(sub)
+    }
+  }
+  return ret
+}
+
+type Tree map[SerializedType]Tree
+
+func (rule Tree) Allows(action Tree) RuleResult {
+  // If the current rule is nil, it's a wildcard and any action being processed is allowed
+  if rule == nil {
+    return Allow
+    // If the rule isn't "allow all" but the action is "request all", deny
+  } else if action == nil {
+    return Deny
+    // If the current action has no children, it's allowed
+  } else if len(action) == 0 {
+    return Allow
+    // If the current rule has no children but the action goes further, it's not allowed
+  } else if len(rule) == 0 {
+    return Deny
+    // If the current rule and action have children, all the children of action must be allowed by rule
+  } else {
+    for sub, subtree := range(action) {
+      subrule, exists := rule[sub]
+      if exists == false {
+        return Deny
+      } else if subrule.Allows(subtree) == Deny {
+        return Deny
+      }
+    }
+    return Allow
+  }
+}
+
+func NewPolicyHeader() PolicyHeader {
+  return PolicyHeader{
+    UUID: uuid.New(),
+  }
+}
+
+func NewPerNodePolicy(node_actions map[NodeID]Tree) PerNodePolicy {
+  if node_actions == nil {
+    node_actions = map[NodeID]Tree{}
+  }
+
+  return PerNodePolicy{
+    PolicyHeader: NewPolicyHeader(),
+    NodeRules: node_actions,
+  }
+}
+
+type PerNodePolicy struct {
+  PolicyHeader
+  NodeRules map[NodeID]Tree `gv:"node_rules"`
+}
+
+func NewAllNodesPolicy(rules Tree) AllNodesPolicy {
+  return AllNodesPolicy{
+    PolicyHeader: NewPolicyHeader(),
+    Rules: rules,
+  }
+}
+
+type AllNodesPolicy struct {
+  PolicyHeader
+  Rules Tree `gv:"rules"`
+}
+
+var DefaultPolicy = NewAllNodesPolicy(Tree{
+  SerializedType(SignalTypeFor[ResponseSignal]()): nil,
+  SerializedType(SignalTypeFor[StatusSignal]()): nil,
+})

serialize_test.go

@@ -1,150 +1,247 @@
 package graphvent
 
 import (
-  "testing"
+	"fmt"
-  "reflect"
+	"reflect"
-  "github.com/google/uuid"
+	"testing"
+	"time"
 )
 
-func testTypeStack[T any](t *testing.T, ctx *Context) {
+func TestSerializeTest(t *testing.T) {
-  reflect_type := reflect.TypeFor[T]()
+  ctx := logTestContext(t, []string{"test", "serialize", "deserialize_types"})
-  stack, err := TypeStack(ctx, reflect_type)
+  testSerialize(t, ctx, map[string][]NodeID{"test_group": {RandID(), RandID(), RandID()}})
-  fatalErr(t, err)
+  testSerialize(t, ctx, map[NodeID]ReqState{
+    RandID(): Locked,
+    RandID(): Unlocked,
+  })
+}
 
-  ctx.Log.Logf("test", "TypeStack[%s]: %+v", reflect_type, stack)
+func TestSerializeBasic(t *testing.T) {
+  ctx := logTestContext(t, []string{"test", "serialize", "deserialize_types"})
+  testSerializeComparable[bool](t, ctx, true)
 
-  unwrapped_type, rest, err := UnwrapStack(ctx, stack)
+  type bool_wrapped bool
+  err := RegisterType[bool_wrapped](ctx, nil, nil, nil, DeserializeBool[bool_wrapped])
   fatalErr(t, err)
-
+  testSerializeComparable[bool_wrapped](t, ctx, true)
-  if len(rest) != 0 {
+
-    t.Errorf("Types remaining after unwrapping %s: %+v", unwrapped_type, stack)
+  testSerializeSlice[[]bool](t, ctx, []bool{false, false, true, false})
+  testSerializeComparable[string](t, ctx, "test")
+  testSerializeComparable[float32](t, ctx, 0.05)
+  testSerializeComparable[float64](t, ctx, 0.05)
+  testSerializeComparable[uint](t, ctx, uint(1234))
+  testSerializeComparable[uint8] (t, ctx, uint8(123))
+  testSerializeComparable[uint16](t, ctx, uint16(1234))
+  testSerializeComparable[uint32](t, ctx, uint32(12345))
+  testSerializeComparable[uint64](t, ctx, uint64(123456))
+  testSerializeComparable[int](t, ctx, 1234)
+  testSerializeComparable[int8] (t, ctx, int8(-123))
+  testSerializeComparable[int16](t, ctx, int16(-1234))
+  testSerializeComparable[int32](t, ctx, int32(-12345))
+  testSerializeComparable[int64](t, ctx, int64(-123456))
+  testSerializeComparable[time.Duration](t, ctx, time.Duration(100))
+  testSerializeComparable[time.Time](t, ctx, time.Now().Truncate(0))
+  testSerializeSlice[[]int](t, ctx, []int{123, 456, 789, 101112})
+  testSerializeSlice[[]int](t, ctx, ([]int)(nil))
+  testSerializeSliceSlice[[][]int](t, ctx, [][]int{{123, 456, 789, 101112}, {3253, 2341, 735, 212}, {123, 51}, nil})
+  testSerializeSliceSlice[[][]string](t, ctx, [][]string{{"123", "456", "789", "101112"}, {"3253", "2341", "735", "212"}, {"123", "51"}, nil})
+
+  testSerialize(t, ctx, map[int8]map[*int8]string{})
+  testSerialize(t, ctx, map[int8]time.Time{
+    1: time.Now(),
+    3: time.Now().Add(time.Second),
+    0: time.Now().Add(time.Second*2),
+    4: time.Now().Add(time.Second*3),
+  })
+
+  testSerialize(t, ctx, Tree{
+    SerializedTypeFor[NodeType](): nil,
+    SerializedTypeFor[SerializedType](): {
+      SerializedTypeFor[NodeType](): Tree{},
+    },
+  })
+
+  var i interface{} = nil
+  testSerialize(t, ctx, i)
+
+  testSerializeMap(t, ctx, map[int8]interface{}{
+    0: "abcd",
+    1: uint32(12345678),
+    2: i,
+    3: 123,
+  })
+
+  testSerializeMap(t, ctx, map[int8]int32{
+    0: 1234,
+    2: 5678,
+    4: 9101,
+    6: 1121,
+  })
+
+  type test_struct struct {
+    Int int `gv:"int"`
+    String string `gv:"string"`
   }
 
-  if unwrapped_type != reflect_type {
+  err = RegisterStruct[test_struct](ctx)
-    t.Errorf("Unwrapped type[%+v] doesn't match original[%+v]", unwrapped_type, reflect_type)
+  fatalErr(t, err)
-  }
 
-  ctx.Log.Logf("test", "Unwrapped type[%s]: %s", reflect_type, reflect_type)
+  testSerialize(t, ctx, test_struct{
-}
+    12345,
+    "test_string",
+  })
+
+  testSerialize(t, ctx, Tree{
+    SerializedKindFor(reflect.Map): nil,
+    SerializedKindFor(reflect.String): nil,
+  })
+
+  testSerialize(t, ctx, Tree{
+    SerializedTypeFor[Tree](): nil,
+  })
+
+  testSerialize(t, ctx, Tree{
+    SerializedTypeFor[Tree](): {
+      SerializedTypeFor[error](): Tree{},
+      SerializedKindFor(reflect.Map): nil,
+    },
+    SerializedKindFor(reflect.String): nil,
+  })
+
+  type test_slice []string
+  err = RegisterType[test_slice](ctx, SerializeTypeStub, SerializeSlice, DeserializeTypeStub[test_slice], DeserializeSlice)
+  fatalErr(t, err)
 
-func TestSerializeTypes(t *testing.T) {
+  testSerialize[[]string](t, ctx, []string{"test_1", "test_2", "test_3"})
-  ctx := logTestContext(t, []string{"test"})
+  testSerialize[test_slice](t, ctx, test_slice{"test_1", "test_2", "test_3"})
+}
 
-  testTypeStack[int](t, ctx)
+type test struct {
-  testTypeStack[map[int]string](t, ctx)
+  Int int `gv:"int"`
-  testTypeStack[string](t, ctx)
+  Str string `gv:"string"`
-  testTypeStack[*string](t, ctx)
-  testTypeStack[*map[string]*map[*string]int](t, ctx)
-  testTypeStack[[5]int](t, ctx)
-  testTypeStack[uuid.UUID](t, ctx)
-  testTypeStack[NodeID](t, ctx)
 }
 
-func testSerializeCompare[T comparable](t *testing.T, ctx *Context, value T) {
+func (s test) String() string {
-  serialized, err := Serialize(ctx, value) 
+  return fmt.Sprintf("%d:%s", s.Int, s.Str)
-  fatalErr(t, err)
+}
 
-  ctx.Log.Logf("test", "Serialized Value[%s : %+v]: %+v", reflect.TypeFor[T](), value, serialized)
+func TestSerializeStructTags(t *testing.T) {
+  ctx := logTestContext(t, []string{"test"})
 
-  deserialized, err := Deserialize[T](ctx, serialized)
+  err := RegisterStruct[test](ctx)
   fatalErr(t, err)
 
-  if value != deserialized {
+  test_int := 10
-    t.Fatalf("Deserialized value[%+v] doesn't match original[%+v]", value, deserialized)
+  test_string := "test"
+
+  ret := testSerialize(t, ctx, test{
+    test_int,
+    test_string,
+  })
+  if ret.Int != test_int {
+    t.Fatalf("Deserialized int %d does not equal test %d", ret.Int, test_int)
+  } else if ret.Str != test_string {
+    t.Fatalf("Deserialized string %s does not equal test %s", ret.Str, test_string)
   }
 
-  ctx.Log.Logf("test", "Deserialized Value[%+v]: %+v", value, deserialized)
+  testSerialize(t, ctx, []test{
+    {
+      test_int,
+      test_string,
+    },
+    {
+      test_int * 2,
+      fmt.Sprintf("%s%s", test_string, test_string),
+    },
+    {
+      test_int * 4,
+      fmt.Sprintf("%s%s%s", test_string, test_string, test_string),
+    },
+  })
 }
 
-func testSerializeList[L []T, T comparable](t *testing.T, ctx *Context, value L) {
+func testSerializeMap[M map[T]R, T, R comparable](t *testing.T, ctx *Context, val M) {
-  serialized, err := Serialize(ctx, value)
+  v := testSerialize(t, ctx, val)
-  fatalErr(t, err)
+  for key, value := range(val) {
-
+    recreated, exists := v[key]
-  ctx.Log.Logf("test", "Serialized Value[%s : %+v]: %+v", reflect.TypeFor[L](), value, serialized)
+    if exists == false {
-
+      t.Fatalf("DeserializeValue returned wrong value %+v != %+v", v, val)
-  deserialized, err := Deserialize[L](ctx, serialized)
+    } else if recreated != value {
-  fatalErr(t, err)
+      t.Fatalf("DeserializeValue returned wrong value %+v != %+v", v, val)
-
-  for i, item := range(value) {
-    if item != deserialized[i] {
-      t.Fatalf("Deserialized list %+v does not match original %+v", value, deserialized)
     }
   }
-
+  if len(v) != len(val) {
-  ctx.Log.Logf("test", "Deserialized Value[%+v]: %+v", value, deserialized)
+    t.Fatalf("DeserializeValue returned wrong value %+v != %+v", v, val)
+  }
 }
 
-func testSerializePointer[P interface {*T}, T comparable](t *testing.T, ctx *Context, value P) {
+func testSerializeSliceSlice[S [][]T, T comparable](t *testing.T, ctx *Context, val S) {
-  serialized, err := Serialize(ctx, value)
+  v := testSerialize(t, ctx, val)
-  fatalErr(t, err)
+  for i, original := range(val) {
-
+    if (original == nil && v[i] != nil) || (original != nil && v[i] == nil) {
-  ctx.Log.Logf("test", "Serialized Value[%s : %+v]: %+v", reflect.TypeFor[P](), value, serialized)
+      t.Fatalf("DeserializeValue returned wrong value %+v != %+v", v, val)
+    }
+    for j, o := range(original) {
+      if v[i][j] != o {
+        t.Fatalf("DeserializeValue returned wrong value %+v != %+v", v, val)
+      }
+    }
+  }
+}
 
-  deserialized, err := Deserialize[P](ctx, serialized)
+func testSerializeSlice[S []T, T comparable](t *testing.T, ctx *Context, val S) {
-  fatalErr(t, err)
+  v := testSerialize(t, ctx, val)
+  for i, original := range(val) {
+    if v[i] != original {
+      t.Fatal(fmt.Sprintf("DeserializeValue returned wrong value %+v != %+v", v, val))
+    }
+  }
+}
 
-  if value == nil && deserialized == nil {
+func testSerializeComparable[T comparable](t *testing.T, ctx *Context, val T) {
-    ctx.Log.Logf("test", "Deserialized nil")
+  v := testSerialize(t, ctx, val)
-  } else if value == nil {
+  if v != val {
-    t.Fatalf("Non-nil value[%+v] returned for nil value", deserialized)
+    t.Fatal(fmt.Sprintf("DeserializeValue returned wrong value %+v != %+v", v, val))
-  } else if deserialized == nil {
-    t.Fatalf("Nil value returned for non-nil value[%+v]", value)
-  } else if *deserialized != *value {
-    t.Fatalf("Deserialized value[%+v] doesn't match original[%+v]", value, deserialized)
-  } else {
-    ctx.Log.Logf("test", "Deserialized Value[%+v]: %+v", *value, *deserialized)
   }
 }
 
-func testSerialize[T any](t *testing.T, ctx *Context, value T) {
+func testSerialize[T any](t *testing.T, ctx *Context, val T) T {
-  serialized, err := Serialize(ctx, value)
+  value := reflect.ValueOf(&val).Elem()
+  type_stack, err := SerializeType(ctx, value.Type())
+  chunks, err := SerializeValue(ctx, value)
+  value_serialized := SerializedValue{type_stack, chunks.Slice()}
   fatalErr(t, err)
+  ctx.Log.Logf("test", "Serialized %+v to %+v(%d)", val, value_serialized, len(value_serialized.Data))
 
-  ctx.Log.Logf("test", "Serialized Value[%s : %+v]: %+v", reflect.TypeFor[T](), value, serialized)
+  value_chunks, err := value_serialized.Chunks()
-
-  deserialized, err := Deserialize[T](ctx, serialized)
   fatalErr(t, err)
+  ctx.Log.Logf("test", "Binary: %+v", value_chunks.Slice())
 
-  ctx.Log.Logf("test", "Deserialized Value[%+v]: %+v", value, deserialized)
+  val_parsed, remaining_parse, err := ParseSerializedValue(value_chunks.Slice())
-}
+  fatalErr(t, err)
-
+  ctx.Log.Logf("test", "Parsed: %+v", val_parsed)
-func TestSerializeValues(t *testing.T) {
-  ctx := logTestContext(t, []string{"test"})
-
-  testSerialize(t, ctx, Extension(NewLockableExt(nil)))
-
-  testSerializeCompare[int8](t, ctx, -64)
-  testSerializeCompare[int16](t, ctx, -64)
-  testSerializeCompare[int32](t, ctx, -64)
-  testSerializeCompare[int64](t, ctx, -64)
-  testSerializeCompare[int](t, ctx, -64)
-
-  testSerializeCompare[uint8](t, ctx, 64)
-  testSerializeCompare[uint16](t, ctx, 64)
-  testSerializeCompare[uint32](t, ctx, 64)
-  testSerializeCompare[uint64](t, ctx, 64)
-  testSerializeCompare[uint](t, ctx, 64)
-
-  testSerializeCompare[string](t, ctx, "test")
-
-  a := 12
-  testSerializePointer[*int](t, ctx, &a)
-
-  b := "test"
-  testSerializePointer[*string](t, ctx, nil)
-  testSerializePointer[*string](t, ctx, &b)
-
-  testSerializeList(t, ctx, []int{1, 2, 3, 4, 5})
 
-  testSerializeCompare[bool](t, ctx, true)
+  if len(remaining_parse) != 0 {
-  testSerializeCompare[bool](t, ctx, false)
+    t.Fatal("Data remaining after deserializing value")
-  testSerializeCompare[int](t, ctx, -1)
+  }
-  testSerializeCompare[uint](t, ctx, 1)
-  testSerializeCompare[NodeID](t, ctx, RandID())
-  testSerializeCompare[*int](t, ctx, nil)
-  testSerializeCompare(t, ctx, "string")
 
-  node, err := NewNode(ctx, nil, "Base", 100)
+  val_type, remaining_types, err := DeserializeType(ctx, val_parsed.TypeStack)
+  deserialized_value, remaining_deserialize, err := DeserializeValue(ctx, val_type, val_parsed.Data)
   fatalErr(t, err)
-  testSerialize(t, ctx, node)
+
+  if len(remaining_deserialize) != 0 {
+    t.Fatal("Data remaining after deserializing value")
+  } else if len(remaining_types) != 0 {
+    t.Fatal("TypeStack remaining after deserializing value")
+  } else if val_type != value.Type() {
+    t.Fatal(fmt.Sprintf("DeserializeValue returned wrong reflect.Type %+v - %+v", val_type, reflect.TypeOf(val)))
+  } else if deserialized_value.CanConvert(val_type) == false {
+    t.Fatal("DeserializeValue returned value that can't convert to original value")
+  }
+  ctx.Log.Logf("test", "Value: %+v", deserialized_value.Interface())
+  if val_type.Kind() == reflect.Interface && deserialized_value.Interface() == nil {
+    var zero T
+    return zero
+  }
+  return deserialized_value.Interface().(T)
 }

signal.go

@@ -7,13 +7,20 @@ import (
  "github.com/google/uuid"
 )
 
+type SignalDirection uint8
+const (
+  Up SignalDirection = iota
+  Down
+  Direct
+)
+
 type TimeoutSignal struct {
   ResponseHeader
 }
 
 func NewTimeoutSignal(req_id uuid.UUID) *TimeoutSignal {
   return &TimeoutSignal{
-    NewResponseHeader(req_id),
+    NewResponseHeader(req_id, Direct),
   }
 }
 
@@ -21,23 +28,26 @@ func (signal TimeoutSignal) String() string {
   return fmt.Sprintf("TimeoutSignal(%s)", &signal.ResponseHeader)
 }
 
-type SignalDirection int
+// Timeouts are internal only, no permission allows sending them
-const (
+func (signal TimeoutSignal) Permission() Tree {
-  Up SignalDirection = iota
+  return nil
-  Down
+}
-  Direct
-)
 
 type SignalHeader struct {
   Id uuid.UUID `gv:"id"`
+  Dir SignalDirection `gv:"direction"`
 }
 
 func (signal SignalHeader) ID() uuid.UUID {
   return signal.Id
 }
 
+func (signal SignalHeader) Direction() SignalDirection {
+  return signal.Dir
+}
+
 func (header SignalHeader) String() string {
-   return fmt.Sprintf("SignalHeader(%s)", header.Id)
+   return fmt.Sprintf("SignalHeader(%d, %s)", header.Dir, header.Id)
 }
 
 type ResponseSignal interface {
@@ -55,12 +65,14 @@ func (header ResponseHeader) ResponseID() uuid.UUID {
 }
 
 func (header ResponseHeader) String() string {
-   return fmt.Sprintf("ResponseHeader(%s, %s)", header.Id, header.ReqID)
+   return fmt.Sprintf("ResponseHeader(%d, %s->%s)", header.Dir, header.Id, header.ReqID)
 }
 
 type Signal interface {
   fmt.Stringer
   ID() uuid.UUID
+  Direction() SignalDirection
+  Permission() Tree
 }
 
 func WaitForResponse(listener chan Signal, timeout time.Duration, req_id uuid.UUID) (ResponseSignal, []Signal, error) {
@@ -117,15 +129,16 @@ func WaitForSignal[S Signal](listener chan Signal, timeout time.Duration, check
   return zero, fmt.Errorf("LOOP_ENDED")
 }
 
-func NewSignalHeader() SignalHeader {
+func NewSignalHeader(direction SignalDirection) SignalHeader {
   return SignalHeader{
     uuid.New(),
+    direction,
   }
 }
 
-func NewResponseHeader(req_id uuid.UUID) ResponseHeader {
+func NewResponseHeader(req_id uuid.UUID, direction SignalDirection) ResponseHeader {
   return ResponseHeader{
-    NewSignalHeader(),
+    NewSignalHeader(direction),
     req_id,
   }
 }
@@ -138,9 +151,16 @@ func (signal SuccessSignal) String() string {
   return fmt.Sprintf("SuccessSignal(%s)", signal.ResponseHeader)
 }
 
+func (signal SuccessSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[ResponseSignal]()): {
+      SerializedType(SignalTypeFor[SuccessSignal]()): nil,
+    },
+  }
+}
 func NewSuccessSignal(req_id uuid.UUID) *SuccessSignal {
   return &SuccessSignal{
-    NewResponseHeader(req_id),
+    NewResponseHeader(req_id, Direct),
   }
 }
 
@@ -151,9 +171,16 @@ type ErrorSignal struct {
 func (signal ErrorSignal) String() string {
   return fmt.Sprintf("ErrorSignal(%s, %s)", signal.ResponseHeader, signal.Error)
 }
+func (signal ErrorSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[ResponseSignal]()): {
+      SerializedType(SignalTypeFor[ErrorSignal]()): nil,
+    },
+  }
+}
 func NewErrorSignal(req_id uuid.UUID, fmt_string string, args ...interface{}) *ErrorSignal {
   return &ErrorSignal{
-    NewResponseHeader(req_id),
+    NewResponseHeader(req_id, Direct),
     fmt.Sprintf(fmt_string, args...),
   }
 }
@@ -161,9 +188,14 @@ func NewErrorSignal(req_id uuid.UUID, fmt_string string, args ...interface{}) *E
 type ACLTimeoutSignal struct {
   ResponseHeader
 }
+func (signal ACLTimeoutSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[ACLTimeoutSignal]()): nil,
+  }
+}
 func NewACLTimeoutSignal(req_id uuid.UUID) *ACLTimeoutSignal {
   sig := &ACLTimeoutSignal{
-    NewResponseHeader(req_id),
+    NewResponseHeader(req_id, Direct),
   }
   return sig
 }
@@ -173,12 +205,17 @@ type StatusSignal struct {
   Source NodeID `gv:"source"`
   Changes map[ExtType]Changes `gv:"changes"`
 }
+func (signal StatusSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[StatusSignal]()): nil,
+  }
+}
 func (signal StatusSignal) String() string {
   return fmt.Sprintf("StatusSignal(%s, %+v)", signal.SignalHeader, signal.Changes)
 }
 func NewStatusSignal(source NodeID, changes map[ExtType]Changes) *StatusSignal {
   return &StatusSignal{
-    NewSignalHeader(),
+    NewSignalHeader(Up),
     source,
     changes,
   }
@@ -195,9 +232,17 @@ const (
   LinkActionAdd = "ADD"
 )
 
+func (signal LinkSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[LinkSignal]()): Tree{
+      Hash(LinkActionBase, signal.Action): nil,
+    },
+  }
+}
+
 func NewLinkSignal(action string, id NodeID) Signal {
   return &LinkSignal{
-    NewSignalHeader(),
+    NewSignalHeader(Direct),
     id,
     action,
   }
@@ -211,9 +256,21 @@ func (signal LockSignal) String() string {
   return fmt.Sprintf("LockSignal(%s, %s)", signal.SignalHeader, signal.State)
 }
 
+const (
+  LockStateBase = "LOCK_STATE"
+)
+
+func (signal LockSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[LockSignal]()): Tree{
+      Hash(LockStateBase, signal.State): nil,
+    },
+  }
+}
+
 func NewLockSignal(state string) *LockSignal {
   return &LockSignal{
-    NewSignalHeader(),
+    NewSignalHeader(Direct),
     state,
   }
 }
@@ -227,9 +284,21 @@ func (signal ReadSignal) String() string {
   return fmt.Sprintf("ReadSignal(%s, %+v)", signal.SignalHeader, signal.Extensions)
 }
 
+func (signal ReadSignal) Permission() Tree {
+  ret := Tree{}
+  for ext, fields := range(signal.Extensions) {
+    field_tree := Tree{}
+    for _, field := range(fields) {
+      field_tree[SerializedType(GetFieldTag(field))] = nil
+    }
+    ret[SerializedType(ext)] = field_tree
+  }
+  return Tree{SerializedType(SignalTypeFor[ReadSignal]()): ret}
+}
+
 func NewReadSignal(exts map[ExtType][]string) *ReadSignal {
   return &ReadSignal{
-    NewSignalHeader(),
+    NewSignalHeader(Direct),
     exts,
   }
 }
@@ -238,16 +307,23 @@ type ReadResultSignal struct {
   ResponseHeader
   NodeID NodeID
   NodeType NodeType
-  Extensions map[ExtType]map[string]any
+  Extensions map[ExtType]map[string]SerializedValue
 }
 
 func (signal ReadResultSignal) String() string {
-  return fmt.Sprintf("ReadResultSignal(%s, %s, %+v)", signal.ResponseHeader, signal.NodeID, signal.Extensions)
+  return fmt.Sprintf("ReadResultSignal(%s, %s, %+v, %+v)", signal.ResponseHeader, signal.NodeID, signal.NodeType, signal.Extensions)
 }
 
-func NewReadResultSignal(req_id uuid.UUID, node_id NodeID, node_type NodeType, exts map[ExtType]map[string]any) *ReadResultSignal {
+func (signal ReadResultSignal) Permission() Tree {
+  return Tree{
+    SerializedType(SignalTypeFor[ResponseSignal]()): {
+      SerializedType(SignalTypeFor[ReadResultSignal]()): nil,
+    },
+  }
+}
+func NewReadResultSignal(req_id uuid.UUID, node_id NodeID, node_type NodeType, exts map[ExtType]map[string]SerializedValue) *ReadResultSignal {
   return &ReadResultSignal{
-    NewResponseHeader(req_id),
+    NewResponseHeader(req_id, Direct),
     node_id,
     node_type,
     exts,