.TH "Eliom_comet_base" 3o 2014-07-10 OCamldoc ""
.SH NAME
Eliom_comet_base \- None means 'newest channel'
.SH Module
Module   Eliom_comet_base
.SH Documentation
.sp
Module
.BI "Eliom_comet_base"
 : 
.B sig  end

.sp
None means \&'newest channel\&'
.sp

.sp

.sp
.sp
.I type 
.B 'a
.I chan_id 

.sp

.sp

.I val string_of_chan_id 
: 
.B 'a chan_id -> string
.sp

.sp

.I val chan_id_of_string 
: 
.B string -> 'a chan_id
.sp

.sp
.I type position 
=
 | Newest
.B of 
.B int
 | After
.B of 
.B int
 | Last
.B of 
.B int option
 
.sp

.sp
.I module Json_position : 
.B sig  end

.sp

.sp
.I type comet_stateless_request 
= 
.B (string * position) array

.sp
None means \&'newest channel\&'
.sp

.sp
.I module Json_comet_stateless_request : 
.B sig  end

.sp

.sp
.I type command 
=
 | Register
.B of 
.B string
 | Close
.B of 
.B string
 
.sp

.sp
.I module Json_command : 
.B sig  end

.sp

.sp
.I type comet_stateful_request 
=
 | Request_data
.B of 
.B int
 | Commands
.B of 
.B command array
 
.sp

.sp
.I module Json_comet_stateful_request : 
.B sig  end

.sp

.sp
.I type comet_request 
=
 | Stateless
.B of 
.B comet_stateless_request
 | Stateful
.B of 
.B comet_stateful_request
 
.sp

.sp
.I module Json_comet_request : 
.B sig  end

.sp

.sp

.I val comet_request_param 
: 
.B (comet_request, [ `WithoutSuffix ],
.B    [ `One of comet_request Eliom_parameter.ocaml ]
.B    Eliom_parameter.param_name)
.B   Eliom_parameter.params_type
.sp

.sp
.I type 
.B 'a
.I channel_data 
=
 | Data
.B of 
.B 'a
 | Full
 | Closed
 
.sp

.sp
.I module Json_channel_data : 
.B functor (M_a : Deriving_Json.Json) -> sig  end

.sp

.sp
.I type answer 
=
 | Stateless_messages
.B of 
.B (string * (string * int) channel_data) array
 | Stateful_messages
.B of 
.B (string * string channel_data) array
 | Timeout
 | Process_closed
 | Comet_error
.B of 
.B string
 
.sp

.sp
.I module Json_answer : 
.B sig  end

.sp

.sp
.I type comet_service 
= 
.B (unit, comet_request, Eliom_service.service_kind,
.B    [ `WithoutSuffix ], unit,
.B    [ `One of comet_request Eliom_parameter.ocaml ]
.B    Eliom_parameter.param_name, Eliom_service.registrable,
.B    Eliom_registration.http_service)
.B   Eliom_service.service

.sp

.sp
.I type internal_comet_service 
= 
.B (unit, comet_request, Eliom_service.internal_service_kind,
.B    [ `WithoutSuffix ], unit,
.B    [ `One of comet_request Eliom_parameter.ocaml ]
.B    Eliom_parameter.param_name, [ `Registrable ],
.B    Eliom_registration.http_service)
.B   Eliom_service.service

.sp

.sp
.I type stateless_kind 
=
 | After_kind
.B of 
.B int
 | Newest_kind
.B of 
.B int
 | Last_kind
.B of 
.B int option
 
.sp

.sp
.I type 
.B 'a
.I wrapped_channel 
=
 | Stateful_channel
.B of 
.B (comet_service * 'a chan_id)
 | Stateless_channel
.B of 
.B (comet_service * 'a chan_id *
.B  stateless_kind)
 
.sp

.sp
.I type 
.B 'a
.I bus_send_service 
= 
.B (unit, 'a list, [ `Nonattached of [ `Post ] Eliom_service.na_s ],
.B    [ `WithoutSuffix ], unit,
.B    [ `One of 'a list Eliom_parameter.ocaml ] Eliom_parameter.param_name,
.B    [ `Registrable ], Eliom_registration.http_service)
.B   Eliom_service.service

.sp

.sp
.I type 
.B ('a, 'b)
.I wrapped_bus 
= 
.B 'b wrapped_channel * 'a bus_send_service

.sp

.sp