Xml (u.40542f09332d6e4d628cb9773f5496ec.eliom.11.0.1.doc.eliom.client.Eliom

include Xml_sigs.Iterable
  with type 'a wrap = 'a
   and type 'a list_wrap = 'a list
   and type event_handler =
         (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t ->
           unit)
           Eliom_client_value.t
   and type mouse_event_handler =
         (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t ->
           unit)
           Eliom_client_value.t
   and type keyboard_event_handler =
         (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t ->
           unit)
           Eliom_client_value.t
   and type touch_event_handler =
         (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t ->
           unit)
           Eliom_client_value.t

module W : sig ... end

type !'a wrap = 'a

type !'a list_wrap = 'a list

type uri

val string_of_uri : (uri, string) W.ft

val uri_of_string : (string, uri) W.ft

type aname = string

type event_handler =
  (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit) Eliom_client_value.t

type mouse_event_handler =
  (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t ->
    unit)
    Eliom_client_value.t

type keyboard_event_handler =
  (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t ->
    unit)
    Eliom_client_value.t

type touch_event_handler =
  (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t ->
    unit)
    Eliom_client_value.t

type attrib

val float_attrib : aname -> float wrap -> attrib

val int_attrib : aname -> int wrap -> attrib

val string_attrib : aname -> string wrap -> attrib

val space_sep_attrib : aname -> string list wrap -> attrib

val comma_sep_attrib : aname -> string list wrap -> attrib

val event_handler_attrib : aname -> event_handler -> attrib

val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib

val keyboard_event_handler_attrib : aname -> keyboard_event_handler -> attrib

val touch_event_handler_attrib : aname -> touch_event_handler -> attrib

val uri_attrib : aname -> uri wrap -> attrib

val uris_attrib : aname -> uri list wrap -> attrib

type elt

type ename = string

val empty : unit -> elt

val comment : string -> elt

val pcdata : string wrap -> elt

val encodedpcdata : string wrap -> elt

val entity : string -> elt

val leaf : ?a:attrib list -> ename -> elt

val node : ?a:attrib list -> ename -> elt list_wrap -> elt

val cdata : string -> elt

val cdata_script : string -> elt

val cdata_style : string -> elt

type separator =

| Space
| Comma

val aname : attrib -> aname

type acontent = private

| AFloat of float
| AInt of int
| AStr of string
| AStrL of separator * string list

val acontent : attrib -> acontent

type econtent = private

| Empty
| Comment of string
| EncodedPCDATA of string
| PCDATA of string
| Entity of string
| Leaf of ename * attrib list
| Node of ename * attrib list * elt list

val content : elt -> econtent

type caml_event_handler

val wrap : elt -> 'a -> 'a Eliom_wrap.wrapped_value

val client_attrib : ?init:attrib -> attrib Eliom_client_value.t -> attrib