package ipaddr

You can search for identifiers within the package.

in-package search v0.2.0

A library for manipulation of IP (and MAC) address representations

Install

Dune Dependency

github.com Readme Changelog ISC License Edit opam file Versions (4)

Authors

Maintainers

A

anil@recoil.org

Sources

ipaddr-v3.1.0.tbz

sha256=39bfbbe2d650c26be7b5581d288eaedd1b47b842cdebaa08d6afd968983fc3b4

md5=471a594563bb9c3dd91ae912b5ffd6ed

doc/src/ipaddr.top/ipaddr_top.ml.html

Source file `ipaddr_top.ml`

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
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@."