package portmidi

  1. Overview
  2. Docs
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 =
  1. | Returns : 'a CI.typ -> 'a return fn
  2. | 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