1
2
3
4
5
6
7
8
9
10
11
12
13
module Scanf = Stdlib.Scanf
let unescaped x =
match Scanf.unescaped x with
| exception Scanf.Scan_failure _ -> Error ()
| x -> Ok x
exception E
let sscanf x fmt f =
match Scanf.ksscanf x (fun _ _ -> raise_notrace E) fmt f with
| exception E -> Error ()
| x -> Ok x