Source file `scanf.ml`

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