`sig val init : unit -> unit val warn_bad_docstrings : unit -> unit type docstring val docstring : string -> Location.t -> Docstrings.docstring 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 end`