Revision 5e19e357b79a1626c3f27e918e50d21e3fe66c74 authored by Diane Gallois-Wong on 03 October 2022, 16:23:32 UTC, committed by Marge Bot on 10 October 2022, 09:36:45 UTC
- Validate: rename application_info to block_finalization_info - Validate: remove unneeded Alpha_context - Apply: update module name Validate_operation -> Validate in a comment - Apply & Contract_storage: use Lwt_tzresult_syntax (notably, fail is now implicitly Error_monad.fail)
1 parent c3a3cf5
p2p_addr.ml
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* Permission is hereby granted, free of charge, to any person obtaining a *)
(* copy of this software and associated documentation files (the "Software"),*)
(* to deal in the Software without restriction, including without limitation *)
(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *)
(* and/or sell copies of the Software, and to permit persons to whom the *)
(* Software is furnished to do so, subject to the following conditions: *)
(* *)
(* The above copyright notice and this permission notice shall be included *)
(* in all copies or substantial portions of the Software. *)
(* *)
(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*)
(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *)
(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *)
(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*)
(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *)
(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *)
(* DEALINGS IN THE SOFTWARE. *)
(* *)
(*****************************************************************************)
type t = Ipaddr.V6.t
let encoding =
let open Data_encoding in
def "p2p_address" ~description:"An address for locating peers."
@@ splitted
~json:(conv Ipaddr.V6.to_string Ipaddr.V6.of_string_exn string)
~binary:(conv Ipaddr.V6.to_octets Ipaddr.V6.of_octets_exn string)
type port = int
let pp ppf addr =
match Ipaddr.v4_of_v6 addr with
| Some addr -> Format.fprintf ppf "%a" Ipaddr.V4.pp addr
| None -> Format.fprintf ppf "%a" Ipaddr.V6.pp addr
let of_string_opt str =
match Ipaddr.of_string str with
| Ok (Ipaddr.V4 addr) -> Some (Ipaddr.v6_of_v4 addr)
| Ok (V6 addr) -> Some addr
| Error (`Msg _) -> None
let of_string_error_message = "P2p_addr.of_string"
let of_string_exc = Failure of_string_error_message
let of_string_exn str =
of_string_opt str |> WithExceptions.Option.to_exn ~none:of_string_exc
let of_string str =
of_string_opt str |> Result.of_option ~error:of_string_error_message
let to_string saddr = Format.asprintf "%a" pp saddr
let rpc_arg =
RPC_arg.make
~name:"addr"
~descr:"A network address (ipv4 or [ipv6])."
~destruct:of_string
~construct:to_string
()
let () = Data_encoding.Registration.register ~pp encoding
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...