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

View file

@ -0,0 +1,21 @@
(* Taken from the ocaml-obus project with permission from Jeremie Dimino
<jeremie@dimino.org> *)
(** Type of an address *)
type t =
{ name : string (** The transport name *)
; args : (string * string) list (** Arguments of the address *)
}
(** {6 To/from string conversion} *)
type error =
{ position : int
; reason : string
}
(** [of_string str] parse [str] and return the address in it. *)
val of_string : string -> (t, error) result
(** [to_string addresses] return a string representation of a list of addresses *)
val to_string : t -> string