/usr/lib/ocaml/ipaddr/ipaddr_top.ml is in libipaddr-ocaml-dev 2.6.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | let printers = [
"Ipaddr.pp_hum";
"Ipaddr.Prefix.pp_hum";
"Ipaddr.V4.pp_hum";
"Ipaddr.V4.Prefix.pp_hum";
"Ipaddr.V6.pp_hum";
"Ipaddr.V6.Prefix.pp_hum";
]
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@."
|