AlphaGitHub
Source/Packages

Runtime.NativePhysicalEmbeddedArtifact

packages/execution/src/Runtime/NativePhysicalEmbeddedArtifact.alpha

976 lines100 declarations49.9 KiBSHA-256 2a58d1c1703e
Download exact fileView at revisionf5034773ad4bb52133

def · lines 269–284

nativePhysicalEmbeddedDescriptorFixedWidthBytes

Full file
Fixed-width descriptor encoding for large-artifact packagers. Callers that already proved their u32 bounds can supply the canonical words directly and avoid reducing million-sized offsets through unary Nat arithmetic.
269def nativePhysicalEmbeddedDescriptorFixedWidthBytes =
270  (lambda unrestricted tag : (family ModelWord32) .
271    (lambda unrestricted offset : (family ModelWord32) .
272      (lambda unrestricted length : (family ModelWord32) .
273        (lambda unrestricted identity : Bytes .
274          (lambda unrestricted digest : Bytes .
275            (bytes-builder-build
276              (bytes-builder-append
277                (bytes-builder-chunk (dataBytesWord32LE tag))
278                (bytes-builder-append
279                  (bytes-builder-chunk (dataBytesWord32LE offset))
280                  (bytes-builder-append
281                    (bytes-builder-chunk (dataBytesWord32LE length))
282                    (bytes-builder-append
283                      (bytes-builder-chunk identity)
284                      (bytes-builder-chunk digest)))))))))))

The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.