root/ocaml-remix/trunk/ladspa_raw.ml

type plugin;;
type handle;;
type buffer = FB.buffer_raw;;

type portDirection = Input | Output;;
type portType = Control | Audio;;

external open_plugin : string -> plugin = "c_ex_ladspa_open";;
external port_count : plugin -> int = "c_ex_ladspa_port_count";;
external port_descriptor : plugin -> int -> (portDirection * portType) = 
                                              "c_ex_ladspa_port_descriptor";;

external instantiate : plugin -> int -> handle = "c_ex_ladspa_instantiate";;
external activate : plugin -> handle -> unit = "c_ex_ladspa_activate";;

external raw_sound_to_buffers : int array -> buffer array -> int -> unit = 
                                          "c_ex_ladspa_raw_sound_to_buffers";;

external raw_sound_channel_to_buffer : int array -> int -> int -> buffer -> unit
                                 = "c_ex_ladspa_raw_sound_channel_to_buffer";;

external buffers_to_raw_sound : buffer array -> int -> int array =
                                          "c_ex_ladspa_buffers_to_raw_sound";;
external control_value_to_buffer : float -> buffer = 
                                      "c_ex_ladspa_control_value_to_buffer";;
external empty_buffer : int -> buffer = "c_ex_ladspa_empty_buffer";;

external connect_port : plugin -> handle -> int -> buffer -> unit =
                                        "c_ex_ladspa_connect_port";;
external run : plugin -> handle -> int -> unit = "c_ex_ladspa_run";;
external run_adding : plugin -> handle -> int -> unit = 
                                        "c_ex_ladspa_run_adding";;


let direction_to_string d = match d with
  | Input  -> "Input"
  | Output -> "Output";;

let type_to_string t = match t with
  | Control -> "Control"
  | Audio   -> "Audio";;