···72727373type encode = [`Await | `End | `Char of char]
74747575-(** The type for Quoted-Printable encoder. *)
7575+(** The type for Base64 (RFC2045) encoder. *)
7676type encoder
77777878val encoder : dst -> encoder
7979-(** [encoder dst] is an encoder for quoted-printable that outputs to [dst]. *)
7979+(** [encoder dst] is an encoder for Base64 (RFC2045) that outputs to [dst]. *)
80808181val encode : encoder -> encode -> [`Ok | `Partial]
8282(** [encode e v]: is {ul {- [`Partial] iff [e] has a [`Manual] destination and
8383 needs more output storage. The client must use {!dst} to provide a new
8484 buffer and then call {!encode} with [`Await] until [`Ok] is returned.} {-
8585- [`Ok] when the encoder is ready to encode a new [`Char], [`Line_break] or
8585+ [`Ok] when the encoder is ready to encode a new [`Char] or
8686 [`End]}}
87878888 For [`Manual] destination, encoding [`End] always return [`Partial], the
8989 client should continue as usual with [`Await] until [`Ok] is returned at
9090- which point {!dst_rem} [encoder] is guaranteed to be the sode of the last
9090+ which point {!dst_rem} [encoder] is guaranteed to be the size of the last
9191 provided buffer (i.e. nothing was written).
92929393- {b Raises.} [Invalid_argument] if a [`Char], [`Line_break] or [`End] is
9393+ {b Raises.} [Invalid_argument] if a [`Char] or [`End] is
9494 encoded after a [`Partial] encode. *)
95959696val encoder_dst : encoder -> dst