1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
let printers =
[
"Ipaddr.pp";
"Ipaddr.Prefix.pp";
"Ipaddr.V4.pp";
"Ipaddr.V4.Prefix.pp";
"Ipaddr.V6.pp";
"Ipaddr.V6.Prefix.pp";
"Macaddr.pp";
]
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 Ipaddr-printers@."
|
