package ojs_base_ppx
module SMap : sig ... end
module Location = Astlib.Location
module X = Xtmpl.Rewrite
val file_path : Location.t -> string -> string
val read_template : Location.t -> string -> X.tree list
val input_kind_of_string : Location.t -> string -> input_kind
type input = {
i_name : string;
i_kind : input_kind;
i_mltype : [ `CData | `Other of string * string * string ];
i_value : X.tree list option;
i_mandatory : bool;
i_mlname : string option;
}
val get_name : X.attributes -> string option
val to_id : input -> string
val parse_ocaml_expression :
Location.t ->
string ->
Astlib.Ast_500.Parsetree.expression
val parse_ocaml_type :
Location.t ->
string ->
Astlib.Ast_500.Parsetree.core_type
val input_of_atts :
Location.t ->
string ->
?kind:input_kind ->
X.attributes ->
X.tree list ->
input
val clear_atts : X.attributes -> X.attributes
val add_atts_of_input : input -> X.attributes -> X.attributes
val xml_of_input : input -> X.name -> X.attributes -> 'a -> X.tree
val map_textarea :
Location.t ->
X.name ->
string ->
X.attributes ->
X.tree list ->
input * X.tree
val map_select :
Location.t ->
X.name ->
string ->
X.attributes ->
X.tree list ->
input * X.tree
val map_input :
Location.t ->
X.name ->
string ->
X.attributes ->
X.tree list ->
input * X.tree
val map_button :
Location.t ->
X.name ->
string ->
X.attributes ->
X.tree list ->
input * X.tree
val with_name :
'a ->
X.name ->
('b -> X.name -> string -> X.attributes -> X.tree list -> 'c * X.tree) ->
'd ->
X.attributes ->
X.tree list ->
'e * 'f option * X.tree
val mk_template :
Location.t ->
X.tree list ->
Astlib.Ast_500.Parsetree.structure_item
val mk_type :
Location.t ->
input SMap.t ->
Astlib.Ast_500.Parsetree.structure_item
val mk_typ_form :
Location.t ->
X.tree list ->
Astlib.Ast_500.Parsetree.structure_item
val mk_typ_template :
Location.t ->
X.tree list ->
Astlib.Ast_500.Parsetree.structure_item
val mk_exn : Ppxlib.location -> Astlib.Ast_500.Parsetree.structure_item
val mk_read_form :
Ppxlib.location ->
input SMap.t ->
Ppxlib_ast.Ast.structure_item
val map_ojs_form : Location.t -> string -> Astlib.Ast_500.Parsetree.module_expr
val expand_form :
ctxt:Ppxlib.Expansion_context.Extension.t ->
string ->
Astlib.Ast_500.Parsetree.module_expr
val ext_form : Ppxlib.Extension.V3.t
val rule_form : Ppxlib.Context_free.Rule.t
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>