portmidi 0.1 · OCaml Package

module CI = Cstubs_internals

val portmidi_stub_1_Pm_Initialize : unit -> int

val portmidi_stub_2_Pm_Terminate : unit -> unit

val portmidi_stub_3_Pm_CountDevices : unit -> int

val portmidi_stub_4_Pm_GetDeviceInfo : int -> CI.voidp

val portmidi_stub_5_Pm_GetErrorText : int -> CI.voidp

val portmidi_stub_6_Pm_OpenInput : 
  (_, _) CI.fatptr ->
  int ->
  (_, _) CI.fatptr ->
  int32 ->
  (_, _) CI.fatptr ->
  (_, _) CI.fatptr ->
  int

val portmidi_stub_7_Pm_OpenOutput : 
  (_, _) CI.fatptr ->
  int ->
  (_, _) CI.fatptr ->
  int32 ->
  (_, _) CI.fatptr ->
  (_, _) CI.fatptr ->
  int32 ->
  int

val portmidi_stub_8_Pm_Abort : (_, _) CI.fatptr -> int

val portmidi_stub_9_Pm_Close : (_, _) CI.fatptr -> int

val portmidi_stub_10_Pm_Read : 
  (_, _) CI.fatptr ->
  (_, _) CI.fatptr ->
  int32 ->
  int

val portmidi_stub_11_Pm_Write : 
  (_, _) CI.fatptr ->
  (_, _) CI.fatptr ->
  int32 ->
  int

val portmidi_stub_12_Pm_WriteSysEx : 
  (_, _) CI.fatptr ->
  int32 ->
  (_, _) CI.fatptr ->
  int

val portmidi_stub_13_Pm_Poll : (_, _) CI.fatptr -> int

type 'a result = 'a

type 'a return = 'a

type 'a fn =

| Returns : 'a CI.typ -> 'a return fn
| Function : 'a CI.typ * 'b fn -> ('a -> 'b) fn

val map_result : ('a -> 'b) -> 'c -> 'd

val returning : 'a CI.typ -> 'a return fn

val (@->) : 'a CI.typ -> 'b fn -> ('a -> 'b) fn

val foreign : 'a 'b. string -> ('a -> 'b) fn -> 'a -> 'b

val foreign_value : 'a. string -> 'a Ctypes.typ -> 'a Ctypes.ptr