Source file portmidi_c_generated_functions.ml

module CI = Cstubs_internals

external portmidi_stub_1_Pm_Initialize : unit -> int
  = "portmidi_stub_1_Pm_Initialize" 

external portmidi_stub_2_Pm_Terminate : unit -> unit
  = "portmidi_stub_2_Pm_Terminate" 

external portmidi_stub_3_Pm_CountDevices : unit -> int
  = "portmidi_stub_3_Pm_CountDevices" 

external portmidi_stub_4_Pm_GetDeviceInfo : int -> CI.voidp
  = "portmidi_stub_4_Pm_GetDeviceInfo" 

external portmidi_stub_5_Pm_GetErrorText : int -> CI.voidp
  = "portmidi_stub_5_Pm_GetErrorText" 

external portmidi_stub_6_Pm_OpenInput
  : _ CI.fatptr -> int -> _ CI.fatptr -> int32 -> _ CI.fatptr ->
    _ CI.fatptr -> int
  = "portmidi_stub_6_Pm_OpenInput_byte6" "portmidi_stub_6_Pm_OpenInput" 

external portmidi_stub_7_Pm_OpenOutput
  : _ CI.fatptr -> int -> _ CI.fatptr -> int32 -> _ CI.fatptr ->
    _ CI.fatptr -> int32 -> int
  = "portmidi_stub_7_Pm_OpenOutput_byte7" "portmidi_stub_7_Pm_OpenOutput" 

external portmidi_stub_8_Pm_Abort : _ CI.fatptr -> int
  = "portmidi_stub_8_Pm_Abort" 

external portmidi_stub_9_Pm_Close : _ CI.fatptr -> int
  = "portmidi_stub_9_Pm_Close" 

external portmidi_stub_10_Pm_Read
  : _ CI.fatptr -> _ CI.fatptr -> int32 -> int = "portmidi_stub_10_Pm_Read" 

external portmidi_stub_11_Pm_Write
  : _ CI.fatptr -> _ CI.fatptr -> int32 -> int = "portmidi_stub_11_Pm_Write" 

external portmidi_stub_12_Pm_WriteSysEx
  : _ CI.fatptr -> int32 -> _ CI.fatptr -> int
  = "portmidi_stub_12_Pm_WriteSysEx" 

external portmidi_stub_13_Pm_Poll : _ CI.fatptr -> int
  = "portmidi_stub_13_Pm_Poll" 

external portmidi_stub_14_Pt_Time : unit -> int32
  = "portmidi_stub_14_Pt_Time" 

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
let map_result f x = f x
let returning t = Returns t
let (@->) f p = Function (f, p)
let foreign : type a b. string -> (a -> b) fn -> (a -> b) =
  fun name t -> match t, name with
| Function (CI.Void, Returns (CI.Primitive CI.Int32_t)), "Pt_Time" ->
  portmidi_stub_14_Pt_Time
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Poll" ->
  (fun x2 -> let CI.CPointer x3 = x2 in portmidi_stub_13_Pm_Poll x3)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int32_t,
        Function (CI.Pointer _, Returns (CI.Primitive CI.Int)))),
  "Pm_WriteSysEx" ->
  (fun x4 x6 x7 ->
    let CI.CPointer x8 = x7 in
    let CI.CPointer x5 = x4 in portmidi_stub_12_Pm_WriteSysEx x5 x6 x8)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Primitive CI.Int32_t, Returns (CI.Primitive CI.Int)))),
  "Pm_Write" ->
  (fun x9 x11 x13 ->
    let CI.CPointer x12 = x11 in
    let CI.CPointer x10 = x9 in portmidi_stub_11_Pm_Write x10 x12 x13)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Primitive CI.Int32_t, Returns (CI.Primitive CI.Int)))),
  "Pm_Read" ->
  (fun x14 x16 x18 ->
    let CI.CPointer x17 = x16 in
    let CI.CPointer x15 = x14 in portmidi_stub_10_Pm_Read x15 x17 x18)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Close" ->
  (fun x19 -> let CI.CPointer x20 = x19 in portmidi_stub_9_Pm_Close x20)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Abort" ->
  (fun x21 -> let CI.CPointer x22 = x21 in portmidi_stub_8_Pm_Abort x22)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Int32_t,
              Function
                (CI.Pointer _,
                 Function
                   (CI.Pointer _,
                    Function
                      (CI.Primitive CI.Int32_t,
                       Returns (CI.Primitive CI.Int)))))))),
  "Pm_OpenOutput" ->
  (fun x23 x25 x26 x28 x29 x31 x33 ->
    let CI.CPointer x32 = x31 in
    let CI.CPointer x30 = x29 in
    let CI.CPointer x27 = x26 in
    let CI.CPointer x24 = x23 in
    portmidi_stub_7_Pm_OpenOutput x24 x25 x27 x28 x30 x32 x33)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Int32_t,
              Function
                (CI.Pointer _,
                 Function (CI.Pointer _, Returns (CI.Primitive CI.Int))))))),
  "Pm_OpenInput" ->
  (fun x34 x36 x37 x39 x40 x42 ->
    let CI.CPointer x43 = x42 in
    let CI.CPointer x41 = x40 in
    let CI.CPointer x38 = x37 in
    let CI.CPointer x35 = x34 in
    portmidi_stub_6_Pm_OpenInput x35 x36 x38 x39 x41 x43)
| Function
    (CI.Primitive CI.Int,
     Returns (CI.View {CI.ty = CI.Pointer x45; read = x46; _})),
  "Pm_GetErrorText" ->
  (fun x44 -> x46 (CI.make_ptr x45 (portmidi_stub_5_Pm_GetErrorText x44)))
| Function (CI.Primitive CI.Int, Returns (CI.Pointer x48)),
  "Pm_GetDeviceInfo" ->
  (fun x47 -> CI.make_ptr x48 (portmidi_stub_4_Pm_GetDeviceInfo x47))
| Function (CI.Void, Returns (CI.Primitive CI.Int)), "Pm_CountDevices" ->
  portmidi_stub_3_Pm_CountDevices
| Function (CI.Void, Returns CI.Void), "Pm_Terminate" ->
  portmidi_stub_2_Pm_Terminate
| Function (CI.Void, Returns (CI.Primitive CI.Int)), "Pm_Initialize" ->
  portmidi_stub_1_Pm_Initialize
| _, s ->  Printf.ksprintf failwith "No match for %s" s


let foreign_value : type a. string -> a Ctypes.typ -> a Ctypes.ptr =
  fun name t -> match t, name with
| _, s ->  Printf.ksprintf failwith "No match for %s" s