Source file `ocaml_util.ml`

1
2
3
4
5
6
7
8
9
10
11
let warn_latin1 lexbuf =
  Location.deprecated (Location.curr lexbuf) "ISO-Latin1 characters in identifiers"
;;

let print_loc ppf loc =
  Location.print_loc ppf loc


let print_error loc f ppf x =
  let error = Location.error_of_printer ~loc f x in
  Location.print_report ppf error