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

change the semantics of CCString.find_all (allow overlaps)

Browse source
This commit is contained in:
Simon Cruanes 2016-03-10 16:34:29 +01:00
parent ce6d981973
commit 7c9633f06f
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCString.cppo.ml
View file

@ -222,7 +222,7 @@ let find_all ?(start=0) ~sub =
let res = Find.find ~pattern s !i in let res = Find.find ~pattern s !i in
if res = ~-1 then None if res = ~-1 then None
else ( else (
i := res + Find.pattern_length pattern; i := res + 1; (* possible overlap *)
Some res Some res
) )

3
src/core/CCString.mli
View file

@ -109,7 +109,8 @@ val find : ?start:int -> sub:string -> string -> int
*) *)
val find_all : ?start:int -> sub:string -> string -> int gen val find_all : ?start:int -> sub:string -> string -> int gen
(** [find_all ~sub s] finds all occurrences of [sub] in [s] (** [find_all ~sub s] finds all occurrences of [sub] in [s], even overlapping
instances.
@param start starting position in [s] @param start starting position in [s]
@since NEXT_RELEASE *) @since NEXT_RELEASE *)