package ipaddr

  1. Overview
  2. Docs
A library for manipulation of IP (and MAC) address representations

Install 

dune-project
 Dependency

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

Authors

  1. D
    David Sheets
  2. A
    Anil Madhavapeddy
  3. H
    Hugo Heuzard

Maintainers

  1. A
    anil@recoil.org

Sources

ipaddr-5.6.2.tbz
sha256=08a3fa6e6411490b6661e5b10229ea9ec6b8c3738e9f6b255859b13f145be136
sha512=719f32fd5a5c854ff5af2c668d20f9c4de4659a3d7d03d260e537ab402d9dd85a5350e611bfc3b8df10f6be02b5941d55a96cd2b4dccc0ad2710c95a51373bd8

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