mrmime 0.1.0 · OCaml Package

type word = [

| `Atom of string
| `String of string

]

type 'addr domain = [

| `Domain of string list
| `Literal of string
| `Addr of 'addr

]

type local = word list

type 'addr msg_id = local * 'addr domain

type nonsense = |

val is_vchar : char -> bool

val is_obs_no_ws_ctl : char -> bool

val is_ctext : char -> bool

val is_qtext : char -> bool

val is_atext : char -> bool

val is_cr : char -> bool

val is_lf : char -> bool

val is_d0 : char -> bool

val is_wsp : char -> bool

val is_quoted_pair : char -> bool

val is_dtext : char -> bool

val of_escaped_character : char -> char

val quoted_pair : char Angstrom.t

val wsp : char Angstrom.t

val crlf : unit Angstrom.t

type wsp =

| HT
| SP

type surrounded = {

l : wsp list;
r : wsp list;

}

type fws =

| CRLF of surrounded list
| L of wsp list
| R of wsp list

val obs_fws : fws Angstrom.t

val fws : fws Angstrom.t

type comment_content =

| Text of Rfc6532.t
| Quoted_pair of char
| Comment of comment

and comment_content_surrounded = fws option * comment_content

and comment = comment_content_surrounded list * fws option

val failf : ('a, Format.formatter, unit, 'b Angstrom.t) format4 -> 'a

val ignore : 'a Angstrom.t -> unit Angstrom.t

val comment : comment Angstrom.t

val ignore_fws : unit Angstrom.t

type cfws =

| Comment of (fws option * comment) list * fws option
| FWS of fws

val cfws : unit Angstrom.t

val qcontent : string Angstrom.t

val quoted_string : string Angstrom.t

val atom : string Angstrom.t

val word : [> `Atom of string | `String of string ] Angstrom.t

val dot_atom_text : string list Angstrom.t

val dot_atom : string list Angstrom.t

val obs_local_part : [> `Atom of string | `String of string ] list Angstrom.t

val local_part : [ `Atom of string | `String of string ] list Angstrom.t

val obs_domain : string list Angstrom.t

val domain_literal : string Angstrom.t

val domain : 
  address_literal:'a Angstrom.t ->
  [> `Addr of 'a | `Domain of string list ] Angstrom.t

val id_left : [ `Atom of string | `String of string ] list Angstrom.t

val no_fold_literal : string Angstrom.t

val id_right : 
  address_literal:'a Angstrom.t ->
  [> `Addr of 'a | `Domain of string list | `Literal of string ] Angstrom.t

val msg_id : 
  address_literal:'a Angstrom.t ->
  ([ `Atom of string | `String of string ] list
   * [> `Addr of 'a | `Domain of string list | `Literal of string ])
    Angstrom.t

package mrmime