Source file `import.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
module Types = Async_ssl_bindings.Ffi_bindings.Types (Ffi_generated_types)
module Bindings = Async_ssl_bindings.Ffi_bindings.Bindings (Ffi_generated)

(* All debug traces are guarded with [if verbose]. *)
let verbose = false

(** Iterate a function while another function is true.

    Results are collected in reverse order for performance.  Use [List.rev] if you need
    results in the order they were produced. *)
let iter_while_rev : type a. iter:(unit -> a) -> cond:(a -> bool) -> a list =
  fun ~iter ~cond ->
  let rec go sofar =
    let r = iter () in
    if cond r then go (r :: sofar) else sofar
  in
  go []
;;