package dns-client

  1. Overview
  2. Docs
DNS client API

Install 

dune-project
 Dependency

github.com Readme Changelog BSD-2-Clause License Edit opam file Versions (14)

Authors

  1. J
    Joe Hill

Maintainers

  1. T
    team AT robur dot coop

Sources

dns-10.2.4.tbz
sha256=d852d15ca2f58db573679bf18688745600b91296e2e54486609869d666f3d12f
sha512=09d3b1cf76bccbff1a0c042922a3e9d6fa3605770d3d9d9aab3462f32d9156c87f6468b531f27dbcc1ce9030c1bd5f3c81c051f5f6a7ee7d802c1fddf1848058

doc/src/dns-client.resolvconf/dns_resolvconf.ml.html

Source file dns_resolvconf.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let parse buf =
  try
    Resolvconf_state.reset ();
    let buf =
      if String.(get buf (pred (length buf))) = '\n' then buf else buf ^ "\n"
    in
    let lexbuf = Lexing.from_string buf in
    Ok (Resolvconf_parser.resolvconf Resolvconf_lexer.lex lexbuf)
  with
  | Parsing.Parse_error ->
    Error (`Msg (Fmt.str "parse error at line %d" Resolvconf_state.(state.lineno)))
  | exn ->
    Error (`Msg (Fmt.str "error at line %d: %s" Resolvconf_state.(state.lineno)
                   (Printexc.to_string exn)))