mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2026-03-09 23:23:35 -04:00
17 lines
565 B
OCaml
17 lines
565 B
OCaml
(* This file is free software, part of containers. See file "license" for more details. *)
|
|
|
|
type 'a printer = Format.formatter -> 'a -> unit
|
|
|
|
let eval_exn str =
|
|
let lexbuf = Lexing.from_string str in
|
|
let phrase = !Toploop.parse_toplevel_phrase lexbuf in
|
|
Toploop.execute_phrase false Format.err_formatter phrase
|
|
|
|
let install_printer s =
|
|
try ignore (eval_exn ("#install_printer " ^ s ^ " ;; "))
|
|
with _ ->
|
|
Printexc.print_backtrace stderr;
|
|
()
|
|
|
|
let install_printers = List.iter install_printer
|
|
let () = install_printers [ "CCHashtbl.pp"; "CCSexp.pp" ]
|