package ojs_base_ppx

  1. Overview
  2. Docs
module SMap : sig ... end
val lid : ?loc:Location.t -> string -> Longident.t Location.loc
val mkloc : 'a -> Location.t -> 'a Location.loc
val error : Location.t -> string -> 'a
val kerror : Location.t -> ('a, unit, string, 'b) Stdlib.format4 -> 'a
module Location = Astlib.Location
module X = Xtmpl.Rewrite
val string_of_file : string -> string
val file_path : Location.t -> string -> string
val read_template : Location.t -> string -> X.tree list
type input_kind =
  1. | Button
  2. | Checkbox
  3. | Color
  4. | Date
  5. | Datetime
  6. | Datetime_local
  7. | Email
  8. | File
  9. | Hidden
  10. | Image
  11. | Month
  12. | Number
  13. | Password
  14. | Radio
  15. | Range
  16. | Reset
  17. | Search
  18. | Submit
  19. | Tel
  20. | Text
  21. | Time
  22. | Url
  23. | Week
  24. | Textarea
  25. | Select
val input_kind_of_string : Location.t -> string -> input_kind
type input = {
  1. i_name : string;
  2. i_kind : input_kind;
  3. i_mltype : [ `CData | `Other of string * string * string ];
  4. i_value : X.tree list option;
  5. i_mandatory : bool;
  6. i_mlname : string option;
}
val att_ : 'a -> string * 'b
val att_param : string * string
val att_to_xml : string * string
val att_to_string : string * string
val att_of_string : string * string
val att_type : string * string
val att_mltype : string * string
val att_optional : string * string
val att_name : string * string
val att_mandatory : string * string
val att_value : string * string
val att_mlname : string * string
val get_name : X.attributes -> string option
val string_of_name : (string * string) -> string
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 mk_value_param : input -> X.tree
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 add_form_attributes : X.tree list -> X.tree list
val map_form_tmpl : Location.t -> X.tree list -> input SMap.t * X.tree list
val mk_template : Location.t -> X.tree list -> 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 map_ojs_form : Location.t -> string -> Astlib.Ast_500.Parsetree.module_expr
val ext_form : Ppxlib.Extension.V3.t