sig
module Label :
sig
type t = Ast_403.Asttypes.arg_label
type desc =
Ast_403.Asttypes.arg_label =
Nolabel
| Labelled of string
| Optional of string
val explode :
Ast_convenience_403.Label.t -> Ast_convenience_403.Label.desc
val nolabel : Ast_convenience_403.Label.t
val labelled : string -> Ast_convenience_403.Label.t
val optional : string -> Ast_convenience_403.Label.t
end
module Constant :
sig
type t =
Ast_403.Parsetree.constant =
Pconst_integer of string * char option
| Pconst_char of char
| Pconst_string of string * string option
| Pconst_float of string * char option
val of_constant :
Ast_403.Parsetree.constant -> Ast_convenience_403.Constant.t
val to_constant :
Ast_convenience_403.Constant.t -> Ast_403.Parsetree.constant
end
val lid : ?loc:Ast_403.Ast_helper.loc -> string -> Ast_403.Ast_helper.lid
val evar :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> string -> Ast_403.Parsetree.expression
val let_in :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
?recursive:bool ->
Ast_403.Parsetree.value_binding list ->
Ast_403.Parsetree.expression -> Ast_403.Parsetree.expression
val constr :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
string ->
Ast_403.Parsetree.expression list -> Ast_403.Parsetree.expression
val record :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
?over:Ast_403.Parsetree.expression ->
(string * Ast_403.Parsetree.expression) list ->
Ast_403.Parsetree.expression
val tuple :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.expression list -> Ast_403.Parsetree.expression
val nil :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> unit -> Ast_403.Parsetree.expression
val cons :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.expression ->
Ast_403.Parsetree.expression -> Ast_403.Parsetree.expression
val list :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.expression list -> Ast_403.Parsetree.expression
val unit :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> unit -> Ast_403.Parsetree.expression
val func :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
(Ast_403.Parsetree.pattern * Ast_403.Parsetree.expression) list ->
Ast_403.Parsetree.expression
val lam :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
?label:Ast_convenience_403.Label.t ->
?default:Ast_403.Parsetree.expression ->
Ast_403.Parsetree.pattern ->
Ast_403.Parsetree.expression -> Ast_403.Parsetree.expression
val app :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.expression ->
Ast_403.Parsetree.expression list -> Ast_403.Parsetree.expression
val str :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> string -> Ast_403.Parsetree.expression
val int :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> int -> Ast_403.Parsetree.expression
val char :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> char -> Ast_403.Parsetree.expression
val float :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> float -> Ast_403.Parsetree.expression
val sequence :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.expression list -> Ast_403.Parsetree.expression
val pvar :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> string -> Ast_403.Parsetree.pattern
val pconstr :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
string -> Ast_403.Parsetree.pattern list -> Ast_403.Parsetree.pattern
val precord :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
?closed:Ast_403.Asttypes.closed_flag ->
(string * Ast_403.Parsetree.pattern) list -> Ast_403.Parsetree.pattern
val ptuple :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.pattern list -> Ast_403.Parsetree.pattern
val pnil :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> unit -> Ast_403.Parsetree.pattern
val pcons :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.pattern ->
Ast_403.Parsetree.pattern -> Ast_403.Parsetree.pattern
val plist :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
Ast_403.Parsetree.pattern list -> Ast_403.Parsetree.pattern
val pstr :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> string -> Ast_403.Parsetree.pattern
val pint :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> int -> Ast_403.Parsetree.pattern
val pchar :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> char -> Ast_403.Parsetree.pattern
val pfloat :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> float -> Ast_403.Parsetree.pattern
val punit :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs -> unit -> Ast_403.Parsetree.pattern
val tconstr :
?loc:Ast_403.Ast_helper.loc ->
?attrs:Ast_403.Ast_helper.attrs ->
string -> Ast_403.Parsetree.core_type list -> Ast_403.Parsetree.core_type
val get_str : Ast_403.Parsetree.expression -> string option
val get_str_with_quotation_delimiter :
Ast_403.Parsetree.expression -> (string * string option) option
val get_lid : Ast_403.Parsetree.expression -> string option
val has_attr : string -> Ast_403.Parsetree.attributes -> bool
val find_attr :
string ->
Ast_403.Parsetree.attributes -> Ast_403.Parsetree.payload option
val find_attr_expr :
string ->
Ast_403.Parsetree.attributes -> Ast_403.Parsetree.expression option
end