29 lines
784 B
OCaml
29 lines
784 B
OCaml
|
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
|