AlphaGitHub
Source/Packages

Compiler.Parser

packages/compiler/src/Compiler/Parser.alpha

5,902 lines337 declarations199.2 KiBSHA-256 6d135c41813d
Download exact fileView at revisionf5034773ad4bb52133

def · lines 2118–2135

decodeNonTextAtom

Full file
2118def decodeNonTextAtom =
2119  (lambda unrestricted spelling : Bytes .
2120    (app
2121      (nat-eliminate
2122        (lambda unrestricted matched : Nat .
2123          (pi unrestricted force : Nat . (family TermDecodeResult)))
2124        (lambda unrestricted force : Nat . (decodeUnquotedAtom spelling))
2125        (lambda unrestricted predecessor : Nat .
2126          (lambda unrestricted unused : (pi unrestricted force : Nat . (family TermDecodeResult)) .
2127            (lambda unrestricted force : Nat . (decodeQuotedByteAtom spelling))))
2128        (nat-eliminate
2129          (lambda unrestricted isB : Nat . Nat)
2130          zero
2131          (lambda unrestricted predecessor : Nat .
2132            (lambda unrestricted unused : Nat .
2133              (byte-equal (bytes-head (bytes-tail spelling)) (byte 34))))
2134          (byte-equal (bytes-head spelling) (byte 98))))
2135      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.