package ocf_ppx
Ppx processor for Ocf.
module Location = Astlib.Location
module SMap : sig ... end
val apply :
?loc:Astlib.Location.t ->
Astlib.Ast_500.Parsetree.expression ->
Astlib.Ast_500.Parsetree.expression list ->
Astlib.Ast_500.Parsetree.expression
val mk_string :
Astlib.Location.t ->
string ->
Astlib.Ast_500.Parsetree.expression
val empty_list : Astlib.Ast_500.Parsetree.expression
val mk_list :
Location.t ->
Astlib.Ast_500.Parsetree.expression list ->
Astlib.Ast_500.Parsetree.expression
val has_ocf_attribute : Ppxlib.attribute list -> bool
type field = {
name : string Location.loc;
label : string Location.loc;
doc : Ppxlib.expression option;
params : string list;
wrapper : Ppxlib.expression option;
default : Ppxlib.expression option;
}
val params_of_type_params : Ppxlib.core_type list -> string list
val attribute_ : string -> Ppxlib.attribute list -> Ppxlib.attribute option
val attribute : string -> Ppxlib.attribute list list -> Ppxlib.attribute option
val mk_field : Ppxlib.label_declaration -> field
val mk_default :
Ppxlib.type_declaration ->
field list ->
Astlib.Ast_500.Parsetree.value_binding
val mk_wrapper :
Ppxlib.type_declaration ->
field list ->
Astlib.Ast_500.Parsetree.value_binding
val generate :
Ppxlib.type_declaration ->
Astlib.Ast_500.Parsetree.value_binding list
val fold_structure :
Ppxlib.structure_item list ->
Ppxlib.structure_item ->
Ppxlib.structure_item list
val structure_mapper :
(Ppxlib.structure_item list -> 'a) ->
'b ->
Ppxlib.structure_item list ->
'c
class mapper : object ... end
val mapper : mapper
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>