Pa_deriving_enum
val extract_value : MLast.attributes_no_anti -> int option
module PM : sig ... end
val to_expression : 'a -> MLast.ctyp -> (MLast.expr * int) list * MLast.expr
val of_expression : 'a -> (MLast.expr * int) list -> MLast.ctyp -> MLast.expr
val fmt_top : 'a -> MLast.ctyp -> MLast.expr * MLast.expr * int * int
val str_item_top_funs : 'a -> MLast.type_decl -> (string * MLast.expr) list
val sig_item_top_funs : 'a -> MLast.type_decl -> (string * MLast.ctyp) list
val str_item_funs :
'a ->
MLast.type_decl ->
(MLast.patt
* MLast.expr
* ((MLast.loc * string) Ploc.vala * MLast.payload) Ploc.vala list Ploc.vala)
list
val sig_item_funs : 'a -> MLast.type_decl -> MLast.sig_item list
val str_item_gen_enum0 :
'a ->
MLast.type_decl ->
(MLast.patt
* MLast.expr
* ((MLast.loc * string) Ploc.vala * MLast.payload) Ploc.vala list Ploc.vala)
list
val str_item_gen_enum : 'a -> 'b -> MLast.str_item -> MLast.str_item
val sig_item_gen_enum0 : 'a -> MLast.type_decl -> MLast.sig_item list
val sig_item_gen_enum : 'a -> 'b -> MLast.sig_item -> MLast.sig_item