Module Core.Command.Shape.Base_info

type grammar =
| Zero
| One of string
| Many of grammar
| Maybe of grammar
| Concat of grammar list
| Ad_hoc of string
include sig ... end
val bin_grammar : grammar Bin_prot.Type_class.t
val bin_read_grammar : grammar Bin_prot.Read.reader
val __bin_read_grammar__ : (int ‑> grammar) Bin_prot.Read.reader
val bin_reader_grammar : grammar Bin_prot.Type_class.reader
val bin_size_grammar : grammar Bin_prot.Size.sizer
val bin_write_grammar : grammar Bin_prot.Write.writer
val bin_writer_grammar : grammar Bin_prot.Type_class.writer
val bin_shape_grammar : Bin_prot.Shape.t
val compare_grammar : grammar ‑> grammar ‑> int
val grammar_of_sexp : Sexplib.Sexp.t ‑> grammar
val sexp_of_grammar : grammar ‑> Sexplib.Sexp.t
type anons =
| Usage of string

(** When exec'ing an older binary whose help sexp doesn't expose the grammar. *)

| Grammar of grammar
include sig ... end
val bin_read_anons : anons Bin_prot.Read.reader
val __bin_read_anons__ : (int ‑> anons) Bin_prot.Read.reader
val bin_reader_anons : anons Bin_prot.Type_class.reader
val bin_size_anons : anons Bin_prot.Size.sizer
val bin_write_anons : anons Bin_prot.Write.writer
val bin_writer_anons : anons Bin_prot.Type_class.writer
val bin_shape_anons : Bin_prot.Shape.t
val compare_anons : anons ‑> anons ‑> int
val anons_of_sexp : Sexplib.Sexp.t ‑> anons
val sexp_of_anons : anons ‑> Sexplib.Sexp.t
type t = {
summary : string;
readme : string Core__.Import.sexp_option;
anons : anons;
flags : Flag_info.t list;
}
include sig ... end
val bin_read_t : t Bin_prot.Read.reader
val __bin_read_t__ : (int ‑> t) Bin_prot.Read.reader
val bin_reader_t : t Bin_prot.Type_class.reader
val bin_size_t : t Bin_prot.Size.sizer
val bin_write_t : t Bin_prot.Write.writer
val bin_writer_t : t Bin_prot.Type_class.writer
val bin_shape_t : Bin_prot.Shape.t
val compare : t ‑> t ‑> int
val flags : t ‑> Flag_info.t list
val anons : t ‑> anons
val readme : t ‑> string Core__.Import.sexp_option
val summary : t ‑> string
module Fields : sig ... end
val t_of_sexp : Sexplib.Sexp.t ‑> t
val sexp_of_t : t ‑> Sexplib.Sexp.t