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

raise exception in CCString.replace if sub=""

Browse source
This commit is contained in:
Simon Cruanes 2015-09-27 17:58:44 +02:00
parent 8a3b53f320
commit 32fb4cf044
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -81,7 +81,7 @@ let _is_sub ~sub i s j ~len =
let rec check k =
if k = len
then true
else sub.[i + k] = s.[j+k] && check (k+1)
else sub.[i+k] = s.[j+k] && check (k+1)
in
j+len <= String.length s && check 0
@ -124,7 +124,9 @@ let replace_at_ ~pos ~len ~by s =
Buffer.add_substring b s (pos+len) (String.length s - pos - len);
Buffer.contents b
let replace ?(which=`All) ~sub ~by s = match which with
let replace ?(which=`All) ~sub ~by s =
if sub="" then invalid_arg "CCstring.replace";
match which with
| `Left ->
let i = find ~sub s in
if i>=0 then replace_at_ ~pos:i ~len:(String.length sub) ~by s else s