Source file `core_install_printers.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Core

let printers = Pretty_printer.all ()

let eval_string ?(print_outcome = false) ?(err_formatter = Format.err_formatter) str =
  let lexbuf = Lexing.from_string str in
  let phrase = !Toploop.parse_toplevel_phrase lexbuf in
  Toploop.execute_phrase print_outcome err_formatter phrase
;;

let rec install_printers = function
  | [] -> true
  | printer :: printers ->
    let cmd = Printf.sprintf "#install_printer %s;;" printer in
    eval_string cmd && install_printers printers
;;

let () =
  if not (install_printers printers)
  then Format.eprintf "Problem installing Core-printers@."
;;