mrmime 0.1.0 · OCaml Package

type uutf_charset = [

| `UTF_8
| `UTF_16
| `UTF_16BE
| `UTF_16LE

]

type charset = [

| Rosetta.encoding
| uutf_charset
| `US_ASCII
| `Charset of string

]

type encoding =

| Quoted_printable
| Base64

type encoded_word = {

charset : charset;
encoding : encoding;
raw : string * char * string;
data : (string, Rresult.R.msg) result;

}

val is_normalized : encoded_word -> bool

val charset_of_uppercase_string : string -> charset

val charset_of_string : string -> string * charset

val is_especials : char -> bool

val is_ctl : char -> bool

val is_space : char -> bool

val token : string Angstrom.t

type share = [

| `End
| `Uchar of Uchar.t

]

val normalize_quoted_printable_with_rosetta : 
  ?chunk:int ->
  charset:Rosetta.encoding ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize_quoted_printable_with_uutf : 
  ?chunk:int ->
  charset:[< Uutf.decoder_encoding ] ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize_base64_with_rosetta : 
  ?chunk:int ->
  charset:Rosetta.encoding ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize_base64_with_uutf : 
  ?chunk:int ->
  charset:[< Uutf.decoder_encoding ] ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize_quoted_printable : 
  ?chunk:int ->
  charset:
    [< `Charset of 'a
    | `ISO_8859_1
    | `ISO_8859_10
    | `ISO_8859_11
    | `ISO_8859_13
    | `ISO_8859_14
    | `ISO_8859_15
    | `ISO_8859_16
    | `ISO_8859_2
    | `ISO_8859_3
    | `ISO_8859_4
    | `ISO_8859_5
    | `ISO_8859_6
    | `ISO_8859_7
    | `ISO_8859_8
    | `ISO_8859_9
    | `KOI8_R
    | `KOI8_U
    | `US_ASCII
    | `UTF_16
    | `UTF_16BE
    | `UTF_16LE
    | `UTF_7
    | `UTF_8 ] ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize_base64 : 
  ?chunk:int ->
  charset:
    [< `Charset of 'a
    | `ISO_8859_1
    | `ISO_8859_10
    | `ISO_8859_11
    | `ISO_8859_13
    | `ISO_8859_14
    | `ISO_8859_15
    | `ISO_8859_16
    | `ISO_8859_2
    | `ISO_8859_3
    | `ISO_8859_4
    | `ISO_8859_5
    | `ISO_8859_6
    | `ISO_8859_7
    | `ISO_8859_8
    | `ISO_8859_9
    | `KOI8_R
    | `KOI8_U
    | `US_ASCII
    | `UTF_16
    | `UTF_16BE
    | `UTF_16LE
    | `UTF_7
    | `UTF_8 ] ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val normalize : 
  ?chunk:int ->
  charset:
    [< `Charset of 'a & 'b
    | `ISO_8859_1
    | `ISO_8859_10
    | `ISO_8859_11
    | `ISO_8859_13
    | `ISO_8859_14
    | `ISO_8859_15
    | `ISO_8859_16
    | `ISO_8859_2
    | `ISO_8859_3
    | `ISO_8859_4
    | `ISO_8859_5
    | `ISO_8859_6
    | `ISO_8859_7
    | `ISO_8859_8
    | `ISO_8859_9
    | `KOI8_R
    | `KOI8_U
    | `US_ASCII
    | `UTF_16
    | `UTF_16BE
    | `UTF_16LE
    | `UTF_7
    | `UTF_8 ] ->
  encoding:encoding ->
  string ->
  (string, [> Rresult.R.msg ]) Rresult.result

val invalid_encoding : char -> 'a Angstrom.t

val encoded_text : string Angstrom.t

val encoded_word : encoded_word Angstrom.t

package mrmime