package server-reason-react

  1. Overview
  2. Docs

Source file Js_iterator.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(** JavaScript Iterator API *)

type 'a t = { mutable seq : 'a Seq.t }
type 'a value = { done_ : bool option; value : 'a option }

let make seq = { seq }

let next t =
  match t.seq () with
  | Seq.Nil ->
      (* JS iterators keep returning { done: true, value: undefined } after exhaustion *)
      t.seq <- Seq.empty;
      { done_ = Some true; value = None }
  | Seq.Cons (v, rest) ->
      t.seq <- rest;
      { done_ = Some false; value = Some v }

let toArray t =
  let arr = Stdlib.Array.of_seq t.seq in
  t.seq <- Seq.empty;
  arr

let toArrayWithMapper t ~f =
  let arr = Stdlib.Array.of_seq (Seq.map f t.seq) in
  t.seq <- Seq.empty;
  arr