sig
  val init : unit -> unit
  val warn_bad_docstrings : unit -> unit
  type docstring
  val docstring : string -> Location.t -> Docstrings.docstring
  val register : Docstrings.docstring -> unit
  val docstring_body : Docstrings.docstring -> string
  val docstring_loc : Docstrings.docstring -> Location.t
  val set_pre_docstrings :
    Lexing.position -> Docstrings.docstring list -> unit
  val set_post_docstrings :
    Lexing.position -> Docstrings.docstring list -> unit
  val set_floating_docstrings :
    Lexing.position -> Docstrings.docstring list -> unit
  val set_pre_extra_docstrings :
    Lexing.position -> Docstrings.docstring list -> unit
  val set_post_extra_docstrings :
    Lexing.position -> Docstrings.docstring list -> unit
  type docs = {
    docs_pre : Docstrings.docstring option;
    docs_post : Docstrings.docstring option;
  }
  val empty_docs : Docstrings.docs
  val docs_attr : Docstrings.docstring -> Parsetree.attribute
  val add_docs_attrs :
    Docstrings.docs -> Parsetree.attributes -> Parsetree.attributes
  val symbol_docs : unit -> Docstrings.docs
  val symbol_docs_lazy : unit -> Docstrings.docs Lazy.t
  val rhs_docs : int -> int -> Docstrings.docs
  val rhs_docs_lazy : int -> int -> Docstrings.docs Lazy.t
  val mark_symbol_docs : unit -> unit
  val mark_rhs_docs : int -> int -> unit
  type info = Docstrings.docstring option
  val empty_info : Docstrings.info
  val info_attr : Docstrings.docstring -> Parsetree.attribute
  val add_info_attrs :
    Docstrings.info -> Parsetree.attributes -> Parsetree.attributes
  val symbol_info : unit -> Docstrings.info
  val rhs_info : int -> Docstrings.info
  type text = Docstrings.docstring list
  val empty_text : Docstrings.text
  val empty_text_lazy : Docstrings.text Lazy.t
  val text_attr : Docstrings.docstring -> Parsetree.attribute
  val add_text_attrs :
    Docstrings.text -> Parsetree.attributes -> Parsetree.attributes
  val symbol_text : unit -> Docstrings.text
  val symbol_text_lazy : unit -> Docstrings.text Lazy.t
  val rhs_text : int -> Docstrings.text
  val rhs_text_lazy : int -> Docstrings.text Lazy.t
  val symbol_pre_extra_text : unit -> Docstrings.text
  val symbol_post_extra_text : unit -> Docstrings.text
  val rhs_pre_extra_text : int -> Docstrings.text
  val rhs_post_extra_text : int -> Docstrings.text
  val rhs_post_text : int -> Docstrings.text
end