Module Sexp_grammar_lifter.Atom
type t
= Base.Sexp.Private.Raw_grammar.Atom.t
=
|
String
|
Bool
|
Char
|
Float
|
Int
|
This of
{
ignore_capitalization : Base.bool;
string : Base.string;
}
class virtual +'a lift : object ... end
val lifter : loc:Ppxlib.location -> < array : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a array, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; bool : (Base.bool, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; char : (char, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; constr : Base.string -> Ppxlib.expression Base.list -> Ppxlib.expression; float : (float, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int : (int, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int32 : (int32, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int64 : (int64, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; list : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a list, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; nativeint : (nativeint, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; option : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a option, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; other : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; record : (Base.string * Ppxlib.expression) Base.list -> Ppxlib.expression; string : (Base.string, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; t : t -> Ppxlib.expression; tuple : Ppxlib.expression list -> Ppxlib.expression; unit : (unit, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; >