Module Mdx.Block

module Header : sig ... end
type cram_value = {
  1. language : [ `Bash | `Sh ];
  2. non_det : Mdx__.Label.non_det option;
}
type ocaml_value = {
  1. env : Mdx__.Ocaml_env.t;
  2. non_det : Mdx__.Label.non_det option;
  3. errors : [ `Ellipsis | `Output of string ] list;
  4. header : Header.t option;
}
type toplevel_value = {
  1. env : Mdx__.Ocaml_env.t;
  2. non_det : Mdx__.Label.non_det option;
}
type include_ocaml_file = {
  1. part_included : string option;
}
type include_other_file = {
  1. header : Header.t option;
}
type include_file_kind =
  1. | Fk_ocaml of include_ocaml_file
  2. | Fk_other of include_other_file
type include_value = {
  1. file_included : string;
  2. file_kind : include_file_kind;
}
type raw_value = {
  1. header : Header.t option;
}
type value =
  1. | Raw of raw_value
  2. | OCaml of ocaml_value
  3. | Cram of cram_value
  4. | Toplevel of toplevel_value
  5. | Include of include_value
type section = int * string
module Raw : sig ... end
type t = {
  1. loc : Location.t;
  2. section : section option;
  3. dir : string option;
  4. labels : Mdx__.Label.t list;
  5. legacy_labels : bool;
  6. contents : string list;
  7. skip : bool;
  8. version_enabled : bool;
  9. os_type_enabled : bool;
  10. set_variables : (string * string) list;
  11. unset_variables : string list;
  12. delim : string option;
  13. value : value;
}
val mk : loc:Location.t -> section:section option -> labels:Mdx__.Label.t list -> legacy_labels:bool -> header:Header.t option -> delim:string option -> contents:string list -> errors:[ `Ellipsis | `Output of string ] list -> (t, [ `Msg of string ]) result
val mk_include : loc:Location.t -> section:section option -> labels:Mdx__.Label.t list -> (t, [ `Msg of string ]) result
val from_raw : Raw.t -> (t, [ `Msg of string ] list) Result.result
val dump : t Fmt.t
val pp_header : ?syntax:Mdx__.Syntax.t -> t Fmt.t
val pp_contents : ?syntax:Mdx__.Syntax.t -> t Fmt.t
val pp : ?syntax:Mdx__.Syntax.t -> t Fmt.t
val non_det : t -> Mdx__.Label.non_det option
val directory : t -> string option
val file : t -> string option
val set_variables : t -> (string * string) list
val unset_variables : t -> string list
val skip : t -> bool
val value : t -> value
val section : t -> section option
val is_active : ?section:string -> t -> bool
val ends_by_semi_semi : string list -> bool