Accept

#

type pv = Accept_types.pv =

# \| T of string
# \| S of string

#

type p = string * pv

#

type media_range = Accept_types.media_range =

# \| MediaType of string * string
# \| AnyMediaSubtype of string
# \| AnyMedia

#

type charset = Accept_types.charset =

# \| Charset of string
# \| AnyCharset

#

type encoding = Accept_types.encoding =

# \| Encoding of string
# \| Gzip
# \| Compress
# \| Deflate
# \| Identity
# \| AnyEncoding

#

type language = Accept_types.language =

# \| Language of string list
# \| AnyLanguage

#

type q = int

#

type 'a qlist = (q * 'a) list

#

val media_ranges : string option -> (media_range * p list) qlist

#

val charsets : string option -> charset qlist

#

val encodings : string option -> encoding qlist

#

val languages : string option -> language qlist

#

val string_of_media_range : media_range * (string * pv) list -> q -> string

#

val string_of_charset : charset -> q -> string

#

val string_of_encoding : encoding -> q -> string

#

val string_of_language : language -> q -> string

#

val string_of_media_ranges : (media_range * p list) qlist -> string

#

val string_of_charsets : charset qlist -> string

#

val string_of_encodings : encoding qlist -> string

#

val string_of_languages : language qlist -> string

#

val pv_of_sexp : Sexplib.Sexp.t -> pv

#

val sexp_of_pv : pv -> Sexplib.Sexp.t

#

val p_of_sexp : Sexplib.Sexp.t -> p

#

val sexp_of_p : p -> Sexplib.Sexp.t

#

val media_range_of_sexp : Sexplib.Sexp.t -> media_range

#

val sexp_of_media_range : media_range -> Sexplib.Sexp.t

#

val charset_of_sexp : Sexplib.Sexp.t -> charset

#

val sexp_of_charset : charset -> Sexplib.Sexp.t

#

val encoding_of_sexp : Sexplib.Sexp.t -> encoding

#

val sexp_of_encoding : encoding -> Sexplib.Sexp.t

#

val language_of_sexp : Sexplib.Sexp.t -> language

#

val sexp_of_language : language -> Sexplib.Sexp.t

#

val q_of_sexp : Sexplib.Sexp.t -> q

#

val sexp_of_q : q -> Sexplib.Sexp.t

#

val qlist_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a qlist

#

val sexp_of_qlist : ('a -> Sexplib.Sexp.t) -> 'a qlist -> Sexplib.Sexp.t

# \| Encoding of string
# \| Gzip
# \| Compress
# \| Deflate
# \| Identity
# \| AnyEncoding

module Accept