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

bugfix; more tests

Browse source
This commit is contained in:
Simon Cruanes 2014-06-28 04:01:18 +02:00
parent 735a11e5ec
commit d36e8dd38e
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
core/CCString.ml
View file

@ -92,7 +92,7 @@ module Split = struct
and _split_search ~by s prev i = and _split_search ~by s prev i =
if i >= String.length s if i >= String.length s
then Some (SplitStop, prev, String.length s - prev) then Some (SplitStop, prev, String.length s - prev)
else if _is_prefix ~by s i 0 && i>prev else if _is_prefix ~by s i 0
then Some (SplitAt (i+String.length by), prev, i-prev) then Some (SplitAt (i+String.length by), prev, i-prev)
else _split_search ~by s prev (i+1) else _split_search ~by s prev (i+1)
@ -142,11 +142,6 @@ module Split = struct
let seq ~by s = _mkseq ~by s _tuple3 let seq ~by s = _mkseq ~by s _tuple3
let seq_cpy ~by s = _mkseq ~by s String.sub let seq_cpy ~by s = _mkseq ~by s String.sub
(*$T
Split.list_cpy ~by:"," "aa,bb,cc" = ["aa"; "bb"; "cc"]
Split.list_cpy ~by:"--" "a--b----c--" = ["a"; "b"; ""; "c"; ""]
*)
end end
(* note: inefficient *) (* note: inefficient *)

6
core/CCString.mli
View file

@ -111,6 +111,12 @@ module Split : sig
val list_cpy : by:t -> t -> t list val list_cpy : by:t -> t -> t list
(*$T
Split.list_cpy ~by:"," "aa,bb,cc" = ["aa"; "bb"; "cc"]
Split.list_cpy ~by:"--" "a--b----c--" = ["a"; "b"; ""; "c"; ""]
Split.list_cpy ~by:" " "hello world aie" = ["hello"; ""; "world"; "aie"]
*)
val gen_cpy : by:t -> t -> t gen val gen_cpy : by:t -> t -> t gen
val seq_cpy : by:t -> t -> t sequence val seq_cpy : by:t -> t -> t sequence