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

fix bug in CCParse

Browse source
This commit is contained in:
Simon Cruanes 2023-04-11 10:54:45 -04:00
parent 10a8a7ce0f
commit c7de9389b0
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCParse.ml
View file

@ -605,7 +605,7 @@ let take_until_success p : (slice * _) t =
let continue = ref true in let continue = ref true in
let res = ref None in let res = ref None in
while !continue && !i < st.j do while !continue && !i <= st.j do
let st' = { st with i = !i } in let st' = { st with i = !i } in
p.run st' p.run st'
~ok:(fun new_st x -> ~ok:(fun new_st x ->

9
tests/core/t_parse.ml
View file

@ -188,6 +188,15 @@ eq
"hello world") "hello world")
;; ;;
eq
~printer:(errpp Q.Print.(string))
(Ok "ahahahah")
(parse_string
(let+ slice, () = take_until_success eoi in
Slice.to_string slice)
"ahahahah")
;;
t @@ fun () -> t @@ fun () ->
let p0 = skip_white *> U.int in let p0 = skip_white *> U.int in
let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in