@adapt-toolkit/mufl 0.10.5 → 0.10.7

package/mufl_stdlib/cryptography/address_document.mm

@@ -176,6 +176,43 @@ library address_document loads libraries address_document_types, key_storage, ke
         RETURN m_my_address_document?.
     }
 
+    // Build a v1 (pre-E2E) address document to present to an OLD peer during an
+    // invite/handshake down-level: the identity OMITS $e2e_bundle (the field is
+    // nullable — NIL for a v1 identity) and the document is stamped $version->1,
+    // exactly what a pre-E2E (0.11.x) node produces and what its strict version
+    // allow-list accepts. The self-signature loop signs whatever my_identity holds,
+    // so the signature commits to the bundle-less identity. The v2 memo
+    // (m_my_address_document) is deliberately NOT written here, so a per-peer
+    // down-level never poisons the cached current-version document.
+    produce_v1_address_document = fn (_) -> t_address_document
+    {
+        base_identity = key_storage::get_my_identity().
+        my_identity = ( $key_list     -> (base_identity $key_list),
+                        $default_keys -> (base_identity $default_keys),
+                        $container_id -> (base_identity $container_id) ).
+        signatures IS crypto_signature(,) = (,).
+        hash = _value_id my_identity.
+
+        sc my_identity $key_list -- (key -> ) ?? key_get_function key == $SIGN {
+            sig = key_storage::sign hash (_crypto_get_key_id key).
+            signatures sig -> TRUE.
+        }
+
+        RETURN ($version->1, $identity->my_identity, $authorizations->signatures).
+    }
+
+    // The address document to hand a peer, down-levelled when the peer is a v1
+    // (pre-E2E) node. peer_is_v1 NIL/FALSE => the current (v2) document (memoised as
+    // usual); TRUE => a freshly built v1 document (not memoised). This is the single
+    // entry the invite/handshake down-level sites call.
+    get_my_address_document_versioned = fn (peer_is_v1: bool+) -> t_address_document
+    {
+        if (peer_is_v1 != NIL) && (peer_is_v1?) {
+            RETURN produce_v1_address_document().
+        }
+        RETURN get_my_address_document().
+    }
+
 
     trn register_container
     _:($ad -> ad: t_address_document) {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@adapt-toolkit/mufl",
-  "version": "0.10.5",
+  "version": "0.10.7",
   "type": "module",
   "license": "SEE LICENSE IN LICENSE",
   "description": "The MUFL toolchain: prebuilt `mufl` (REPL) and `mufl-compile` (compiler) engine binaries plus the MUFL stdlib, meta, and transactions trees they need at run time. Linux x64 only; the binaries are proprietary (AEFL) — see LICENSE and NOTICE.",