Module Sexp.With_text
A With_text.t
is a value paired with the full textual representation of its sexp. This is useful for dealing with the case where you want to keep track of a value along with the format of the s-expression it was generated from, which allows you to maintain formatting details, comments, etc.
The s-expression representation of a With_text.t
is the raw text, stored as an atom. The bin_io representation contains both the bin_io of the underlying value and the bin_io'd version of the raw text.
This is similar to but simpler than the With_layout
module included above (via Sexp_intf.S
), which gives you access to a fully parsed version of the s-expression, with attached comments and layout information, to allow you to build layout-preserving s-expression transformations.
The invariants of a x With_text.t
are broken if the x
value is mutated.
include Ppx_sexp_conv_lib.Sexpable.S1 with type 'a t := 'a t
val t_of_sexp : (Sexplib0.Sexp.t -> 'a) -> Sexplib0.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib0.Sexp.t) -> 'a t -> Sexplib0.Sexp.t
include Bin_prot.Binable.S1 with type 'a t := 'a t
val bin_shape_t : Bin_prot.Shape.t -> Bin_prot.Shape.t
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
val of_value : ('a -> Base.Sexp.t) -> 'a -> 'a t
Generates a
t
from the value by creating the text automatically using the provided s-expression converter.
val of_text : (Base.Sexp.t -> 'a) -> ?filename:Core_kernel__.Import.string -> Core_kernel__.Import.string -> 'a t Core_kernel.Or_error.t
Creates a
t
from the text, by first converting the text to an s-expression, and then parsing the s-expression with the provided converter.
val value : 'a t -> 'a
val text : 'a t -> Core_kernel__.Import.string