Avalonia.fs

namespace Avalonia.Media.TextFormatting.Unicode

open Avalonia.Utility

[<Struct; IsByRefLike>]
type CodepointEnumerator(text: ReadOnlySlice<char>) =

    let mutable text = text
    let mutable current = Codepoint.ReplacementCodepoint

    member _.Current = current

    member _.MoveNext() =
        if text.IsEmpty then
            current <- Codepoint.ReplacementCodepoint
            false
        else
            let current', count = Codepoint.ReadAt(text, 0)
            current <- current'
            text <- text.Skip(count)
            true