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

style update for some string functions

Browse source
This commit is contained in:
Simon Cruanes 2017-09-07 10:10:34 +02:00
parent 14d701f84c
commit 54e12b7f62
2 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -492,18 +492,20 @@ let repeat s n =
let prefix ~pre s = let prefix ~pre s =
String.length pre <= String.length s && String.length pre <= String.length s &&
(let i = ref 0 in begin
while !i < String.length pre && s.[!i] = pre.[!i] do incr i done; let i = ref 0 in
!i = String.length pre while !i < String.length pre && s.[!i] = pre.[!i] do incr i done;
) !i = String.length pre
end
let suffix ~suf s = let suffix ~suf s =
String.length suf <= String.length s && String.length suf <= String.length s &&
let off = String.length s - String.length suf in begin
(let i = ref 0 in let off = String.length s - String.length suf in
while !i < String.length suf && s.[off + !i] = suf.[!i] do incr i done; let i = ref 0 in
!i = String.length suf while !i < String.length suf && s.[off + !i] = suf.[!i] do incr i done;
) !i = String.length suf
end
let take n s = let take n s =
if n < String.length s if n < String.length s

6
src/core/CCString.mli
View file

@ -212,6 +212,10 @@ val prefix : pre:string -> string -> bool
prefix ~pre:"aab" "aabcd" prefix ~pre:"aab" "aabcd"
not (prefix ~pre:"ab" "aabcd") not (prefix ~pre:"ab" "aabcd")
not (prefix ~pre:"abcd" "abc") not (prefix ~pre:"abcd" "abc")
prefix ~pre:"abc" "abcde"
prefix ~pre:"" ""
prefix ~pre:"" "abc"
prefix ~pre:"abc" "abc"
*) *)
val suffix : suf:string -> string -> bool val suffix : suf:string -> string -> bool
@ -220,6 +224,8 @@ val suffix : suf:string -> string -> bool
(*$T (*$T
suffix ~suf:"cd" "abcd" suffix ~suf:"cd" "abcd"
suffix ~suf:"" ""
suffix ~suf:"" "abc"
not (suffix ~suf:"cd" "abcde") not (suffix ~suf:"cd" "abcde")
not (suffix ~suf:"abcd" "cd") not (suffix ~suf:"abcd" "cd")
*) *)