NAME¶
Eliom_registration.Make_typed_xml_registration - Eliom service registration for
services that returns fragment of TyXML's tree.
Module¶
Module Eliom_registration.Make_typed_xml_registration
Documentation¶
Module
Make_typed_xml_registration
:
functor (Xml : Xml_sigs.Iterable) -> functor (Typed_xml : sig
end) -> functor (E : sig end) -> sig end
Eliom service registration for services that returns fragment of TyXML's tree.
The returned module is an instance of the
Eliom_registration.Registration abstract signature.
Parameters:
"Xml"
Xml_sigs.Iterable
"Typed_xml"
sig end
"E"
sig end
=== Service registration ===
val register :
?scope:[< Eliom_common.scope ] ->
?options:unit -> ?charset:string -> ?code:int ->
?content_type:string -> ?headers:Http_headers.t ->
?secure_session:bool -> service:('a, 'b, [<
Eliom_service.internal_service_kind ], [< Eliom_service.suff ], 'c,
'd, [ `Registrable ], Eliom_registration.http_service)
Eliom_service.service -> ?error_handler:((string * exn) list
-> E.content Typed_xml.elt list Lwt.t) -> ('a -> 'b ->
E.content Typed_xml.elt list Lwt.t) -> unit
The function
register service handler will associate the
service
to the function
handler . The
handler function take two
parameters, the GET and POST parameters of the current HTTP request, and
should returns the corresponding page.
The optional parameter
~scope is
Eliom_common.global by default,
see the Eliom manual for detailled description .
The optional parameter
~options is specific to each output module, see
the type description for more information.
The optional parameters
?charset ,
?code ,
?content_type
and
?headers can be used to modify the HTTP answer sent by Eliom. Use
this with care.
The optional parameter
~secure_session has no effect for scope
Eliom_common.global . With other scopes, the parameter is used to force
the session service table in which the
handler will be registered. By
default, the service is registred in the unsecure session if the current
request's protocol is
http , or in the secure session if the protocol
is
https . If set to
false (resp.
true ) the
handler will be stored in the unsecure (resp. secure) session. See the
Eliom manual for an introduction to .
The optional parameter
~error_handler is used to specialize the error
page when actual parameters aren't compatible with the expected type. The
default error handler is
fun l -> raise (
Eliom_common.Eliom_Typing_Error l) .
val register_service :
?scope:[< Eliom_common.scope ] ->
?options:unit -> ?charset:string -> ?code:int ->
?content_type:string -> ?headers:Http_headers.t ->
?secure_session:bool -> ?https:bool -> ?priority:int
-> path:Eliom_lib.Url.path -> get_params:('a, [<
Eliom_service.suff ] as 'b, 'c) Eliom_parameter.params_type ->
?error_handler:((string * exn) list -> E.content Typed_xml.elt list
Lwt.t) -> ('a -> unit -> E.content Typed_xml.elt list Lwt.t)
-> ('a, unit, [> `Attached of ([> `Internal of
[> `Service ] ], [> `Get ]) Eliom_service.a_s ], 'b, 'c, unit,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.service followed by
register .
val register_coservice :
?scope:[< Eliom_common.scope ] ->
?options:unit -> ?charset:string -> ?code:int ->
?content_type:string -> ?headers:Http_headers.t ->
?secure_session:bool -> ?name:string -> ?csrf_safe:bool
-> ?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool -> ?max_use:int -> ?timeout:float
-> ?https:bool -> fallback:(unit, unit, [ `Attached
of ([ `Internal of [ `Service ] ], [ `Get ]) Eliom_service.a_s ],
[ `WithoutSuffix ], unit, unit, [< Eliom_service.registrable ],
Eliom_registration.http_service) Eliom_service.service ->
get_params:('a, [ `WithoutSuffix ], 'b) Eliom_parameter.params_type
-> ?error_handler:((string * exn) list -> E.content Typed_xml.elt
list Lwt.t) -> ('a -> unit -> E.content Typed_xml.elt list
Lwt.t) -> ('a, unit, [> `Attached of ([>
`Internal of [> `Coservice ] ], [> `Get ]) Eliom_service.a_s ], [
`WithoutSuffix ], 'b, unit, [< Eliom_service.registrable > `Registrable
], Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.coservice followed by
register .
val register_coservice' :
?scope:[< Eliom_common.scope ] ->
?options:unit -> ?charset:string -> ?code:int ->
?content_type:string -> ?headers:Http_headers.t ->
?secure_session:bool -> ?name:string -> ?csrf_safe:bool
-> ?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool -> ?max_use:int -> ?timeout:float
-> ?https:bool -> get_params:('a, [ `WithoutSuffix ], 'b)
Eliom_parameter.params_type -> ?error_handler:((string * exn) list
-> E.content Typed_xml.elt list Lwt.t) -> ('a -> unit ->
E.content Typed_xml.elt list Lwt.t) -> ('a, unit, [> `Nonattached
of [> `Get ] Eliom_service.na_s ], [ `WithoutSuffix ], 'b, unit,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.coservice' followed by
register .
val register_post_service :
?scope:[< Eliom_common.scope ]
-> ?options:unit -> ?charset:string -> ?code:int
-> ?content_type:string -> ?headers:Http_headers.t
-> ?secure_session:bool -> ?https:bool ->
?priority:int -> fallback:('a, unit, [ `Attached of
([ `Internal of [ `Coservice | `Service ] ], [ `Get ])
Eliom_service.a_s ], [< Eliom_service.suff ] as 'b, 'c, unit,
[< `Registrable ], 'd) Eliom_service.service ->
post_params:('e, [ `WithoutSuffix ], 'f) Eliom_parameter.params_type
-> ?error_handler:((string * exn) list -> E.content Typed_xml.elt
list Lwt.t) -> ('a -> 'e -> E.content Typed_xml.elt list
Lwt.t) -> ('a, 'e, [> `Attached of ([> `Internal
of [ `Coservice | `Service ] ], [> `Post ]) Eliom_service.a_s ],
'b, 'c, 'f, [< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.post_service followed by
register .
val register_post_coservice :
?scope:[< Eliom_common.scope ]
-> ?options:unit -> ?charset:string -> ?code:int
-> ?content_type:string -> ?headers:Http_headers.t
-> ?secure_session:bool -> ?name:string ->
?csrf_safe:bool -> ?csrf_scope:[< Eliom_common.user_scope ]
-> ?csrf_secure:bool -> ?max_use:int ->
?timeout:float -> ?https:bool -> fallback:('a,
unit, [ `Attached of ([ `Internal of [< `Coservice | `Service
] ], [ `Get ]) Eliom_service.a_s ], [< Eliom_service.suff ]
as 'b, 'c, unit, [< `Registrable ],
Eliom_registration.http_service) Eliom_service.service ->
post_params:('d, [ `WithoutSuffix ], 'e) Eliom_parameter.params_type
-> ?error_handler:((string * exn) list -> E.content Typed_xml.elt
list Lwt.t) -> ('a -> 'd -> E.content Typed_xml.elt list
Lwt.t) -> ('a, 'd, [> `Attached of ([> `Internal
of [> `Coservice ] ], [> `Post ]) Eliom_service.a_s ], 'b, 'c,
'e, [< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.post_coservice followed by
register .
val register_post_coservice' :
?scope:[< Eliom_common.scope ]
-> ?options:unit -> ?charset:string -> ?code:int
-> ?content_type:string -> ?headers:Http_headers.t
-> ?secure_session:bool -> ?name:string ->
?csrf_safe:bool -> ?csrf_scope:[< Eliom_common.user_scope ]
-> ?csrf_secure:bool -> ?max_use:int ->
?timeout:float -> ?keep_get_na_params:bool ->
?https:bool -> post_params:('a, [ `WithoutSuffix ], 'b)
Eliom_parameter.params_type -> ?error_handler:((string * exn) list
-> E.content Typed_xml.elt list Lwt.t) -> (unit -> 'a ->
E.content Typed_xml.elt list Lwt.t) -> (unit, 'a, [> `Nonattached
of [> `Post ] Eliom_service.na_s ], [ `WithoutSuffix ], unit, 'b,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service) Eliom_service.service
Same as
Eliom_service.post_coservice' followed by
register .
=== Low-level function ===
val send :
?options:unit -> ?charset:string ->
?code:int -> ?content_type:string ->
?headers:Http_headers.t -> E.content Typed_xml.elt list ->
(Eliom_registration.block_content, Eliom_registration.http_service)
Eliom_registration.kind Lwt.t
The function
send page build the HTTP frame corresponding to
page
. This may be used for example in an service handler registered with
Eliom_registration.Any.register or when building a custom output
module.