package iter
Simple abstraction over `iter` functions, intended to iterate efficiently on collections while performing some transformations
Install
Dune Dependency
Authors
Maintainers
Sources
iter-1.9.tbz
sha256=dba9e5bb152e0d0db0054c36b2a9476747a284a7738f15f1195a3e2035c7e968
sha512=6c8e0fd57ebca9db642ef6105cb23353fb4f4aa2a37b49ceb61adc9881d0d42e0212326efddea183fae7e27313321680036c3932863004b1853b5fbf37c521de
doc/src/iter.bigarray/IterBigarray.ml.html
Source file IterBigarray.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
(* This file is free software, part of iter. See file "license" for more details. *) (** {1 Interface and Helpers for bigarrays} *) let bigarray_map_file fd ty lay b len = Unix.map_file fd ty lay b [| len |] |> Bigarray.array1_of_genarray let of_bigarray b yield = let len = Bigarray.Array1.dim b in for i = 0 to len - 1 do yield b.{i} done let mmap filename yield = let fd = Unix.openfile filename [ Unix.O_RDONLY ] 0 in let len = Unix.lseek fd 0 Unix.SEEK_END in let _ = Unix.lseek fd 0 Unix.SEEK_SET in let b = bigarray_map_file fd Bigarray.char Bigarray.c_layout false len in try of_bigarray b yield; Unix.close fd with e -> Unix.close fd; raise e [@@ocaml.warning "-3"]
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>