unikernel/duniverse/ppx_sexp_conv/expander/expand_of_sexp.mli

@@ -0,0 +1,28 @@
+open! Base
+open! Ppxlib
+
+module Sig_generate_of_sexp : sig
+  (** Given a type, produce the type of its [of_sexp] conversion. *)
+  val type_of_of_sexp : loc:location -> core_type -> core_type
+
+  (** Derive an [of_sexp] interface for a list of type declarations. *)
+  val mk_sig
+    :  poly:bool
+    -> loc:location
+    -> path:string
+    -> rec_flag * type_declaration list
+    -> signature_item list
+end
+
+module Str_generate_of_sexp : sig
+  (** Given a type, produce its [of_sexp] conversion. *)
+  val core_type_of_sexp : path:string -> core_type -> expression
+
+  (** Derive an [of_sexp] implementation for a list of type declarations. *)
+  val tds_of_sexp
+    :  loc:location
+    -> poly:bool
+    -> path:string
+    -> rec_flag * type_declaration list
+    -> structure_item list
+end