cry 0.6.0 · OCaml Package

type operation = [

| `Both
| `Read
| `Write

]

type transport = {

write : Bytes.t -> int -> int -> int;
read : Bytes.t -> int -> int -> int;
wait_for : operation -> float -> bool;
close : unit -> unit;

}

val register_ssl : 
  (?bind:string -> host:string -> Unix.sockaddr -> transport) ->
  unit

type error =

| Create of exn
| Connect of exn
| Close of exn
| Write of exn
| Read of exn
| Busy
| Ssl_unavailable
| Not_connected
| Invalid_usage
| Unknown_host of string
| Bad_answer of string option
| Http_answer of int * string * string

exception Error of error

val string_of_error : exn -> string

type verb =

| Put
| Post
| Source

type protocol =

| Icy
| Http of verb
| Https of verb

val string_of_protocol : protocol -> string

type content_type

val ogg_application : content_type

val ogg_audio : content_type

val ogg_video : content_type

val mpeg : content_type

val content_type_of_string : string -> content_type

val string_of_content_type : content_type -> string

type mount =

| Icy_id of int
| Icecast_mount of string

type connection = {

mount : mount;
user : string;
password : string;
host : string;
port : int;
chunked : bool;
content_type : content_type;
protocol : protocol;
headers : (string, string) Hashtbl.t;

}

val string_of_connection : connection -> string

type audio_info = (string, string) Hashtbl.t

type metadata = (string, string) Hashtbl.t

type connection_data = {

connection : connection;
transport : transport;

}

type status =

| Connected of connection_data
| Disconnected

type t

val create : 
  ?bind:string ->
  ?connection_timeout:float ->
  ?timeout:float ->
  unit ->
  t

val get_status : t -> status

val get_icy_cap : t -> bool

val get_connection_data : t -> connection_data

val audio_info : 
  ?samplerate:int ->
  ?channels:int ->
  ?quality:float ->
  ?bitrate:int ->
  unit ->
  audio_info

val connection : 
  ?user_agent:string ->
  ?name:string ->
  ?genre:string ->
  ?url:string ->
  ?public:bool ->
  ?audio_info:audio_info ->
  ?description:string ->
  ?host:string ->
  ?port:int ->
  ?chunked:bool ->
  ?password:string ->
  ?protocol:protocol ->
  ?user:string ->
  mount:mount ->
  content_type:content_type ->
  unit ->
  connection

val connect : t -> connection -> unit

val update_metadata : ?charset:string -> t -> metadata -> unit

val manual_update_metadata : 
  host:string ->
  port:int ->
  protocol:protocol ->
  user:string ->
  password:string ->
  mount:mount ->
  ?connection_timeout:float ->
  ?timeout:float ->
  ?headers:(string, string) Hashtbl.t ->
  ?bind:string ->
  ?charset:string ->
  metadata ->
  unit

val send : t -> string -> unit

val close : t -> unit

package cry