Eliom_comet_base (p.eliom.11.1.1.doc.eliom.server.Eliom_comet

Sourcetype 'a chan_id

Sourceval string_of_chan_id : 'a chan_id -> string

Sourceval chan_id_of_string : string -> 'a chan_id

Sourcetype position =

| Newest of int
| After of int
| Last of int option
(*
None means 'newest channel'
*)

Sourceval position_of_json : Deriving_Json_lexer.lexbuf -> position

Sourceval position_to_json : Buffer.t -> position -> unit

Sourceval position_json : position Deriving_Json.t

Sourcetype comet_stateless_request = (string * position) array

Source

val comet_stateless_request_of_json : 
  Deriving_Json_lexer.lexbuf ->
  comet_stateless_request

Source

val comet_stateless_request_to_json : 
  Buffer.t ->
  comet_stateless_request ->
  unit

Sourceval comet_stateless_request_json : comet_stateless_request Deriving_Json.t

Sourcetype command =

| Register of string
| Close of string

Sourceval command_of_json : Deriving_Json_lexer.lexbuf -> command

Sourceval command_to_json : Buffer.t -> command -> unit

Sourceval command_json : command Deriving_Json.t

Sourcetype comet_stateful_request =

| Request_data of int
| Commands of command array

Source

val comet_stateful_request_of_json : 
  Deriving_Json_lexer.lexbuf ->
  comet_stateful_request

Sourceval comet_stateful_request_to_json : Buffer.t -> comet_stateful_request -> unit

Sourceval comet_stateful_request_json : comet_stateful_request Deriving_Json.t

Sourcetype comet_request =

| Stateless of comet_stateless_request
| Stateful of comet_stateful_request

Sourceval comet_request_of_json : Deriving_Json_lexer.lexbuf -> comet_request

Sourceval comet_request_to_json : Buffer.t -> comet_request -> unit

Sourceval comet_request_json : comet_request Deriving_Json.t

Source

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

Sourcetype 'a channel_data =

| Data of 'a
| Full
| Closed

Source

val channel_data_of_json : 
  (Deriving_Json_lexer.lexbuf -> 'a) ->
  Deriving_Json_lexer.lexbuf ->
  'a channel_data

Source

val channel_data_to_json : 
  (Buffer.t -> 'a -> unit) ->
  Buffer.t ->
  'a channel_data ->
  unit

Sourceval channel_data_json : 'a Deriving_Json.t -> 'a channel_data Deriving_Json.t

Sourcetype answer =

| Stateless_messages of (string * (string * int) channel_data) array
| Stateful_messages of (string * string channel_data) array
| Timeout
| State_closed
| Comet_error of string

Sourceval answer_of_json : Deriving_Json_lexer.lexbuf -> answer

Sourceval answer_to_json : Buffer.t -> answer -> unit

Sourceval answer_json : answer Deriving_Json.t

Sourcetype comet_service =

| Comet_service : (unit, bool * comet_request, Eliom_service.post, Eliom_service.att, _, _, _, [ `WithoutSuffix ], unit, [ `One of bool ] Eliom_parameter.param_name * [ `One of comet_request Eliom_parameter.ocaml ] Eliom_parameter.param_name, Eliom_service.non_ocaml) Eliom_service.t * command list ref -> comet_service

Sourcetype internal_comet_service =

| Internal_comet_service : (unit, bool * comet_request, Eliom_service.post, Eliom_service.att, _, Eliom_service.non_ext, Eliom_service.reg, [ `WithoutSuffix ], unit, [ `One of bool ] Eliom_parameter.param_name * [ `One of comet_request Eliom_parameter.ocaml ] Eliom_parameter.param_name, Eliom_service.non_ocaml) Eliom_service.t * command list ref -> internal_comet_service

Sourcetype stateless_kind =

| After_kind of int
| Newest_kind of int
| Last_kind of int option

Sourcetype 'a wrapped_channel =

| Stateful_channel of comet_service * 'a chan_id
| Stateless_channel of comet_service * 'a chan_id * stateless_kind

Sourcetype 'a bus_send_service =

| Bus_send_service : (unit, 'a list, Eliom_service.post, Eliom_service.non_att, Eliom_service.co, Eliom_service.non_ext, Eliom_service.reg, [ `WithoutSuffix ], unit, [ `One of 'a list Eliom_parameter.ocaml ] Eliom_parameter.param_name, Eliom_service.non_ocaml) Eliom_service.t -> 'a bus_send_service

Sourcetype ('a, 'b) wrapped_bus = 'b wrapped_channel * 'a bus_send_service