Arboricx bundle format 1.1

We don't need SHA verification or Merkle dags in our transport bundle. Content
stores can handle both bundle and term verification and hashing.

lib/arboricx-manifest.tri

@@ -29,13 +29,13 @@ readCapabilities_ = y (self bs count i acc :
 readCapabilities = (count bs :
   readCapabilities_ bs count 0 t)
 
--- Helper: read a single root entry (32-byte raw hash + length-prefixed role)
+-- Helper: read a single root entry (4-byte u32 BE index + length-prefixed role)
 readRootEntry = (bs :
-  bindResult (readBytes 32 bs)
-    (hashRaw afterHash :
-      bindResult (readLengthPrefixedString afterHash)
+  bindResult (readBytes 4 bs)
+    (indexRaw afterIndex :
+      bindResult (readLengthPrefixedString afterIndex)
         (role afterRole :
-          ok (pair hashRaw role) afterRole)))
+          ok (pair indexRaw role) afterRole)))
 
 -- Helper worker: read N root entries (counts up from 0)
 readRoots_ = y (self bs count i acc :
@@ -54,13 +54,13 @@ readRoots = (count bs :
 readExportEntry = (bs :
   bindResult (readLengthPrefixedString bs)
     (name afterName :
-      bindResult (readBytes 32 afterName)
-        (rootHashRaw afterRootHash :
-          bindResult (readLengthPrefixedString afterRootHash)
+      bindResult (readBytes 4 afterName)
+        (rootIndexRaw afterRootIndex :
+          bindResult (readLengthPrefixedString afterRootIndex)
             (kind afterKind :
               bindResult (readLengthPrefixedString afterKind)
                 (abi afterAbi :
-                  ok (pair name (pair rootHashRaw (pair kind abi))) afterAbi)))))
+                  ok (pair name (pair rootIndexRaw (pair kind abi))) afterAbi)))))
 
 -- Helper worker: read N export entries (counts up from 0)
 readExports_ = y (self bs count i acc :
@@ -200,7 +200,7 @@ lookupMetadata_ = y (self tlvs tag :
 lookupMetadata = (tlvs tag :
   lookupMetadata_ tlvs tag)
 
--- Get export name from an export entry (pair name (pair rootHash (pair kind abi)))
+-- Get export name from an export entry (pair name (pair rootIndex (pair kind abi)))
 exportName = (exp :
   matchPair
     (name _ : name)
@@ -284,9 +284,9 @@ selectExportOpt = (exports optNameBytes :
 expectedSchema = "arboricx.bundle.manifest.v1"
 expectedBundleType = "tree-calculus-executable-object"
 expectedTreeCalculus = "tree-calculus.v1"
-expectedTreeHashAlgorithm = "sha256"
-expectedTreeHashDomain = "arboricx.merkle.node.v1"
-expectedTreeNodePayload = "arboricx.merkle.payload.v1"
+expectedTreeHashAlgorithm = "indexed"
+expectedTreeHashDomain = "arboricx.indexed.node.v1"
+expectedTreeNodePayload = "arboricx.indexed.payload.v1"
 expectedRuntimeSemantics = "tree-calculus.v1"
 expectedRuntimeEvaluation = "normal-order"
 expectedRuntimeAbi = "arboricx.abi.tree.v1"