mpg123 0.3 (latest) · OCaml Package

type error_code = int

type flags = int

val api_version : int

val ok : error_code

val done_ : error_code

val flag_id3 : flags

val flag_new_id3 : flags

val flag_icy : flags

val flag_new_icy : flags

type enc = int

val enc_signed16 : int

val enc_float32 : int

val init : unit -> (unit, error_code) result

val exit : unit -> unit

type handle

val new_ : ?decoder:string -> unit -> (handle, error_code) result

val delete : handle -> unit

val plain_strerror : error_code -> string

val strerror : handle -> string

val errcode : handle -> error_code

val decoders : unit -> string list

val supported_decoders : unit -> string list

val decoder : handle -> decoder_name:string -> (unit, error_code) result

val current_decoder : handle -> string

val open_ : handle -> path:string -> (unit, error_code) result

val close : handle -> (unit, error_code) result

type buf

val create_buf : int -> buf

val copy_buf_to_bytes : buf -> Bytes.t -> unit

val read : handle -> buf:buf -> len:int -> (int, error_code) result

val scan : handle -> (unit, error_code) result

val length : handle -> (int, error_code) result

val meta_check : handle -> flags

val meta_free : handle -> unit

type id3_v1 = {

tag : string;
title : string;
artist : string;
album : string;
year : string;
comment : string;
genre : char;

}

type id3_v2_text = {

lang : string;
id : string;
description : string;
text : string;

}

type id3_v2_picture = {

type_ : char;
description : string;
mime_type : string;
size : int;
data : string;

}

type id3_v2 = {

version : char;
title : string;
artist : string;
album : string;
year : string;
genre : string;
comment : string;
comment_list : id3_v2_text list;
text : id3_v2_text list;
extra : id3_v2_text list;
picture : id3_v2_picture list;

}

type output_format = {

rate : int;
channels : int;
encoding : int;

}

val getformat : handle -> (output_format, error_code) result

val format_none : handle -> (unit, error_code) result

val format_ : 
  handle ->
  rate:int ->
  channels:int ->
  encodings:int ->
  (unit, error_code) result

val id3 : handle -> (id3_v1 option * id3_v2 option, error_code) result

package mpg123