sig
  type 'a service
  type node =
    ('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node
  type doc =
    ('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.document
  type ctx
  val soap_namespace : string
  val xsd_namespace : string
  val xsi_namespace : string
  val new_context : 'a OCSoap.service -> OCSoap.ctx
  val create_xml : OCSoap.ctx -> OCSoap.node -> string
  val element :
    OCSoap.ctx ->
    string -> ?a:(string * string) list -> OCSoap.node list -> OCSoap.node
  val data : OCSoap.ctx -> string -> OCSoap.node
  val node_of_bool :
    OCSoap.ctx -> string -> ?a:(string * string) list -> bool -> OCSoap.node
  val node_of_date :
    OCSoap.ctx ->
    string -> ?a:(string * string) list -> Date.t -> OCSoap.node
  val node_of_datetime :
    OCSoap.ctx ->
    string -> ?a:(string * string) list -> Calendar.t -> OCSoap.node
  val node_of_float :
    OCSoap.ctx -> string -> ?a:(string * string) list -> float -> OCSoap.node
  val node_of_int32 :
    OCSoap.ctx -> string -> ?a:(string * string) list -> int32 -> OCSoap.node
  val node_of_int64 :
    OCSoap.ctx -> string -> ?a:(string * string) list -> int64 -> OCSoap.node
  val node_of_string :
    OCSoap.ctx ->
    string -> ?a:(string * string) list -> string -> OCSoap.node
  val node_of_base64Binary :
    OCSoap.ctx ->
    string -> ?a:(string * string) list -> string -> OCSoap.node
  val bool_of_node : string -> OCSoap.node -> bool
  val date_of_node : string -> OCSoap.node -> Date.t
  val datetime_of_node : string -> OCSoap.node -> Calendar.t
  val float_of_node : string -> OCSoap.node -> float
  val int32_of_node : string -> OCSoap.node -> int32
  val int64_of_node : string -> OCSoap.node -> int64
  val string_of_node : string -> OCSoap.node -> string
  val base64Binary_of_node : string -> OCSoap.node -> string
  val service_headers : 'a OCSoap.service -> OCSoap.ctx -> OCSoap.node list
  val service_namespace : 'a OCSoap.service -> string
  val service_return_doc : 'a OCSoap.service -> OCSoap.doc -> unit
  val call : 'a OCSoap.service -> string -> string
  val default_connection : unit -> Http_client.pipeline
  val service :
    ?add_headers:('a OCSoap.service -> OCSoap.ctx -> OCSoap.node list) ->
    ?return_doc:('a OCSoap.service -> OCSoap.doc -> unit) ->
    connection:Http_client.pipeline ->
    location:string -> namespace:string -> 'a -> 'a OCSoap.service
  val service_data : 'a OCSoap.service -> 'a
  val service_set_data : 'a OCSoap.service -> 'a -> unit
  val debug : bool Pervasives.ref
end