AlphaGitHub
Source/Packages

Data.UTF8

packages/foundation/standard/src/Data/UTF8.alpha

1,298 lines193 declarations53.6 KiBSHA-256 4bef3dfd330d
Download exact fileView at revisionf5034773ad4bb52133

def · lines 827–840

utf8ChooseEncoded

Full file
Scalar encoding is bounded by the four stored octets, never unary scalar magnitude. Masks/shifts form the exact Unicode UTF8 bit fields.
827def utf8ChooseEncoded =
828  (lambda unrestricted condition : Nat .
829    (lambda unrestricted yes : (pi unrestricted force : Nat . (family UTF8CodepointEncodeResult)) .
830      (lambda unrestricted no : (pi unrestricted force : Nat . (family UTF8CodepointEncodeResult)) .
831        (app
832          (nat-eliminate
833            (lambda unrestricted flag : Nat .
834              (pi unrestricted force : Nat . (family UTF8CodepointEncodeResult)))
835            no
836            (lambda unrestricted predecessor : Nat .
837              (lambda unrestricted unused : (pi unrestricted force : Nat . (family UTF8CodepointEncodeResult)) .
838                yes))
839            condition)
840          zero))))

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.