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

faster CCString.{prefix,suffix}

Browse source 
see https://github.com/ocaml-batteries-team/batteries-included/issues/792
for some discussion
This commit is contained in:
Simon Cruanes 2017-09-12 10:28:00 +02:00
parent 56928a1a15
commit a323809aa0
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -490,22 +490,28 @@ let repeat s n =
assert(len > 0);
init (len * n) (fun i -> s.[i mod len])
exception Exit_false
let prefix ~pre s =
String.length pre <= String.length s &&
begin
let i = ref 0 in
while !i < String.length pre && s.[!i] = pre.[!i] do incr i done;
!i = String.length pre
end
try
for i=0 to String.length pre-1 do
if String.unsafe_get s i != String.unsafe_get pre i
then raise Exit_false
done;
true
with Exit_false -> false
let suffix ~suf s =
String.length suf <= String.length s &&
begin
try
let off = String.length s - String.length suf in
let i = ref 0 in
while !i < String.length suf && s.[off + !i] = suf.[!i] do incr i done;
!i = String.length suf
end
for i=0 to String.length suf-1 do
if String.unsafe_get s (off+i) != String.unsafe_get suf i
then raise Exit_false
done;
true
with Exit_false -> false
let take n s =
if n < String.length s