erm_xmpp 0.2 (latest) · OCaml Package

exception Error of string

exception StreamError of StreamError.t

exception MalformedStanza

exception BadRequest

type 'a t

val return : 'a -> 'a t

val (>>=) : 'a t -> ('a -> 'b t) -> 'b t

type iq_request =

| IQSet of Xml.element
| IQGet of Xml.element

type iq_response =

| IQResult of Xml.element option
| IQError of StanzaError.t

type iq =

| IQRequest of iq_request
| IQResponse of iq_response

type 'a session_data

val get_myjid : 'a session_data -> JID.t

val make_iq_request : 
  'a session_data ->
  ?jid_from:JID.t ->
  ?jid_to:JID.t ->
  ?lang:Xml.cdata ->
  iq_request ->
  (iq_response ->
    string option ->
    string option ->
    string option ->
    unit ->
    unit t) ->
  unit t

type !'a stanza = {

id : XMPP.id option;
jid_from : JID.t option;
jid_to : string option;
lang : string option;
content : 'a;
x : Xml.element list;

}

type message_type =

| Normal
| Chat
| Groupchat
| Headline

type message_content = {

message_type : message_type option;
body : string option;
subject : string option;
thread : string option;

}

val send_message : 
  'a session_data ->
  ?id:Xml.cdata ->
  ?jid_from:JID.t ->
  ?jid_to:JID.t ->
  ?kind:message_type ->
  ?lang:Xml.cdata ->
  ?body:Xml.cdata ->
  ?subject:Xml.cdata ->
  ?thread:Xml.cdata ->
  ?x:Xml.element list ->
  unit ->
  unit t

type presence_type =

| Probe
| Subscribe
| Subscribed
| Unsubscribe
| Unsubscribed
| Unavailable

val string_of_presence_type : presence_type -> string

type presence_show =

| ShowChat
| ShowAway
| ShowDND
| ShowXA

val string_of_show : presence_show -> string

type presence_content = {

presence_type : presence_type option;
show : presence_show option;
status : string option;
priority : int option;

}

type presence_stanza = presence_content stanza

val parse_presence : 
  callback:('a session_data -> presence_content stanza -> unit t) ->
  callback_error:
    ('a session_data ->
      ?id:XMPP.id ->
      ?jid_from:JID.t ->
      ?jid_to:XMPP.id ->
      ?lang:XMPP.id ->
      StanzaError.t ->
      unit t) ->
  'a session_data ->
  Xml.attribute list ->
  Xml.element list ->
  unit t

val send_presence : 
  'a session_data ->
  ?id:Xml.cdata ->
  ?jid_from:JID.t ->
  ?jid_to:JID.t ->
  ?kind:presence_type ->
  ?lang:Xml.cdata ->
  ?show:presence_show ->
  ?status:Xml.cdata ->
  ?priority:int ->
  ?x:Xml.element list ->
  unit ->
  unit t

package erm_xmpp