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

more type safety in String.Find

Browse source
This commit is contained in:
Simon Cruanes 2016-11-03 18:39:03 +01:00
parent 5288713b76
commit 83b0744a1b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -222,12 +222,12 @@ module Find = struct
then P_char sub.[0] then P_char sub.[0]
else P_KMP (kmp_rcompile sub) else P_KMP (kmp_rcompile sub)
let find ~pattern s start = match pattern with let find ~(pattern:[`Direct] pattern) s start = match pattern with
| P_char c -> | P_char c ->
(try String.index_from s start c with Not_found -> -1) (try String.index_from s start c with Not_found -> -1)
| P_KMP pattern -> kmp_find ~pattern s start | P_KMP pattern -> kmp_find ~pattern s start
let rfind ~pattern s start = match pattern with let rfind ~(pattern:[`Reverse] pattern) s start = match pattern with
| P_char c -> | P_char c ->
(try String.rindex_from s start c with Not_found -> -1) (try String.rindex_from s start c with Not_found -> -1)
| P_KMP pattern -> kmp_rfind ~pattern s start | P_KMP pattern -> kmp_rfind ~pattern s start
@ -655,7 +655,7 @@ let capitalize_ascii s =
mapi mapi
(fun i c -> if i=0 then CCChar.uppercase_ascii c else c) (fun i c -> if i=0 then CCChar.uppercase_ascii c else c)
s s
let uncapitalize_ascii s = let uncapitalize_ascii s =
mapi mapi