odoc 3.0.0~beta1 · OCaml Package

type lookup_unit_result =

| Forward_reference
| Found of Odoc_model.Lang.Compilation_unit.t

type path_query = [

| `Path of Odoc_model.Paths.Reference.Hierarchy.t
| `Name of string

]

type lookup_error = [

| `Not_found

]

type resolver = {

open_units : string list;
lookup_unit : path_query -> (lookup_unit_result, lookup_error) Odoc_utils.result;
lookup_page : path_query -> (Odoc_model.Lang.Page.t, lookup_error) Odoc_utils.result;
lookup_asset : path_query -> (Odoc_model.Lang.Asset.t, lookup_error) Odoc_utils.result;
lookup_impl : string -> Odoc_model.Lang.Implementation.t option;

}

type root =

| Resolved of Odoc_model.Root.t * Odoc_model.Paths.Identifier.Module.t * Component.Module.t
| Forward

type lookup_type =

| Module of Odoc_model.Paths.Identifier.Path.Module.t
| ModuleType of Odoc_model.Paths.Identifier.ModuleType.t
| RootModule of Odoc_model.Names.ModuleName.t * [ `Forward | `Resolved of Digest.t ] option
| ModuleByName of string * Odoc_model.Paths.Identifier.Path.Module.t
| FragmentRoot of int

module LookupTypeSet : Set.S with type elt = lookup_type

val pp_lookup_type_list : Format.formatter -> lookup_type list -> unit

type t

val is_linking : t -> bool

val with_recorded_lookups : t -> (t -> 'a) -> LookupTypeSet.t * 'a

val set_resolver : t -> resolver -> t

val has_resolver : t -> bool

val id : t -> int

val empty : t

val add_fragment_root : Component.Signature.t -> t -> t

val add_module : 
  Odoc_model.Paths.Identifier.Path.Module.t ->
  Component.Module.t Component.Delayed.t ->
  Component.CComment.docs ->
  t ->
  t

val add_type : 
  Odoc_model.Paths.Identifier.Type.t ->
  Component.TypeDecl.t ->
  t ->
  t

val add_module_type : 
  Odoc_model.Paths.Identifier.Path.ModuleType.t ->
  Component.ModuleType.t ->
  t ->
  t

val add_value : 
  Odoc_model.Paths.Identifier.Value.t ->
  Component.Value.t ->
  t ->
  t

val add_label : 
  Odoc_model.Paths.Identifier.Label.t ->
  Component.Label.t ->
  t ->
  t

val add_class : 
  Odoc_model.Paths.Identifier.Class.t ->
  Component.Class.t ->
  t ->
  t

val add_class_type : 
  Odoc_model.Paths.Identifier.ClassType.t ->
  Component.ClassType.t ->
  t ->
  t

val add_exception : 
  Odoc_model.Paths.Identifier.Exception.t ->
  Component.Exception.t ->
  t ->
  t

val add_extension_constructor : 
  Odoc_model.Paths.Identifier.Extension.t ->
  Component.Extension.Constructor.t ->
  Component.Extension.t ->
  t ->
  t

val add_docs : Odoc_model.Comment.docs -> t -> t

val add_comment : Odoc_model.Comment.docs_or_stop -> t -> t

val add_method : 
  Odoc_model.Paths.Identifier.Method.t ->
  Component.Method.t ->
  t ->
  t

val add_module_functor_args : 
  Component.Module.t ->
  Odoc_model.Paths.Identifier.Path.Module.t ->
  t ->
  t

val add_module_type_functor_args : 
  Component.ModuleType.t ->
  Odoc_model.Paths.Identifier.ModuleType.t ->
  t ->
  t

val lookup_fragment_root : t -> (int * Component.Signature.t) option

val lookup_page_by_name : 
  string ->
  t ->
  (Odoc_model.Lang.Page.t, lookup_error) Odoc_utils.result

val lookup_page_by_path : 
  Odoc_model.Paths.Reference.Hierarchy.t ->
  t ->
  (Odoc_model.Lang.Page.t, lookup_error) Odoc_utils.result

val lookup_asset_by_path : 
  Odoc_model.Paths.Reference.Hierarchy.t ->
  t ->
  (Odoc_model.Lang.Asset.t, lookup_error) Odoc_utils.result

val lookup_asset_by_name : 
  string ->
  t ->
  (Odoc_model.Lang.Asset.t, lookup_error) Odoc_utils.result

val lookup_impl : string -> t -> Odoc_model.Lang.Implementation.t option

val lookup_unit_by_path : 
  Odoc_model.Paths.Reference.Hierarchy.t ->
  t ->
  (Component.Element.module_, lookup_error) Odoc_utils.result

val module_of_unit : Odoc_model.Lang.Compilation_unit.t -> Component.Module.t

val lookup_root_module : Odoc_model.Names.ModuleName.t -> t -> root option

type 'a scope constraint 'a = [< Component.Element.any ]

Target of a lookup

type 'a maybe_ambiguous =
  ('a, [ `Ambiguous of 'a * 'a list | `Not_found ]) Odoc_utils.Result.result

val lookup_by_name : 'a scope -> string -> t -> 'a maybe_ambiguous

Lookup an element in Env depending on the given scope. Return Error (`Ambiguous _) when two or more elements match the given scope and name.

val lookup_by_id : 
  'a scope ->
  [< Odoc_model.Paths.Identifier.t_pv ] Odoc_model.Paths.Identifier.id ->
  t ->
  'a option

Like lookup_by_name but use an identifier as key.

val s_any : Component.Element.any scope

val s_signature : Component.Element.signature scope

val s_module : Component.Element.module_ scope

val s_module_type : Component.Element.module_type scope

val s_type : Component.Element.type_ scope

val s_datatype : Component.Element.datatype scope

val s_class : Component.Element.class_ scope

val s_class_type : Component.Element.class_type scope

val s_value : Component.Element.value scope

val s_label : Component.Element.label scope

val s_constructor : Component.Element.constructor scope

val s_exception : Component.Element.exception_ scope

val s_extension : Component.Element.extension scope

val s_field : Component.Element.field scope

val s_label_parent : Component.Element.label_parent scope

val s_fragment_type_parent : Component.Element.fragment_type_parent scope

val add_functor_parameter : Odoc_model.Lang.FunctorParameter.t -> t -> t

val open_class_signature : Odoc_model.Lang.ClassSignature.t -> t -> t

val open_signature : Odoc_model.Lang.Signature.t -> t -> t

val open_type_substitution : Odoc_model.Lang.TypeDecl.t -> t -> t

val open_module_substitution : Odoc_model.Lang.ModuleSubstitution.t -> t -> t

val open_module_type_substitution : 
  Odoc_model.Lang.ModuleTypeSubstitution.t ->
  t ->
  t

val open_page : Odoc_model.Lang.Page.t -> t -> t

Add a page content to the env.

val env_of_unit : 
  Odoc_model.Lang.Compilation_unit.t ->
  linking:bool ->
  resolver ->
  t

Create a new env with a module initially opened.

val env_of_page : Odoc_model.Lang.Page.t -> resolver -> t

Create a new env for a page.

val env_of_impl : Odoc_model.Lang.Implementation.t -> resolver -> t

Create a new env for an implementation.

val env_for_reference : resolver -> t

Create a new env for a reference.

val env_for_testing : linking:bool -> t

Create a new env for testing purposes

val inherit_resolver : t -> t

Create an empty environment reusing the same resolver.

val len : int ref

val n : int ref

val verify_lookups : t -> LookupTypeSet.t -> bool

package odoc