Portmidi · portmidi 0.1 · OCaml Packages

val default_sysex_buffer_size : int

module Device_info : sig ... end

module Portmidi_error : sig ... end

val message_status : int32 -> int32

val message_data1 : int32 -> int32

val message_data2 : int32 -> int32

module Portmidi_event : sig ... end

module Input_stream : sig ... end

module Output_stream : sig ... end

val initialize : unit -> ( unit, Portmidi_error.t ) result

val terminate : unit -> unit

val count_devices : unit -> int

val get_device_info : int -> Device_info.t option

val get_error_text : Portmidi_error.t -> string option

val open_input : 
  device_id:int ->
  buffer_size:int32 ->
  ( Input_stream.t, Portmidi_error.t ) result

val poll_input : Input_stream.t -> ( bool, Portmidi_error.t ) result

val read_input : 
  length:int ->
  Input_stream.t ->
  ( Portmidi_event.t list, Portmidi_error.t ) result

val abort_input : Input_stream.t -> ( unit, Portmidi_error.t ) result

val close_input : Input_stream.t -> ( unit, Portmidi_error.t ) result

val open_output : 
  device_id:int ->
  buffer_size:int32 ->
  latency:int32 ->
  ( Output_stream.t, Portmidi_error.t ) result

val write_output : 
  Output_stream.t ->
  Portmidi_event.t list ->
  ( unit, Portmidi_error.t ) result

val write_output_sysex : 
  when_:int ->
  msg:char array ->
  Output_stream.t ->
  ( unit, Portmidi_error.t ) result

val abort_output : Output_stream.t -> ( unit, Portmidi_error.t ) result

val close_output : Output_stream.t -> ( unit, Portmidi_error.t ) result