swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
unikernel/duniverse/ocaml-ipaddr/lib/ipaddr_top.ml Normal file
View file

@ -0,0 +1,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@."