simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 19:25:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove dead code

Browse source
This commit is contained in:
Simon Cruanes 2023-06-06 22:59:50 -04:00
parent ebff0be5ea
commit 94c89541f5
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 0 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
src/core/CCVec.ml
View file

@ -219,13 +219,6 @@ let append_list a b =
List.iter (push_unsafe_ a) b; List.iter (push_unsafe_ a) b;
() ()
let rec append_gen a b =
match b () with
| None -> ()
| Some x ->
push a x;
append_gen a b
let equal eq v1 v2 = let equal eq v1 v2 =
v1.size = v2.size v1.size = v2.size
&& &&
@ -492,15 +485,6 @@ let flat_map f v =
iter (fun x -> iter (push v') (f x)) v; iter (fun x -> iter (push v') (f x)) v;
v' v'
let flat_map_iter f v =
let v' = create () in
iter
(fun x ->
let seq = f x in
append_iter v' seq)
v;
v'
let flat_map_seq f v = let flat_map_seq f v =
let v' = create () in let v' = create () in
iter iter
@ -635,27 +619,6 @@ let of_list l =
let to_array v = Array.sub v.vec 0 v.size let to_array v = Array.sub v.vec 0 v.size
let to_list v = List.rev (fold (fun acc x -> x :: acc) [] v) let to_list v = List.rev (fold (fun acc x -> x :: acc) [] v)
let of_gen ?(init = create ()) g =
let rec aux g =
match g () with
| None -> init
| Some x ->
push init x;
aux g
in
aux g
let to_gen v =
let { size; vec } = v in
let i = ref 0 in
fun () ->
if !i < size then (
let x = vec.(!i) in
incr i;
Some x
) else
None
let to_string ?(start = "") ?(stop = "") ?(sep = ", ") item_to_string v = let to_string ?(start = "") ?(stop = "") ?(sep = ", ") item_to_string v =
start ^ (to_list v |> List.map item_to_string |> String.concat sep) ^ stop start ^ (to_list v |> List.map item_to_string |> String.concat sep) ^ stop