1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open! Core
let run parser str =
let compiled = Unstring.compile parser in
Unstring.Compiled.run_all_parses compiled str
|> Sequence.map ~f:Or_error.ok_exn
|> Sequence.to_list
;;
let run_seq parser str =
let compiled = Unstring.compile parser in
Unstring.Compiled.run_all_parses compiled str |> Sequence.map ~f:Or_error.ok_exn
;;
let run_unambiguous sexp_of parser str =
let compiled = Unstring.compile parser in
Unstring.Compiled.run_unambiguous sexp_of compiled str
;;