Supporting linkdefs in bucket without ids

host_core/lib/host_core/jetstream/client.ex

@@ -226,6 +226,27 @@ defmodule HostCore.Jetstream.Client do
     |> HostCore.Nats.safe_req(del_topic, <<>>)
   end
 
+  def ensure_linkdef_id(linkdef) do
+    if Map.has_key?(linkdef, :id) do
+      linkdef
+    else
+      Map.put(
+        linkdef,
+        :id,
+        linkdef_hash(linkdef.actor_id, linkdef.contract_id, linkdef.link_name)
+      )
+    end
+  end
+
+  def linkdef_hash(actor_id, contract_id, link_name) do
+    sha = :crypto.hash_init(:sha256)
+    sha = :crypto.hash_update(sha, actor_id)
+    sha = :crypto.hash_update(sha, contract_id)
+    sha = :crypto.hash_update(sha, link_name)
+    sha_binary = :crypto.hash_final(sha)
+    sha_binary |> Base.encode16() |> String.upcase()
+  end
+
   defp create_bucket_topic(lattice_prefix, nil),
     do: "$JS.API.STREAM.CREATE.KV_LATTICEDATA_#{lattice_prefix}"
 

host_core/lib/host_core/jetstream/metadata_cache_loader.ex

@@ -8,6 +8,8 @@ defmodule HostCore.Jetstream.MetadataCacheLoader do
   alias HostCore.Refmaps.Manager, as: RefmapsManager
   alias Phoenix.PubSub
 
+  import HostCore.Jetstream.Client, only: [ensure_linkdef_id: 1]
+
   require Logger
   use Gnat.Server
 
@@ -70,6 +72,7 @@ defmodule HostCore.Jetstream.MetadataCacheLoader do
   defp handle_action(:key_added, %{key: @linkdef_prefix <> _ldid, prefix: lattice_prefix}, body) do
     case Jason.decode(body, keys: :atoms) do
       {:ok, ld} ->
+        ld = ensure_linkdef_id(ld)
         Logger.debug("Caching link definition from #{ld.actor_id} on contract #{ld.contract_id}")
 
         # This data came from the bucket, so we don't need to re-write it to the bucket, just:

host_core/lib/host_core/linkdefs/manager.ex

@@ -3,6 +3,7 @@ defmodule HostCore.Linkdefs.Manager do
   require Logger
 
   import HostCore.Jetstream.MetadataCacheLoader, only: [broadcast_event: 3]
+  import HostCore.Jetstream.Client, only: [linkdef_hash: 3]
 
   alias HostCore.CloudEvent
   alias HostCore.Jetstream.Client, as: JetstreamClient
@@ -16,16 +17,10 @@ defmodule HostCore.Linkdefs.Manager do
           link_name :: String.t()
         ) :: map() | nil
   def lookup_link_definition(lattice_prefix, actor, contract_id, link_name) do
-    predicates = [
-      {:==, {:map_get, :actor_id, :"$2"}, actor},
-      {:==, {:map_get, :contract_id, :"$2"}, contract_id},
-      {:==, {:map_get, :link_name, :"$2"}, link_name}
-    ]
-
-    lattice_prefix
-    |> table_atom()
-    |> :ets.select([{{:"$1", :"$2"}, predicates, [:"$2"]}])
-    |> List.first()
+    case lookup_link_definition(lattice_prefix, linkdef_hash(actor, contract_id, link_name)) do
+      {:ok, ld} -> ld
+      :error -> nil
+    end
   end
 
   def lookup_link_definition(lattice_prefix, ldid) do
@@ -44,6 +39,13 @@ defmodule HostCore.Linkdefs.Manager do
         provider_key,
         values
       ) do
+    ldid =
+      if is_nil(ldid) do
+        linkdef_hash(actor, contract_id, link_name)
+      else
+        ldid
+      end
+
     map = %{
       actor_id: actor,
       contract_id: contract_id,
@@ -170,15 +172,6 @@ defmodule HostCore.Linkdefs.Manager do
     end
   end
 
-  defp linkdef_hash(actor_id, contract_id, link_name) do
-    sha = :crypto.hash_init(:sha256)
-    sha = :crypto.hash_update(sha, actor_id)
-    sha = :crypto.hash_update(sha, contract_id)
-    sha = :crypto.hash_update(sha, link_name)
-    sha_binary = :crypto.hash_final(sha)
-    sha_binary |> Base.encode16() |> String.upcase()
-  end
-
   # Publishes the removal of a link definition to the event stream and sends an indication
   # of the removal to the appropriate capability provider. Other hosts will already have been
   # informed of the deletion via key subscriptions on the bucket